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.
The initial 0/1 convergent is included: u is natural, not necessarily positive. Comparison denominators are strictly smaller and positive. Signed competitors are represented by an arbitrary difference rp−rn. Approximation inequalities are proved from the trace, never stored as assumptions in Convergent.
Exact theorem in conservative defined notation
∀ x. ∀ y. ∀ u. ∀ U. ∀ p. ∀ n. ∀ q. ∀ m. ∀ c. ∀ d. x + (n · u + m · U) = y + (p · u + q · U) → n = p + c → m = q + d → x + (c · u + d · U) = y
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 24 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–10
02Fix variables and assumptionsL11–13
03Use earlier factsL14–17
04Calculate and transport equalitiesL18–22
05Use earlier factsL23–23
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L23
exact h
06Calculate and transport equalitiesL24–24
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L24
simp [add_mul, add_assoc, add_comm, four_square_add_swap_right_tail]
Original defined command ledger · 24 lines
- 0001
intro x - 0002
intro y - 0003
intro u - 0004
intro U - 0005
intro p - 0006
intro n - 0007
intro q - 0008
intro m - 0009
intro c - 0010
intro d - 0011
intro h - 0012
intro hp - 0013
intro hq - 0014
specialize add_right_cancel ((x) + ((c) * (u) + (d) * (U))) - 0015
specialize add_right_cancel ((y)) - 0016
specialize add_right_cancel (p * u + q * U) - 0017
apply add_right_cancel - 0018
trans x + (n * u + m * U) - 0019
rewrite hp - 0020
rewrite hq - 0021
simp [add_mul, add_assoc, add_comm, four_square_add_swap_right_tail] - 0022
trans y + (p * u + q * U) - 0023
exact h - 0024
simp [add_mul, add_assoc, add_comm, four_square_add_swap_right_tail]