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 n. ~(n=0) -> ~(n=1) -> (exists ge_gap_nonunit_norm_two. ge_gap_nonunit_norm_two + (2) = (n))Constructive proof overview
Generated structural guide
A nonzero natural different from one is at least two, with both small boundaries explicit.
The unchanged tactic script uses 3 declared prerequisites and contains 22 exact native proof lines.
Alpha v34 checked-use · first admitted v30 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
nonzero_is_succ Stable theorem; checked-use authorized one_le_of_ne_zero Stable theorem; checked-use authorized succ_le_succ 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–3
02Establish hsL4–7
03Separate the logical casesL8–8
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L8
cases hs
04Establish hxL9–18
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hone.
Original exact command ledger · 22 lines
- 0001
intro n - 0002
intro hzero - 0003
intro hone - 0004
have hs : exists k. n=S k - 0005
specialize nonzero_is_succ (n) - 0006
apply nonzero_is_succ - 0007
exact hzero - 0008
cases hs - 0009
have hx : ~(x=0) - 0010
intro hxzero - 0011
apply hone - 0012
trans S x - 0013
exact hs_witness - 0014
rewrite hxzero - 0015
refl - 0016
rewrite hs_witness - 0017
specialize succ_le_succ (1) - 0018
specialize succ_le_succ (x) - 0019
apply succ_le_succ - 0020
specialize one_le_of_ne_zero (x) - 0021
apply one_le_of_ne_zero - 0022
exact hx