BT00XR · Bertrand theorem

legendre_sum_extended_prefix_exists

Alpha v34 checked-use theorem · independently kernel and Lean verified; not Stable

A Legendre sum admits an arbitrarily long zero-extended quotient code.

Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved. Exact original first-admission records.

Statement with defined notation

∀ p. ∀ n. ∀ e. ∀ g. Prime(p)LegendreSum(p,n,e) → ∃ x. ∃ y. PowerQuotPrefix(p,n,x,y,n + g)Sum(x,y,n + g,e)

Every purple notation token opens its conservative definition. Expanding the displayed statement recovers the exact first-order Peano-arithmetic formula checked by the unchanged kernel.

Definitions used by this theorem

In the theorem statement

4 occurrences

In local proof propositions

2 occurrences

Exact expanded native-PA statement
forall p n e g. ((~(p = 1) /\ forall frm_prime_left_b5cvlsepe_prime frm_prime_right_b5cvlsepe_prime. p = frm_prime_left_b5cvlsepe_prime * frm_prime_right_b5cvlsepe_prime -> frm_prime_left_b5cvlsepe_prime = 1 \/ frm_prime_right_b5cvlsepe_prime = 1)) -> (exists bls_code_b5cvlsepe_legendre bls_scale_b5cvlsepe_legendre. ((forall bls_index_b5cvlsepe_legendre_prefix. (exists bls_gap_b5cvlsepe_legendre_prefix_bound. bls_gap_b5cvlsepe_legendre_prefix_bound + S (bls_index_b5cvlsepe_legendre_prefix) = (n)) -> exists bls_power_b5cvlsepe_legendre_prefix bls_quotient_b5cvlsepe_legendre_prefix bls_remainder_b5cvlsepe_legendre_prefix. ((exists bpvi_b_bls_b5cvlsepe_legendre_prefix_power bpvi_c_bls_b5cvlsepe_legendre_prefix_power. ((forall bpvi_i_bls_b5cvlsepe_legendre_prefix_power. (exists bpvi_repeat_gap_bls_b5cvlsepe_legendre_prefix_power. bpvi_repeat_gap_bls_b5cvlsepe_legendre_prefix_power + S bpvi_i_bls_b5cvlsepe_legendre_prefix_power = S bls_index_b5cvlsepe_legendre_prefix) -> (((exists bpvi_h_bls_b5cvlsepe_legendre_prefix_power_repeat. bpvi_h_bls_b5cvlsepe_legendre_prefix_power_repeat + S (p) = S ((S (bpvi_i_bls_b5cvlsepe_legendre_prefix_power)) * bpvi_c_bls_b5cvlsepe_legendre_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_legendre_prefix_power_repeat. bpvi_b_bls_b5cvlsepe_legendre_prefix_power = bpvi_q_bls_b5cvlsepe_legendre_prefix_power_repeat * S ((S (bpvi_i_bls_b5cvlsepe_legendre_prefix_power)) * bpvi_c_bls_b5cvlsepe_legendre_prefix_power) + (p)))) /\ (exists bpvi_u_bls_b5cvlsepe_legendre_prefix_power bpvi_v_bls_b5cvlsepe_legendre_prefix_power. ((((exists bpvi_h_bls_b5cvlsepe_legendre_prefix_power_start. bpvi_h_bls_b5cvlsepe_legendre_prefix_power_start + S (1) = S ((S (0)) * bpvi_v_bls_b5cvlsepe_legendre_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_legendre_prefix_power_start. bpvi_u_bls_b5cvlsepe_legendre_prefix_power = bpvi_q_bls_b5cvlsepe_legendre_prefix_power_start * S ((S (0)) * bpvi_v_bls_b5cvlsepe_legendre_prefix_power) + (1))) /\ ((((exists bpvi_h_bls_b5cvlsepe_legendre_prefix_power_terminal. bpvi_h_bls_b5cvlsepe_legendre_prefix_power_terminal + S (bls_power_b5cvlsepe_legendre_prefix) = S ((S (S bls_index_b5cvlsepe_legendre_prefix)) * bpvi_v_bls_b5cvlsepe_legendre_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_legendre_prefix_power_terminal. bpvi_u_bls_b5cvlsepe_legendre_prefix_power = bpvi_q_bls_b5cvlsepe_legendre_prefix_power_terminal * S ((S (S bls_index_b5cvlsepe_legendre_prefix)) * bpvi_v_bls_b5cvlsepe_legendre_prefix_power) + (bls_power_b5cvlsepe_legendre_prefix))) /\ forall bpvi_j_bls_b5cvlsepe_legendre_prefix_power. (exists bpvi_product_gap_bls_b5cvlsepe_legendre_prefix_power. bpvi_product_gap_bls_b5cvlsepe_legendre_prefix_power + S bpvi_j_bls_b5cvlsepe_legendre_prefix_power = S bls_index_b5cvlsepe_legendre_prefix) -> exists bpvi_factor_bls_b5cvlsepe_legendre_prefix_power bpvi_partial_bls_b5cvlsepe_legendre_prefix_power bpvi_successor_bls_b5cvlsepe_legendre_prefix_power. ((((exists bpvi_h_bls_b5cvlsepe_legendre_prefix_power_factor. bpvi_h_bls_b5cvlsepe_legendre_prefix_power_factor + S (bpvi_factor_bls_b5cvlsepe_legendre_prefix_power) = S ((S (bpvi_j_bls_b5cvlsepe_legendre_prefix_power)) * bpvi_c_bls_b5cvlsepe_legendre_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_legendre_prefix_power_factor. bpvi_b_bls_b5cvlsepe_legendre_prefix_power = bpvi_q_bls_b5cvlsepe_legendre_prefix_power_factor * S ((S (bpvi_j_bls_b5cvlsepe_legendre_prefix_power)) * bpvi_c_bls_b5cvlsepe_legendre_prefix_power) + (bpvi_factor_bls_b5cvlsepe_legendre_prefix_power))) /\ ((((exists bpvi_h_bls_b5cvlsepe_legendre_prefix_power_partial. bpvi_h_bls_b5cvlsepe_legendre_prefix_power_partial + S (bpvi_partial_bls_b5cvlsepe_legendre_prefix_power) = S ((S (bpvi_j_bls_b5cvlsepe_legendre_prefix_power)) * bpvi_v_bls_b5cvlsepe_legendre_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_legendre_prefix_power_partial. bpvi_u_bls_b5cvlsepe_legendre_prefix_power = bpvi_q_bls_b5cvlsepe_legendre_prefix_power_partial * S ((S (bpvi_j_bls_b5cvlsepe_legendre_prefix_power)) * bpvi_v_bls_b5cvlsepe_legendre_prefix_power) + (bpvi_partial_bls_b5cvlsepe_legendre_prefix_power))) /\ ((((exists bpvi_h_bls_b5cvlsepe_legendre_prefix_power_successor. bpvi_h_bls_b5cvlsepe_legendre_prefix_power_successor + S (bpvi_successor_bls_b5cvlsepe_legendre_prefix_power) = S ((S (S bpvi_j_bls_b5cvlsepe_legendre_prefix_power)) * bpvi_v_bls_b5cvlsepe_legendre_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_legendre_prefix_power_successor. bpvi_u_bls_b5cvlsepe_legendre_prefix_power = bpvi_q_bls_b5cvlsepe_legendre_prefix_power_successor * S ((S (S bpvi_j_bls_b5cvlsepe_legendre_prefix_power)) * bpvi_v_bls_b5cvlsepe_legendre_prefix_power) + (bpvi_successor_bls_b5cvlsepe_legendre_prefix_power))) /\ bpvi_successor_bls_b5cvlsepe_legendre_prefix_power = bpvi_partial_bls_b5cvlsepe_legendre_prefix_power * bpvi_factor_bls_b5cvlsepe_legendre_prefix_power)))))))) /\ ((((exists ff_h_bls_b5cvlsepe_legendre_prefix_quotient_entry. ff_h_bls_b5cvlsepe_legendre_prefix_quotient_entry + S (bls_quotient_b5cvlsepe_legendre_prefix) = S ((S (bls_index_b5cvlsepe_legendre_prefix)) * bls_scale_b5cvlsepe_legendre)) /\ exists ff_q_bls_b5cvlsepe_legendre_prefix_quotient_entry. bls_code_b5cvlsepe_legendre = ff_q_bls_b5cvlsepe_legendre_prefix_quotient_entry * S ((S (bls_index_b5cvlsepe_legendre_prefix)) * bls_scale_b5cvlsepe_legendre) + (bls_quotient_b5cvlsepe_legendre_prefix))) /\ ((n = bls_power_b5cvlsepe_legendre_prefix * bls_quotient_b5cvlsepe_legendre_prefix + bls_remainder_b5cvlsepe_legendre_prefix /\ exists bls_remainder_gap_b5cvlsepe_legendre_prefix_division. bls_remainder_gap_b5cvlsepe_legendre_prefix_division + S (bls_remainder_b5cvlsepe_legendre_prefix) = bls_power_b5cvlsepe_legendre_prefix))))) /\ (exists ff_u_bls_b5cvlsepe_legendre_sum ff_v_bls_b5cvlsepe_legendre_sum. ((((exists ff_h_bls_b5cvlsepe_legendre_sum_start. ff_h_bls_b5cvlsepe_legendre_sum_start + S (0) = S ((S (0)) * ff_v_bls_b5cvlsepe_legendre_sum)) /\ exists ff_q_bls_b5cvlsepe_legendre_sum_start. ff_u_bls_b5cvlsepe_legendre_sum = ff_q_bls_b5cvlsepe_legendre_sum_start * S ((S (0)) * ff_v_bls_b5cvlsepe_legendre_sum) + (0))) /\ ((((exists ff_h_bls_b5cvlsepe_legendre_sum_terminal. ff_h_bls_b5cvlsepe_legendre_sum_terminal + S (e) = S ((S (n)) * ff_v_bls_b5cvlsepe_legendre_sum)) /\ exists ff_q_bls_b5cvlsepe_legendre_sum_terminal. ff_u_bls_b5cvlsepe_legendre_sum = ff_q_bls_b5cvlsepe_legendre_sum_terminal * S ((S (n)) * ff_v_bls_b5cvlsepe_legendre_sum) + (e))) /\ forall ff_i_bls_b5cvlsepe_legendre_sum. (exists ff_lt_bls_b5cvlsepe_legendre_sum_bound. ff_lt_bls_b5cvlsepe_legendre_sum_bound + S ff_i_bls_b5cvlsepe_legendre_sum = n) -> exists ff_a_bls_b5cvlsepe_legendre_sum ff_r_bls_b5cvlsepe_legendre_sum ff_s_bls_b5cvlsepe_legendre_sum. ((((exists ff_h_bls_b5cvlsepe_legendre_sum_summand. ff_h_bls_b5cvlsepe_legendre_sum_summand + S (ff_a_bls_b5cvlsepe_legendre_sum) = S ((S (ff_i_bls_b5cvlsepe_legendre_sum)) * bls_scale_b5cvlsepe_legendre)) /\ exists ff_q_bls_b5cvlsepe_legendre_sum_summand. bls_code_b5cvlsepe_legendre = ff_q_bls_b5cvlsepe_legendre_sum_summand * S ((S (ff_i_bls_b5cvlsepe_legendre_sum)) * bls_scale_b5cvlsepe_legendre) + (ff_a_bls_b5cvlsepe_legendre_sum))) /\ ((((exists ff_h_bls_b5cvlsepe_legendre_sum_partial. ff_h_bls_b5cvlsepe_legendre_sum_partial + S (ff_r_bls_b5cvlsepe_legendre_sum) = S ((S (ff_i_bls_b5cvlsepe_legendre_sum)) * ff_v_bls_b5cvlsepe_legendre_sum)) /\ exists ff_q_bls_b5cvlsepe_legendre_sum_partial. ff_u_bls_b5cvlsepe_legendre_sum = ff_q_bls_b5cvlsepe_legendre_sum_partial * S ((S (ff_i_bls_b5cvlsepe_legendre_sum)) * ff_v_bls_b5cvlsepe_legendre_sum) + (ff_r_bls_b5cvlsepe_legendre_sum))) /\ ((((exists ff_h_bls_b5cvlsepe_legendre_sum_successor. ff_h_bls_b5cvlsepe_legendre_sum_successor + S (ff_s_bls_b5cvlsepe_legendre_sum) = S ((S (S ff_i_bls_b5cvlsepe_legendre_sum)) * ff_v_bls_b5cvlsepe_legendre_sum)) /\ exists ff_q_bls_b5cvlsepe_legendre_sum_successor. ff_u_bls_b5cvlsepe_legendre_sum = ff_q_bls_b5cvlsepe_legendre_sum_successor * S ((S (S ff_i_bls_b5cvlsepe_legendre_sum)) * ff_v_bls_b5cvlsepe_legendre_sum) + (ff_s_bls_b5cvlsepe_legendre_sum))) /\ ff_s_bls_b5cvlsepe_legendre_sum = ff_r_bls_b5cvlsepe_legendre_sum + ff_a_bls_b5cvlsepe_legendre_sum)))))))) -> exists b c. ((forall bls_index_b5cvlsepe_prefix. (exists bls_gap_b5cvlsepe_prefix_bound. bls_gap_b5cvlsepe_prefix_bound + S (bls_index_b5cvlsepe_prefix) = (n + g)) -> exists bls_power_b5cvlsepe_prefix bls_quotient_b5cvlsepe_prefix bls_remainder_b5cvlsepe_prefix. ((exists bpvi_b_bls_b5cvlsepe_prefix_power bpvi_c_bls_b5cvlsepe_prefix_power. ((forall bpvi_i_bls_b5cvlsepe_prefix_power. (exists bpvi_repeat_gap_bls_b5cvlsepe_prefix_power. bpvi_repeat_gap_bls_b5cvlsepe_prefix_power + S bpvi_i_bls_b5cvlsepe_prefix_power = S bls_index_b5cvlsepe_prefix) -> (((exists bpvi_h_bls_b5cvlsepe_prefix_power_repeat. bpvi_h_bls_b5cvlsepe_prefix_power_repeat + S (p) = S ((S (bpvi_i_bls_b5cvlsepe_prefix_power)) * bpvi_c_bls_b5cvlsepe_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_prefix_power_repeat. bpvi_b_bls_b5cvlsepe_prefix_power = bpvi_q_bls_b5cvlsepe_prefix_power_repeat * S ((S (bpvi_i_bls_b5cvlsepe_prefix_power)) * bpvi_c_bls_b5cvlsepe_prefix_power) + (p)))) /\ (exists bpvi_u_bls_b5cvlsepe_prefix_power bpvi_v_bls_b5cvlsepe_prefix_power. ((((exists bpvi_h_bls_b5cvlsepe_prefix_power_start. bpvi_h_bls_b5cvlsepe_prefix_power_start + S (1) = S ((S (0)) * bpvi_v_bls_b5cvlsepe_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_prefix_power_start. bpvi_u_bls_b5cvlsepe_prefix_power = bpvi_q_bls_b5cvlsepe_prefix_power_start * S ((S (0)) * bpvi_v_bls_b5cvlsepe_prefix_power) + (1))) /\ ((((exists bpvi_h_bls_b5cvlsepe_prefix_power_terminal. bpvi_h_bls_b5cvlsepe_prefix_power_terminal + S (bls_power_b5cvlsepe_prefix) = S ((S (S bls_index_b5cvlsepe_prefix)) * bpvi_v_bls_b5cvlsepe_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_prefix_power_terminal. bpvi_u_bls_b5cvlsepe_prefix_power = bpvi_q_bls_b5cvlsepe_prefix_power_terminal * S ((S (S bls_index_b5cvlsepe_prefix)) * bpvi_v_bls_b5cvlsepe_prefix_power) + (bls_power_b5cvlsepe_prefix))) /\ forall bpvi_j_bls_b5cvlsepe_prefix_power. (exists bpvi_product_gap_bls_b5cvlsepe_prefix_power. bpvi_product_gap_bls_b5cvlsepe_prefix_power + S bpvi_j_bls_b5cvlsepe_prefix_power = S bls_index_b5cvlsepe_prefix) -> exists bpvi_factor_bls_b5cvlsepe_prefix_power bpvi_partial_bls_b5cvlsepe_prefix_power bpvi_successor_bls_b5cvlsepe_prefix_power. ((((exists bpvi_h_bls_b5cvlsepe_prefix_power_factor. bpvi_h_bls_b5cvlsepe_prefix_power_factor + S (bpvi_factor_bls_b5cvlsepe_prefix_power) = S ((S (bpvi_j_bls_b5cvlsepe_prefix_power)) * bpvi_c_bls_b5cvlsepe_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_prefix_power_factor. bpvi_b_bls_b5cvlsepe_prefix_power = bpvi_q_bls_b5cvlsepe_prefix_power_factor * S ((S (bpvi_j_bls_b5cvlsepe_prefix_power)) * bpvi_c_bls_b5cvlsepe_prefix_power) + (bpvi_factor_bls_b5cvlsepe_prefix_power))) /\ ((((exists bpvi_h_bls_b5cvlsepe_prefix_power_partial. bpvi_h_bls_b5cvlsepe_prefix_power_partial + S (bpvi_partial_bls_b5cvlsepe_prefix_power) = S ((S (bpvi_j_bls_b5cvlsepe_prefix_power)) * bpvi_v_bls_b5cvlsepe_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_prefix_power_partial. bpvi_u_bls_b5cvlsepe_prefix_power = bpvi_q_bls_b5cvlsepe_prefix_power_partial * S ((S (bpvi_j_bls_b5cvlsepe_prefix_power)) * bpvi_v_bls_b5cvlsepe_prefix_power) + (bpvi_partial_bls_b5cvlsepe_prefix_power))) /\ ((((exists bpvi_h_bls_b5cvlsepe_prefix_power_successor. bpvi_h_bls_b5cvlsepe_prefix_power_successor + S (bpvi_successor_bls_b5cvlsepe_prefix_power) = S ((S (S bpvi_j_bls_b5cvlsepe_prefix_power)) * bpvi_v_bls_b5cvlsepe_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_prefix_power_successor. bpvi_u_bls_b5cvlsepe_prefix_power = bpvi_q_bls_b5cvlsepe_prefix_power_successor * S ((S (S bpvi_j_bls_b5cvlsepe_prefix_power)) * bpvi_v_bls_b5cvlsepe_prefix_power) + (bpvi_successor_bls_b5cvlsepe_prefix_power))) /\ bpvi_successor_bls_b5cvlsepe_prefix_power = bpvi_partial_bls_b5cvlsepe_prefix_power * bpvi_factor_bls_b5cvlsepe_prefix_power)))))))) /\ ((((exists ff_h_bls_b5cvlsepe_prefix_quotient_entry. ff_h_bls_b5cvlsepe_prefix_quotient_entry + S (bls_quotient_b5cvlsepe_prefix) = S ((S (bls_index_b5cvlsepe_prefix)) * c)) /\ exists ff_q_bls_b5cvlsepe_prefix_quotient_entry. b = ff_q_bls_b5cvlsepe_prefix_quotient_entry * S ((S (bls_index_b5cvlsepe_prefix)) * c) + (bls_quotient_b5cvlsepe_prefix))) /\ ((n = bls_power_b5cvlsepe_prefix * bls_quotient_b5cvlsepe_prefix + bls_remainder_b5cvlsepe_prefix /\ exists bls_remainder_gap_b5cvlsepe_prefix_division. bls_remainder_gap_b5cvlsepe_prefix_division + S (bls_remainder_b5cvlsepe_prefix) = bls_power_b5cvlsepe_prefix))))) /\ (exists fs_u_b5cvlsepe_sum fs_v_b5cvlsepe_sum. ((((exists fs_h_b5cvlsepe_sum_body_start. fs_h_b5cvlsepe_sum_body_start + S (0) = S ((S (0)) * fs_v_b5cvlsepe_sum)) /\ exists fs_q_b5cvlsepe_sum_body_start. fs_u_b5cvlsepe_sum = fs_q_b5cvlsepe_sum_body_start * S ((S (0)) * fs_v_b5cvlsepe_sum) + (0))) /\ ((((exists fs_h_b5cvlsepe_sum_body_terminal. fs_h_b5cvlsepe_sum_body_terminal + S (e) = S ((S (n + g)) * fs_v_b5cvlsepe_sum)) /\ exists fs_q_b5cvlsepe_sum_body_terminal. fs_u_b5cvlsepe_sum = fs_q_b5cvlsepe_sum_body_terminal * S ((S (n + g)) * fs_v_b5cvlsepe_sum) + (e))) /\ forall fs_i_b5cvlsepe_sum_body_steps. (exists fs_lt_b5cvlsepe_sum_body_steps_bound. fs_lt_b5cvlsepe_sum_body_steps_bound + S fs_i_b5cvlsepe_sum_body_steps = n + g) -> exists fs_a_b5cvlsepe_sum_body_steps fs_r_b5cvlsepe_sum_body_steps fs_s_b5cvlsepe_sum_body_steps. ((((exists fs_h_b5cvlsepe_sum_body_steps_summand. fs_h_b5cvlsepe_sum_body_steps_summand + S (fs_a_b5cvlsepe_sum_body_steps) = S ((S (fs_i_b5cvlsepe_sum_body_steps)) * c)) /\ exists fs_q_b5cvlsepe_sum_body_steps_summand. b = fs_q_b5cvlsepe_sum_body_steps_summand * S ((S (fs_i_b5cvlsepe_sum_body_steps)) * c) + (fs_a_b5cvlsepe_sum_body_steps))) /\ ((((exists fs_h_b5cvlsepe_sum_body_steps_partial. fs_h_b5cvlsepe_sum_body_steps_partial + S (fs_r_b5cvlsepe_sum_body_steps) = S ((S (fs_i_b5cvlsepe_sum_body_steps)) * fs_v_b5cvlsepe_sum)) /\ exists fs_q_b5cvlsepe_sum_body_steps_partial. fs_u_b5cvlsepe_sum = fs_q_b5cvlsepe_sum_body_steps_partial * S ((S (fs_i_b5cvlsepe_sum_body_steps)) * fs_v_b5cvlsepe_sum) + (fs_r_b5cvlsepe_sum_body_steps))) /\ ((((exists fs_h_b5cvlsepe_sum_body_steps_successor. fs_h_b5cvlsepe_sum_body_steps_successor + S (fs_s_b5cvlsepe_sum_body_steps) = S ((S (S fs_i_b5cvlsepe_sum_body_steps)) * fs_v_b5cvlsepe_sum)) /\ exists fs_q_b5cvlsepe_sum_body_steps_successor. fs_u_b5cvlsepe_sum = fs_q_b5cvlsepe_sum_body_steps_successor * S ((S (S fs_i_b5cvlsepe_sum_body_steps)) * fs_v_b5cvlsepe_sum) + (fs_s_b5cvlsepe_sum_body_steps))) /\ fs_s_b5cvlsepe_sum_body_steps = fs_r_b5cvlsepe_sum_body_steps + fs_a_b5cvlsepe_sum_body_steps)))))))

Proof neighborhood

Direct theorem prerequisites

Direct theorem dependents

Definition-aware tactic body

Only local propositions introduced by have or suffices are compacted. Every changed line has an exact-AST conservative-expansion receipt; the kernel still receives the immutable original tactic script.

Read the argument

Proof checkpoints

40 script commands · 12 reading checkpoints · 3 local claims

This is a reading aid, not a new proof or a proof-tree certificate. Checkpoint groups are consecutive commands, not inferred branch boundaries. Every step links to the preserved script.

Definition notation is shown below. Open the paired exact edition for the original native formulas. Source pairing is not a new equivalence certificate.

Named ingredients (3)
01Fix variables and assumptionsL1–6

Work with arbitrary variables or the premises of the current implication.

  1. L1
    intro p
  2. L2
    intro n
  3. L3
    intro e
  4. L4
    intro g
  5. L5
    intro hp
  6. L6
    intro hlegendre
02Establish hprefixL7–12

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply prime power quotient prefix exists.

  1. L7
    have hprefix : ∃ b. ∃ c. PowerQuotPrefix(p,n,b,c,n + g)Definitions: PowerQuotPrefix(p,n,b,c,n + g)Original native command in the exact edition
  2. L8
    specialize prime_power_quotient_prefix_exists p
  3. L9
    specialize prime_power_quotient_prefix_exists n
  4. L10
    specialize prime_power_quotient_prefix_exists (n + g)
  5. L11
    apply prime_power_quotient_prefix_exists
  6. L12
    exact hp
03Separate the logical casesL13–14

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L13
    cases hprefix
  2. L14
    cases hprefix_witness
04Establish hsumL15–19

Establish this local claim before using it. It is not an additional assumption.

  1. L15
    have hsum : ∃ t. Sum(x,x1,n + g,t)Definitions: Sum(x,x1,n + g,t)Original native command in the exact edition
  2. L16
    specialize beta_sum_exists x
  3. L17
    specialize beta_sum_exists x1
  4. L18
    specialize beta_sum_exists (n + g)
  5. L19
    exact beta_sum_exists
05Separate the logical casesL20–20

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L20
    cases hsum
06Establish htotalL21–30

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply power quotient prefix sum extend zero.

  1. L21
    have htotal : x2 = e
  2. L22
    specialize power_quotient_prefix_sum_extend_zero p
  3. L23
    specialize power_quotient_prefix_sum_extend_zero n
  4. L24
    specialize power_quotient_prefix_sum_extend_zero x
  5. L25
    specialize power_quotient_prefix_sum_extend_zero x1
  6. L26
    specialize power_quotient_prefix_sum_extend_zero g
  7. L27
    specialize power_quotient_prefix_sum_extend_zero x2
  8. L28
    specialize power_quotient_prefix_sum_extend_zero e
  9. L29
    apply power_quotient_prefix_sum_extend_zero
  10. L30
    exact hp
07Use earlier factsL31–33

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L31
    exact hprefix_witness_witness
  2. L32
    exact hsum_witness
  3. L33
    exact hlegendre
08Construct an explicit witnessL34–35

Supply the displayed value, then prove that it has the required property.

  1. L34
    exists x
  2. L35
    exists x1
09Separate the logical casesL36–36

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L36
    split
10Use earlier factsL37–37

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L37
    exact hprefix_witness_witness
11Calculate and transport equalitiesL38–39

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L38
    rewrite <- htotal
  2. L39
    rewrite <- htotal
12Use earlier factsL40–40

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L40
    exact hsum_witness

Library-wide reading audit

Original defined command ledger · 40 lines
  1. 0001intro p
  2. 0002intro n
  3. 0003intro e
  4. 0004intro g
  5. 0005intro hp
  6. 0006intro hlegendre
  7. 0007have hprefix : ∃ b. ∃ c. PowerQuotPrefix(p,n,b,c,n + g)
    Exact native replay linehave hprefix : exists b c. forall bls_index_b5cvlsepe_generated_prefix. (exists bls_gap_b5cvlsepe_generated_prefix_bound. bls_gap_b5cvlsepe_generated_prefix_bound + S (bls_index_b5cvlsepe_generated_prefix) = (n + g)) -> exists bls_power_b5cvlsepe_generated_prefix bls_quotient_b5cvlsepe_generated_prefix bls_remainder_b5cvlsepe_generated_prefix. ((exists bpvi_b_bls_b5cvlsepe_generated_prefix_power bpvi_c_bls_b5cvlsepe_generated_prefix_power. ((forall bpvi_i_bls_b5cvlsepe_generated_prefix_power. (exists bpvi_repeat_gap_bls_b5cvlsepe_generated_prefix_power. bpvi_repeat_gap_bls_b5cvlsepe_generated_prefix_power + S bpvi_i_bls_b5cvlsepe_generated_prefix_power = S bls_index_b5cvlsepe_generated_prefix) -> (((exists bpvi_h_bls_b5cvlsepe_generated_prefix_power_repeat. bpvi_h_bls_b5cvlsepe_generated_prefix_power_repeat + S (p) = S ((S (bpvi_i_bls_b5cvlsepe_generated_prefix_power)) * bpvi_c_bls_b5cvlsepe_generated_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_generated_prefix_power_repeat. bpvi_b_bls_b5cvlsepe_generated_prefix_power = bpvi_q_bls_b5cvlsepe_generated_prefix_power_repeat * S ((S (bpvi_i_bls_b5cvlsepe_generated_prefix_power)) * bpvi_c_bls_b5cvlsepe_generated_prefix_power) + (p)))) /\ (exists bpvi_u_bls_b5cvlsepe_generated_prefix_power bpvi_v_bls_b5cvlsepe_generated_prefix_power. ((((exists bpvi_h_bls_b5cvlsepe_generated_prefix_power_start. bpvi_h_bls_b5cvlsepe_generated_prefix_power_start + S (1) = S ((S (0)) * bpvi_v_bls_b5cvlsepe_generated_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_generated_prefix_power_start. bpvi_u_bls_b5cvlsepe_generated_prefix_power = bpvi_q_bls_b5cvlsepe_generated_prefix_power_start * S ((S (0)) * bpvi_v_bls_b5cvlsepe_generated_prefix_power) + (1))) /\ ((((exists bpvi_h_bls_b5cvlsepe_generated_prefix_power_terminal. bpvi_h_bls_b5cvlsepe_generated_prefix_power_terminal + S (bls_power_b5cvlsepe_generated_prefix) = S ((S (S bls_index_b5cvlsepe_generated_prefix)) * bpvi_v_bls_b5cvlsepe_generated_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_generated_prefix_power_terminal. bpvi_u_bls_b5cvlsepe_generated_prefix_power = bpvi_q_bls_b5cvlsepe_generated_prefix_power_terminal * S ((S (S bls_index_b5cvlsepe_generated_prefix)) * bpvi_v_bls_b5cvlsepe_generated_prefix_power) + (bls_power_b5cvlsepe_generated_prefix))) /\ forall bpvi_j_bls_b5cvlsepe_generated_prefix_power. (exists bpvi_product_gap_bls_b5cvlsepe_generated_prefix_power. bpvi_product_gap_bls_b5cvlsepe_generated_prefix_power + S bpvi_j_bls_b5cvlsepe_generated_prefix_power = S bls_index_b5cvlsepe_generated_prefix) -> exists bpvi_factor_bls_b5cvlsepe_generated_prefix_power bpvi_partial_bls_b5cvlsepe_generated_prefix_power bpvi_successor_bls_b5cvlsepe_generated_prefix_power. ((((exists bpvi_h_bls_b5cvlsepe_generated_prefix_power_factor. bpvi_h_bls_b5cvlsepe_generated_prefix_power_factor + S (bpvi_factor_bls_b5cvlsepe_generated_prefix_power) = S ((S (bpvi_j_bls_b5cvlsepe_generated_prefix_power)) * bpvi_c_bls_b5cvlsepe_generated_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_generated_prefix_power_factor. bpvi_b_bls_b5cvlsepe_generated_prefix_power = bpvi_q_bls_b5cvlsepe_generated_prefix_power_factor * S ((S (bpvi_j_bls_b5cvlsepe_generated_prefix_power)) * bpvi_c_bls_b5cvlsepe_generated_prefix_power) + (bpvi_factor_bls_b5cvlsepe_generated_prefix_power))) /\ ((((exists bpvi_h_bls_b5cvlsepe_generated_prefix_power_partial. bpvi_h_bls_b5cvlsepe_generated_prefix_power_partial + S (bpvi_partial_bls_b5cvlsepe_generated_prefix_power) = S ((S (bpvi_j_bls_b5cvlsepe_generated_prefix_power)) * bpvi_v_bls_b5cvlsepe_generated_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_generated_prefix_power_partial. bpvi_u_bls_b5cvlsepe_generated_prefix_power = bpvi_q_bls_b5cvlsepe_generated_prefix_power_partial * S ((S (bpvi_j_bls_b5cvlsepe_generated_prefix_power)) * bpvi_v_bls_b5cvlsepe_generated_prefix_power) + (bpvi_partial_bls_b5cvlsepe_generated_prefix_power))) /\ ((((exists bpvi_h_bls_b5cvlsepe_generated_prefix_power_successor. bpvi_h_bls_b5cvlsepe_generated_prefix_power_successor + S (bpvi_successor_bls_b5cvlsepe_generated_prefix_power) = S ((S (S bpvi_j_bls_b5cvlsepe_generated_prefix_power)) * bpvi_v_bls_b5cvlsepe_generated_prefix_power)) /\ exists bpvi_q_bls_b5cvlsepe_generated_prefix_power_successor. bpvi_u_bls_b5cvlsepe_generated_prefix_power = bpvi_q_bls_b5cvlsepe_generated_prefix_power_successor * S ((S (S bpvi_j_bls_b5cvlsepe_generated_prefix_power)) * bpvi_v_bls_b5cvlsepe_generated_prefix_power) + (bpvi_successor_bls_b5cvlsepe_generated_prefix_power))) /\ bpvi_successor_bls_b5cvlsepe_generated_prefix_power = bpvi_partial_bls_b5cvlsepe_generated_prefix_power * bpvi_factor_bls_b5cvlsepe_generated_prefix_power)))))))) /\ ((((exists ff_h_bls_b5cvlsepe_generated_prefix_quotient_entry. ff_h_bls_b5cvlsepe_generated_prefix_quotient_entry + S (bls_quotient_b5cvlsepe_generated_prefix) = S ((S (bls_index_b5cvlsepe_generated_prefix)) * c)) /\ exists ff_q_bls_b5cvlsepe_generated_prefix_quotient_entry. b = ff_q_bls_b5cvlsepe_generated_prefix_quotient_entry * S ((S (bls_index_b5cvlsepe_generated_prefix)) * c) + (bls_quotient_b5cvlsepe_generated_prefix))) /\ ((n = bls_power_b5cvlsepe_generated_prefix * bls_quotient_b5cvlsepe_generated_prefix + bls_remainder_b5cvlsepe_generated_prefix /\ exists bls_remainder_gap_b5cvlsepe_generated_prefix_division. bls_remainder_gap_b5cvlsepe_generated_prefix_division + S (bls_remainder_b5cvlsepe_generated_prefix) = bls_power_b5cvlsepe_generated_prefix))))
  8. 0008specialize prime_power_quotient_prefix_exists p
  9. 0009specialize prime_power_quotient_prefix_exists n
  10. 0010specialize prime_power_quotient_prefix_exists (n + g)
  11. 0011apply prime_power_quotient_prefix_exists
  12. 0012exact hp
  13. 0013cases hprefix
  14. 0014cases hprefix_witness
  15. 0015have hsum : ∃ t. Sum(x,x1,n + g,t)
    Exact native replay linehave hsum : exists t. exists fs_u_b5cvlsepe_generated_sum fs_v_b5cvlsepe_generated_sum. ((((exists fs_h_b5cvlsepe_generated_sum_body_start. fs_h_b5cvlsepe_generated_sum_body_start + S (0) = S ((S (0)) * fs_v_b5cvlsepe_generated_sum)) /\ exists fs_q_b5cvlsepe_generated_sum_body_start. fs_u_b5cvlsepe_generated_sum = fs_q_b5cvlsepe_generated_sum_body_start * S ((S (0)) * fs_v_b5cvlsepe_generated_sum) + (0))) /\ ((((exists fs_h_b5cvlsepe_generated_sum_body_terminal. fs_h_b5cvlsepe_generated_sum_body_terminal + S (t) = S ((S (n + g)) * fs_v_b5cvlsepe_generated_sum)) /\ exists fs_q_b5cvlsepe_generated_sum_body_terminal. fs_u_b5cvlsepe_generated_sum = fs_q_b5cvlsepe_generated_sum_body_terminal * S ((S (n + g)) * fs_v_b5cvlsepe_generated_sum) + (t))) /\ forall fs_i_b5cvlsepe_generated_sum_body_steps. (exists fs_lt_b5cvlsepe_generated_sum_body_steps_bound. fs_lt_b5cvlsepe_generated_sum_body_steps_bound + S fs_i_b5cvlsepe_generated_sum_body_steps = n + g) -> exists fs_a_b5cvlsepe_generated_sum_body_steps fs_r_b5cvlsepe_generated_sum_body_steps fs_s_b5cvlsepe_generated_sum_body_steps. ((((exists fs_h_b5cvlsepe_generated_sum_body_steps_summand. fs_h_b5cvlsepe_generated_sum_body_steps_summand + S (fs_a_b5cvlsepe_generated_sum_body_steps) = S ((S (fs_i_b5cvlsepe_generated_sum_body_steps)) * x1)) /\ exists fs_q_b5cvlsepe_generated_sum_body_steps_summand. x = fs_q_b5cvlsepe_generated_sum_body_steps_summand * S ((S (fs_i_b5cvlsepe_generated_sum_body_steps)) * x1) + (fs_a_b5cvlsepe_generated_sum_body_steps))) /\ ((((exists fs_h_b5cvlsepe_generated_sum_body_steps_partial. fs_h_b5cvlsepe_generated_sum_body_steps_partial + S (fs_r_b5cvlsepe_generated_sum_body_steps) = S ((S (fs_i_b5cvlsepe_generated_sum_body_steps)) * fs_v_b5cvlsepe_generated_sum)) /\ exists fs_q_b5cvlsepe_generated_sum_body_steps_partial. fs_u_b5cvlsepe_generated_sum = fs_q_b5cvlsepe_generated_sum_body_steps_partial * S ((S (fs_i_b5cvlsepe_generated_sum_body_steps)) * fs_v_b5cvlsepe_generated_sum) + (fs_r_b5cvlsepe_generated_sum_body_steps))) /\ ((((exists fs_h_b5cvlsepe_generated_sum_body_steps_successor. fs_h_b5cvlsepe_generated_sum_body_steps_successor + S (fs_s_b5cvlsepe_generated_sum_body_steps) = S ((S (S fs_i_b5cvlsepe_generated_sum_body_steps)) * fs_v_b5cvlsepe_generated_sum)) /\ exists fs_q_b5cvlsepe_generated_sum_body_steps_successor. fs_u_b5cvlsepe_generated_sum = fs_q_b5cvlsepe_generated_sum_body_steps_successor * S ((S (S fs_i_b5cvlsepe_generated_sum_body_steps)) * fs_v_b5cvlsepe_generated_sum) + (fs_s_b5cvlsepe_generated_sum_body_steps))) /\ fs_s_b5cvlsepe_generated_sum_body_steps = fs_r_b5cvlsepe_generated_sum_body_steps + fs_a_b5cvlsepe_generated_sum_body_steps)))))
  16. 0016specialize beta_sum_exists x
  17. 0017specialize beta_sum_exists x1
  18. 0018specialize beta_sum_exists (n + g)
  19. 0019exact beta_sum_exists
  20. 0020cases hsum
  21. 0021have htotal : x2 = e
  22. 0022specialize power_quotient_prefix_sum_extend_zero p
  23. 0023specialize power_quotient_prefix_sum_extend_zero n
  24. 0024specialize power_quotient_prefix_sum_extend_zero x
  25. 0025specialize power_quotient_prefix_sum_extend_zero x1
  26. 0026specialize power_quotient_prefix_sum_extend_zero g
  27. 0027specialize power_quotient_prefix_sum_extend_zero x2
  28. 0028specialize power_quotient_prefix_sum_extend_zero e
  29. 0029apply power_quotient_prefix_sum_extend_zero
  30. 0030exact hp
  31. 0031exact hprefix_witness_witness
  32. 0032exact hsum_witness
  33. 0033exact hlegendre
  34. 0034exists x
  35. 0035exists x1
  36. 0036split
  37. 0037exact hprefix_witness_witness
  38. 0038rewrite <- htotal
  39. 0039rewrite <- htotal
  40. 0040exact hsum_witness