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. (forall ff_index_be_empty ff_digit_be_empty. (exists ff_lt_be_empty_bound. ff_lt_be_empty_bound + S ff_index_be_empty = 0) -> (((exists ff_h_be_empty_digit. ff_h_be_empty_digit + S (ff_digit_be_empty) = S ((S (ff_index_be_empty)) * c)) /\ exists ff_q_be_empty_digit. b = ff_q_be_empty_digit * S ((S (ff_index_be_empty)) * c) + (ff_digit_be_empty))) -> (ff_digit_be_empty = 0 \/ ff_digit_be_empty = 1))Constructive proof overview
Generated structural guide
Every empty beta-coded prefix is constructively a valid binary digit sequence.
The unchanged tactic script uses 2 declared prerequisites and contains 16 exact native proof lines.
Alpha v34 checked-use · first admitted v22 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
add_eq_zero_right Stable theorem; checked-use authorized succ_ne_zero Stable theorem; checked-use authorizedDirect 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.
01Fix variables and assumptionsL1–6
02Separate the logical casesL7–8
03Establish hzeroL9–16
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply add eq zero right.
Original exact command ledger · 16 lines
- 0001
intro b - 0002
intro c - 0003
intro i - 0004
intro d - 0005
intro hi - 0006
intro hat - 0007
exfalso - 0008
cases hi - 0009
have hzero : S i = 0 - 0010
specialize add_eq_zero_right x - 0011
specialize add_eq_zero_right (S i) - 0012
apply add_eq_zero_right - 0013
exact hi_witness - 0014
specialize succ_ne_zero i - 0015
apply succ_ne_zero - 0016
exact hzero