Exact expanded PA statement
forall p n e. n = 0 -> (exists bls_code_bls_zero bls_scale_bls_zero. ((forall bls_index_bls_zero_prefix. (exists bls_gap_bls_zero_prefix_bound. bls_gap_bls_zero_prefix_bound + S (bls_index_bls_zero_prefix) = (n)) -> exists bls_power_bls_zero_prefix bls_quotient_bls_zero_prefix bls_remainder_bls_zero_prefix. ((exists bpvi_b_bls_bls_zero_prefix_power bpvi_c_bls_bls_zero_prefix_power. ((forall bpvi_i_bls_bls_zero_prefix_power. (exists bpvi_repeat_gap_bls_bls_zero_prefix_power. bpvi_repeat_gap_bls_bls_zero_prefix_power + S bpvi_i_bls_bls_zero_prefix_power = S bls_index_bls_zero_prefix) -> (((exists bpvi_h_bls_bls_zero_prefix_power_repeat. bpvi_h_bls_bls_zero_prefix_power_repeat + S (p) = S ((S (bpvi_i_bls_bls_zero_prefix_power)) * bpvi_c_bls_bls_zero_prefix_power)) /\ exists bpvi_q_bls_bls_zero_prefix_power_repeat. bpvi_b_bls_bls_zero_prefix_power = bpvi_q_bls_bls_zero_prefix_power_repeat * S ((S (bpvi_i_bls_bls_zero_prefix_power)) * bpvi_c_bls_bls_zero_prefix_power) + (p)))) /\ (exists bpvi_u_bls_bls_zero_prefix_power bpvi_v_bls_bls_zero_prefix_power. ((((exists bpvi_h_bls_bls_zero_prefix_power_start. bpvi_h_bls_bls_zero_prefix_power_start + S (1) = S ((S (0)) * bpvi_v_bls_bls_zero_prefix_power)) /\ exists bpvi_q_bls_bls_zero_prefix_power_start. bpvi_u_bls_bls_zero_prefix_power = bpvi_q_bls_bls_zero_prefix_power_start * S ((S (0)) * bpvi_v_bls_bls_zero_prefix_power) + (1))) /\ ((((exists bpvi_h_bls_bls_zero_prefix_power_terminal. bpvi_h_bls_bls_zero_prefix_power_terminal + S (bls_power_bls_zero_prefix) = S ((S (S bls_index_bls_zero_prefix)) * bpvi_v_bls_bls_zero_prefix_power)) /\ exists bpvi_q_bls_bls_zero_prefix_power_terminal. bpvi_u_bls_bls_zero_prefix_power = bpvi_q_bls_bls_zero_prefix_power_terminal * S ((S (S bls_index_bls_zero_prefix)) * bpvi_v_bls_bls_zero_prefix_power) + (bls_power_bls_zero_prefix))) /\ forall bpvi_j_bls_bls_zero_prefix_power. (exists bpvi_product_gap_bls_bls_zero_prefix_power. bpvi_product_gap_bls_bls_zero_prefix_power + S bpvi_j_bls_bls_zero_prefix_power = S bls_index_bls_zero_prefix) -> exists bpvi_factor_bls_bls_zero_prefix_power bpvi_partial_bls_bls_zero_prefix_power bpvi_successor_bls_bls_zero_prefix_power. ((((exists bpvi_h_bls_bls_zero_prefix_power_factor. bpvi_h_bls_bls_zero_prefix_power_factor + S (bpvi_factor_bls_bls_zero_prefix_power) = S ((S (bpvi_j_bls_bls_zero_prefix_power)) * bpvi_c_bls_bls_zero_prefix_power)) /\ exists bpvi_q_bls_bls_zero_prefix_power_factor. bpvi_b_bls_bls_zero_prefix_power = bpvi_q_bls_bls_zero_prefix_power_factor * S ((S (bpvi_j_bls_bls_zero_prefix_power)) * bpvi_c_bls_bls_zero_prefix_power) + (bpvi_factor_bls_bls_zero_prefix_power))) /\ ((((exists bpvi_h_bls_bls_zero_prefix_power_partial. bpvi_h_bls_bls_zero_prefix_power_partial + S (bpvi_partial_bls_bls_zero_prefix_power) = S ((S (bpvi_j_bls_bls_zero_prefix_power)) * bpvi_v_bls_bls_zero_prefix_power)) /\ exists bpvi_q_bls_bls_zero_prefix_power_partial. bpvi_u_bls_bls_zero_prefix_power = bpvi_q_bls_bls_zero_prefix_power_partial * S ((S (bpvi_j_bls_bls_zero_prefix_power)) * bpvi_v_bls_bls_zero_prefix_power) + (bpvi_partial_bls_bls_zero_prefix_power))) /\ ((((exists bpvi_h_bls_bls_zero_prefix_power_successor. bpvi_h_bls_bls_zero_prefix_power_successor + S (bpvi_successor_bls_bls_zero_prefix_power) = S ((S (S bpvi_j_bls_bls_zero_prefix_power)) * bpvi_v_bls_bls_zero_prefix_power)) /\ exists bpvi_q_bls_bls_zero_prefix_power_successor. bpvi_u_bls_bls_zero_prefix_power = bpvi_q_bls_bls_zero_prefix_power_successor * S ((S (S bpvi_j_bls_bls_zero_prefix_power)) * bpvi_v_bls_bls_zero_prefix_power) + (bpvi_successor_bls_bls_zero_prefix_power))) /\ bpvi_successor_bls_bls_zero_prefix_power = bpvi_partial_bls_bls_zero_prefix_power * bpvi_factor_bls_bls_zero_prefix_power)))))))) /\ ((((exists ff_h_bls_bls_zero_prefix_quotient_entry. ff_h_bls_bls_zero_prefix_quotient_entry + S (bls_quotient_bls_zero_prefix) = S ((S (bls_index_bls_zero_prefix)) * bls_scale_bls_zero)) /\ exists ff_q_bls_bls_zero_prefix_quotient_entry. bls_code_bls_zero = ff_q_bls_bls_zero_prefix_quotient_entry * S ((S (bls_index_bls_zero_prefix)) * bls_scale_bls_zero) + (bls_quotient_bls_zero_prefix))) /\ ((n = bls_power_bls_zero_prefix * bls_quotient_bls_zero_prefix + bls_remainder_bls_zero_prefix /\ exists bls_remainder_gap_bls_zero_prefix_division. bls_remainder_gap_bls_zero_prefix_division + S (bls_remainder_bls_zero_prefix) = bls_power_bls_zero_prefix))))) /\ (exists ff_u_bls_bls_zero_sum ff_v_bls_bls_zero_sum. ((((exists ff_h_bls_bls_zero_sum_start. ff_h_bls_bls_zero_sum_start + S (0) = S ((S (0)) * ff_v_bls_bls_zero_sum)) /\ exists ff_q_bls_bls_zero_sum_start. ff_u_bls_bls_zero_sum = ff_q_bls_bls_zero_sum_start * S ((S (0)) * ff_v_bls_bls_zero_sum) + (0))) /\ ((((exists ff_h_bls_bls_zero_sum_terminal. ff_h_bls_bls_zero_sum_terminal + S (e) = S ((S (n)) * ff_v_bls_bls_zero_sum)) /\ exists ff_q_bls_bls_zero_sum_terminal. ff_u_bls_bls_zero_sum = ff_q_bls_bls_zero_sum_terminal * S ((S (n)) * ff_v_bls_bls_zero_sum) + (e))) /\ forall ff_i_bls_bls_zero_sum. (exists ff_lt_bls_bls_zero_sum_bound. ff_lt_bls_bls_zero_sum_bound + S ff_i_bls_bls_zero_sum = n) -> exists ff_a_bls_bls_zero_sum ff_r_bls_bls_zero_sum ff_s_bls_bls_zero_sum. ((((exists ff_h_bls_bls_zero_sum_summand. ff_h_bls_bls_zero_sum_summand + S (ff_a_bls_bls_zero_sum) = S ((S (ff_i_bls_bls_zero_sum)) * bls_scale_bls_zero)) /\ exists ff_q_bls_bls_zero_sum_summand. bls_code_bls_zero = ff_q_bls_bls_zero_sum_summand * S ((S (ff_i_bls_bls_zero_sum)) * bls_scale_bls_zero) + (ff_a_bls_bls_zero_sum))) /\ ((((exists ff_h_bls_bls_zero_sum_partial. ff_h_bls_bls_zero_sum_partial + S (ff_r_bls_bls_zero_sum) = S ((S (ff_i_bls_bls_zero_sum)) * ff_v_bls_bls_zero_sum)) /\ exists ff_q_bls_bls_zero_sum_partial. ff_u_bls_bls_zero_sum = ff_q_bls_bls_zero_sum_partial * S ((S (ff_i_bls_bls_zero_sum)) * ff_v_bls_bls_zero_sum) + (ff_r_bls_bls_zero_sum))) /\ ((((exists ff_h_bls_bls_zero_sum_successor. ff_h_bls_bls_zero_sum_successor + S (ff_s_bls_bls_zero_sum) = S ((S (S ff_i_bls_bls_zero_sum)) * ff_v_bls_bls_zero_sum)) /\ exists ff_q_bls_bls_zero_sum_successor. ff_u_bls_bls_zero_sum = ff_q_bls_bls_zero_sum_successor * S ((S (S ff_i_bls_bls_zero_sum)) * ff_v_bls_bls_zero_sum) + (ff_s_bls_bls_zero_sum))) /\ ff_s_bls_bls_zero_sum = ff_r_bls_bls_zero_sum + ff_a_bls_bls_zero_sum)))))))) -> e = 0Structural proof guide
The finite Legendre sum at zero is zero.
Direct prerequisites: beta_sum_zero. The authored body proceeds by case analysis (3), equality transport (3).
Proof neighborhood
Direct dependencies
Direct dependents
Formal native tactic body
Dependencies are hypotheses of this body receipt. The focused endpoint audits separately check the complete empty-context certificates.
- 0001
intro p - 0002
intro n - 0003
intro e - 0004
intro hn - 0005
intro hsum - 0006
cases hsum - 0007
cases hsum_witness - 0008
cases hsum_witness_witness - 0009
specialize beta_sum_zero x - 0010
specialize beta_sum_zero x1 - 0011
specialize beta_sum_zero e - 0012
apply beta_sum_zero - 0013
rewrite hn at hsum_witness_witness_right - 0014
rewrite hn at hsum_witness_witness_right - 0015
rewrite hn at hsum_witness_witness_right - 0016
exact hsum_witness_witness_right