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

Theorem 2sqlem8 25607
Description: Lemma for 2sq 25611. (Contributed by Mario Carneiro, 20-Jun-2015.)
Hypotheses
Ref Expression
2sq.1 𝑆 = ran (𝑤 ∈ ℤ[i] ↦ ((abs‘𝑤)↑2))
2sqlem7.2 𝑌 = {𝑧 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2)))}
2sqlem9.5 (𝜑 → ∀𝑏 ∈ (1...(𝑀 − 1))∀𝑎𝑌 (𝑏𝑎𝑏𝑆))
2sqlem9.7 (𝜑𝑀𝑁)
2sqlem8.n (𝜑𝑁 ∈ ℕ)
2sqlem8.m (𝜑𝑀 ∈ (ℤ‘2))
2sqlem8.1 (𝜑𝐴 ∈ ℤ)
2sqlem8.2 (𝜑𝐵 ∈ ℤ)
2sqlem8.3 (𝜑 → (𝐴 gcd 𝐵) = 1)
2sqlem8.4 (𝜑𝑁 = ((𝐴↑2) + (𝐵↑2)))
2sqlem8.c 𝐶 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
2sqlem8.d 𝐷 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
2sqlem8.e 𝐸 = (𝐶 / (𝐶 gcd 𝐷))
2sqlem8.f 𝐹 = (𝐷 / (𝐶 gcd 𝐷))
Assertion
Ref Expression
2sqlem8 (𝜑𝑀𝑆)
Distinct variable groups:   𝑎,𝑏,𝑤,𝑥,𝑦,𝑧   𝐴,𝑎,𝑥,𝑦,𝑧   𝑥,𝐶   𝜑,𝑥,𝑦   𝐵,𝑎,𝑏,𝑥,𝑦   𝑀,𝑎,𝑏,𝑥,𝑦,𝑧   𝑆,𝑎,𝑏,𝑥,𝑦,𝑧   𝑥,𝐷   𝐸,𝑎,𝑥,𝑦,𝑧   𝑥,𝑁,𝑦,𝑧   𝑌,𝑎,𝑏,𝑥,𝑦   𝐹,𝑎,𝑥,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑧,𝑤,𝑎,𝑏)   𝐴(𝑤,𝑏)   𝐵(𝑧,𝑤)   𝐶(𝑦,𝑧,𝑤,𝑎,𝑏)   𝐷(𝑦,𝑧,𝑤,𝑎,𝑏)   𝑆(𝑤)   𝐸(𝑤,𝑏)   𝐹(𝑤,𝑏)   𝑀(𝑤)   𝑁(𝑤,𝑎,𝑏)   𝑌(𝑧,𝑤)

Proof of Theorem 2sqlem8
Dummy variable 𝑝 is distinct from all other variables.
StepHypRef Expression
1 2sq.1 . 2 𝑆 = ran (𝑤 ∈ ℤ[i] ↦ ((abs‘𝑤)↑2))
2 2sqlem8.m . . . 4 (𝜑𝑀 ∈ (ℤ‘2))
3 eluz2b3 12073 . . . 4 (𝑀 ∈ (ℤ‘2) ↔ (𝑀 ∈ ℕ ∧ 𝑀 ≠ 1))
42, 3sylib 210 . . 3 (𝜑 → (𝑀 ∈ ℕ ∧ 𝑀 ≠ 1))
54simpld 490 . 2 (𝜑𝑀 ∈ ℕ)
6 2sqlem9.7 . . . . . . 7 (𝜑𝑀𝑁)
7 eluzelz 12006 . . . . . . . . 9 (𝑀 ∈ (ℤ‘2) → 𝑀 ∈ ℤ)
82, 7syl 17 . . . . . . . 8 (𝜑𝑀 ∈ ℤ)
9 2sqlem8.n . . . . . . . . 9 (𝜑𝑁 ∈ ℕ)
109nnzd 11837 . . . . . . . 8 (𝜑𝑁 ∈ ℤ)
11 2sqlem8.1 . . . . . . . . . . . 12 (𝜑𝐴 ∈ ℤ)
12 2sqlem8.c . . . . . . . . . . . 12 𝐶 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
1311, 5, 124sqlem5 16054 . . . . . . . . . . 11 (𝜑 → (𝐶 ∈ ℤ ∧ ((𝐴𝐶) / 𝑀) ∈ ℤ))
1413simpld 490 . . . . . . . . . 10 (𝜑𝐶 ∈ ℤ)
15 zsqcl 13257 . . . . . . . . . 10 (𝐶 ∈ ℤ → (𝐶↑2) ∈ ℤ)
1614, 15syl 17 . . . . . . . . 9 (𝜑 → (𝐶↑2) ∈ ℤ)
17 2sqlem8.2 . . . . . . . . . . . 12 (𝜑𝐵 ∈ ℤ)
18 2sqlem8.d . . . . . . . . . . . 12 𝐷 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
1917, 5, 184sqlem5 16054 . . . . . . . . . . 11 (𝜑 → (𝐷 ∈ ℤ ∧ ((𝐵𝐷) / 𝑀) ∈ ℤ))
2019simpld 490 . . . . . . . . . 10 (𝜑𝐷 ∈ ℤ)
21 zsqcl 13257 . . . . . . . . . 10 (𝐷 ∈ ℤ → (𝐷↑2) ∈ ℤ)
2220, 21syl 17 . . . . . . . . 9 (𝜑 → (𝐷↑2) ∈ ℤ)
2316, 22zaddcld 11842 . . . . . . . 8 (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
2411, 5, 124sqlem8 16057 . . . . . . . . . 10 (𝜑𝑀 ∥ ((𝐴↑2) − (𝐶↑2)))
2517, 5, 184sqlem8 16057 . . . . . . . . . 10 (𝜑𝑀 ∥ ((𝐵↑2) − (𝐷↑2)))
26 zsqcl 13257 . . . . . . . . . . . . 13 (𝐴 ∈ ℤ → (𝐴↑2) ∈ ℤ)
2711, 26syl 17 . . . . . . . . . . . 12 (𝜑 → (𝐴↑2) ∈ ℤ)
2827, 16zsubcld 11843 . . . . . . . . . . 11 (𝜑 → ((𝐴↑2) − (𝐶↑2)) ∈ ℤ)
29 zsqcl 13257 . . . . . . . . . . . . 13 (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
3017, 29syl 17 . . . . . . . . . . . 12 (𝜑 → (𝐵↑2) ∈ ℤ)
3130, 22zsubcld 11843 . . . . . . . . . . 11 (𝜑 → ((𝐵↑2) − (𝐷↑2)) ∈ ℤ)
32 dvds2add 15426 . . . . . . . . . . 11 ((𝑀 ∈ ℤ ∧ ((𝐴↑2) − (𝐶↑2)) ∈ ℤ ∧ ((𝐵↑2) − (𝐷↑2)) ∈ ℤ) → ((𝑀 ∥ ((𝐴↑2) − (𝐶↑2)) ∧ 𝑀 ∥ ((𝐵↑2) − (𝐷↑2))) → 𝑀 ∥ (((𝐴↑2) − (𝐶↑2)) + ((𝐵↑2) − (𝐷↑2)))))
338, 28, 31, 32syl3anc 1439 . . . . . . . . . 10 (𝜑 → ((𝑀 ∥ ((𝐴↑2) − (𝐶↑2)) ∧ 𝑀 ∥ ((𝐵↑2) − (𝐷↑2))) → 𝑀 ∥ (((𝐴↑2) − (𝐶↑2)) + ((𝐵↑2) − (𝐷↑2)))))
3424, 25, 33mp2and 689 . . . . . . . . 9 (𝜑𝑀 ∥ (((𝐴↑2) − (𝐶↑2)) + ((𝐵↑2) − (𝐷↑2))))
35 2sqlem8.4 . . . . . . . . . . 11 (𝜑𝑁 = ((𝐴↑2) + (𝐵↑2)))
3635oveq1d 6939 . . . . . . . . . 10 (𝜑 → (𝑁 − ((𝐶↑2) + (𝐷↑2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝐶↑2) + (𝐷↑2))))
3727zcnd 11839 . . . . . . . . . . 11 (𝜑 → (𝐴↑2) ∈ ℂ)
3830zcnd 11839 . . . . . . . . . . 11 (𝜑 → (𝐵↑2) ∈ ℂ)
3916zcnd 11839 . . . . . . . . . . 11 (𝜑 → (𝐶↑2) ∈ ℂ)
4022zcnd 11839 . . . . . . . . . . 11 (𝜑 → (𝐷↑2) ∈ ℂ)
4137, 38, 39, 40addsub4d 10783 . . . . . . . . . 10 (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((𝐶↑2) + (𝐷↑2))) = (((𝐴↑2) − (𝐶↑2)) + ((𝐵↑2) − (𝐷↑2))))
4236, 41eqtrd 2814 . . . . . . . . 9 (𝜑 → (𝑁 − ((𝐶↑2) + (𝐷↑2))) = (((𝐴↑2) − (𝐶↑2)) + ((𝐵↑2) − (𝐷↑2))))
4334, 42breqtrrd 4916 . . . . . . . 8 (𝜑𝑀 ∥ (𝑁 − ((𝐶↑2) + (𝐷↑2))))
44 dvdssub2 15434 . . . . . . . 8 (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ ((𝐶↑2) + (𝐷↑2)) ∈ ℤ) ∧ 𝑀 ∥ (𝑁 − ((𝐶↑2) + (𝐷↑2)))) → (𝑀𝑁𝑀 ∥ ((𝐶↑2) + (𝐷↑2))))
458, 10, 23, 43, 44syl31anc 1441 . . . . . . 7 (𝜑 → (𝑀𝑁𝑀 ∥ ((𝐶↑2) + (𝐷↑2))))
466, 45mpbid 224 . . . . . 6 (𝜑𝑀 ∥ ((𝐶↑2) + (𝐷↑2)))
47 2sqlem7.2 . . . . . . . . . . . 12 𝑌 = {𝑧 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2)))}
48 2sqlem9.5 . . . . . . . . . . . 12 (𝜑 → ∀𝑏 ∈ (1...(𝑀 − 1))∀𝑎𝑌 (𝑏𝑎𝑏𝑆))
49 2sqlem8.3 . . . . . . . . . . . 12 (𝜑 → (𝐴 gcd 𝐵) = 1)
501, 47, 48, 6, 9, 2, 11, 17, 49, 35, 12, 182sqlem8a 25606 . . . . . . . . . . 11 (𝜑 → (𝐶 gcd 𝐷) ∈ ℕ)
5150nnzd 11837 . . . . . . . . . 10 (𝜑 → (𝐶 gcd 𝐷) ∈ ℤ)
52 zsqcl2 13264 . . . . . . . . . 10 ((𝐶 gcd 𝐷) ∈ ℤ → ((𝐶 gcd 𝐷)↑2) ∈ ℕ0)
5351, 52syl 17 . . . . . . . . 9 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℕ0)
5453nn0cnd 11708 . . . . . . . 8 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℂ)
55 2sqlem8.e . . . . . . . . . . 11 𝐸 = (𝐶 / (𝐶 gcd 𝐷))
56 gcddvds 15635 . . . . . . . . . . . . . 14 ((𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ) → ((𝐶 gcd 𝐷) ∥ 𝐶 ∧ (𝐶 gcd 𝐷) ∥ 𝐷))
5714, 20, 56syl2anc 579 . . . . . . . . . . . . 13 (𝜑 → ((𝐶 gcd 𝐷) ∥ 𝐶 ∧ (𝐶 gcd 𝐷) ∥ 𝐷))
5857simpld 490 . . . . . . . . . . . 12 (𝜑 → (𝐶 gcd 𝐷) ∥ 𝐶)
5950nnne0d 11429 . . . . . . . . . . . . 13 (𝜑 → (𝐶 gcd 𝐷) ≠ 0)
60 dvdsval2 15394 . . . . . . . . . . . . 13 (((𝐶 gcd 𝐷) ∈ ℤ ∧ (𝐶 gcd 𝐷) ≠ 0 ∧ 𝐶 ∈ ℤ) → ((𝐶 gcd 𝐷) ∥ 𝐶 ↔ (𝐶 / (𝐶 gcd 𝐷)) ∈ ℤ))
6151, 59, 14, 60syl3anc 1439 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) ∥ 𝐶 ↔ (𝐶 / (𝐶 gcd 𝐷)) ∈ ℤ))
6258, 61mpbid 224 . . . . . . . . . . 11 (𝜑 → (𝐶 / (𝐶 gcd 𝐷)) ∈ ℤ)
6355, 62syl5eqel 2863 . . . . . . . . . 10 (𝜑𝐸 ∈ ℤ)
64 zsqcl2 13264 . . . . . . . . . 10 (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℕ0)
6563, 64syl 17 . . . . . . . . 9 (𝜑 → (𝐸↑2) ∈ ℕ0)
6665nn0cnd 11708 . . . . . . . 8 (𝜑 → (𝐸↑2) ∈ ℂ)
67 2sqlem8.f . . . . . . . . . . 11 𝐹 = (𝐷 / (𝐶 gcd 𝐷))
6857simprd 491 . . . . . . . . . . . 12 (𝜑 → (𝐶 gcd 𝐷) ∥ 𝐷)
69 dvdsval2 15394 . . . . . . . . . . . . 13 (((𝐶 gcd 𝐷) ∈ ℤ ∧ (𝐶 gcd 𝐷) ≠ 0 ∧ 𝐷 ∈ ℤ) → ((𝐶 gcd 𝐷) ∥ 𝐷 ↔ (𝐷 / (𝐶 gcd 𝐷)) ∈ ℤ))
7051, 59, 20, 69syl3anc 1439 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) ∥ 𝐷 ↔ (𝐷 / (𝐶 gcd 𝐷)) ∈ ℤ))
7168, 70mpbid 224 . . . . . . . . . . 11 (𝜑 → (𝐷 / (𝐶 gcd 𝐷)) ∈ ℤ)
7267, 71syl5eqel 2863 . . . . . . . . . 10 (𝜑𝐹 ∈ ℤ)
73 zsqcl2 13264 . . . . . . . . . 10 (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℕ0)
7472, 73syl 17 . . . . . . . . 9 (𝜑 → (𝐹↑2) ∈ ℕ0)
7574nn0cnd 11708 . . . . . . . 8 (𝜑 → (𝐹↑2) ∈ ℂ)
7654, 66, 75adddid 10403 . . . . . . 7 (𝜑 → (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))) = ((((𝐶 gcd 𝐷)↑2) · (𝐸↑2)) + (((𝐶 gcd 𝐷)↑2) · (𝐹↑2))))
7751zcnd 11839 . . . . . . . . . 10 (𝜑 → (𝐶 gcd 𝐷) ∈ ℂ)
7863zcnd 11839 . . . . . . . . . 10 (𝜑𝐸 ∈ ℂ)
7977, 78sqmuld 13343 . . . . . . . . 9 (𝜑 → (((𝐶 gcd 𝐷) · 𝐸)↑2) = (((𝐶 gcd 𝐷)↑2) · (𝐸↑2)))
8055oveq2i 6935 . . . . . . . . . . 11 ((𝐶 gcd 𝐷) · 𝐸) = ((𝐶 gcd 𝐷) · (𝐶 / (𝐶 gcd 𝐷)))
8114zcnd 11839 . . . . . . . . . . . 12 (𝜑𝐶 ∈ ℂ)
8281, 77, 59divcan2d 11155 . . . . . . . . . . 11 (𝜑 → ((𝐶 gcd 𝐷) · (𝐶 / (𝐶 gcd 𝐷))) = 𝐶)
8380, 82syl5eq 2826 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) · 𝐸) = 𝐶)
8483oveq1d 6939 . . . . . . . . 9 (𝜑 → (((𝐶 gcd 𝐷) · 𝐸)↑2) = (𝐶↑2))
8579, 84eqtr3d 2816 . . . . . . . 8 (𝜑 → (((𝐶 gcd 𝐷)↑2) · (𝐸↑2)) = (𝐶↑2))
8672zcnd 11839 . . . . . . . . . 10 (𝜑𝐹 ∈ ℂ)
8777, 86sqmuld 13343 . . . . . . . . 9 (𝜑 → (((𝐶 gcd 𝐷) · 𝐹)↑2) = (((𝐶 gcd 𝐷)↑2) · (𝐹↑2)))
8867oveq2i 6935 . . . . . . . . . . 11 ((𝐶 gcd 𝐷) · 𝐹) = ((𝐶 gcd 𝐷) · (𝐷 / (𝐶 gcd 𝐷)))
8920zcnd 11839 . . . . . . . . . . . 12 (𝜑𝐷 ∈ ℂ)
9089, 77, 59divcan2d 11155 . . . . . . . . . . 11 (𝜑 → ((𝐶 gcd 𝐷) · (𝐷 / (𝐶 gcd 𝐷))) = 𝐷)
9188, 90syl5eq 2826 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) · 𝐹) = 𝐷)
9291oveq1d 6939 . . . . . . . . 9 (𝜑 → (((𝐶 gcd 𝐷) · 𝐹)↑2) = (𝐷↑2))
9387, 92eqtr3d 2816 . . . . . . . 8 (𝜑 → (((𝐶 gcd 𝐷)↑2) · (𝐹↑2)) = (𝐷↑2))
9485, 93oveq12d 6942 . . . . . . 7 (𝜑 → ((((𝐶 gcd 𝐷)↑2) · (𝐸↑2)) + (((𝐶 gcd 𝐷)↑2) · (𝐹↑2))) = ((𝐶↑2) + (𝐷↑2)))
9576, 94eqtrd 2814 . . . . . 6 (𝜑 → (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))) = ((𝐶↑2) + (𝐷↑2)))
9646, 95breqtrrd 4916 . . . . 5 (𝜑𝑀 ∥ (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))))
97 zsqcl 13257 . . . . . . . 8 ((𝐶 gcd 𝐷) ∈ ℤ → ((𝐶 gcd 𝐷)↑2) ∈ ℤ)
9851, 97syl 17 . . . . . . 7 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℤ)
99 gcdcom 15645 . . . . . . 7 ((𝑀 ∈ ℤ ∧ ((𝐶 gcd 𝐷)↑2) ∈ ℤ) → (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = (((𝐶 gcd 𝐷)↑2) gcd 𝑀))
1008, 98, 99syl2anc 579 . . . . . 6 (𝜑 → (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = (((𝐶 gcd 𝐷)↑2) gcd 𝑀))
101 gcddvds 15635 . . . . . . . . . . . . . 14 (((𝐶 gcd 𝐷) ∈ ℤ ∧ 𝑀 ∈ ℤ) → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷) ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀))
10251, 8, 101syl2anc 579 . . . . . . . . . . . . 13 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷) ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀))
103102simpld 490 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷))
10451, 8gcdcld 15640 . . . . . . . . . . . . . 14 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℕ0)
105104nn0zd 11836 . . . . . . . . . . . . 13 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ)
106 dvdstr 15429 . . . . . . . . . . . . 13 ((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ (𝐶 gcd 𝐷) ∈ ℤ ∧ 𝐶 ∈ ℤ) → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷) ∧ (𝐶 gcd 𝐷) ∥ 𝐶) → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐶))
107105, 51, 14, 106syl3anc 1439 . . . . . . . . . . . 12 (𝜑 → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷) ∧ (𝐶 gcd 𝐷) ∥ 𝐶) → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐶))
108103, 58, 107mp2and 689 . . . . . . . . . . 11 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐶)
109102simprd 491 . . . . . . . . . . . . 13 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀)
11013simprd 491 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴𝐶) / 𝑀) ∈ ℤ)
1115nnne0d 11429 . . . . . . . . . . . . . . 15 (𝜑𝑀 ≠ 0)
11211, 14zsubcld 11843 . . . . . . . . . . . . . . 15 (𝜑 → (𝐴𝐶) ∈ ℤ)
113 dvdsval2 15394 . . . . . . . . . . . . . . 15 ((𝑀 ∈ ℤ ∧ 𝑀 ≠ 0 ∧ (𝐴𝐶) ∈ ℤ) → (𝑀 ∥ (𝐴𝐶) ↔ ((𝐴𝐶) / 𝑀) ∈ ℤ))
1148, 111, 112, 113syl3anc 1439 . . . . . . . . . . . . . 14 (𝜑 → (𝑀 ∥ (𝐴𝐶) ↔ ((𝐴𝐶) / 𝑀) ∈ ℤ))
115110, 114mpbird 249 . . . . . . . . . . . . 13 (𝜑𝑀 ∥ (𝐴𝐶))
116 dvdstr 15429 . . . . . . . . . . . . . 14 ((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ (𝐴𝐶) ∈ ℤ) → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀𝑀 ∥ (𝐴𝐶)) → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐴𝐶)))
117105, 8, 112, 116syl3anc 1439 . . . . . . . . . . . . 13 (𝜑 → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀𝑀 ∥ (𝐴𝐶)) → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐴𝐶)))
118109, 115, 117mp2and 689 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐴𝐶))
119 dvdssub2 15434 . . . . . . . . . . . 12 (((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐶 ∈ ℤ) ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐴𝐶)) → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐶))
120105, 11, 14, 118, 119syl31anc 1441 . . . . . . . . . . 11 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐶))
121108, 120mpbird 249 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴)
122 dvdstr 15429 . . . . . . . . . . . . 13 ((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ (𝐶 gcd 𝐷) ∈ ℤ ∧ 𝐷 ∈ ℤ) → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷) ∧ (𝐶 gcd 𝐷) ∥ 𝐷) → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐷))
123105, 51, 20, 122syl3anc 1439 . . . . . . . . . . . 12 (𝜑 → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷) ∧ (𝐶 gcd 𝐷) ∥ 𝐷) → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐷))
124103, 68, 123mp2and 689 . . . . . . . . . . 11 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐷)
12519simprd 491 . . . . . . . . . . . . . 14 (𝜑 → ((𝐵𝐷) / 𝑀) ∈ ℤ)
12617, 20zsubcld 11843 . . . . . . . . . . . . . . 15 (𝜑 → (𝐵𝐷) ∈ ℤ)
127 dvdsval2 15394 . . . . . . . . . . . . . . 15 ((𝑀 ∈ ℤ ∧ 𝑀 ≠ 0 ∧ (𝐵𝐷) ∈ ℤ) → (𝑀 ∥ (𝐵𝐷) ↔ ((𝐵𝐷) / 𝑀) ∈ ℤ))
1288, 111, 126, 127syl3anc 1439 . . . . . . . . . . . . . 14 (𝜑 → (𝑀 ∥ (𝐵𝐷) ↔ ((𝐵𝐷) / 𝑀) ∈ ℤ))
129125, 128mpbird 249 . . . . . . . . . . . . 13 (𝜑𝑀 ∥ (𝐵𝐷))
130 dvdstr 15429 . . . . . . . . . . . . . 14 ((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ (𝐵𝐷) ∈ ℤ) → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀𝑀 ∥ (𝐵𝐷)) → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐵𝐷)))
131105, 8, 126, 130syl3anc 1439 . . . . . . . . . . . . 13 (𝜑 → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀𝑀 ∥ (𝐵𝐷)) → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐵𝐷)))
132109, 129, 131mp2and 689 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐵𝐷))
133 dvdssub2 15434 . . . . . . . . . . . 12 (((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐷 ∈ ℤ) ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐵𝐷)) → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐷))
134105, 17, 20, 132, 133syl31anc 1441 . . . . . . . . . . 11 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐷))
135124, 134mpbird 249 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵)
136 ax-1ne0 10343 . . . . . . . . . . . . . . 15 1 ≠ 0
137136a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 1 ≠ 0)
13849, 137eqnetrd 3036 . . . . . . . . . . . . 13 (𝜑 → (𝐴 gcd 𝐵) ≠ 0)
139138neneqd 2974 . . . . . . . . . . . 12 (𝜑 → ¬ (𝐴 gcd 𝐵) = 0)
140 gcdeq0 15648 . . . . . . . . . . . . 13 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) = 0 ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
14111, 17, 140syl2anc 579 . . . . . . . . . . . 12 (𝜑 → ((𝐴 gcd 𝐵) = 0 ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
142139, 141mtbid 316 . . . . . . . . . . 11 (𝜑 → ¬ (𝐴 = 0 ∧ 𝐵 = 0))
143 dvdslegcd 15636 . . . . . . . . . . 11 (((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴 ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵) → ((𝐶 gcd 𝐷) gcd 𝑀) ≤ (𝐴 gcd 𝐵)))
144105, 11, 17, 142, 143syl31anc 1441 . . . . . . . . . 10 (𝜑 → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴 ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵) → ((𝐶 gcd 𝐷) gcd 𝑀) ≤ (𝐴 gcd 𝐵)))
145121, 135, 144mp2and 689 . . . . . . . . 9 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ≤ (𝐴 gcd 𝐵))
146145, 49breqtrd 4914 . . . . . . . 8 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ≤ 1)
147 simpr 479 . . . . . . . . . . . 12 (((𝐶 gcd 𝐷) = 0 ∧ 𝑀 = 0) → 𝑀 = 0)
148147necon3ai 2994 . . . . . . . . . . 11 (𝑀 ≠ 0 → ¬ ((𝐶 gcd 𝐷) = 0 ∧ 𝑀 = 0))
149111, 148syl 17 . . . . . . . . . 10 (𝜑 → ¬ ((𝐶 gcd 𝐷) = 0 ∧ 𝑀 = 0))
150 gcdn0cl 15634 . . . . . . . . . 10 ((((𝐶 gcd 𝐷) ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ ¬ ((𝐶 gcd 𝐷) = 0 ∧ 𝑀 = 0)) → ((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℕ)
15151, 8, 149, 150syl21anc 828 . . . . . . . . 9 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℕ)
152 nnle1eq1 11410 . . . . . . . . 9 (((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℕ → (((𝐶 gcd 𝐷) gcd 𝑀) ≤ 1 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) = 1))
153151, 152syl 17 . . . . . . . 8 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) ≤ 1 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) = 1))
154146, 153mpbid 224 . . . . . . 7 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) = 1)
155 2nn 11452 . . . . . . . . 9 2 ∈ ℕ
156155a1i 11 . . . . . . . 8 (𝜑 → 2 ∈ ℕ)
157 rplpwr 15686 . . . . . . . 8 (((𝐶 gcd 𝐷) ∈ ℕ ∧ 𝑀 ∈ ℕ ∧ 2 ∈ ℕ) → (((𝐶 gcd 𝐷) gcd 𝑀) = 1 → (((𝐶 gcd 𝐷)↑2) gcd 𝑀) = 1))
15850, 5, 156, 157syl3anc 1439 . . . . . . 7 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) = 1 → (((𝐶 gcd 𝐷)↑2) gcd 𝑀) = 1))
159154, 158mpd 15 . . . . . 6 (𝜑 → (((𝐶 gcd 𝐷)↑2) gcd 𝑀) = 1)
160100, 159eqtrd 2814 . . . . 5 (𝜑 → (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = 1)
16165, 74nn0addcld 11710 . . . . . . 7 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℕ0)
162161nn0zd 11836 . . . . . 6 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℤ)
163 coprmdvds 15776 . . . . . 6 ((𝑀 ∈ ℤ ∧ ((𝐶 gcd 𝐷)↑2) ∈ ℤ ∧ ((𝐸↑2) + (𝐹↑2)) ∈ ℤ) → ((𝑀 ∥ (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))) ∧ (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = 1) → 𝑀 ∥ ((𝐸↑2) + (𝐹↑2))))
1648, 98, 162, 163syl3anc 1439 . . . . 5 (𝜑 → ((𝑀 ∥ (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))) ∧ (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = 1) → 𝑀 ∥ ((𝐸↑2) + (𝐹↑2))))
16596, 160, 164mp2and 689 . . . 4 (𝜑𝑀 ∥ ((𝐸↑2) + (𝐹↑2)))
166 dvdsval2 15394 . . . . 5 ((𝑀 ∈ ℤ ∧ 𝑀 ≠ 0 ∧ ((𝐸↑2) + (𝐹↑2)) ∈ ℤ) → (𝑀 ∥ ((𝐸↑2) + (𝐹↑2)) ↔ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ))
1678, 111, 162, 166syl3anc 1439 . . . 4 (𝜑 → (𝑀 ∥ ((𝐸↑2) + (𝐹↑2)) ↔ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ))
168165, 167mpbid 224 . . 3 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ)
16965nn0red 11707 . . . . 5 (𝜑 → (𝐸↑2) ∈ ℝ)
17074nn0red 11707 . . . . 5 (𝜑 → (𝐹↑2) ∈ ℝ)
171169, 170readdcld 10408 . . . 4 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℝ)
1725nnred 11395 . . . 4 (𝜑𝑀 ∈ ℝ)
1731, 472sqlem7 25605 . . . . . . 7 𝑌 ⊆ (𝑆 ∩ ℕ)
174 inss2 4054 . . . . . . 7 (𝑆 ∩ ℕ) ⊆ ℕ
175173, 174sstri 3830 . . . . . 6 𝑌 ⊆ ℕ
17663, 72gcdcld 15640 . . . . . . . . . 10 (𝜑 → (𝐸 gcd 𝐹) ∈ ℕ0)
177176nn0cnd 11708 . . . . . . . . 9 (𝜑 → (𝐸 gcd 𝐹) ∈ ℂ)
178 1cnd 10373 . . . . . . . . 9 (𝜑 → 1 ∈ ℂ)
17977mulid1d 10396 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) · 1) = (𝐶 gcd 𝐷))
18083, 91oveq12d 6942 . . . . . . . . . 10 (𝜑 → (((𝐶 gcd 𝐷) · 𝐸) gcd ((𝐶 gcd 𝐷) · 𝐹)) = (𝐶 gcd 𝐷))
18114, 20gcdcld 15640 . . . . . . . . . . 11 (𝜑 → (𝐶 gcd 𝐷) ∈ ℕ0)
182 mulgcd 15675 . . . . . . . . . . 11 (((𝐶 gcd 𝐷) ∈ ℕ0𝐸 ∈ ℤ ∧ 𝐹 ∈ ℤ) → (((𝐶 gcd 𝐷) · 𝐸) gcd ((𝐶 gcd 𝐷) · 𝐹)) = ((𝐶 gcd 𝐷) · (𝐸 gcd 𝐹)))
183181, 63, 72, 182syl3anc 1439 . . . . . . . . . 10 (𝜑 → (((𝐶 gcd 𝐷) · 𝐸) gcd ((𝐶 gcd 𝐷) · 𝐹)) = ((𝐶 gcd 𝐷) · (𝐸 gcd 𝐹)))
184179, 180, 1833eqtr2rd 2821 . . . . . . . . 9 (𝜑 → ((𝐶 gcd 𝐷) · (𝐸 gcd 𝐹)) = ((𝐶 gcd 𝐷) · 1))
185177, 178, 77, 59, 184mulcanad 11012 . . . . . . . 8 (𝜑 → (𝐸 gcd 𝐹) = 1)
186 eqidd 2779 . . . . . . . 8 (𝜑 → ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝐹↑2)))
187 oveq1 6931 . . . . . . . . . . 11 (𝑥 = 𝐸 → (𝑥 gcd 𝑦) = (𝐸 gcd 𝑦))
188187eqeq1d 2780 . . . . . . . . . 10 (𝑥 = 𝐸 → ((𝑥 gcd 𝑦) = 1 ↔ (𝐸 gcd 𝑦) = 1))
189 oveq1 6931 . . . . . . . . . . . 12 (𝑥 = 𝐸 → (𝑥↑2) = (𝐸↑2))
190189oveq1d 6939 . . . . . . . . . . 11 (𝑥 = 𝐸 → ((𝑥↑2) + (𝑦↑2)) = ((𝐸↑2) + (𝑦↑2)))
191190eqeq2d 2788 . . . . . . . . . 10 (𝑥 = 𝐸 → (((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2)) ↔ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝑦↑2))))
192188, 191anbi12d 624 . . . . . . . . 9 (𝑥 = 𝐸 → (((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))) ↔ ((𝐸 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝑦↑2)))))
193 oveq2 6932 . . . . . . . . . . 11 (𝑦 = 𝐹 → (𝐸 gcd 𝑦) = (𝐸 gcd 𝐹))
194193eqeq1d 2780 . . . . . . . . . 10 (𝑦 = 𝐹 → ((𝐸 gcd 𝑦) = 1 ↔ (𝐸 gcd 𝐹) = 1))
195 oveq1 6931 . . . . . . . . . . . 12 (𝑦 = 𝐹 → (𝑦↑2) = (𝐹↑2))
196195oveq2d 6940 . . . . . . . . . . 11 (𝑦 = 𝐹 → ((𝐸↑2) + (𝑦↑2)) = ((𝐸↑2) + (𝐹↑2)))
197196eqeq2d 2788 . . . . . . . . . 10 (𝑦 = 𝐹 → (((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝑦↑2)) ↔ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝐹↑2))))
198194, 197anbi12d 624 . . . . . . . . 9 (𝑦 = 𝐹 → (((𝐸 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝑦↑2))) ↔ ((𝐸 gcd 𝐹) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝐹↑2)))))
199192, 198rspc2ev 3526 . . . . . . . 8 ((𝐸 ∈ ℤ ∧ 𝐹 ∈ ℤ ∧ ((𝐸 gcd 𝐹) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝐹↑2)))) → ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))))
20063, 72, 185, 186, 199syl112anc 1442 . . . . . . 7 (𝜑 → ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))))
201 ovex 6956 . . . . . . . 8 ((𝐸↑2) + (𝐹↑2)) ∈ V
202 eqeq1 2782 . . . . . . . . . 10 (𝑧 = ((𝐸↑2) + (𝐹↑2)) → (𝑧 = ((𝑥↑2) + (𝑦↑2)) ↔ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))))
203202anbi2d 622 . . . . . . . . 9 (𝑧 = ((𝐸↑2) + (𝐹↑2)) → (((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) ↔ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2)))))
2042032rexbidv 3242 . . . . . . . 8 (𝑧 = ((𝐸↑2) + (𝐹↑2)) → (∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) ↔ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2)))))
205201, 204, 47elab2 3562 . . . . . . 7 (((𝐸↑2) + (𝐹↑2)) ∈ 𝑌 ↔ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))))
206200, 205sylibr 226 . . . . . 6 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ 𝑌)
207175, 206sseldi 3819 . . . . 5 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℕ)
208207nngt0d 11428 . . . 4 (𝜑 → 0 < ((𝐸↑2) + (𝐹↑2)))
2095nngt0d 11428 . . . 4 (𝜑 → 0 < 𝑀)
210171, 172, 208, 209divgt0d 11315 . . 3 (𝜑 → 0 < (((𝐸↑2) + (𝐹↑2)) / 𝑀))
211 elnnz 11742 . . 3 ((((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℕ ↔ ((((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ ∧ 0 < (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
212168, 210, 211sylanbrc 578 . 2 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℕ)
213 prmnn 15797 . . . . . . . 8 (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
214213ad2antrl 718 . . . . . . 7 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∈ ℕ)
215214nnred 11395 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∈ ℝ)
216168adantr 474 . . . . . . . . 9 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ)
217216zred 11838 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℝ)
218 peano2zm 11776 . . . . . . . . . . 11 (𝑀 ∈ ℤ → (𝑀 − 1) ∈ ℤ)
2198, 218syl 17 . . . . . . . . . 10 (𝜑 → (𝑀 − 1) ∈ ℤ)
220219zred 11838 . . . . . . . . 9 (𝜑 → (𝑀 − 1) ∈ ℝ)
221220adantr 474 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑀 − 1) ∈ ℝ)
222 simprr 763 . . . . . . . . 9 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))
223 prmz 15798 . . . . . . . . . . 11 (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
224223ad2antrl 718 . . . . . . . . . 10 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∈ ℤ)
225212adantr 474 . . . . . . . . . 10 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℕ)
226 dvdsle 15443 . . . . . . . . . 10 ((𝑝 ∈ ℤ ∧ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℕ) → (𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) → 𝑝 ≤ (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
227224, 225, 226syl2anc 579 . . . . . . . . 9 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) → 𝑝 ≤ (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
228222, 227mpd 15 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ≤ (((𝐸↑2) + (𝐹↑2)) / 𝑀))
229 zsqcl 13257 . . . . . . . . . . . . . . . 16 (𝑀 ∈ ℤ → (𝑀↑2) ∈ ℤ)
2308, 229syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (𝑀↑2) ∈ ℤ)
231230zred 11838 . . . . . . . . . . . . . 14 (𝜑 → (𝑀↑2) ∈ ℝ)
232231rehalfcld 11633 . . . . . . . . . . . . 13 (𝜑 → ((𝑀↑2) / 2) ∈ ℝ)
23316zred 11838 . . . . . . . . . . . . . . 15 (𝜑 → (𝐶↑2) ∈ ℝ)
23422zred 11838 . . . . . . . . . . . . . . 15 (𝜑 → (𝐷↑2) ∈ ℝ)
235233, 234readdcld 10408 . . . . . . . . . . . . . 14 (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℝ)
236 1red 10379 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℝ)
23750nnsqcld 13354 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℕ)
238237nnred 11395 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℝ)
239161nn0ge0d 11709 . . . . . . . . . . . . . . . 16 (𝜑 → 0 ≤ ((𝐸↑2) + (𝐹↑2)))
240237nnge1d 11427 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ≤ ((𝐶 gcd 𝐷)↑2))
241236, 238, 171, 239, 240lemul1ad 11319 . . . . . . . . . . . . . . 15 (𝜑 → (1 · ((𝐸↑2) + (𝐹↑2))) ≤ (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))))
242161nn0cnd 11708 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℂ)
243242mulid2d 10397 . . . . . . . . . . . . . . 15 (𝜑 → (1 · ((𝐸↑2) + (𝐹↑2))) = ((𝐸↑2) + (𝐹↑2)))
244241, 243, 953brtr3d 4919 . . . . . . . . . . . . . 14 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((𝐶↑2) + (𝐷↑2)))
245232rehalfcld 11633 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℝ)
24611, 5, 124sqlem7 16056 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐶↑2) ≤ (((𝑀↑2) / 2) / 2))
24717, 5, 184sqlem7 16056 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐷↑2) ≤ (((𝑀↑2) / 2) / 2))
248233, 234, 245, 245, 246, 247le2addd 10996 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐶↑2) + (𝐷↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
249232recnd 10407 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑀↑2) / 2) ∈ ℂ)
2502492halvesd 11632 . . . . . . . . . . . . . . 15 (𝜑 → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) = ((𝑀↑2) / 2))
251248, 250breqtrd 4914 . . . . . . . . . . . . . 14 (𝜑 → ((𝐶↑2) + (𝐷↑2)) ≤ ((𝑀↑2) / 2))
252171, 235, 232, 244, 251letrd 10535 . . . . . . . . . . . . 13 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((𝑀↑2) / 2))
2535nnsqcld 13354 . . . . . . . . . . . . . . 15 (𝜑 → (𝑀↑2) ∈ ℕ)
254253nnrpd 12183 . . . . . . . . . . . . . 14 (𝜑 → (𝑀↑2) ∈ ℝ+)
255 rphalflt 12172 . . . . . . . . . . . . . 14 ((𝑀↑2) ∈ ℝ+ → ((𝑀↑2) / 2) < (𝑀↑2))
256254, 255syl 17 . . . . . . . . . . . . 13 (𝜑 → ((𝑀↑2) / 2) < (𝑀↑2))
257171, 232, 231, 252, 256lelttrd 10536 . . . . . . . . . . . 12 (𝜑 → ((𝐸↑2) + (𝐹↑2)) < (𝑀↑2))
2588zcnd 11839 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ ℂ)
259258sqvald 13328 . . . . . . . . . . . 12 (𝜑 → (𝑀↑2) = (𝑀 · 𝑀))
260257, 259breqtrd 4914 . . . . . . . . . . 11 (𝜑 → ((𝐸↑2) + (𝐹↑2)) < (𝑀 · 𝑀))
261 ltdivmul 11254 . . . . . . . . . . . 12 ((((𝐸↑2) + (𝐹↑2)) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀)) → ((((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀 ↔ ((𝐸↑2) + (𝐹↑2)) < (𝑀 · 𝑀)))
262171, 172, 172, 209, 261syl112anc 1442 . . . . . . . . . . 11 (𝜑 → ((((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀 ↔ ((𝐸↑2) + (𝐹↑2)) < (𝑀 · 𝑀)))
263260, 262mpbird 249 . . . . . . . . . 10 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀)
264 zltlem1 11786 . . . . . . . . . . 11 (((((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ ∧ 𝑀 ∈ ℤ) → ((((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ≤ (𝑀 − 1)))
265168, 8, 264syl2anc 579 . . . . . . . . . 10 (𝜑 → ((((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ≤ (𝑀 − 1)))
266263, 265mpbid 224 . . . . . . . . 9 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ≤ (𝑀 − 1))
267266adantr 474 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ≤ (𝑀 − 1))
268215, 217, 221, 228, 267letrd 10535 . . . . . . 7 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ≤ (𝑀 − 1))
269219adantr 474 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑀 − 1) ∈ ℤ)
270 fznn 12730 . . . . . . . 8 ((𝑀 − 1) ∈ ℤ → (𝑝 ∈ (1...(𝑀 − 1)) ↔ (𝑝 ∈ ℕ ∧ 𝑝 ≤ (𝑀 − 1))))
271269, 270syl 17 . . . . . . 7 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑝 ∈ (1...(𝑀 − 1)) ↔ (𝑝 ∈ ℕ ∧ 𝑝 ≤ (𝑀 − 1))))
272214, 268, 271mpbir2and 703 . . . . . 6 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∈ (1...(𝑀 − 1)))
273206adantr 474 . . . . . 6 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → ((𝐸↑2) + (𝐹↑2)) ∈ 𝑌)
274272, 273jca 507 . . . . 5 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑝 ∈ (1...(𝑀 − 1)) ∧ ((𝐸↑2) + (𝐹↑2)) ∈ 𝑌))
27548adantr 474 . . . . 5 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → ∀𝑏 ∈ (1...(𝑀 − 1))∀𝑎𝑌 (𝑏𝑎𝑏𝑆))
276 dvdsmul2 15415 . . . . . . . . 9 ((𝑀 ∈ ℤ ∧ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ (𝑀 · (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
2778, 168, 276syl2anc 579 . . . . . . . 8 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ (𝑀 · (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
278242, 258, 111divcan2d 11155 . . . . . . . 8 (𝜑 → (𝑀 · (((𝐸↑2) + (𝐹↑2)) / 𝑀)) = ((𝐸↑2) + (𝐹↑2)))
279277, 278breqtrd 4914 . . . . . . 7 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ ((𝐸↑2) + (𝐹↑2)))
280279adantr 474 . . . . . 6 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ ((𝐸↑2) + (𝐹↑2)))
281162adantr 474 . . . . . . 7 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → ((𝐸↑2) + (𝐹↑2)) ∈ ℤ)
282 dvdstr 15429 . . . . . . 7 ((𝑝 ∈ ℤ ∧ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ ∧ ((𝐸↑2) + (𝐹↑2)) ∈ ℤ) → ((𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∧ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ ((𝐸↑2) + (𝐹↑2))) → 𝑝 ∥ ((𝐸↑2) + (𝐹↑2))))
283224, 216, 281, 282syl3anc 1439 . . . . . 6 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → ((𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∧ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ ((𝐸↑2) + (𝐹↑2))) → 𝑝 ∥ ((𝐸↑2) + (𝐹↑2))))
284222, 280, 283mp2and 689 . . . . 5 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∥ ((𝐸↑2) + (𝐹↑2)))
285 breq1 4891 . . . . . . 7 (𝑏 = 𝑝 → (𝑏𝑎𝑝𝑎))
286 eleq1w 2842 . . . . . . 7 (𝑏 = 𝑝 → (𝑏𝑆𝑝𝑆))
287285, 286imbi12d 336 . . . . . 6 (𝑏 = 𝑝 → ((𝑏𝑎𝑏𝑆) ↔ (𝑝𝑎𝑝𝑆)))
288 breq2 4892 . . . . . . 7 (𝑎 = ((𝐸↑2) + (𝐹↑2)) → (𝑝𝑎𝑝 ∥ ((𝐸↑2) + (𝐹↑2))))
289288imbi1d 333 . . . . . 6 (𝑎 = ((𝐸↑2) + (𝐹↑2)) → ((𝑝𝑎𝑝𝑆) ↔ (𝑝 ∥ ((𝐸↑2) + (𝐹↑2)) → 𝑝𝑆)))
290287, 289rspc2v 3524 . . . . 5 ((𝑝 ∈ (1...(𝑀 − 1)) ∧ ((𝐸↑2) + (𝐹↑2)) ∈ 𝑌) → (∀𝑏 ∈ (1...(𝑀 − 1))∀𝑎𝑌 (𝑏𝑎𝑏𝑆) → (𝑝 ∥ ((𝐸↑2) + (𝐹↑2)) → 𝑝𝑆)))
291274, 275, 284, 290syl3c 66 . . . 4 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝𝑆)
292291expr 450 . . 3 ((𝜑𝑝 ∈ ℙ) → (𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) → 𝑝𝑆))
293292ralrimiva 3148 . 2 (𝜑 → ∀𝑝 ∈ ℙ (𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) → 𝑝𝑆))
294 inss1 4053 . . . . 5 (𝑆 ∩ ℕ) ⊆ 𝑆
295173, 294sstri 3830 . . . 4 𝑌𝑆
296295, 206sseldi 3819 . . 3 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ 𝑆)
297278, 296eqeltrd 2859 . 2 (𝜑 → (𝑀 · (((𝐸↑2) + (𝐹↑2)) / 𝑀)) ∈ 𝑆)
2981, 5, 212, 293, 2972sqlem6 25604 1 (𝜑𝑀𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 386   = wceq 1601  wcel 2107  {cab 2763  wne 2969  wral 3090  wrex 3091  cin 3791   class class class wbr 4888  cmpt 4967  ran crn 5358  cfv 6137  (class class class)co 6924  cr 10273  0cc0 10274  1c1 10275   + caddc 10277   · cmul 10279   < clt 10413  cle 10414  cmin 10608   / cdiv 11034  cn 11378  2c2 11434  0cn0 11646  cz 11732  cuz 11996  +crp 12141  ...cfz 12647   mod cmo 12991  cexp 13182  abscabs 14385  cdvds 15391   gcd cgcd 15626  cprime 15794  ℤ[i]cgz 16041
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2055  ax-8 2109  ax-9 2116  ax-10 2135  ax-11 2150  ax-12 2163  ax-13 2334  ax-ext 2754  ax-sep 5019  ax-nul 5027  ax-pow 5079  ax-pr 5140  ax-un 7228  ax-cnex 10330  ax-resscn 10331  ax-1cn 10332  ax-icn 10333  ax-addcl 10334  ax-addrcl 10335  ax-mulcl 10336  ax-mulrcl 10337  ax-mulcom 10338  ax-addass 10339  ax-mulass 10340  ax-distr 10341  ax-i2m1 10342  ax-1ne0 10343  ax-1rid 10344  ax-rnegex 10345  ax-rrecex 10346  ax-cnre 10347  ax-pre-lttri 10348  ax-pre-lttrn 10349  ax-pre-ltadd 10350  ax-pre-mulgt0 10351  ax-pre-sup 10352
This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3or 1072  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2551  df-eu 2587  df-clab 2764  df-cleq 2770  df-clel 2774  df-nfc 2921  df-ne 2970  df-nel 3076  df-ral 3095  df-rex 3096  df-reu 3097  df-rmo 3098  df-rab 3099  df-v 3400  df-sbc 3653  df-csb 3752  df-dif 3795  df-un 3797  df-in 3799  df-ss 3806  df-pss 3808  df-nul 4142  df-if 4308  df-pw 4381  df-sn 4399  df-pr 4401  df-tp 4403  df-op 4405  df-uni 4674  df-iun 4757  df-br 4889  df-opab 4951  df-mpt 4968  df-tr 4990  df-id 5263  df-eprel 5268  df-po 5276  df-so 5277  df-fr 5316  df-we 5318  df-xp 5363  df-rel 5364  df-cnv 5365  df-co 5366  df-dm 5367  df-rn 5368  df-res 5369  df-ima 5370  df-pred 5935  df-ord 5981  df-on 5982  df-lim 5983  df-suc 5984  df-iota 6101  df-fun 6139  df-fn 6140  df-f 6141  df-f1 6142  df-fo 6143  df-f1o 6144  df-fv 6145  df-riota 6885  df-ov 6927  df-oprab 6928  df-mpt2 6929  df-om 7346  df-1st 7447  df-2nd 7448  df-wrecs 7691  df-recs 7753  df-rdg 7791  df-1o 7845  df-2o 7846  df-er 8028  df-en 8244  df-dom 8245  df-sdom 8246  df-fin 8247  df-sup 8638  df-inf 8639  df-pnf 10415  df-mnf 10416  df-xr 10417  df-ltxr 10418  df-le 10419  df-sub 10610  df-neg 10611  df-div 11035  df-nn 11379  df-2 11442  df-3 11443  df-n0 11647  df-z 11733  df-uz 11997  df-rp 12142  df-fz 12648  df-fl 12916  df-mod 12992  df-seq 13124  df-exp 13183  df-cj 14250  df-re 14251  df-im 14252  df-sqrt 14386  df-abs 14387  df-dvds 15392  df-gcd 15627  df-prm 15795  df-gz 16042
This theorem is referenced by:  2sqlem9  25608
  Copyright terms: Public domain W3C validator