Theorem 2sqmod 26119

Description: Given two decompositions of a prime as a sum of two squares, show that they are equal. (Contributed by Thierry Arnoux, 2-Feb-2020.)

Hypotheses

Ref	Expression
2sqmod.1	⊢ (𝜑 → 𝑃 ∈ ℙ)
2sqmod.2	⊢ (𝜑 → 𝐴 ∈ ℕ0)
2sqmod.3	⊢ (𝜑 → 𝐵 ∈ ℕ0)
2sqmod.4	⊢ (𝜑 → 𝐶 ∈ ℕ0)
2sqmod.5	⊢ (𝜑 → 𝐷 ∈ ℕ0)
2sqmod.6	⊢ (𝜑 → 𝐴 ≤ 𝐵)
2sqmod.7	⊢ (𝜑 → 𝐶 ≤ 𝐷)
2sqmod.8	⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) = 𝑃)
2sqmod.9	⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) = 𝑃)

Assertion

Ref	Expression
2sqmod	⊢ (𝜑 → (𝐴 = 𝐶 ∧ 𝐵 = 𝐷))

Proof of Theorem 2sqmod

Step	Hyp	Ref	Expression
1		2sqmod.6	. . . . . 6 ⊢ (𝜑 → 𝐴 ≤ 𝐵)
2	1	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ≤ 𝐵)
3		2sqmod.4	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ ℕ0)
4	3	nn0red 11995	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ ℝ)
5	4	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐶 ∈ ℝ)
6		2sqmod.3	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ ℕ0)
7	6	nn0red 11995	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℝ)
8	7	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ∈ ℝ)
9	3	nn0ge0d 11997	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝐶)
10	9	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ 𝐶)
11	6	nn0ge0d 11997	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝐵)
12	11	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ 𝐵)
13	3	nn0cnd 11996	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ ℂ)
14	13	sqcld 13558	. . . . . . . 8 ⊢ (𝜑 → (𝐶↑2) ∈ ℂ)
15	14	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐶↑2) ∈ ℂ)
16	6	nn0cnd 11996	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ ℂ)
17	16	sqcld 13558	. . . . . . . 8 ⊢ (𝜑 → (𝐵↑2) ∈ ℂ)
18	17	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵↑2) ∈ ℂ)
19		2sqmod.2	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ ℕ0)
20	19	nn0cnd 11996	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℂ)
21	20	sqcld 13558	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴↑2) ∈ ℂ)
22		2sqmod.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ∈ ℕ0)
23	22	nn0cnd 11996	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ ℂ)
24	23	sqcld 13558	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐷↑2) ∈ ℂ)
25		2sqmod.8	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) = 𝑃)
26		2sqmod.9	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) = 𝑃)
27	25, 26	eqtr4d 2796	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) = ((𝐶↑2) + (𝐷↑2)))
28	21, 17, 14, 24, 27	subaddeqd 11093	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴↑2) − (𝐷↑2)) = ((𝐶↑2) − (𝐵↑2)))
29	28	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴↑2) − (𝐷↑2)) = ((𝐶↑2) − (𝐵↑2)))
30	19	nn0zd 12124	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ∈ ℤ)
31	3	nn0zd 12124	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐶 ∈ ℤ)
32		dvdsmul1 15679	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝐶 ∈ ℤ) → 𝐴 ∥ (𝐴 · 𝐶))
33	30, 31, 32	syl2anc 587	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐴 ∥ (𝐴 · 𝐶))
34	33	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ∥ (𝐴 · 𝐶))
35	20, 13	mulcld 10699	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐴 · 𝐶) ∈ ℂ)
36	35	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 · 𝐶) ∈ ℂ)
37	16, 23	mulcld 10699	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐵 · 𝐷) ∈ ℂ)
38	37	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵 · 𝐷) ∈ ℂ)
39	19	nn0red 11995	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐴 ∈ ℝ)
40	39, 4	remulcld 10709	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐴 · 𝐶) ∈ ℝ)
41	22	nn0red 11995	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐷 ∈ ℝ)
42	7, 41	remulcld 10709	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐵 · 𝐷) ∈ ℝ)
43	40, 42	resubcld 11106	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐴 · 𝐶) − (𝐵 · 𝐷)) ∈ ℝ)
44	43	recnd 10707	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐴 · 𝐶) − (𝐵 · 𝐷)) ∈ ℂ)
45	44	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴 · 𝐶) − (𝐵 · 𝐷)) ∈ ℂ)
46	43	sqge0d 13662	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 0 ≤ (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2))
47		2sqmod.1	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑃 ∈ ℙ)
48	6	nn0zd 12124	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝐵 ∈ ℤ)
49	47, 30, 48, 25	2sqn0 26117	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝐴 ≠ 0)
50		elnnne0 11948	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐴 ∈ ℕ ↔ (𝐴 ∈ ℕ0 ∧ 𝐴 ≠ 0))
51	19, 49, 50	sylanbrc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐴 ∈ ℕ)
52	22	nn0zd 12124	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝐷 ∈ ℤ)
53	24, 14	addcomd 10880	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → ((𝐷↑2) + (𝐶↑2)) = ((𝐶↑2) + (𝐷↑2)))
54	53, 26	eqtrd 2793	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → ((𝐷↑2) + (𝐶↑2)) = 𝑃)
55	47, 52, 31, 54	2sqn0 26117	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝐷 ≠ 0)
56		elnnne0 11948	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐷 ∈ ℕ ↔ (𝐷 ∈ ℕ0 ∧ 𝐷 ≠ 0))
57	22, 55, 56	sylanbrc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐷 ∈ ℕ)
58	51, 57	nnmulcld 11727	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝐴 · 𝐷) ∈ ℕ)
59	47, 31, 52, 26	2sqn0 26117	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝐶 ≠ 0)
60		elnnne0 11948	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐶 ∈ ℕ ↔ (𝐶 ∈ ℕ0 ∧ 𝐶 ≠ 0))
61	3, 59, 60	sylanbrc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐶 ∈ ℕ)
62	17, 21	addcomd 10880	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → ((𝐵↑2) + (𝐴↑2)) = ((𝐴↑2) + (𝐵↑2)))
63	62, 25	eqtrd 2793	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → ((𝐵↑2) + (𝐴↑2)) = 𝑃)
64	47, 48, 30, 63	2sqn0 26117	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝐵 ≠ 0)
65		elnnne0 11948	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐵 ∈ ℕ ↔ (𝐵 ∈ ℕ0 ∧ 𝐵 ≠ 0))
66	6, 64, 65	sylanbrc 586	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐵 ∈ ℕ)
67	61, 66	nnmulcld 11727	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝐶 · 𝐵) ∈ ℕ)
68	58, 67	nnaddcld 11726	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℕ)
69	68	nnsqcld 13655	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ∈ ℕ)
70	69	nnred 11689	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ∈ ℝ)
71	43	resqcld 13661	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ∈ ℝ)
72	70, 71	addge02d 11267	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (0 ≤ (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ↔ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))))
73	46, 72	mpbid 235	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
74	25, 26	oveq12d 7168	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = (𝑃 · 𝑃))
75		bhmafibid1 14873	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2)))
76	39, 7, 4, 41, 75	syl22anc 837	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2)))
77	74, 76	eqtr3d 2795	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑃 · 𝑃) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2)))
78		prmz 16071	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
79	47, 78	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑃 ∈ ℤ)
80	79	zcnd 12127	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑃 ∈ ℂ)
81	80	sqvald 13557	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑃↑2) = (𝑃 · 𝑃))
82	13, 16	mulcomd 10700	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (𝐶 · 𝐵) = (𝐵 · 𝐶))
83	82	oveq2d 7166	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((𝐴 · 𝐷) + (𝐶 · 𝐵)) = ((𝐴 · 𝐷) + (𝐵 · 𝐶)))
84	83	oveq1d 7165	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) = (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2))
85	84	oveq2d 7166	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2)))
86	77, 81, 85	3eqtr4d 2803	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃↑2) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
87	73, 86	breqtrrd 5060	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ (𝑃↑2))
88	87	adantr 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ (𝑃↑2))
89	30, 52	zmulcld 12132	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝐴 · 𝐷) ∈ ℤ)
90	31, 48	zmulcld 12132	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝐶 · 𝐵) ∈ ℤ)
91	89, 90	zaddcld 12130	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℤ)
92		dvdssqim 15955	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑃 ∈ ℤ ∧ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℤ) → (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
93	79, 91, 92	syl2anc 587	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
94		zsqcl 13544	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑃 ∈ ℤ → (𝑃↑2) ∈ ℤ)
95	79, 94	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑃↑2) ∈ ℤ)
96		dvdsle 15711	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑃↑2) ∈ ℤ ∧ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ∈ ℕ) → ((𝑃↑2) ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) → (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
97	95, 69, 96	syl2anc 587	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝑃↑2) ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) → (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
98	93, 97	syld 47	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) → (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
99	98	imp 410	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))
100	95	zred 12126	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃↑2) ∈ ℝ)
101	70, 100	letri3d 10820	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) = (𝑃↑2) ↔ ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ (𝑃↑2) ∧ (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))))
102	101	adantr 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) = (𝑃↑2) ↔ ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ (𝑃↑2) ∧ (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))))
103	88, 99, 102	mpbir2and 712	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) = (𝑃↑2))
104	86	adantr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝑃↑2) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
105	103, 104	eqtr2d 2794	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))
106	70	recnd 10707	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ∈ ℂ)
107	71	recnd 10707	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ∈ ℂ)
108	106, 106, 107	subadd2d 11054	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ↔ ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
109	108	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ↔ ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
110	105, 109	mpbird 260	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2))
111	106	subidd 11023	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = 0)
112	111	adantr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = 0)
113	110, 112	eqtr3d 2795	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) = 0)
114	45, 113	sqeq0d 13559	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴 · 𝐶) − (𝐵 · 𝐷)) = 0)
115	36, 38, 114	subeq0d 11043	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 · 𝐶) = (𝐵 · 𝐷))
116	34, 115	breqtrd 5058	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ∥ (𝐵 · 𝐷))
117	47, 30, 48, 25	2sqcoprm 26118	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴 gcd 𝐵) = 1)
118	117	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 gcd 𝐵) = 1)
119		coprmdvds 16049	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐷 ∈ ℤ) → ((𝐴 ∥ (𝐵 · 𝐷) ∧ (𝐴 gcd 𝐵) = 1) → 𝐴 ∥ 𝐷))
120	30, 48, 52, 119	syl3anc 1368	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 ∥ (𝐵 · 𝐷) ∧ (𝐴 gcd 𝐵) = 1) → 𝐴 ∥ 𝐷))
121	120	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴 ∥ (𝐵 · 𝐷) ∧ (𝐴 gcd 𝐵) = 1) → 𝐴 ∥ 𝐷))
122	116, 118, 121	mp2and 698	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ∥ 𝐷)
123		dvdsle 15711	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ 𝐷 ∈ ℕ) → (𝐴 ∥ 𝐷 → 𝐴 ≤ 𝐷))
124	30, 57, 123	syl2anc 587	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 ∥ 𝐷 → 𝐴 ≤ 𝐷))
125	124	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 ∥ 𝐷 → 𝐴 ≤ 𝐷))
126	122, 125	mpd 15	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ≤ 𝐷)
127	51	nnrpd 12470	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ∈ ℝ+)
128	127	rprege0d 12479	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 ∈ ℝ ∧ 0 ≤ 𝐴))
129	22	nn0ge0d 11997	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ≤ 𝐷)
130		le2sq 13549	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 0 ≤ 𝐴) ∧ (𝐷 ∈ ℝ ∧ 0 ≤ 𝐷)) → (𝐴 ≤ 𝐷 ↔ (𝐴↑2) ≤ (𝐷↑2)))
131	128, 41, 129, 130	syl12anc 835	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 ≤ 𝐷 ↔ (𝐴↑2) ≤ (𝐷↑2)))
132	131	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 ≤ 𝐷 ↔ (𝐴↑2) ≤ (𝐷↑2)))
133	126, 132	mpbid 235	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴↑2) ≤ (𝐷↑2))
134	51	nnsqcld 13655	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴↑2) ∈ ℕ)
135	134	nnred 11689	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴↑2) ∈ ℝ)
136		zsqcl 13544	. . . . . . . . . . . . . 14 ⊢ (𝐷 ∈ ℤ → (𝐷↑2) ∈ ℤ)
137	52, 136	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐷↑2) ∈ ℤ)
138	137	zred 12126	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷↑2) ∈ ℝ)
139	135, 138	suble0d 11269	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) − (𝐷↑2)) ≤ 0 ↔ (𝐴↑2) ≤ (𝐷↑2)))
140	139	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴↑2) − (𝐷↑2)) ≤ 0 ↔ (𝐴↑2) ≤ (𝐷↑2)))
141	133, 140	mpbird 260	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴↑2) − (𝐷↑2)) ≤ 0)
142	29, 141	eqbrtrrd 5056	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐶↑2) − (𝐵↑2)) ≤ 0)
143		dvdsmul1 15679	. . . . . . . . . . . . . . 15 ⊢ ((𝐵 ∈ ℤ ∧ 𝐷 ∈ ℤ) → 𝐵 ∥ (𝐵 · 𝐷))
144	48, 52, 143	syl2anc 587	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ∥ (𝐵 · 𝐷))
145	144	adantr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ∥ (𝐵 · 𝐷))
146	145, 115	breqtrrd 5060	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ∥ (𝐴 · 𝐶))
147	30, 48	gcdcomd 15913	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴 gcd 𝐵) = (𝐵 gcd 𝐴))
148	147, 117	eqtr3d 2795	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐵 gcd 𝐴) = 1)
149	148	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵 gcd 𝐴) = 1)
150		coprmdvds 16049	. . . . . . . . . . . . . 14 ⊢ ((𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐶 ∈ ℤ) → ((𝐵 ∥ (𝐴 · 𝐶) ∧ (𝐵 gcd 𝐴) = 1) → 𝐵 ∥ 𝐶))
151	48, 30, 31, 150	syl3anc 1368	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐵 ∥ (𝐴 · 𝐶) ∧ (𝐵 gcd 𝐴) = 1) → 𝐵 ∥ 𝐶))
152	151	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐵 ∥ (𝐴 · 𝐶) ∧ (𝐵 gcd 𝐴) = 1) → 𝐵 ∥ 𝐶))
153	146, 149, 152	mp2and 698	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ∥ 𝐶)
154		dvdsle 15711	. . . . . . . . . . . . 13 ⊢ ((𝐵 ∈ ℤ ∧ 𝐶 ∈ ℕ) → (𝐵 ∥ 𝐶 → 𝐵 ≤ 𝐶))
155	48, 61, 154	syl2anc 587	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵 ∥ 𝐶 → 𝐵 ≤ 𝐶))
156	155	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵 ∥ 𝐶 → 𝐵 ≤ 𝐶))
157	153, 156	mpd 15	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ≤ 𝐶)
158	7, 4, 11, 9	le2sqd 13670	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 ≤ 𝐶 ↔ (𝐵↑2) ≤ (𝐶↑2)))
159	158	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵 ≤ 𝐶 ↔ (𝐵↑2) ≤ (𝐶↑2)))
160	157, 159	mpbid 235	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵↑2) ≤ (𝐶↑2))
161	4	resqcld 13661	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐶↑2) ∈ ℝ)
162		zsqcl 13544	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
163	48, 162	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵↑2) ∈ ℤ)
164	163	zred 12126	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵↑2) ∈ ℝ)
165	161, 164	subge0d 11268	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ ((𝐶↑2) − (𝐵↑2)) ↔ (𝐵↑2) ≤ (𝐶↑2)))
166	165	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (0 ≤ ((𝐶↑2) − (𝐵↑2)) ↔ (𝐵↑2) ≤ (𝐶↑2)))
167	160, 166	mpbird 260	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ ((𝐶↑2) − (𝐵↑2)))
168	135, 138	resubcld 11106	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐴↑2) − (𝐷↑2)) ∈ ℝ)
169	28, 168	eqeltrrd 2853	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐶↑2) − (𝐵↑2)) ∈ ℝ)
170		0red 10682	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ ℝ)
171	169, 170	letri3d 10820	. . . . . . . . 9 ⊢ (𝜑 → (((𝐶↑2) − (𝐵↑2)) = 0 ↔ (((𝐶↑2) − (𝐵↑2)) ≤ 0 ∧ 0 ≤ ((𝐶↑2) − (𝐵↑2)))))
172	171	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐶↑2) − (𝐵↑2)) = 0 ↔ (((𝐶↑2) − (𝐵↑2)) ≤ 0 ∧ 0 ≤ ((𝐶↑2) − (𝐵↑2)))))
173	142, 167, 172	mpbir2and 712	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐶↑2) − (𝐵↑2)) = 0)
174	15, 18, 173	subeq0d 11043	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐶↑2) = (𝐵↑2))
175	5, 8, 10, 12, 174	sq11d 13671	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐶 = 𝐵)
176	2, 175	breqtrrd 5060	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ≤ 𝐶)
177		2sqmod.7	. . . . . 6 ⊢ (𝜑 → 𝐶 ≤ 𝐷)
178	177	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐶 ≤ 𝐷)
179	39	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ∈ ℝ)
180	41	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐷 ∈ ℝ)
181	19	nn0ge0d 11997	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝐴)
182	181	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ 𝐴)
183	129	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ 𝐷)
184	21	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴↑2) ∈ ℂ)
185	24	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐷↑2) ∈ ℂ)
186	167, 29	breqtrrd 5060	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ ((𝐴↑2) − (𝐷↑2)))
187	168, 170	letri3d 10820	. . . . . . . . 9 ⊢ (𝜑 → (((𝐴↑2) − (𝐷↑2)) = 0 ↔ (((𝐴↑2) − (𝐷↑2)) ≤ 0 ∧ 0 ≤ ((𝐴↑2) − (𝐷↑2)))))
188	187	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴↑2) − (𝐷↑2)) = 0 ↔ (((𝐴↑2) − (𝐷↑2)) ≤ 0 ∧ 0 ≤ ((𝐴↑2) − (𝐷↑2)))))
189	141, 186, 188	mpbir2and 712	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴↑2) − (𝐷↑2)) = 0)
190	184, 185, 189	subeq0d 11043	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴↑2) = (𝐷↑2))
191	179, 180, 182, 183, 190	sq11d 13671	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 = 𝐷)
192	178, 191	breqtrrd 5060	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐶 ≤ 𝐴)
193	39, 4	letri3d 10820	. . . . 5 ⊢ (𝜑 → (𝐴 = 𝐶 ↔ (𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐴)))
194	193	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 = 𝐶 ↔ (𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐴)))
195	176, 192, 194	mpbir2and 712	. . 3 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 = 𝐶)
196	20	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐴 ∈ ℂ)
197	13	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐶 ∈ ℂ)
198	16	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐵 ∈ ℂ)
199	64	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐵 ≠ 0)
200	41	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐷 ∈ ℝ)
201	7	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐵 ∈ ℝ)
202	129	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 0 ≤ 𝐷)
203	11	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 0 ≤ 𝐵)
204	24	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐷↑2) ∈ ℂ)
205	17	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐵↑2) ∈ ℂ)
206		prmnn 16070	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
207	47, 206	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ ℕ)
208	207	nnne0d 11724	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 ≠ 0)
209	208	neneqd 2956	. . . . . . . . . 10 ⊢ (𝜑 → ¬ 𝑃 = 0)
210	209	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → ¬ 𝑃 = 0)
211	80, 24, 17	subdid 11134	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = ((𝑃 · (𝐷↑2)) − (𝑃 · (𝐵↑2))))
212	80, 24	mulcld 10699	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑃 · (𝐷↑2)) ∈ ℂ)
213	21, 24	mulcld 10699	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐴↑2) · (𝐷↑2)) ∈ ℂ)
214	80, 17	mulcld 10699	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑃 · (𝐵↑2)) ∈ ℂ)
215	14, 17	mulcld 10699	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐶↑2) · (𝐵↑2)) ∈ ℂ)
216	17, 24	mulcomd 10700	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐵↑2) · (𝐷↑2)) = ((𝐷↑2) · (𝐵↑2)))
217	25	oveq1d 7165	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − (𝐴↑2)) = (𝑃 − (𝐴↑2)))
218	21, 17	pncan2d 11037	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − (𝐴↑2)) = (𝐵↑2))
219	217, 218	eqtr3d 2795	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑃 − (𝐴↑2)) = (𝐵↑2))
220	219	oveq1d 7165	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑃 − (𝐴↑2)) · (𝐷↑2)) = ((𝐵↑2) · (𝐷↑2)))
221	26	oveq1d 7165	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − (𝐶↑2)) = (𝑃 − (𝐶↑2)))
222	14, 24	pncan2d 11037	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − (𝐶↑2)) = (𝐷↑2))
223	221, 222	eqtr3d 2795	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑃 − (𝐶↑2)) = (𝐷↑2))
224	223	oveq1d 7165	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑃 − (𝐶↑2)) · (𝐵↑2)) = ((𝐷↑2) · (𝐵↑2)))
225	216, 220, 224	3eqtr4d 2803	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − (𝐴↑2)) · (𝐷↑2)) = ((𝑃 − (𝐶↑2)) · (𝐵↑2)))
226	80, 21, 24	subdird 11135	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − (𝐴↑2)) · (𝐷↑2)) = ((𝑃 · (𝐷↑2)) − ((𝐴↑2) · (𝐷↑2))))
227	80, 14, 17	subdird 11135	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − (𝐶↑2)) · (𝐵↑2)) = ((𝑃 · (𝐵↑2)) − ((𝐶↑2) · (𝐵↑2))))
228	225, 226, 227	3eqtr3d 2801	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑃 · (𝐷↑2)) − ((𝐴↑2) · (𝐷↑2))) = ((𝑃 · (𝐵↑2)) − ((𝐶↑2) · (𝐵↑2))))
229	212, 213, 214, 215, 228	subeqxfrd 11087	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑃 · (𝐷↑2)) − (𝑃 · (𝐵↑2))) = (((𝐴↑2) · (𝐷↑2)) − ((𝐶↑2) · (𝐵↑2))))
230	211, 229	eqtrd 2793	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = (((𝐴↑2) · (𝐷↑2)) − ((𝐶↑2) · (𝐵↑2))))
231	20, 23	sqmuld 13572	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 · 𝐷)↑2) = ((𝐴↑2) · (𝐷↑2)))
232	13, 16	sqmuld 13572	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐶 · 𝐵)↑2) = ((𝐶↑2) · (𝐵↑2)))
233	231, 232	oveq12d 7168	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 · 𝐷)↑2) − ((𝐶 · 𝐵)↑2)) = (((𝐴↑2) · (𝐷↑2)) − ((𝐶↑2) · (𝐵↑2))))
234	20, 23	mulcld 10699	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 · 𝐷) ∈ ℂ)
235	13, 16	mulcld 10699	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐶 · 𝐵) ∈ ℂ)
236		subsq 13622	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 · 𝐷) ∈ ℂ ∧ (𝐶 · 𝐵) ∈ ℂ) → (((𝐴 · 𝐷)↑2) − ((𝐶 · 𝐵)↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
237	234, 235, 236	syl2anc 587	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 · 𝐷)↑2) − ((𝐶 · 𝐵)↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
238	230, 233, 237	3eqtr2d 2799	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
239	238	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
240	234	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐴 · 𝐷) ∈ ℂ)
241		simpll 766	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → 𝜑)
242		simpr 488	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵))
243	242	neqned 2958	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → (𝐴 · 𝐷) ≠ (𝐶 · 𝐵))
244	89, 90	zsubcld 12131	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℤ)
245		dvdssqim 15955	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 ∈ ℤ ∧ ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℤ) → (𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
246	79, 244, 245	syl2anc 587	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
247	246	imp 410	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
248	247	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
249	95	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (𝑃↑2) ∈ ℤ)
250	244	adantr 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℤ)
251	234	adantr 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (𝐴 · 𝐷) ∈ ℂ)
252	235	adantr 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (𝐶 · 𝐵) ∈ ℂ)
253		simpr 488	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (𝐴 · 𝐷) ≠ (𝐶 · 𝐵))
254	251, 252, 253	subne0d 11044	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ≠ 0)
255	250, 254	znsqcld 13576	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) ∈ ℕ)
256		dvdsle 15711	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑃↑2) ∈ ℤ ∧ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) ∈ ℕ) → ((𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) → (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
257	249, 255, 256	syl2anc 587	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → ((𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) → (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
258	257	imp 410	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) ∧ (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)) → (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
259	241, 243, 248, 258	syl21anc 836	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
260	39, 41	remulcld 10709	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐴 · 𝐷) ∈ ℝ)
261	4, 7	remulcld 10709	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐶 · 𝐵) ∈ ℝ)
262	260, 261	resubcld 11106	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℝ)
263	262	resqcld 13661	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) ∈ ℝ)
264	61	nnrpd 12470	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐶 ∈ ℝ+)
265	127, 264	rpmulcld 12488	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐴 · 𝐶) ∈ ℝ+)
266	66	nnrpd 12470	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐵 ∈ ℝ+)
267	57	nnrpd 12470	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐷 ∈ ℝ+)
268	266, 267	rpmulcld 12488	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐵 · 𝐷) ∈ ℝ+)
269	265, 268	rpaddcld 12487	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝐴 · 𝐶) + (𝐵 · 𝐷)) ∈ ℝ+)
270		2z 12053	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 2 ∈ ℤ
271	270	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 2 ∈ ℤ)
272	269, 271	rpexpcld 13658	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) ∈ ℝ+)
273	263, 272	ltaddrp2d 12506	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
274		bhmafibid2 14874	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2)))
275	39, 7, 4, 41, 274	syl22anc 837	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2)))
276	74, 275	eqtr3d 2795	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑃 · 𝑃) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2)))
277	82	oveq2d 7166	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) = ((𝐴 · 𝐷) − (𝐵 · 𝐶)))
278	277	oveq1d 7165	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) = (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2))
279	278	oveq2d 7166	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2)))
280	276, 279	eqtr4d 2796	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑃 · 𝑃) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
281	273, 280	breqtrrd 5060	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃 · 𝑃))
282	281, 81	breqtrrd 5060	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃↑2))
283	241, 282	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃↑2))
284	263, 100	ltnled 10825	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃↑2) ↔ ¬ (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
285	241, 284	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → ((((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃↑2) ↔ ¬ (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
286	283, 285	mpbid 235	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → ¬ (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
287	259, 286	condan 817	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐴 · 𝐷) = (𝐶 · 𝐵))
288	240, 287	subeq0bd 11104	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) = 0)
289	288	oveq2d 7166	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · 0))
290	234, 235	addcld 10698	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℂ)
291	290	mul01d 10877	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · 0) = 0)
292	291	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · 0) = 0)
293	239, 289, 292	3eqtrd 2797	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = 0)
294	24, 17	subcld 11035	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐷↑2) − (𝐵↑2)) ∈ ℂ)
295	80, 294	mul0ord 11328	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑃 · ((𝐷↑2) − (𝐵↑2))) = 0 ↔ (𝑃 = 0 ∨ ((𝐷↑2) − (𝐵↑2)) = 0)))
296	295	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → ((𝑃 · ((𝐷↑2) − (𝐵↑2))) = 0 ↔ (𝑃 = 0 ∨ ((𝐷↑2) − (𝐵↑2)) = 0)))
297	293, 296	mpbid 235	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝑃 = 0 ∨ ((𝐷↑2) − (𝐵↑2)) = 0))
298	297	ord 861	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (¬ 𝑃 = 0 → ((𝐷↑2) − (𝐵↑2)) = 0))
299	210, 298	mpd 15	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → ((𝐷↑2) − (𝐵↑2)) = 0)
300	204, 205, 299	subeq0d 11043	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐷↑2) = (𝐵↑2))
301	200, 201, 202, 203, 300	sq11d 13671	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐷 = 𝐵)
302	301	oveq2d 7166	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐴 · 𝐷) = (𝐴 · 𝐵))
303	302, 287	eqtr3d 2795	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐴 · 𝐵) = (𝐶 · 𝐵))
304	196, 197, 198, 199, 303	mulcan2ad 11314	. . 3 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐴 = 𝐶)
305	137, 163	zsubcld 12131	. . . . . 6 ⊢ (𝜑 → ((𝐷↑2) − (𝐵↑2)) ∈ ℤ)
306		dvdsmul1 15679	. . . . . 6 ⊢ ((𝑃 ∈ ℤ ∧ ((𝐷↑2) − (𝐵↑2)) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((𝐷↑2) − (𝐵↑2))))
307	79, 305, 306	syl2anc 587	. . . . 5 ⊢ (𝜑 → 𝑃 ∥ (𝑃 · ((𝐷↑2) − (𝐵↑2))))
308	307, 238	breqtrd 5058	. . . 4 ⊢ (𝜑 → 𝑃 ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
309		euclemma 16109	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℤ ∧ ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℤ) → (𝑃 ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ↔ (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∨ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵)))))
310	47, 91, 244, 309	syl3anc 1368	. . . 4 ⊢ (𝜑 → (𝑃 ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ↔ (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∨ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵)))))
311	308, 310	mpbid 235	. . 3 ⊢ (𝜑 → (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∨ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
312	195, 304, 311	mpjaodan 956	. 2 ⊢ (𝜑 → 𝐴 = 𝐶)
313	312	oveq1d 7165	. . . . 5 ⊢ (𝜑 → (𝐴↑2) = (𝐶↑2))
314	313	oveq2d 7166	. . . 4 ⊢ (𝜑 → (𝑃 − (𝐴↑2)) = (𝑃 − (𝐶↑2)))
315	314, 219, 223	3eqtr3d 2801	. . 3 ⊢ (𝜑 → (𝐵↑2) = (𝐷↑2))
316	7, 41, 11, 129, 315	sq11d 13671	. 2 ⊢ (𝜑 → 𝐵 = 𝐷)
317	312, 316	jca 515	1 ⊢ (𝜑 → (𝐴 = 𝐶 ∧ 𝐵 = 𝐷))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∨ wo 844   = wceq 1538   ∈ wcel 2111   ≠ wne 2951   class class class wbr 5032  (class class class)co 7150  ℂcc 10573  ℝcr 10574  0cc0 10575  1c1 10576   + caddc 10578   · cmul 10580   < clt 10713   ≤ cle 10714   − cmin 10908  ℕcn 11674  2c2 11729  ℕ₀cn0 11934  ℤcz 12020  ↑cexp 13479   ∥ cdvds 15655   gcd cgcd 15893  ℙcprime 16067

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-sep 5169  ax-nul 5176  ax-pow 5234  ax-pr 5298  ax-un 7459  ax-cnex 10631  ax-resscn 10632  ax-1cn 10633  ax-icn 10634  ax-addcl 10635  ax-addrcl 10636  ax-mulcl 10637  ax-mulrcl 10638  ax-mulcom 10639  ax-addass 10640  ax-mulass 10641  ax-distr 10642  ax-i2m1 10643  ax-1ne0 10644  ax-1rid 10645  ax-rnegex 10646  ax-rrecex 10647  ax-cnre 10648  ax-pre-lttri 10649  ax-pre-lttrn 10650  ax-pre-ltadd 10651  ax-pre-mulgt0 10652  ax-pre-sup 10653

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ne 2952  df-nel 3056  df-ral 3075  df-rex 3076  df-reu 3077  df-rmo 3078  df-rab 3079  df-v 3411  df-sbc 3697  df-csb 3806  df-dif 3861  df-un 3863  df-in 3865  df-ss 3875  df-pss 3877  df-nul 4226  df-if 4421  df-pw 4496  df-sn 4523  df-pr 4525  df-tp 4527  df-op 4529  df-uni 4799  df-iun 4885  df-br 5033  df-opab 5095  df-mpt 5113  df-tr 5139  df-id 5430  df-eprel 5435  df-po 5443  df-so 5444  df-fr 5483  df-we 5485  df-xp 5530  df-rel 5531  df-cnv 5532  df-co 5533  df-dm 5534  df-rn 5535  df-res 5536  df-ima 5537  df-pred 6126  df-ord 6172  df-on 6173  df-lim 6174  df-suc 6175  df-iota 6294  df-fun 6337  df-fn 6338  df-f 6339  df-f1 6340  df-fo 6341  df-f1o 6342  df-fv 6343  df-riota 7108  df-ov 7153  df-oprab 7154  df-mpo 7155  df-om 7580  df-2nd 7694  df-wrecs 7957  df-recs 8018  df-rdg 8056  df-1o 8112  df-2o 8113  df-er 8299  df-en 8528  df-dom 8529  df-sdom 8530  df-fin 8531  df-sup 8939  df-inf 8940  df-pnf 10715  df-mnf 10716  df-xr 10717  df-ltxr 10718  df-le 10719  df-sub 10910  df-neg 10911  df-div 11336  df-nn 11675  df-2 11737  df-3 11738  df-n0 11935  df-z 12021  df-uz 12283  df-rp 12431  df-fl 13211  df-mod 13287  df-seq 13419  df-exp 13480  df-cj 14506  df-re 14507  df-im 14508  df-sqrt 14642  df-abs 14643  df-dvds 15656  df-gcd 15894  df-prm 16068

This theorem is referenced by:  2sqmo  26120