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 PA statement
forall m n. ~(m = 0) -> (exists q. n = m * q) -> exists q r. (n = m * q + r /\ r = 0) /\ S r <= mStructural proof guide
Every multiple of a nonzero divisor has a bounded zero-remainder decomposition.
Direct prerequisites: zero_or_succ. The authored body proceeds by case analysis (3), equality transport (2).
Proof neighborhood
Direct dependencies
Direct dependents
Formal native tactic body
Dependencies are hypotheses of the historical Alpha-v12 body receipt. The complete historical Alpha-v18 proof bundle independently checks every dependency; current Alpha v25 preserves that checked theorem use without changing 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 (1)
01Fix variables and assumptionsL1–4
02Separate the logical casesL5–5
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L5
cases hd
03Use earlier factsL6–6
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L6
specialize zero_or_succ m
04Separate the logical casesL7–8
05Use earlier factsL9–10
06Separate the logical casesL11–11
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L11
cases zero_or_succ_right
07Construct an explicit witnessL12–13
08Separate the logical casesL14–15
09Calculate and transport equalitiesL16–18
10Construct an explicit witnessL19–19
Supply the displayed value, then prove that it has the required property.
- L19
exists x1
Original exact command ledger · 21 lines
- 0001
intro m - 0002
intro n - 0003
intro hm - 0004
intro hd - 0005
cases hd - 0006
specialize zero_or_succ m - 0007
cases zero_or_succ - 0008
exfalso - 0009
apply hm - 0010
exact zero_or_succ_left - 0011
cases zero_or_succ_right - 0012
exists x - 0013
exists 0 - 0014
split - 0015
split - 0016
rewrite hd_witness - 0017
simp - 0018
refl - 0019
exists x1 - 0020
rewrite zero_or_succ_right_witness - 0021
simp