95 new Alpha admissions come from 96 source lemmas: tuple equality reflexivity reuses an already-admitted theorem and is not counted twice. All counts use actual finite beta-coded enumerations. G008 multiplicativity is proved; the general prime-power count and distinct-prime product formula are further goals. General prime-power fields (G091) remain open. Stable is unchanged.
Exact theorem in conservative defined notation
∀ u. ∀ v. ∀ p. ∀ i. ∀ j. Lt(p,u · v) → p = v · i + j → Lt(j,v) → Lt(i,u)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 39 original proof lines are preserved. Only local proposition formulas are abbreviated; every abbreviation has an exact binder-safe expansion check. The linked exact edition contains the unchanged replay script.
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–8
02Establish hcL9–12
03Separate the logical casesL13–14
04Use earlier factsL15–22
05Establish hmL23–28
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply mul le mul left.
06Establish hcommL29–38
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply mul comm.
07Use earlier factsL39–39
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L39
exact hc_right
Original defined command ledger · 39 lines
- 0001
intro u - 0002
intro v - 0003
intro p - 0004
intro i - 0005
intro j - 0006
intro hp - 0007
intro heq - 0008
intro hj - 0009
have hc : Le(u,i) ∨ Lt(i,u) - 0010
specialize le_or_lt (u) - 0011
specialize le_or_lt (i) - 0012
apply le_or_lt - 0013
cases hc - 0014
exfalso - 0015
specialize lt_not_le (p) - 0016
specialize lt_not_le (u*v) - 0017
apply lt_not_le - 0018
exact hp - 0019
specialize le_trans (u*v) - 0020
specialize le_trans (v*i) - 0021
specialize le_trans (p) - 0022
apply le_trans - 0023
have hm : Le(v · u,v · i) - 0024
specialize mul_le_mul_left (u) - 0025
specialize mul_le_mul_left (i) - 0026
specialize mul_le_mul_left (v) - 0027
apply mul_le_mul_left - 0028
exact hc_left - 0029
have hcomm : v*u=u*v - 0030
specialize mul_comm (v) - 0031
specialize mul_comm (u) - 0032
apply mul_comm - 0033
rewrite hcomm at hm - 0034
exact hm - 0035
rewrite heq - 0036
specialize le_add_right (v*i) - 0037
specialize le_add_right (j) - 0038
apply le_add_right - 0039
exact hc_right