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 a b. a * a = b * b -> a = bConstructive proof overview
Generated structural guide
Natural square roots are unique, including zero.
The unchanged tactic script uses 3 declared prerequisites and contains 18 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
PF0019 square_le_reflect le_refl Stable theorem; checked-use authorized le_antisymm 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.
Named ingredients (1)
01Fix variables and assumptionsL1–3
02Use earlier factsL4–9
03Calculate and transport equalitiesL10–10
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L10
rewrite heq
04Use earlier factsL11–15
05Calculate and transport equalitiesL16–16
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L16
rewrite heq
Original exact command ledger · 18 lines
- 0001
intro a - 0002
intro b - 0003
intro heq - 0004
specialize le_antisymm a - 0005
specialize le_antisymm b - 0006
apply le_antisymm - 0007
specialize square_le_reflect a - 0008
specialize square_le_reflect b - 0009
apply square_le_reflect - 0010
rewrite heq - 0011
specialize le_refl (b * b) - 0012
apply le_refl - 0013
specialize square_le_reflect b - 0014
specialize square_le_reflect a - 0015
apply square_le_reflect - 0016
rewrite heq - 0017
specialize le_refl (b * b) - 0018
apply le_refl