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
(∀ x. ∀ y. Prime(x) → ¬y = 0 → ¬y = 1 → (∃ z. ∃ n. ∃ m. ∃ k. x · y = z · z + n · n + m · m + k · k) → ∃ z. ¬z = 0 ∧ (Lt(z,y) ∧ (∃ n. ∃ m. ∃ k. ∃ i. x · z = n · n + m · m + k · k + i · i))) → ∀ x. ∀ y. Prime(x) → ¬y = 0 → (∃ z. ∃ n. ∃ m. ∃ k. x · y = z · z + n · n + m · m + k · k) → ∃ z. ∃ n. ∃ m. ∃ k. x = z · z + n · n + m · m + k · kEvery 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 fsd_prime_universal fsd_multiplier_universal. ((~(fsd_prime_universal = 1) /\ forall frm_prime_left_fsd_universal_prime frm_prime_right_fsd_universal_prime. fsd_prime_universal = frm_prime_left_fsd_universal_prime * frm_prime_right_fsd_universal_prime -> frm_prime_left_fsd_universal_prime = 1 \/ frm_prime_right_fsd_universal_prime = 1)) -> ~(fsd_multiplier_universal = 0) -> ~(fsd_multiplier_universal = 1) -> (exists fsl_a_fsd_universal_source fsl_b_fsd_universal_source fsl_c_fsd_universal_source fsl_d_fsd_universal_source. (fsd_prime_universal * fsd_multiplier_universal) = fsl_a_fsd_universal_source * fsl_a_fsd_universal_source + fsl_b_fsd_universal_source * fsl_b_fsd_universal_source + fsl_c_fsd_universal_source * fsl_c_fsd_universal_source + fsl_d_fsd_universal_source * fsl_d_fsd_universal_source) -> exists fsd_smaller_universal. (~(fsd_smaller_universal = 0) /\ ((exists fsd_gap_universal. fsd_gap_universal + S fsd_smaller_universal = fsd_multiplier_universal) /\ (exists fsl_a_fsd_universal_target fsl_b_fsd_universal_target fsl_c_fsd_universal_target fsl_d_fsd_universal_target. (fsd_prime_universal * fsd_smaller_universal) = fsl_a_fsd_universal_target * fsl_a_fsd_universal_target + fsl_b_fsd_universal_target * fsl_b_fsd_universal_target + fsl_c_fsd_universal_target * fsl_c_fsd_universal_target + fsl_d_fsd_universal_target * fsl_d_fsd_universal_target)))) -> forall p k. ((~(p = 1) /\ forall frm_prime_left_fsd_p frm_prime_right_fsd_p. p = frm_prime_left_fsd_p * frm_prime_right_fsd_p -> frm_prime_left_fsd_p = 1 \/ frm_prime_right_fsd_p = 1)) -> ~(k = 0) -> (exists fsl_a_fsd_multiple fsl_b_fsd_multiple fsl_c_fsd_multiple fsl_d_fsd_multiple. (p * k) = fsl_a_fsd_multiple * fsl_a_fsd_multiple + fsl_b_fsd_multiple * fsl_b_fsd_multiple + fsl_c_fsd_multiple * fsl_c_fsd_multiple + fsl_d_fsd_multiple * fsl_d_fsd_multiple) -> (exists fsl_a_fsd_prime_result fsl_b_fsd_prime_result fsl_c_fsd_prime_result fsl_d_fsd_prime_result. (p) = fsl_a_fsd_prime_result * fsl_a_fsd_prime_result + fsl_b_fsd_prime_result * fsl_b_fsd_prime_result + fsl_c_fsd_prime_result * fsl_c_fsd_prime_result + fsl_d_fsd_prime_result * fsl_d_fsd_prime_result)Proof neighborhood
Direct theorem prerequisites
FS001G four_square_descent_strict_multiplier_boundedDirect 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.
Named ingredients (1)
01Fix variables and assumptionsL1–6
02Use earlier factsL7–16
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L7
specialize four_square_descent_strict_multiplier_bounded k - L8
specialize four_square_descent_strict_multiplier_bounded p - L9
specialize four_square_descent_strict_multiplier_bounded k - L10
apply four_square_descent_strict_multiplier_bounded - L11
specialize le_refl k - L12
exact le_refl - L13
exact hprime - L14
exact hnonzero - L15
exact hrepresented - L16
exact hstep
Original defined command ledger · 16 lines
- 0001
intro hstep - 0002
intro p - 0003
intro k - 0004
intro hprime - 0005
intro hnonzero - 0006
intro hrepresented - 0007
specialize four_square_descent_strict_multiplier_bounded k - 0008
specialize four_square_descent_strict_multiplier_bounded p - 0009
specialize four_square_descent_strict_multiplier_bounded k - 0010
apply four_square_descent_strict_multiplier_bounded - 0011
specialize le_refl k - 0012
exact le_refl - 0013
exact hprime - 0014
exact hnonzero - 0015
exact hrepresented - 0016
exact hstep