2sqmod - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > 2sqmod		Structured version Visualization version GIF version

Theorem 2sqmod 27745

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	⊢ (𝜑 → 𝐴 ∈ ℕ₀)
2sqmod.3	⊢ (𝜑 → 𝐵 ∈ ℕ₀)
2sqmod.4	⊢ (𝜑 → 𝐶 ∈ ℕ₀)
2sqmod.5	⊢ (𝜑 → 𝐷 ∈ ℕ₀)
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 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ≤ 𝐵)
3		2sqmod.4	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ ℕ₀)
4	3	nn0red 12649	. . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ ℝ)
5	4	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐶 ∈ ℝ)
6		2sqmod.3	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ ℕ₀)
7	6	nn0red 12649	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℝ)
8	7	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ∈ ℝ)
9	3	nn0ge0d 12651	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝐶)
10	9	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ 𝐶)
11	6	nn0ge0d 12651	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝐵)
12	11	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ 𝐵)
13	3	nn0cnd 12650	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ ℂ)
14	13	sqcld 14267	. . . . . . . 8 ⊢ (𝜑 → (𝐶↑2) ∈ ℂ)
15	14	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐶↑2) ∈ ℂ)
16	6	nn0cnd 12650	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ ℂ)
17	16	sqcld 14267	. . . . . . . 8 ⊢ (𝜑 → (𝐵↑2) ∈ ℂ)
18	17	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵↑2) ∈ ℂ)
19		2sqmod.2	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
20	19	nn0cnd 12650	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℂ)
21	20	sqcld 14267	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴↑2) ∈ ℂ)
22		2sqmod.5	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ∈ ℕ₀)
23	22	nn0cnd 12650	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ ℂ)
24	23	sqcld 14267	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐷↑2) ∈ ℂ)
25		2sqmod.8	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) = 𝑃)
26		2sqmod.9	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐶↑2) + (𝐷↑2)) = 𝑃)
27	25, 26	eqtr4d 2799	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) = ((𝐶↑2) + (𝐷↑2)))
28	21, 17, 14, 24, 27	subaddeqd 11712	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴↑2) − (𝐷↑2)) = ((𝐶↑2) − (𝐵↑2)))
29	28	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴↑2) − (𝐷↑2)) = ((𝐶↑2) − (𝐵↑2)))
30	19	nn0zd 12699	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ∈ ℤ)
31	3	nn0zd 12699	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐶 ∈ ℤ)
32		dvdsmul1 16427	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝐶 ∈ ℤ) → 𝐴 ∥ (𝐴 · 𝐶))
33	30, 31, 32	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐴 ∥ (𝐴 · 𝐶))
34	33	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ∥ (𝐴 · 𝐶))
35	20, 13	mulcld 11310	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐴 · 𝐶) ∈ ℂ)
36	35	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 · 𝐶) ∈ ℂ)
37	16, 23	mulcld 11310	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐵 · 𝐷) ∈ ℂ)
38	37	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵 · 𝐷) ∈ ℂ)
39	19	nn0red 12649	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐴 ∈ ℝ)
40	39, 4	remulcld 11320	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐴 · 𝐶) ∈ ℝ)
41	22	nn0red 12649	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐷 ∈ ℝ)
42	7, 41	remulcld 11320	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐵 · 𝐷) ∈ ℝ)
43	40, 42	resubcld 11725	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐴 · 𝐶) − (𝐵 · 𝐷)) ∈ ℝ)
44	43	recnd 11318	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐴 · 𝐶) − (𝐵 · 𝐷)) ∈ ℂ)
45	44	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴 · 𝐶) − (𝐵 · 𝐷)) ∈ ℂ)
46	43	sqge0d 14260	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 0 ≤ (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2))
47		2sqmod.1	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑃 ∈ ℙ)
48	6	nn0zd 12699	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝐵 ∈ ℤ)
49	47, 30, 48, 25	2sqn0 27743	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝐴 ≠ 0)
50		elnnne0 12601	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐴 ∈ ℕ ↔ (𝐴 ∈ ℕ₀ ∧ 𝐴 ≠ 0))
51	19, 49, 50	sylanbrc 595	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐴 ∈ ℕ)
52	22	nn0zd 12699	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝐷 ∈ ℤ)
53	24, 14	addcomd 11493	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → ((𝐷↑2) + (𝐶↑2)) = ((𝐶↑2) + (𝐷↑2)))
54	53, 26	eqtrd 2796	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → ((𝐷↑2) + (𝐶↑2)) = 𝑃)
55	47, 52, 31, 54	2sqn0 27743	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝐷 ≠ 0)
56		elnnne0 12601	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐷 ∈ ℕ ↔ (𝐷 ∈ ℕ₀ ∧ 𝐷 ≠ 0))
57	22, 55, 56	sylanbrc 595	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐷 ∈ ℕ)
58	51, 57	nnmulcld 12372	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝐴 · 𝐷) ∈ ℕ)
59	47, 31, 52, 26	2sqn0 27743	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝐶 ≠ 0)
60		elnnne0 12601	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐶 ∈ ℕ ↔ (𝐶 ∈ ℕ₀ ∧ 𝐶 ≠ 0))
61	3, 59, 60	sylanbrc 595	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐶 ∈ ℕ)
62	17, 21	addcomd 11493	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → ((𝐵↑2) + (𝐴↑2)) = ((𝐴↑2) + (𝐵↑2)))
63	62, 25	eqtrd 2796	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → ((𝐵↑2) + (𝐴↑2)) = 𝑃)
64	47, 48, 30, 63	2sqn0 27743	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝐵 ≠ 0)
65		elnnne0 12601	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝐵 ∈ ℕ ↔ (𝐵 ∈ ℕ₀ ∧ 𝐵 ≠ 0))
66	6, 64, 65	sylanbrc 595	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝐵 ∈ ℕ)
67	61, 66	nnmulcld 12372	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝐶 · 𝐵) ∈ ℕ)
68	58, 67	nnaddcld 12371	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℕ)
69	68	nnsqcld 14368	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ∈ ℕ)
70	69	nnred 12331	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ∈ ℝ)
71	43	resqcld 14248	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ∈ ℝ)
72	70, 71	addge02d 11886	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (0 ≤ (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ↔ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))))
73	46, 72	mpbid 235	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
74	25, 26	oveq12d 7430	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = (𝑃 · 𝑃))
75		bhmafibid1 15615	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2)))
76	39, 7, 4, 41, 75	syl22anc 852	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2)))
77	74, 76	eqtr3d 2798	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑃 · 𝑃) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2)))
78		prmz 16830	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
79	47, 78	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝑃 ∈ ℤ)
80	79	zcnd 12785	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑃 ∈ ℂ)
81	80	sqvald 14266	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑃↑2) = (𝑃 · 𝑃))
82	13, 16	mulcomd 11311	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (𝐶 · 𝐵) = (𝐵 · 𝐶))
83	82	oveq2d 7428	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((𝐴 · 𝐷) + (𝐶 · 𝐵)) = ((𝐴 · 𝐷) + (𝐵 · 𝐶)))
84	83	oveq1d 7427	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) = (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2))
85	84	oveq2d 7428	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐵 · 𝐶))↑2)))
86	77, 81, 85	3eqtr4d 2806	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃↑2) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
87	73, 86	breqtrrd 5133	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ (𝑃↑2))
88	87	adantr 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ (𝑃↑2))
89	30, 52	zmulcld 12790	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝐴 · 𝐷) ∈ ℤ)
90	31, 48	zmulcld 12790	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝐶 · 𝐵) ∈ ℤ)
91	89, 90	zaddcld 12788	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℤ)
92		dvdssqim 16707	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑃 ∈ ℤ ∧ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℤ) → (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
93	79, 91, 92	syl2anc 596	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
94		zsqcl 14252	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑃 ∈ ℤ → (𝑃↑2) ∈ ℤ)
95	79, 94	syl 18	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑃↑2) ∈ ℤ)
96		dvdsle 16460	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑃↑2) ∈ ℤ ∧ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ∈ ℕ) → ((𝑃↑2) ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) → (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
97	95, 69, 96	syl2anc 596	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝑃↑2) ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) → (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
98	93, 97	syld 48	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) → (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
99	98	imp 412	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))
100	95	zred 12784	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃↑2) ∈ ℝ)
101	70, 100	letri3d 11433	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) = (𝑃↑2) ↔ ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ (𝑃↑2) ∧ (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))))
102	101	adantr 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) = (𝑃↑2) ↔ ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ≤ (𝑃↑2) ∧ (𝑃↑2) ≤ (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))))
103	88, 99, 102	mpbir2and 726	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) = (𝑃↑2))
104	86	adantr 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝑃↑2) = ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
105	103, 104	eqtr2d 2797	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2))
106	70	recnd 11318	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) ∈ ℂ)
107	71	recnd 11318	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ∈ ℂ)
108	106, 106, 107	subadd2d 11669	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ↔ ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
109	108	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) ↔ ((((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)))
110	105, 109	mpbird 260	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2))
111	106	subidd 11638	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = 0)
112	111	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2) − (((𝐴 · 𝐷) + (𝐶 · 𝐵))↑2)) = 0)
113	110, 112	eqtr3d 2798	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴 · 𝐶) − (𝐵 · 𝐷))↑2) = 0)
114	45, 113	sqeq0d 14268	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴 · 𝐶) − (𝐵 · 𝐷)) = 0)
115	36, 38, 114	subeq0d 11659	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 · 𝐶) = (𝐵 · 𝐷))
116	34, 115	breqtrd 5131	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ∥ (𝐵 · 𝐷))
117	47, 30, 48, 25	2sqcoprm 27744	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴 gcd 𝐵) = 1)
118	117	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 gcd 𝐵) = 1)
119		coprmdvds 16808	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐷 ∈ ℤ) → ((𝐴 ∥ (𝐵 · 𝐷) ∧ (𝐴 gcd 𝐵) = 1) → 𝐴 ∥ 𝐷))
120	30, 48, 52, 119	syl3anc 1398	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 ∥ (𝐵 · 𝐷) ∧ (𝐴 gcd 𝐵) = 1) → 𝐴 ∥ 𝐷))
121	120	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴 ∥ (𝐵 · 𝐷) ∧ (𝐴 gcd 𝐵) = 1) → 𝐴 ∥ 𝐷))
122	116, 118, 121	mp2and 712	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ∥ 𝐷)
123		dvdsle 16460	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ 𝐷 ∈ ℕ) → (𝐴 ∥ 𝐷 → 𝐴 ≤ 𝐷))
124	30, 57, 123	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 ∥ 𝐷 → 𝐴 ≤ 𝐷))
125	124	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 ∥ 𝐷 → 𝐴 ≤ 𝐷))
126	122, 125	mpd 16	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ≤ 𝐷)
127	51	nnrpd 13143	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
128	127	rprege0d 13152	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 ∈ ℝ ∧ 0 ≤ 𝐴))
129	22	nn0ge0d 12651	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ≤ 𝐷)
130		le2sq 14257	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 0 ≤ 𝐴) ∧ (𝐷 ∈ ℝ ∧ 0 ≤ 𝐷)) → (𝐴 ≤ 𝐷 ↔ (𝐴↑2) ≤ (𝐷↑2)))
131	128, 41, 129, 130	syl12anc 850	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 ≤ 𝐷 ↔ (𝐴↑2) ≤ (𝐷↑2)))
132	131	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 ≤ 𝐷 ↔ (𝐴↑2) ≤ (𝐷↑2)))
133	126, 132	mpbid 235	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴↑2) ≤ (𝐷↑2))
134	51	nnsqcld 14368	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴↑2) ∈ ℕ)
135	134	nnred 12331	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴↑2) ∈ ℝ)
136		zsqcl 14252	. . . . . . . . . . . . . 14 ⊢ (𝐷 ∈ ℤ → (𝐷↑2) ∈ ℤ)
137	52, 136	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐷↑2) ∈ ℤ)
138	137	zred 12784	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷↑2) ∈ ℝ)
139	135, 138	suble0d 11888	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐴↑2) − (𝐷↑2)) ≤ 0 ↔ (𝐴↑2) ≤ (𝐷↑2)))
140	139	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴↑2) − (𝐷↑2)) ≤ 0 ↔ (𝐴↑2) ≤ (𝐷↑2)))
141	133, 140	mpbird 260	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴↑2) − (𝐷↑2)) ≤ 0)
142	29, 141	eqbrtrrd 5129	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐶↑2) − (𝐵↑2)) ≤ 0)
143		dvdsmul1 16427	. . . . . . . . . . . . . . 15 ⊢ ((𝐵 ∈ ℤ ∧ 𝐷 ∈ ℤ) → 𝐵 ∥ (𝐵 · 𝐷))
144	48, 52, 143	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ∥ (𝐵 · 𝐷))
145	144	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ∥ (𝐵 · 𝐷))
146	145, 115	breqtrrd 5133	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ∥ (𝐴 · 𝐶))
147	30, 48	gcdcomd 16666	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐴 gcd 𝐵) = (𝐵 gcd 𝐴))
148	147, 117	eqtr3d 2798	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐵 gcd 𝐴) = 1)
149	148	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵 gcd 𝐴) = 1)
150		coprmdvds 16808	. . . . . . . . . . . . . 14 ⊢ ((𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐶 ∈ ℤ) → ((𝐵 ∥ (𝐴 · 𝐶) ∧ (𝐵 gcd 𝐴) = 1) → 𝐵 ∥ 𝐶))
151	48, 30, 31, 150	syl3anc 1398	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐵 ∥ (𝐴 · 𝐶) ∧ (𝐵 gcd 𝐴) = 1) → 𝐵 ∥ 𝐶))
152	151	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐵 ∥ (𝐴 · 𝐶) ∧ (𝐵 gcd 𝐴) = 1) → 𝐵 ∥ 𝐶))
153	146, 149, 152	mp2and 712	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ∥ 𝐶)
154		dvdsle 16460	. . . . . . . . . . . . 13 ⊢ ((𝐵 ∈ ℤ ∧ 𝐶 ∈ ℕ) → (𝐵 ∥ 𝐶 → 𝐵 ≤ 𝐶))
155	48, 61, 154	syl2anc 596	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵 ∥ 𝐶 → 𝐵 ≤ 𝐶))
156	155	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵 ∥ 𝐶 → 𝐵 ≤ 𝐶))
157	153, 156	mpd 16	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐵 ≤ 𝐶)
158	7, 4, 11, 9	le2sqd 14381	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 ≤ 𝐶 ↔ (𝐵↑2) ≤ (𝐶↑2)))
159	158	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵 ≤ 𝐶 ↔ (𝐵↑2) ≤ (𝐶↑2)))
160	157, 159	mpbid 235	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐵↑2) ≤ (𝐶↑2))
161	4	resqcld 14248	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐶↑2) ∈ ℝ)
162		zsqcl 14252	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
163	48, 162	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵↑2) ∈ ℤ)
164	163	zred 12784	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵↑2) ∈ ℝ)
165	161, 164	subge0d 11887	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ ((𝐶↑2) − (𝐵↑2)) ↔ (𝐵↑2) ≤ (𝐶↑2)))
166	165	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (0 ≤ ((𝐶↑2) − (𝐵↑2)) ↔ (𝐵↑2) ≤ (𝐶↑2)))
167	160, 166	mpbird 260	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ ((𝐶↑2) − (𝐵↑2)))
168	135, 138	resubcld 11725	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐴↑2) − (𝐷↑2)) ∈ ℝ)
169	28, 168	eqeltrrd 2862	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐶↑2) − (𝐵↑2)) ∈ ℝ)
170		0red 11292	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ ℝ)
171	169, 170	letri3d 11433	. . . . . . . . 9 ⊢ (𝜑 → (((𝐶↑2) − (𝐵↑2)) = 0 ↔ (((𝐶↑2) − (𝐵↑2)) ≤ 0 ∧ 0 ≤ ((𝐶↑2) − (𝐵↑2)))))
172	171	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐶↑2) − (𝐵↑2)) = 0 ↔ (((𝐶↑2) − (𝐵↑2)) ≤ 0 ∧ 0 ≤ ((𝐶↑2) − (𝐵↑2)))))
173	142, 167, 172	mpbir2and 726	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐶↑2) − (𝐵↑2)) = 0)
174	15, 18, 173	subeq0d 11659	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐶↑2) = (𝐵↑2))
175	5, 8, 10, 12, 174	sq11d 14382	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐶 = 𝐵)
176	2, 175	breqtrrd 5133	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ≤ 𝐶)
177		2sqmod.7	. . . . . 6 ⊢ (𝜑 → 𝐶 ≤ 𝐷)
178	177	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐶 ≤ 𝐷)
179	39	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 ∈ ℝ)
180	41	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐷 ∈ ℝ)
181	19	nn0ge0d 12651	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝐴)
182	181	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ 𝐴)
183	129	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ 𝐷)
184	21	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴↑2) ∈ ℂ)
185	24	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐷↑2) ∈ ℂ)
186	167, 29	breqtrrd 5133	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 0 ≤ ((𝐴↑2) − (𝐷↑2)))
187	168, 170	letri3d 11433	. . . . . . . . 9 ⊢ (𝜑 → (((𝐴↑2) − (𝐷↑2)) = 0 ↔ (((𝐴↑2) − (𝐷↑2)) ≤ 0 ∧ 0 ≤ ((𝐴↑2) − (𝐷↑2)))))
188	187	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (((𝐴↑2) − (𝐷↑2)) = 0 ↔ (((𝐴↑2) − (𝐷↑2)) ≤ 0 ∧ 0 ≤ ((𝐴↑2) − (𝐷↑2)))))
189	141, 186, 188	mpbir2and 726	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → ((𝐴↑2) − (𝐷↑2)) = 0)
190	184, 185, 189	subeq0d 11659	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴↑2) = (𝐷↑2))
191	179, 180, 182, 183, 190	sq11d 14382	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 = 𝐷)
192	178, 191	breqtrrd 5133	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐶 ≤ 𝐴)
193	39, 4	letri3d 11433	. . . . 5 ⊢ (𝜑 → (𝐴 = 𝐶 ↔ (𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐴)))
194	193	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → (𝐴 = 𝐶 ↔ (𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐴)))
195	176, 192, 194	mpbir2and 726	. . 3 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵))) → 𝐴 = 𝐶)
196	20	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐴 ∈ ℂ)
197	13	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐶 ∈ ℂ)
198	16	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐵 ∈ ℂ)
199	64	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐵 ≠ 0)
200	41	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐷 ∈ ℝ)
201	7	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐵 ∈ ℝ)
202	129	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 0 ≤ 𝐷)
203	11	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 0 ≤ 𝐵)
204	24	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐷↑2) ∈ ℂ)
205	17	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐵↑2) ∈ ℂ)
206		prmnn 16829	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
207	47, 206	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ ℕ)
208	207	nnne0d 12369	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 ≠ 0)
209	208	neneqd 2961	. . . . . . . . . 10 ⊢ (𝜑 → ¬ 𝑃 = 0)
210	209	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → ¬ 𝑃 = 0)
211	80, 24, 17	subdid 11753	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = ((𝑃 · (𝐷↑2)) − (𝑃 · (𝐵↑2))))
212	80, 24	mulcld 11310	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑃 · (𝐷↑2)) ∈ ℂ)
213	21, 24	mulcld 11310	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐴↑2) · (𝐷↑2)) ∈ ℂ)
214	80, 17	mulcld 11310	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑃 · (𝐵↑2)) ∈ ℂ)
215	14, 17	mulcld 11310	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐶↑2) · (𝐵↑2)) ∈ ℂ)
216	17, 24	mulcomd 11311	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐵↑2) · (𝐷↑2)) = ((𝐷↑2) · (𝐵↑2)))
217	25	oveq1d 7427	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − (𝐴↑2)) = (𝑃 − (𝐴↑2)))
218	21, 17	pncan2d 11652	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) − (𝐴↑2)) = (𝐵↑2))
219	217, 218	eqtr3d 2798	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑃 − (𝐴↑2)) = (𝐵↑2))
220	219	oveq1d 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑃 − (𝐴↑2)) · (𝐷↑2)) = ((𝐵↑2) · (𝐷↑2)))
221	26	oveq1d 7427	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − (𝐶↑2)) = (𝑃 − (𝐶↑2)))
222	14, 24	pncan2d 11652	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐶↑2) + (𝐷↑2)) − (𝐶↑2)) = (𝐷↑2))
223	221, 222	eqtr3d 2798	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑃 − (𝐶↑2)) = (𝐷↑2))
224	223	oveq1d 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑃 − (𝐶↑2)) · (𝐵↑2)) = ((𝐷↑2) · (𝐵↑2)))
225	216, 220, 224	3eqtr4d 2806	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − (𝐴↑2)) · (𝐷↑2)) = ((𝑃 − (𝐶↑2)) · (𝐵↑2)))
226	80, 21, 24	subdird 11754	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − (𝐴↑2)) · (𝐷↑2)) = ((𝑃 · (𝐷↑2)) − ((𝐴↑2) · (𝐷↑2))))
227	80, 14, 17	subdird 11754	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − (𝐶↑2)) · (𝐵↑2)) = ((𝑃 · (𝐵↑2)) − ((𝐶↑2) · (𝐵↑2))))
228	225, 226, 227	3eqtr3d 2804	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑃 · (𝐷↑2)) − ((𝐴↑2) · (𝐷↑2))) = ((𝑃 · (𝐵↑2)) − ((𝐶↑2) · (𝐵↑2))))
229	212, 213, 214, 215, 228	subeqxfrd 11704	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑃 · (𝐷↑2)) − (𝑃 · (𝐵↑2))) = (((𝐴↑2) · (𝐷↑2)) − ((𝐶↑2) · (𝐵↑2))))
230	211, 229	eqtrd 2796	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = (((𝐴↑2) · (𝐷↑2)) − ((𝐶↑2) · (𝐵↑2))))
231	20, 23	sqmuld 14281	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 · 𝐷)↑2) = ((𝐴↑2) · (𝐷↑2)))
232	13, 16	sqmuld 14281	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐶 · 𝐵)↑2) = ((𝐶↑2) · (𝐵↑2)))
233	231, 232	oveq12d 7430	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 · 𝐷)↑2) − ((𝐶 · 𝐵)↑2)) = (((𝐴↑2) · (𝐷↑2)) − ((𝐶↑2) · (𝐵↑2))))
234	20, 23	mulcld 11310	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 · 𝐷) ∈ ℂ)
235	13, 16	mulcld 11310	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐶 · 𝐵) ∈ ℂ)
236		subsq 14334	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 · 𝐷) ∈ ℂ ∧ (𝐶 · 𝐵) ∈ ℂ) → (((𝐴 · 𝐷)↑2) − ((𝐶 · 𝐵)↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
237	234, 235, 236	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 · 𝐷)↑2) − ((𝐶 · 𝐵)↑2)) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
238	230, 233, 237	3eqtr2d 2802	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
239	238	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
240	234	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐴 · 𝐷) ∈ ℂ)
241		simpll 779	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → 𝜑)
242		simpr 490	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵))
243	242	neqned 2963	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → (𝐴 · 𝐷) ≠ (𝐶 · 𝐵))
244	89, 90	zsubcld 12789	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℤ)
245		dvdssqim 16707	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 ∈ ℤ ∧ ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℤ) → (𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
246	79, 244, 245	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
247	246	imp 412	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
248	247	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
249	95	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (𝑃↑2) ∈ ℤ)
250	244	adantr 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℤ)
251	234	adantr 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (𝐴 · 𝐷) ∈ ℂ)
252	235	adantr 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (𝐶 · 𝐵) ∈ ℂ)
253		simpr 490	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (𝐴 · 𝐷) ≠ (𝐶 · 𝐵))
254	251, 252, 253	subne0d 11660	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ≠ 0)
255	250, 254	znsqcld 14285	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) ∈ ℕ)
256		dvdsle 16460	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑃↑2) ∈ ℤ ∧ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) ∈ ℕ) → ((𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) → (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
257	249, 255, 256	syl2anc 596	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) → ((𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) → (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
258	257	imp 412	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐴 · 𝐷) ≠ (𝐶 · 𝐵)) ∧ (𝑃↑2) ∥ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)) → (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
259	241, 243, 248, 258	syl21anc 851	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
260	39, 41	remulcld 11320	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐴 · 𝐷) ∈ ℝ)
261	4, 7	remulcld 11320	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐶 · 𝐵) ∈ ℝ)
262	260, 261	resubcld 11725	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℝ)
263	262	resqcld 14248	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) ∈ ℝ)
264	61	nnrpd 13143	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐶 ∈ ℝ⁺)
265	127, 264	rpmulcld 13161	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐴 · 𝐶) ∈ ℝ⁺)
266	66	nnrpd 13143	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐵 ∈ ℝ⁺)
267	57	nnrpd 13143	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐷 ∈ ℝ⁺)
268	266, 267	rpmulcld 13161	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐵 · 𝐷) ∈ ℝ⁺)
269	265, 268	rpaddcld 13160	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝐴 · 𝐶) + (𝐵 · 𝐷)) ∈ ℝ⁺)
270		2z 12709	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 2 ∈ ℤ
271	270	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 2 ∈ ℤ)
272	269, 271	rpexpcld 14371	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) ∈ ℝ⁺)
273	263, 272	ltaddrp2d 13179	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
274		bhmafibid2 15616	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2)))
275	39, 7, 4, 41, 274	syl22anc 852	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝐴↑2) + (𝐵↑2)) · ((𝐶↑2) + (𝐷↑2))) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2)))
276	74, 275	eqtr3d 2798	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑃 · 𝑃) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2)))
277	82	oveq2d 7428	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) = ((𝐴 · 𝐷) − (𝐵 · 𝐶)))
278	277	oveq1d 7427	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) = (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2))
279	278	oveq2d 7428	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐵 · 𝐶))↑2)))
280	276, 279	eqtr4d 2799	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑃 · 𝑃) = ((((𝐴 · 𝐶) + (𝐵 · 𝐷))↑2) + (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
281	273, 280	breqtrrd 5133	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃 · 𝑃))
282	281, 81	breqtrrd 5133	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃↑2))
283	241, 282	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃↑2))
284	263, 100	ltnled 11438	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃↑2) ↔ ¬ (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
285	241, 284	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → ((((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2) < (𝑃↑2) ↔ ¬ (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2)))
286	283, 285	mpbid 235	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ∧ ¬ (𝐴 · 𝐷) = (𝐶 · 𝐵)) → ¬ (𝑃↑2) ≤ (((𝐴 · 𝐷) − (𝐶 · 𝐵))↑2))
287	259, 286	condan 830	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐴 · 𝐷) = (𝐶 · 𝐵))
288	240, 287	subeq0bd 11723	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → ((𝐴 · 𝐷) − (𝐶 · 𝐵)) = 0)
289	288	oveq2d 7428	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))) = (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · 0))
290	234, 235	addcld 11309	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℂ)
291	290	mul01d 11490	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · 0) = 0)
292	291	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · 0) = 0)
293	239, 289, 292	3eqtrd 2800	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝑃 · ((𝐷↑2) − (𝐵↑2))) = 0)
294	24, 17	subcld 11650	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐷↑2) − (𝐵↑2)) ∈ ℂ)
295	80, 294	mul0ord 11945	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑃 · ((𝐷↑2) − (𝐵↑2))) = 0 ↔ (𝑃 = 0 ∨ ((𝐷↑2) − (𝐵↑2)) = 0)))
296	295	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → ((𝑃 · ((𝐷↑2) − (𝐵↑2))) = 0 ↔ (𝑃 = 0 ∨ ((𝐷↑2) − (𝐵↑2)) = 0)))
297	293, 296	mpbid 235	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝑃 = 0 ∨ ((𝐷↑2) − (𝐵↑2)) = 0))
298	297	ord 878	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (¬ 𝑃 = 0 → ((𝐷↑2) − (𝐵↑2)) = 0))
299	210, 298	mpd 16	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → ((𝐷↑2) − (𝐵↑2)) = 0)
300	204, 205, 299	subeq0d 11659	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐷↑2) = (𝐵↑2))
301	200, 201, 202, 203, 300	sq11d 14382	. . . . . 6 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐷 = 𝐵)
302	301	oveq2d 7428	. . . . 5 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐴 · 𝐷) = (𝐴 · 𝐵))
303	302, 287	eqtr3d 2798	. . . 4 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → (𝐴 · 𝐵) = (𝐶 · 𝐵))
304	196, 197, 198, 199, 303	mulcan2ad 11933	. . 3 ⊢ ((𝜑 ∧ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))) → 𝐴 = 𝐶)
305	137, 163	zsubcld 12789	. . . . . 6 ⊢ (𝜑 → ((𝐷↑2) − (𝐵↑2)) ∈ ℤ)
306		dvdsmul1 16427	. . . . . 6 ⊢ ((𝑃 ∈ ℤ ∧ ((𝐷↑2) − (𝐵↑2)) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((𝐷↑2) − (𝐵↑2))))
307	79, 305, 306	syl2anc 596	. . . . 5 ⊢ (𝜑 → 𝑃 ∥ (𝑃 · ((𝐷↑2) − (𝐵↑2))))
308	307, 238	breqtrd 5131	. . . 4 ⊢ (𝜑 → 𝑃 ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
309		euclemma 16869	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∈ ℤ ∧ ((𝐴 · 𝐷) − (𝐶 · 𝐵)) ∈ ℤ) → (𝑃 ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ↔ (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∨ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵)))))
310	47, 91, 244, 309	syl3anc 1398	. . . 4 ⊢ (𝜑 → (𝑃 ∥ (((𝐴 · 𝐷) + (𝐶 · 𝐵)) · ((𝐴 · 𝐷) − (𝐶 · 𝐵))) ↔ (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∨ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵)))))
311	308, 310	mpbid 235	. . 3 ⊢ (𝜑 → (𝑃 ∥ ((𝐴 · 𝐷) + (𝐶 · 𝐵)) ∨ 𝑃 ∥ ((𝐴 · 𝐷) − (𝐶 · 𝐵))))
312	195, 304, 311	mpjaodan 973	. 2 ⊢ (𝜑 → 𝐴 = 𝐶)
313	312	oveq1d 7427	. . . . 5 ⊢ (𝜑 → (𝐴↑2) = (𝐶↑2))
314	313	oveq2d 7428	. . . 4 ⊢ (𝜑 → (𝑃 − (𝐴↑2)) = (𝑃 − (𝐶↑2)))
315	314, 219, 223	3eqtr3d 2804	. . 3 ⊢ (𝜑 → (𝐵↑2) = (𝐷↑2))
316	7, 41, 11, 129, 315	sq11d 14382	. 2 ⊢ (𝜑 → 𝐵 = 𝐷)
317	312, 316	jca 521	1 ⊢ (𝜑 → (𝐴 = 𝐶 ∧ 𝐵 = 𝐷))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 ∨ wo 861 = wceq 1570 ∈ wcel 2145 ≠ wne 2956 class class class wbr 5103 (class class class)co 7412 ℂcc 11179 ℝcr 11180 0cc0 11181 1c1 11182 + caddc 11184 · cmul 11186 < clt 11324 ≤ cle 11325 − cmin 11522 ℕcn 12316 2c2 12378 ℕ₀cn0 12587 ℤcz 12674 ↑cexp 14184 ∥ cdvds 16402 gcd cgcd 16644 ℙcprime 16826

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7740 ax-cnex 11237 ax-resscn 11238 ax-1cn 11239 ax-icn 11240 ax-addcl 11241 ax-addrcl 11242 ax-mulcl 11243 ax-mulrcl 11244 ax-mulcom 11245 ax-addass 11246 ax-mulass 11247 ax-distr 11248 ax-i2m1 11249 ax-1ne0 11250 ax-1rid 11251 ax-rnegex 11252 ax-rrecex 11253 ax-cnre 11254 ax-pre-lttri 11255 ax-pre-lttrn 11256 ax-pre-ltadd 11257 ax-pre-mulgt0 11258 ax-pre-sup 11259

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-op 4591 df-uni 4868 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6297 df-ord 6358 df-on 6359 df-lim 6360 df-suc 6361 df-iota 6487 df-fun 6533 df-fn 6534 df-f 6535 df-f1 6536 df-fo 6537 df-f1o 6538 df-fv 6539 df-riota 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-om 7867 df-2nd 7991 df-frecs 8283 df-wrecs 8314 df-recs 8363 df-rdg 8402 df-1o 8460 df-2o 8461 df-er 8701 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-sup 9418 df-inf 9419 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11524 df-neg 11525 df-div 11955 df-nn 12317 df-2 12386 df-3 12387 df-n0 12588 df-z 12675 df-uz 12947 df-rp 13102 df-fl 13912 df-mod 13990 df-seq 14125 df-exp 14185 df-cj 15246 df-re 15247 df-im 15248 df-sqrt 15382 df-abs 15383 df-dvds 16403 df-gcd 16645 df-prm 16827

This theorem is used by: 2sqmo 27746

W3C validator