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 a b. (exists fts_gap_norm_positive. fts_gap_norm_positive + S (0) = a * a + b * b) -> (exists fts_factor_norm_divisible. a * a + b * b = p * fts_factor_norm_divisible) -> (exists fts_gap_norm_upper. fts_gap_norm_upper + S (a * a + b * b) = p + p) -> p = a * a + b * bConstructive proof overview
Generated structural guide
A positive two-square norm divisible by p and strictly below 2p is exactly p.
The unchanged tactic script uses 1 declared prerequisite and contains 15 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
Direct 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–6
02Establish hequalityL7–15
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply positive multiple below twice equals base.
Original exact command ledger · 15 lines
- 0001
intro p - 0002
intro a - 0003
intro b - 0004
intro hpositive - 0005
intro hdivisible - 0006
intro hupper - 0007
have hequality : a * a + b * b = p - 0008
specialize positive_multiple_below_twice_equals_base p - 0009
specialize positive_multiple_below_twice_equals_base (a * a + b * b) - 0010
apply positive_multiple_below_twice_equals_base - 0011
exact hpositive - 0012
exact hdivisible - 0013
exact hupper - 0014
symm - 0015
exact hequality