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 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))))))Constructive proof overview
Generated structural guide
Every flat grid index has canonical row, column, affine quotient, and strictly bounded residue witnesses.
The unchanged tactic script uses 1 declared prerequisite and contains 33 exact native proof lines.
dependency-curried kernel-checked theorem body; Alpha enrollment and checked-use authority follow separately sealed release evidence; Stable membership remains unchanged
Proof neighborhood
Direct dependencies
division_remainder_exists 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–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.
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.
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 exact 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 : 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 : 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