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
∀ a. ∀ b. ∀ c. PrimitivePythagorean(a,b,c) → ¬a = 0 → ¬b = 0 → Odd(a) → Even(b) → ∃ x. ∃ y. EuclidParameters(a,b,c,x,y)Every 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 a b c. ((((a) * (a) + (b) * (b) = (c) * (c)) /\ (forall pff_divisor_pi_source. (exists pff_left_pi_source. (a) = pff_divisor_pi_source * pff_left_pi_source) -> (exists pff_right_pi_source. (b) = pff_divisor_pi_source * pff_right_pi_source) -> pff_divisor_pi_source = 1))) -> ~(a = 0) -> ~(b = 0) -> (exists pp_odd_pi_inverse_a. (a) = 2 * pp_odd_pi_inverse_a + 1) -> (exists pp_even_pi_inverse_b. (b) = 2 * pp_even_pi_inverse_b) -> exists m n. ((~((n) = 0) /\ ((exists pi_gap_inverse_result. pi_gap_inverse_result + S (n) = (m)) /\ ((forall pff_divisor_pi_inverse_result_coprime. (exists pff_left_pi_inverse_result_coprime. (m) = pff_divisor_pi_inverse_result_coprime * pff_left_pi_inverse_result_coprime) -> (exists pff_right_pi_inverse_result_coprime. (n) = pff_divisor_pi_inverse_result_coprime * pff_right_pi_inverse_result_coprime) -> pff_divisor_pi_inverse_result_coprime = 1) /\ (((((exists pp_even_pi_inverse_result_parity_first_even. (m) = 2 * pp_even_pi_inverse_result_parity_first_even) /\ (exists pp_odd_pi_inverse_result_parity_second_odd. (n) = 2 * pp_odd_pi_inverse_result_parity_second_odd + 1)) \/ ((exists pp_odd_pi_inverse_result_parity_first_odd. (m) = 2 * pp_odd_pi_inverse_result_parity_first_odd + 1) /\ (exists pp_even_pi_inverse_result_parity_second_even. (n) = 2 * pp_even_pi_inverse_result_parity_second_even)))) /\ ((c) = (m) * (m) + (n) * (n) /\ ((m) * (m) = (n) * (n) + (a) /\ (b) = 2 * ((m) * (n)))))))))Proof neighborhood
Direct theorem prerequisites
PF001V pythagorean_odd_even_half_factors PF0016 pythagorean_primitive_hypotenuse_odd PF001W pythagorean_half_factors_extract_parametersDirect 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 (3)
01Fix variables and assumptionsL1–8
02Establish hhalvesL9–17
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply pythagorean odd even half factors.
- L9
have hhalves : ∃ h. ∃ t. b = 2 · h ∧ (c = a + 2 · t ∧ ((a + t) · t = h · h ∧ Coprime(a + t,t)))Definitions: Coprime(a + t,t)Original native command in the exact edition - L10
specialize pythagorean_odd_even_half_factors a - L11
specialize pythagorean_odd_even_half_factors b - L12
specialize pythagorean_odd_even_half_factors c - L13
apply pythagorean_odd_even_half_factors - L14
exact hp - L15
exact hb - L16
exact haodd - L17
exact hbeven
03Separate the logical casesL18–22
04Use earlier factsL23–32
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L23
specialize pythagorean_half_factors_extract_parameters a - L24
specialize pythagorean_half_factors_extract_parameters b - L25
specialize pythagorean_half_factors_extract_parameters c - L26
specialize pythagorean_half_factors_extract_parameters x - L27
specialize pythagorean_half_factors_extract_parameters x1 - L28
apply pythagorean_half_factors_extract_parameters - L29
exact ha - L30
exact hb - L31
specialize pythagorean_primitive_hypotenuse_odd a - L32
specialize pythagorean_primitive_hypotenuse_odd b
05Use earlier factsL33–39
Instantiate or apply named facts and discharge the corresponding proof obligations.
Original defined command ledger · 39 lines
- 0001
intro a - 0002
intro b - 0003
intro c - 0004
intro hp - 0005
intro ha - 0006
intro hb - 0007
intro haodd - 0008
intro hbeven - 0009
have hhalves : ∃ h. ∃ t. b = 2 · h ∧ (c = a + 2 · t ∧ ((a + t) · t = h · h ∧ Coprime(a + t,t)))Exact native replay line
have hhalves : exists h t. (b = 2 * h /\ (c = a + 2 * t /\ ((a + t) * t = h * h /\ (forall pff_divisor_pi_inverse_halves. (exists pff_left_pi_inverse_halves. (a + t) = pff_divisor_pi_inverse_halves * pff_left_pi_inverse_halves) -> (exists pff_right_pi_inverse_halves. (t) = pff_divisor_pi_inverse_halves * pff_right_pi_inverse_halves) -> pff_divisor_pi_inverse_halves = 1)))) - 0010
specialize pythagorean_odd_even_half_factors a - 0011
specialize pythagorean_odd_even_half_factors b - 0012
specialize pythagorean_odd_even_half_factors c - 0013
apply pythagorean_odd_even_half_factors - 0014
exact hp - 0015
exact hb - 0016
exact haodd - 0017
exact hbeven - 0018
cases hhalves - 0019
cases hhalves_witness - 0020
cases hhalves_witness_witness - 0021
cases hhalves_witness_witness_right - 0022
cases hhalves_witness_witness_right_right - 0023
specialize pythagorean_half_factors_extract_parameters a - 0024
specialize pythagorean_half_factors_extract_parameters b - 0025
specialize pythagorean_half_factors_extract_parameters c - 0026
specialize pythagorean_half_factors_extract_parameters x - 0027
specialize pythagorean_half_factors_extract_parameters x1 - 0028
apply pythagorean_half_factors_extract_parameters - 0029
exact ha - 0030
exact hb - 0031
specialize pythagorean_primitive_hypotenuse_odd a - 0032
specialize pythagorean_primitive_hypotenuse_odd b - 0033
specialize pythagorean_primitive_hypotenuse_odd c - 0034
apply pythagorean_primitive_hypotenuse_odd - 0035
exact hp - 0036
exact hhalves_witness_witness_left - 0037
exact hhalves_witness_witness_right_left - 0038
exact hhalves_witness_witness_right_right_left - 0039
exact hhalves_witness_witness_right_right_right