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.
Statement with defined notation
∀ p. ∀ w. ∀ r. ∀ k. ¬p = 0 → ¬w = 0 → ∃ x. ∃ y. ∃ z. ∃ n. k = w · x + y ∧ (Lt(y,w) ∧ DivRem(r · x + y,p,z,n))Every purple notation token opens its conservative definition. This reading surface never changes the unchanged intuitionistic kernel or confers checked-use authority.
Definitions used by this theorem
In the theorem statement
In local proof propositions
Exact expanded first-order statement
forall p w r k. ~(p = 0) -> ~(w = 0) -> (exists ftrg_row_point ftrg_column_point ftrg_quotient_point ftrg_remainder_point. ((k) = (w) * ftrg_row_point + ftrg_column_point /\ ((exists ftrg_gap_point_column. ftrg_gap_point_column + S (ftrg_column_point) = (w)) /\ ((r * ftrg_row_point + ftrg_column_point = (p) * ftrg_quotient_point + ftrg_remainder_point) /\ (exists ftrg_gap_point_residue. ftrg_gap_point_residue + S (ftrg_remainder_point) = (p))))))Proof neighborhood
Direct theorem prerequisites
Direct theorem dependents
Definition-aware tactic body
Only propositions whose conservative expansion has been checked for exact first-order equivalence are compacted. Every changed line retains its immutable exact replay command.
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
02Establish hcoordinatesL7–11
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply division remainder exists.
- L7
have hcoordinates : ∃ i. ∃ j. DivRem(k,w,i,j)Definitions: DivRem(k,w,i,j)Original native command in the exact edition - L8
specialize division_remainder_exists w - L9
specialize division_remainder_exists k - L10
apply division_remainder_exists - L11
exact hw
03Separate the logical casesL12–14
04Establish hresidueL15–19
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply division remainder exists.
- L15
have hresidue : ∃ q. ∃ t. DivRem(r · x + x1,p,q,t)Definitions: DivRem(r · x + x1,p,q,t)Original native command in the exact edition - L16
specialize division_remainder_exists p - L17
specialize division_remainder_exists (r * x + x1) - L18
apply division_remainder_exists - L19
exact hp
05Separate the logical casesL20–22
06Construct an explicit witnessL23–26
07Separate the logical casesL27–27
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L27
split
08Use earlier factsL28–28
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L28
exact hcoordinates_witness_witness_left
09Separate the logical casesL29–29
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L29
split
10Use earlier factsL30–30
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L30
exact hcoordinates_witness_witness_right
11Separate the logical casesL31–31
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L31
split
Original defined command ledger · 33 lines
- 0001
intro p - 0002
intro w - 0003
intro r - 0004
intro k - 0005
intro hp - 0006
intro hw - 0007
have hcoordinates : ∃ i. ∃ j. DivRem(k,w,i,j)Exact native replay line
have hcoordinates : exists i j. k = w * i + j /\ exists gap. gap + S j = w - 0008
specialize division_remainder_exists w - 0009
specialize division_remainder_exists k - 0010
apply division_remainder_exists - 0011
exact hw - 0012
cases hcoordinates - 0013
cases hcoordinates_witness - 0014
cases hcoordinates_witness_witness - 0015
have hresidue : ∃ q. ∃ t. DivRem(r · x + x1,p,q,t)Exact native replay line
have hresidue : exists q t. r * x + x1 = p * q + t /\ exists gap. gap + S t = p - 0016
specialize division_remainder_exists p - 0017
specialize division_remainder_exists (r * x + x1) - 0018
apply division_remainder_exists - 0019
exact hp - 0020
cases hresidue - 0021
cases hresidue_witness - 0022
cases hresidue_witness_witness - 0023
exists x - 0024
exists x1 - 0025
exists x2 - 0026
exists x3 - 0027
split - 0028
exact hcoordinates_witness_witness_left - 0029
split - 0030
exact hcoordinates_witness_witness_right - 0031
split - 0032
exact hresidue_witness_witness_left - 0033
exact hresidue_witness_witness_right