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 m. (exists ff_modulus_gap_binary_guard. ff_modulus_gap_binary_guard + S 1 = m) -> ~(m = 0)Constructive proof overview
Generated structural guide
Every explicitly guarded modulus m>1 is constructively nonzero.
The unchanged tactic script uses 2 declared prerequisites and contains 13 exact native proof lines.
Alpha v34 checked-use · first admitted v21 · 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–3
02Separate the logical casesL4–4
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L4
cases hmodulus
03Calculate and transport equalitiesL5–5
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L5
rewrite hzero at hmodulus_witness
04Establish hsuccessorL6–13
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 · 13 lines
- 0001
intro m - 0002
intro hmodulus - 0003
intro hzero - 0004
cases hmodulus - 0005
rewrite hzero at hmodulus_witness - 0006
have hsuccessor : S 1 = 0 - 0007
specialize add_eq_zero_right x - 0008
specialize add_eq_zero_right (S 1) - 0009
apply add_eq_zero_right - 0010
exact hmodulus_witness - 0011
specialize succ_ne_zero 1 - 0012
apply succ_ne_zero - 0013
exact hsuccessor