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.
Exact expanded first-order arithmetic statement
forall b c k i p q. ((k = 0 \/ exists pen_last_index_list_complete_source. k = S pen_last_index_list_complete_source /\ ((((exists fs_h_pen_list_complete_source_chain_initial. fs_h_pen_list_complete_source_chain_initial + S (2) = S ((S (0)) * c)) /\ exists fs_q_pen_list_complete_source_chain_initial. b = fs_q_pen_list_complete_source_chain_initial * S ((S (0)) * c) + (2))) /\ forall pen_index_list_complete_source_chain. (exists pc_lt_pen_list_complete_source_chain_bound. pc_lt_pen_list_complete_source_chain_bound + S (pen_index_list_complete_source_chain) = (pen_last_index_list_complete_source)) -> exists pen_previous_list_complete_source_chain pen_following_list_complete_source_chain. (((exists fs_h_pen_list_complete_source_chain_previous. fs_h_pen_list_complete_source_chain_previous + S (pen_previous_list_complete_source_chain) = S ((S (pen_index_list_complete_source_chain)) * c)) /\ exists fs_q_pen_list_complete_source_chain_previous. b = fs_q_pen_list_complete_source_chain_previous * S ((S (pen_index_list_complete_source_chain)) * c) + (pen_previous_list_complete_source_chain))) /\ ((((exists fs_h_pen_list_complete_source_chain_following. fs_h_pen_list_complete_source_chain_following + S (pen_following_list_complete_source_chain) = S ((S (S pen_index_list_complete_source_chain)) * c)) /\ exists fs_q_pen_list_complete_source_chain_following. b = fs_q_pen_list_complete_source_chain_following * S ((S (S pen_index_list_complete_source_chain)) * c) + (pen_following_list_complete_source_chain))) /\ (((~(pen_following_list_complete_source_chain = 1) /\ forall bpr_left_pc_pen_list_complete_source_chain_next_prime bpr_right_pc_pen_list_complete_source_chain_next_prime. pen_following_list_complete_source_chain = bpr_left_pc_pen_list_complete_source_chain_next_prime * bpr_right_pc_pen_list_complete_source_chain_next_prime -> bpr_left_pc_pen_list_complete_source_chain_next_prime = 1 \/ bpr_right_pc_pen_list_complete_source_chain_next_prime = 1)) /\ ((exists pc_lt_pen_list_complete_source_chain_next_greater. pc_lt_pen_list_complete_source_chain_next_greater + S (pen_previous_list_complete_source_chain) = (pen_following_list_complete_source_chain)) /\ forall pen_comparison_list_complete_source_chain_next. ((~(pen_comparison_list_complete_source_chain_next = 1) /\ forall bpr_left_pc_pen_list_complete_source_chain_next_comparison bpr_right_pc_pen_list_complete_source_chain_next_comparison. pen_comparison_list_complete_source_chain_next = bpr_left_pc_pen_list_complete_source_chain_next_comparison * bpr_right_pc_pen_list_complete_source_chain_next_comparison -> bpr_left_pc_pen_list_complete_source_chain_next_comparison = 1 \/ bpr_right_pc_pen_list_complete_source_chain_next_comparison = 1)) -> (exists pc_lt_pen_list_complete_source_chain_next_above. pc_lt_pen_list_complete_source_chain_next_above + S (pen_previous_list_complete_source_chain) = (pen_comparison_list_complete_source_chain_next)) -> (exists pc_le_pen_list_complete_source_chain_next_minimal. pc_le_pen_list_complete_source_chain_next_minimal + (pen_following_list_complete_source_chain) = (pen_comparison_list_complete_source_chain_next)))))))) -> (exists pc_lt_pen_list_complete_index. pc_lt_pen_list_complete_index + S (i) = (k)) -> (((exists fs_h_pen_list_complete_value. fs_h_pen_list_complete_value + S (p) = S ((S (i)) * c)) /\ exists fs_q_pen_list_complete_value. b = fs_q_pen_list_complete_value * S ((S (i)) * c) + (p))) -> ((~(q = 1) /\ forall bpr_left_pc_pen_list_complete_prime bpr_right_pc_pen_list_complete_prime. q = bpr_left_pc_pen_list_complete_prime * bpr_right_pc_pen_list_complete_prime -> bpr_left_pc_pen_list_complete_prime = 1 \/ bpr_right_pc_pen_list_complete_prime = 1)) -> (exists pc_le_pen_list_complete_bound. pc_le_pen_list_complete_bound + (q) = (p)) -> exists j. (exists pc_le_pen_list_complete_position. pc_le_pen_list_complete_position + (j) = (i)) /\ (((exists fs_h_pen_list_complete_found. fs_h_pen_list_complete_found + S (q) = S ((S (j)) * c)) /\ exists fs_q_pen_list_complete_found. b = fs_q_pen_list_complete_found * S ((S (j)) * c) + (q)))Constructive proof overview
Generated structural guide
The first-prime list is exhaustive below each of its entries, with an explicit bounded index witnessing every smaller prime.
The unchanged tactic script uses 5 declared prerequisites and contains 42 exact native proof lines.
Alpha v34 checked-use · first admitted v28 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
lt_not_le Stable theorem; checked-use authorized zero_le Stable theorem; checked-use authorized le_of_succ_le_succ Stable theorem; checked-use authorized PE0009 initial_prime_chain_prefix_restrict PE000E initial_prime_chain_exhausts_primesDirect dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Local theorem links identify exact declared prerequisites. This exact body belongs to a complete independently kernel-checked constructive proof bundle and has Alpha checked-use authority; it does not imply Stable membership.
Read the argument
Proof checkpoints
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.
Named ingredients (2)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–11
Work with arbitrary variables or the premises of the current implication.
- L11
intro hqp
03Separate the logical casesL12–13
04Calculate and transport equalitiesL14–14
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L14
rewrite hl_left at hi
05Use earlier factsL15–20
06Separate the logical casesL21–22
07Use earlier factsL23–32
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L23
specialize initial_prime_chain_exhausts_primes b - L24
specialize initial_prime_chain_exhausts_primes c - L25
specialize initial_prime_chain_exhausts_primes i - L26
specialize initial_prime_chain_exhausts_primes p - L27
specialize initial_prime_chain_exhausts_primes q - L28
apply initial_prime_chain_exhausts_primes - L29
specialize initial_prime_chain_prefix_restrict b - L30
specialize initial_prime_chain_prefix_restrict c - L31
specialize initial_prime_chain_prefix_restrict x - L32
specialize initial_prime_chain_prefix_restrict i
08Use earlier factsL33–36
09Calculate and transport equalitiesL37–37
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L37
rewrite hl_right_witness_left at hi
Original exact command ledger · 42 lines
- 0001
intro b - 0002
intro c - 0003
intro k - 0004
intro i - 0005
intro p - 0006
intro q - 0007
intro hl - 0008
intro hi - 0009
intro hp - 0010
intro hq - 0011
intro hqp - 0012
cases hl - 0013
exfalso - 0014
rewrite hl_left at hi - 0015
specialize lt_not_le i - 0016
specialize lt_not_le 0 - 0017
apply lt_not_le - 0018
exact hi - 0019
specialize zero_le i - 0020
apply zero_le - 0021
cases hl_right - 0022
cases hl_right_witness - 0023
specialize initial_prime_chain_exhausts_primes b - 0024
specialize initial_prime_chain_exhausts_primes c - 0025
specialize initial_prime_chain_exhausts_primes i - 0026
specialize initial_prime_chain_exhausts_primes p - 0027
specialize initial_prime_chain_exhausts_primes q - 0028
apply initial_prime_chain_exhausts_primes - 0029
specialize initial_prime_chain_prefix_restrict b - 0030
specialize initial_prime_chain_prefix_restrict c - 0031
specialize initial_prime_chain_prefix_restrict x - 0032
specialize initial_prime_chain_prefix_restrict i - 0033
apply initial_prime_chain_prefix_restrict - 0034
specialize le_of_succ_le_succ i - 0035
specialize le_of_succ_le_succ x - 0036
apply le_of_succ_le_succ - 0037
rewrite hl_right_witness_left at hi - 0038
exact hi - 0039
exact hl_right_witness_right - 0040
exact hp - 0041
exact hq - 0042
exact hqp