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

Theorem 2sqlem8 26165
Description: Lemma for 2sq 26169. (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 12407 . . . 4 (𝑀 ∈ (ℤ‘2) ↔ (𝑀 ∈ ℕ ∧ 𝑀 ≠ 1))
42, 3sylib 221 . . 3 (𝜑 → (𝑀 ∈ ℕ ∧ 𝑀 ≠ 1))
54simpld 498 . 2 (𝜑𝑀 ∈ ℕ)
6 2sqlem9.7 . . . . . . 7 (𝜑𝑀𝑁)
7 eluzelz 12337 . . . . . . . . 9 (𝑀 ∈ (ℤ‘2) → 𝑀 ∈ ℤ)
82, 7syl 17 . . . . . . . 8 (𝜑𝑀 ∈ ℤ)
9 2sqlem8.n . . . . . . . . 9 (𝜑𝑁 ∈ ℕ)
109nnzd 12170 . . . . . . . 8 (𝜑𝑁 ∈ ℤ)
11 2sqlem8.1 . . . . . . . . . . . 12 (𝜑𝐴 ∈ ℤ)
12 2sqlem8.c . . . . . . . . . . . 12 𝐶 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
1311, 5, 124sqlem5 16381 . . . . . . . . . . 11 (𝜑 → (𝐶 ∈ ℤ ∧ ((𝐴𝐶) / 𝑀) ∈ ℤ))
1413simpld 498 . . . . . . . . . 10 (𝜑𝐶 ∈ ℤ)
15 zsqcl 13589 . . . . . . . . . 10 (𝐶 ∈ ℤ → (𝐶↑2) ∈ ℤ)
1614, 15syl 17 . . . . . . . . 9 (𝜑 → (𝐶↑2) ∈ ℤ)
17 2sqlem8.2 . . . . . . . . . . . 12 (𝜑𝐵 ∈ ℤ)
18 2sqlem8.d . . . . . . . . . . . 12 𝐷 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
1917, 5, 184sqlem5 16381 . . . . . . . . . . 11 (𝜑 → (𝐷 ∈ ℤ ∧ ((𝐵𝐷) / 𝑀) ∈ ℤ))
2019simpld 498 . . . . . . . . . 10 (𝜑𝐷 ∈ ℤ)
21 zsqcl 13589 . . . . . . . . . 10 (𝐷 ∈ ℤ → (𝐷↑2) ∈ ℤ)
2220, 21syl 17 . . . . . . . . 9 (𝜑 → (𝐷↑2) ∈ ℤ)
2316, 22zaddcld 12175 . . . . . . . 8 (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℤ)
24 zsqcl 13589 . . . . . . . . . . . 12 (𝐴 ∈ ℤ → (𝐴↑2) ∈ ℤ)
2511, 24syl 17 . . . . . . . . . . 11 (𝜑 → (𝐴↑2) ∈ ℤ)
2625, 16zsubcld 12176 . . . . . . . . . 10 (𝜑 → ((𝐴↑2) − (𝐶↑2)) ∈ ℤ)
27 zsqcl 13589 . . . . . . . . . . . 12 (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
2817, 27syl 17 . . . . . . . . . . 11 (𝜑 → (𝐵↑2) ∈ ℤ)
2928, 22zsubcld 12176 . . . . . . . . . 10 (𝜑 → ((𝐵↑2) − (𝐷↑2)) ∈ ℤ)
3011, 5, 124sqlem8 16384 . . . . . . . . . 10 (𝜑𝑀 ∥ ((𝐴↑2) − (𝐶↑2)))
3117, 5, 184sqlem8 16384 . . . . . . . . . 10 (𝜑𝑀 ∥ ((𝐵↑2) − (𝐷↑2)))
328, 26, 29, 30, 31dvds2addd 15740 . . . . . . . . 9 (𝜑𝑀 ∥ (((𝐴↑2) − (𝐶↑2)) + ((𝐵↑2) − (𝐷↑2))))
33 2sqlem8.4 . . . . . . . . . . 11 (𝜑𝑁 = ((𝐴↑2) + (𝐵↑2)))
3433oveq1d 7188 . . . . . . . . . 10 (𝜑 → (𝑁 − ((𝐶↑2) + (𝐷↑2))) = (((𝐴↑2) + (𝐵↑2)) − ((𝐶↑2) + (𝐷↑2))))
3525zcnd 12172 . . . . . . . . . . 11 (𝜑 → (𝐴↑2) ∈ ℂ)
3628zcnd 12172 . . . . . . . . . . 11 (𝜑 → (𝐵↑2) ∈ ℂ)
3716zcnd 12172 . . . . . . . . . . 11 (𝜑 → (𝐶↑2) ∈ ℂ)
3822zcnd 12172 . . . . . . . . . . 11 (𝜑 → (𝐷↑2) ∈ ℂ)
3935, 36, 37, 38addsub4d 11125 . . . . . . . . . 10 (𝜑 → (((𝐴↑2) + (𝐵↑2)) − ((𝐶↑2) + (𝐷↑2))) = (((𝐴↑2) − (𝐶↑2)) + ((𝐵↑2) − (𝐷↑2))))
4034, 39eqtrd 2774 . . . . . . . . 9 (𝜑 → (𝑁 − ((𝐶↑2) + (𝐷↑2))) = (((𝐴↑2) − (𝐶↑2)) + ((𝐵↑2) − (𝐷↑2))))
4132, 40breqtrrd 5059 . . . . . . . 8 (𝜑𝑀 ∥ (𝑁 − ((𝐶↑2) + (𝐷↑2))))
42 dvdssub2 15749 . . . . . . . 8 (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ ((𝐶↑2) + (𝐷↑2)) ∈ ℤ) ∧ 𝑀 ∥ (𝑁 − ((𝐶↑2) + (𝐷↑2)))) → (𝑀𝑁𝑀 ∥ ((𝐶↑2) + (𝐷↑2))))
438, 10, 23, 41, 42syl31anc 1374 . . . . . . 7 (𝜑 → (𝑀𝑁𝑀 ∥ ((𝐶↑2) + (𝐷↑2))))
446, 43mpbid 235 . . . . . 6 (𝜑𝑀 ∥ ((𝐶↑2) + (𝐷↑2)))
45 2sqlem7.2 . . . . . . . . . . . 12 𝑌 = {𝑧 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2)))}
46 2sqlem9.5 . . . . . . . . . . . 12 (𝜑 → ∀𝑏 ∈ (1...(𝑀 − 1))∀𝑎𝑌 (𝑏𝑎𝑏𝑆))
47 2sqlem8.3 . . . . . . . . . . . 12 (𝜑 → (𝐴 gcd 𝐵) = 1)
481, 45, 46, 6, 9, 2, 11, 17, 47, 33, 12, 182sqlem8a 26164 . . . . . . . . . . 11 (𝜑 → (𝐶 gcd 𝐷) ∈ ℕ)
4948nnzd 12170 . . . . . . . . . 10 (𝜑 → (𝐶 gcd 𝐷) ∈ ℤ)
50 zsqcl2 13597 . . . . . . . . . 10 ((𝐶 gcd 𝐷) ∈ ℤ → ((𝐶 gcd 𝐷)↑2) ∈ ℕ0)
5149, 50syl 17 . . . . . . . . 9 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℕ0)
5251nn0cnd 12041 . . . . . . . 8 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℂ)
53 2sqlem8.e . . . . . . . . . . 11 𝐸 = (𝐶 / (𝐶 gcd 𝐷))
54 gcddvds 15949 . . . . . . . . . . . . . 14 ((𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ) → ((𝐶 gcd 𝐷) ∥ 𝐶 ∧ (𝐶 gcd 𝐷) ∥ 𝐷))
5514, 20, 54syl2anc 587 . . . . . . . . . . . . 13 (𝜑 → ((𝐶 gcd 𝐷) ∥ 𝐶 ∧ (𝐶 gcd 𝐷) ∥ 𝐷))
5655simpld 498 . . . . . . . . . . . 12 (𝜑 → (𝐶 gcd 𝐷) ∥ 𝐶)
5748nnne0d 11769 . . . . . . . . . . . . 13 (𝜑 → (𝐶 gcd 𝐷) ≠ 0)
58 dvdsval2 15705 . . . . . . . . . . . . 13 (((𝐶 gcd 𝐷) ∈ ℤ ∧ (𝐶 gcd 𝐷) ≠ 0 ∧ 𝐶 ∈ ℤ) → ((𝐶 gcd 𝐷) ∥ 𝐶 ↔ (𝐶 / (𝐶 gcd 𝐷)) ∈ ℤ))
5949, 57, 14, 58syl3anc 1372 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) ∥ 𝐶 ↔ (𝐶 / (𝐶 gcd 𝐷)) ∈ ℤ))
6056, 59mpbid 235 . . . . . . . . . . 11 (𝜑 → (𝐶 / (𝐶 gcd 𝐷)) ∈ ℤ)
6153, 60eqeltrid 2838 . . . . . . . . . 10 (𝜑𝐸 ∈ ℤ)
62 zsqcl2 13597 . . . . . . . . . 10 (𝐸 ∈ ℤ → (𝐸↑2) ∈ ℕ0)
6361, 62syl 17 . . . . . . . . 9 (𝜑 → (𝐸↑2) ∈ ℕ0)
6463nn0cnd 12041 . . . . . . . 8 (𝜑 → (𝐸↑2) ∈ ℂ)
65 2sqlem8.f . . . . . . . . . . 11 𝐹 = (𝐷 / (𝐶 gcd 𝐷))
6655simprd 499 . . . . . . . . . . . 12 (𝜑 → (𝐶 gcd 𝐷) ∥ 𝐷)
67 dvdsval2 15705 . . . . . . . . . . . . 13 (((𝐶 gcd 𝐷) ∈ ℤ ∧ (𝐶 gcd 𝐷) ≠ 0 ∧ 𝐷 ∈ ℤ) → ((𝐶 gcd 𝐷) ∥ 𝐷 ↔ (𝐷 / (𝐶 gcd 𝐷)) ∈ ℤ))
6849, 57, 20, 67syl3anc 1372 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) ∥ 𝐷 ↔ (𝐷 / (𝐶 gcd 𝐷)) ∈ ℤ))
6966, 68mpbid 235 . . . . . . . . . . 11 (𝜑 → (𝐷 / (𝐶 gcd 𝐷)) ∈ ℤ)
7065, 69eqeltrid 2838 . . . . . . . . . 10 (𝜑𝐹 ∈ ℤ)
71 zsqcl2 13597 . . . . . . . . . 10 (𝐹 ∈ ℤ → (𝐹↑2) ∈ ℕ0)
7270, 71syl 17 . . . . . . . . 9 (𝜑 → (𝐹↑2) ∈ ℕ0)
7372nn0cnd 12041 . . . . . . . 8 (𝜑 → (𝐹↑2) ∈ ℂ)
7452, 64, 73adddid 10746 . . . . . . 7 (𝜑 → (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))) = ((((𝐶 gcd 𝐷)↑2) · (𝐸↑2)) + (((𝐶 gcd 𝐷)↑2) · (𝐹↑2))))
7549zcnd 12172 . . . . . . . . . 10 (𝜑 → (𝐶 gcd 𝐷) ∈ ℂ)
7661zcnd 12172 . . . . . . . . . 10 (𝜑𝐸 ∈ ℂ)
7775, 76sqmuld 13617 . . . . . . . . 9 (𝜑 → (((𝐶 gcd 𝐷) · 𝐸)↑2) = (((𝐶 gcd 𝐷)↑2) · (𝐸↑2)))
7853oveq2i 7184 . . . . . . . . . . 11 ((𝐶 gcd 𝐷) · 𝐸) = ((𝐶 gcd 𝐷) · (𝐶 / (𝐶 gcd 𝐷)))
7914zcnd 12172 . . . . . . . . . . . 12 (𝜑𝐶 ∈ ℂ)
8079, 75, 57divcan2d 11499 . . . . . . . . . . 11 (𝜑 → ((𝐶 gcd 𝐷) · (𝐶 / (𝐶 gcd 𝐷))) = 𝐶)
8178, 80syl5eq 2786 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) · 𝐸) = 𝐶)
8281oveq1d 7188 . . . . . . . . 9 (𝜑 → (((𝐶 gcd 𝐷) · 𝐸)↑2) = (𝐶↑2))
8377, 82eqtr3d 2776 . . . . . . . 8 (𝜑 → (((𝐶 gcd 𝐷)↑2) · (𝐸↑2)) = (𝐶↑2))
8470zcnd 12172 . . . . . . . . . 10 (𝜑𝐹 ∈ ℂ)
8575, 84sqmuld 13617 . . . . . . . . 9 (𝜑 → (((𝐶 gcd 𝐷) · 𝐹)↑2) = (((𝐶 gcd 𝐷)↑2) · (𝐹↑2)))
8665oveq2i 7184 . . . . . . . . . . 11 ((𝐶 gcd 𝐷) · 𝐹) = ((𝐶 gcd 𝐷) · (𝐷 / (𝐶 gcd 𝐷)))
8720zcnd 12172 . . . . . . . . . . . 12 (𝜑𝐷 ∈ ℂ)
8887, 75, 57divcan2d 11499 . . . . . . . . . . 11 (𝜑 → ((𝐶 gcd 𝐷) · (𝐷 / (𝐶 gcd 𝐷))) = 𝐷)
8986, 88syl5eq 2786 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) · 𝐹) = 𝐷)
9089oveq1d 7188 . . . . . . . . 9 (𝜑 → (((𝐶 gcd 𝐷) · 𝐹)↑2) = (𝐷↑2))
9185, 90eqtr3d 2776 . . . . . . . 8 (𝜑 → (((𝐶 gcd 𝐷)↑2) · (𝐹↑2)) = (𝐷↑2))
9283, 91oveq12d 7191 . . . . . . 7 (𝜑 → ((((𝐶 gcd 𝐷)↑2) · (𝐸↑2)) + (((𝐶 gcd 𝐷)↑2) · (𝐹↑2))) = ((𝐶↑2) + (𝐷↑2)))
9374, 92eqtrd 2774 . . . . . 6 (𝜑 → (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))) = ((𝐶↑2) + (𝐷↑2)))
9444, 93breqtrrd 5059 . . . . 5 (𝜑𝑀 ∥ (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))))
95 zsqcl 13589 . . . . . . . 8 ((𝐶 gcd 𝐷) ∈ ℤ → ((𝐶 gcd 𝐷)↑2) ∈ ℤ)
9649, 95syl 17 . . . . . . 7 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℤ)
978, 96gcdcomd 15960 . . . . . 6 (𝜑 → (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = (((𝐶 gcd 𝐷)↑2) gcd 𝑀))
9849, 8gcdcld 15954 . . . . . . . . . . . . 13 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℕ0)
9998nn0zd 12169 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ)
100 gcddvds 15949 . . . . . . . . . . . . . 14 (((𝐶 gcd 𝐷) ∈ ℤ ∧ 𝑀 ∈ ℤ) → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷) ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀))
10149, 8, 100syl2anc 587 . . . . . . . . . . . . 13 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷) ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀))
102101simpld 498 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐶 gcd 𝐷))
10399, 49, 14, 102, 56dvdstrd 15743 . . . . . . . . . . 11 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐶)
10411, 14zsubcld 12176 . . . . . . . . . . . . 13 (𝜑 → (𝐴𝐶) ∈ ℤ)
105101simprd 499 . . . . . . . . . . . . 13 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝑀)
10613simprd 499 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴𝐶) / 𝑀) ∈ ℤ)
1075nnne0d 11769 . . . . . . . . . . . . . . 15 (𝜑𝑀 ≠ 0)
108 dvdsval2 15705 . . . . . . . . . . . . . . 15 ((𝑀 ∈ ℤ ∧ 𝑀 ≠ 0 ∧ (𝐴𝐶) ∈ ℤ) → (𝑀 ∥ (𝐴𝐶) ↔ ((𝐴𝐶) / 𝑀) ∈ ℤ))
1098, 107, 104, 108syl3anc 1372 . . . . . . . . . . . . . 14 (𝜑 → (𝑀 ∥ (𝐴𝐶) ↔ ((𝐴𝐶) / 𝑀) ∈ ℤ))
110106, 109mpbird 260 . . . . . . . . . . . . 13 (𝜑𝑀 ∥ (𝐴𝐶))
11199, 8, 104, 105, 110dvdstrd 15743 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐴𝐶))
112 dvdssub2 15749 . . . . . . . . . . . 12 (((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐶 ∈ ℤ) ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐴𝐶)) → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐶))
11399, 11, 14, 111, 112syl31anc 1374 . . . . . . . . . . 11 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐶))
114103, 113mpbird 260 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴)
11599, 49, 20, 102, 66dvdstrd 15743 . . . . . . . . . . 11 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐷)
11617, 20zsubcld 12176 . . . . . . . . . . . . 13 (𝜑 → (𝐵𝐷) ∈ ℤ)
11719simprd 499 . . . . . . . . . . . . . 14 (𝜑 → ((𝐵𝐷) / 𝑀) ∈ ℤ)
118 dvdsval2 15705 . . . . . . . . . . . . . . 15 ((𝑀 ∈ ℤ ∧ 𝑀 ≠ 0 ∧ (𝐵𝐷) ∈ ℤ) → (𝑀 ∥ (𝐵𝐷) ↔ ((𝐵𝐷) / 𝑀) ∈ ℤ))
1198, 107, 116, 118syl3anc 1372 . . . . . . . . . . . . . 14 (𝜑 → (𝑀 ∥ (𝐵𝐷) ↔ ((𝐵𝐷) / 𝑀) ∈ ℤ))
120117, 119mpbird 260 . . . . . . . . . . . . 13 (𝜑𝑀 ∥ (𝐵𝐷))
12199, 8, 116, 105, 120dvdstrd 15743 . . . . . . . . . . . 12 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐵𝐷))
122 dvdssub2 15749 . . . . . . . . . . . 12 (((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐷 ∈ ℤ) ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ (𝐵𝐷)) → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐷))
12399, 17, 20, 121, 122syl31anc 1374 . . . . . . . . . . 11 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐷))
124115, 123mpbird 260 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵)
125 ax-1ne0 10687 . . . . . . . . . . . . . . 15 1 ≠ 0
126125a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 1 ≠ 0)
12747, 126eqnetrd 3002 . . . . . . . . . . . . 13 (𝜑 → (𝐴 gcd 𝐵) ≠ 0)
128127neneqd 2940 . . . . . . . . . . . 12 (𝜑 → ¬ (𝐴 gcd 𝐵) = 0)
129 gcdeq0 15963 . . . . . . . . . . . . 13 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) = 0 ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
13011, 17, 129syl2anc 587 . . . . . . . . . . . 12 (𝜑 → ((𝐴 gcd 𝐵) = 0 ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
131128, 130mtbid 327 . . . . . . . . . . 11 (𝜑 → ¬ (𝐴 = 0 ∧ 𝐵 = 0))
132 dvdslegcd 15950 . . . . . . . . . . 11 (((((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴 ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵) → ((𝐶 gcd 𝐷) gcd 𝑀) ≤ (𝐴 gcd 𝐵)))
13399, 11, 17, 131, 132syl31anc 1374 . . . . . . . . . 10 (𝜑 → ((((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐴 ∧ ((𝐶 gcd 𝐷) gcd 𝑀) ∥ 𝐵) → ((𝐶 gcd 𝐷) gcd 𝑀) ≤ (𝐴 gcd 𝐵)))
134114, 124, 133mp2and 699 . . . . . . . . 9 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ≤ (𝐴 gcd 𝐵))
135134, 47breqtrd 5057 . . . . . . . 8 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ≤ 1)
136 simpr 488 . . . . . . . . . . . 12 (((𝐶 gcd 𝐷) = 0 ∧ 𝑀 = 0) → 𝑀 = 0)
137136necon3ai 2960 . . . . . . . . . . 11 (𝑀 ≠ 0 → ¬ ((𝐶 gcd 𝐷) = 0 ∧ 𝑀 = 0))
138107, 137syl 17 . . . . . . . . . 10 (𝜑 → ¬ ((𝐶 gcd 𝐷) = 0 ∧ 𝑀 = 0))
139 gcdn0cl 15948 . . . . . . . . . 10 ((((𝐶 gcd 𝐷) ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ ¬ ((𝐶 gcd 𝐷) = 0 ∧ 𝑀 = 0)) → ((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℕ)
14049, 8, 138, 139syl21anc 837 . . . . . . . . 9 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℕ)
141 nnle1eq1 11749 . . . . . . . . 9 (((𝐶 gcd 𝐷) gcd 𝑀) ∈ ℕ → (((𝐶 gcd 𝐷) gcd 𝑀) ≤ 1 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) = 1))
142140, 141syl 17 . . . . . . . 8 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) ≤ 1 ↔ ((𝐶 gcd 𝐷) gcd 𝑀) = 1))
143135, 142mpbid 235 . . . . . . 7 (𝜑 → ((𝐶 gcd 𝐷) gcd 𝑀) = 1)
144 2nn 11792 . . . . . . . . 9 2 ∈ ℕ
145144a1i 11 . . . . . . . 8 (𝜑 → 2 ∈ ℕ)
146 rplpwr 16006 . . . . . . . 8 (((𝐶 gcd 𝐷) ∈ ℕ ∧ 𝑀 ∈ ℕ ∧ 2 ∈ ℕ) → (((𝐶 gcd 𝐷) gcd 𝑀) = 1 → (((𝐶 gcd 𝐷)↑2) gcd 𝑀) = 1))
14748, 5, 145, 146syl3anc 1372 . . . . . . 7 (𝜑 → (((𝐶 gcd 𝐷) gcd 𝑀) = 1 → (((𝐶 gcd 𝐷)↑2) gcd 𝑀) = 1))
148143, 147mpd 15 . . . . . 6 (𝜑 → (((𝐶 gcd 𝐷)↑2) gcd 𝑀) = 1)
14997, 148eqtrd 2774 . . . . 5 (𝜑 → (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = 1)
15063, 72nn0addcld 12043 . . . . . . 7 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℕ0)
151150nn0zd 12169 . . . . . 6 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℤ)
152 coprmdvds 16097 . . . . . 6 ((𝑀 ∈ ℤ ∧ ((𝐶 gcd 𝐷)↑2) ∈ ℤ ∧ ((𝐸↑2) + (𝐹↑2)) ∈ ℤ) → ((𝑀 ∥ (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))) ∧ (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = 1) → 𝑀 ∥ ((𝐸↑2) + (𝐹↑2))))
1538, 96, 151, 152syl3anc 1372 . . . . 5 (𝜑 → ((𝑀 ∥ (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))) ∧ (𝑀 gcd ((𝐶 gcd 𝐷)↑2)) = 1) → 𝑀 ∥ ((𝐸↑2) + (𝐹↑2))))
15494, 149, 153mp2and 699 . . . 4 (𝜑𝑀 ∥ ((𝐸↑2) + (𝐹↑2)))
155 dvdsval2 15705 . . . . 5 ((𝑀 ∈ ℤ ∧ 𝑀 ≠ 0 ∧ ((𝐸↑2) + (𝐹↑2)) ∈ ℤ) → (𝑀 ∥ ((𝐸↑2) + (𝐹↑2)) ↔ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ))
1568, 107, 151, 155syl3anc 1372 . . . 4 (𝜑 → (𝑀 ∥ ((𝐸↑2) + (𝐹↑2)) ↔ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ))
157154, 156mpbid 235 . . 3 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ)
15863nn0red 12040 . . . . 5 (𝜑 → (𝐸↑2) ∈ ℝ)
15972nn0red 12040 . . . . 5 (𝜑 → (𝐹↑2) ∈ ℝ)
160158, 159readdcld 10751 . . . 4 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℝ)
1615nnred 11734 . . . 4 (𝜑𝑀 ∈ ℝ)
1621, 452sqlem7 26163 . . . . . . 7 𝑌 ⊆ (𝑆 ∩ ℕ)
163 inss2 4121 . . . . . . 7 (𝑆 ∩ ℕ) ⊆ ℕ
164162, 163sstri 3887 . . . . . 6 𝑌 ⊆ ℕ
16561, 70gcdcld 15954 . . . . . . . . . 10 (𝜑 → (𝐸 gcd 𝐹) ∈ ℕ0)
166165nn0cnd 12041 . . . . . . . . 9 (𝜑 → (𝐸 gcd 𝐹) ∈ ℂ)
167 1cnd 10717 . . . . . . . . 9 (𝜑 → 1 ∈ ℂ)
16875mulid1d 10739 . . . . . . . . . 10 (𝜑 → ((𝐶 gcd 𝐷) · 1) = (𝐶 gcd 𝐷))
16981, 89oveq12d 7191 . . . . . . . . . 10 (𝜑 → (((𝐶 gcd 𝐷) · 𝐸) gcd ((𝐶 gcd 𝐷) · 𝐹)) = (𝐶 gcd 𝐷))
17014, 20gcdcld 15954 . . . . . . . . . . 11 (𝜑 → (𝐶 gcd 𝐷) ∈ ℕ0)
171 mulgcd 15995 . . . . . . . . . . 11 (((𝐶 gcd 𝐷) ∈ ℕ0𝐸 ∈ ℤ ∧ 𝐹 ∈ ℤ) → (((𝐶 gcd 𝐷) · 𝐸) gcd ((𝐶 gcd 𝐷) · 𝐹)) = ((𝐶 gcd 𝐷) · (𝐸 gcd 𝐹)))
172170, 61, 70, 171syl3anc 1372 . . . . . . . . . 10 (𝜑 → (((𝐶 gcd 𝐷) · 𝐸) gcd ((𝐶 gcd 𝐷) · 𝐹)) = ((𝐶 gcd 𝐷) · (𝐸 gcd 𝐹)))
173168, 169, 1723eqtr2rd 2781 . . . . . . . . 9 (𝜑 → ((𝐶 gcd 𝐷) · (𝐸 gcd 𝐹)) = ((𝐶 gcd 𝐷) · 1))
174166, 167, 75, 57, 173mulcanad 11356 . . . . . . . 8 (𝜑 → (𝐸 gcd 𝐹) = 1)
175 eqidd 2740 . . . . . . . 8 (𝜑 → ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝐹↑2)))
176 oveq1 7180 . . . . . . . . . . 11 (𝑥 = 𝐸 → (𝑥 gcd 𝑦) = (𝐸 gcd 𝑦))
177176eqeq1d 2741 . . . . . . . . . 10 (𝑥 = 𝐸 → ((𝑥 gcd 𝑦) = 1 ↔ (𝐸 gcd 𝑦) = 1))
178 oveq1 7180 . . . . . . . . . . . 12 (𝑥 = 𝐸 → (𝑥↑2) = (𝐸↑2))
179178oveq1d 7188 . . . . . . . . . . 11 (𝑥 = 𝐸 → ((𝑥↑2) + (𝑦↑2)) = ((𝐸↑2) + (𝑦↑2)))
180179eqeq2d 2750 . . . . . . . . . 10 (𝑥 = 𝐸 → (((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2)) ↔ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝑦↑2))))
181177, 180anbi12d 634 . . . . . . . . 9 (𝑥 = 𝐸 → (((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))) ↔ ((𝐸 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝑦↑2)))))
182 oveq2 7181 . . . . . . . . . . 11 (𝑦 = 𝐹 → (𝐸 gcd 𝑦) = (𝐸 gcd 𝐹))
183182eqeq1d 2741 . . . . . . . . . 10 (𝑦 = 𝐹 → ((𝐸 gcd 𝑦) = 1 ↔ (𝐸 gcd 𝐹) = 1))
184 oveq1 7180 . . . . . . . . . . . 12 (𝑦 = 𝐹 → (𝑦↑2) = (𝐹↑2))
185184oveq2d 7189 . . . . . . . . . . 11 (𝑦 = 𝐹 → ((𝐸↑2) + (𝑦↑2)) = ((𝐸↑2) + (𝐹↑2)))
186185eqeq2d 2750 . . . . . . . . . 10 (𝑦 = 𝐹 → (((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝑦↑2)) ↔ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝐹↑2))))
187183, 186anbi12d 634 . . . . . . . . 9 (𝑦 = 𝐹 → (((𝐸 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝑦↑2))) ↔ ((𝐸 gcd 𝐹) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝐹↑2)))))
188181, 187rspc2ev 3539 . . . . . . . 8 ((𝐸 ∈ ℤ ∧ 𝐹 ∈ ℤ ∧ ((𝐸 gcd 𝐹) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝐸↑2) + (𝐹↑2)))) → ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))))
18961, 70, 174, 175, 188syl112anc 1375 . . . . . . 7 (𝜑 → ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))))
190 ovex 7206 . . . . . . . 8 ((𝐸↑2) + (𝐹↑2)) ∈ V
191 eqeq1 2743 . . . . . . . . . 10 (𝑧 = ((𝐸↑2) + (𝐹↑2)) → (𝑧 = ((𝑥↑2) + (𝑦↑2)) ↔ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))))
192191anbi2d 632 . . . . . . . . 9 (𝑧 = ((𝐸↑2) + (𝐹↑2)) → (((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) ↔ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2)))))
1931922rexbidv 3211 . . . . . . . 8 (𝑧 = ((𝐸↑2) + (𝐹↑2)) → (∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2))) ↔ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2)))))
194190, 193, 45elab2 3578 . . . . . . 7 (((𝐸↑2) + (𝐹↑2)) ∈ 𝑌 ↔ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ ((𝐸↑2) + (𝐹↑2)) = ((𝑥↑2) + (𝑦↑2))))
195189, 194sylibr 237 . . . . . 6 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ 𝑌)
196164, 195sseldi 3876 . . . . 5 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℕ)
197196nngt0d 11768 . . . 4 (𝜑 → 0 < ((𝐸↑2) + (𝐹↑2)))
1985nngt0d 11768 . . . 4 (𝜑 → 0 < 𝑀)
199160, 161, 197, 198divgt0d 11656 . . 3 (𝜑 → 0 < (((𝐸↑2) + (𝐹↑2)) / 𝑀))
200 elnnz 12075 . . 3 ((((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℕ ↔ ((((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ ∧ 0 < (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
201157, 199, 200sylanbrc 586 . 2 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℕ)
202 prmnn 16118 . . . . . . . 8 (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
203202ad2antrl 728 . . . . . . 7 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∈ ℕ)
204203nnred 11734 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∈ ℝ)
205157adantr 484 . . . . . . . . 9 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ)
206205zred 12171 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℝ)
207 peano2zm 12109 . . . . . . . . . . 11 (𝑀 ∈ ℤ → (𝑀 − 1) ∈ ℤ)
2088, 207syl 17 . . . . . . . . . 10 (𝜑 → (𝑀 − 1) ∈ ℤ)
209208zred 12171 . . . . . . . . 9 (𝜑 → (𝑀 − 1) ∈ ℝ)
210209adantr 484 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑀 − 1) ∈ ℝ)
211 simprr 773 . . . . . . . . 9 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))
212 prmz 16119 . . . . . . . . . . 11 (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
213212ad2antrl 728 . . . . . . . . . 10 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∈ ℤ)
214201adantr 484 . . . . . . . . . 10 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℕ)
215 dvdsle 15758 . . . . . . . . . 10 ((𝑝 ∈ ℤ ∧ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℕ) → (𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) → 𝑝 ≤ (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
216213, 214, 215syl2anc 587 . . . . . . . . 9 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) → 𝑝 ≤ (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
217211, 216mpd 15 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ≤ (((𝐸↑2) + (𝐹↑2)) / 𝑀))
218 zsqcl 13589 . . . . . . . . . . . . . . . 16 (𝑀 ∈ ℤ → (𝑀↑2) ∈ ℤ)
2198, 218syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (𝑀↑2) ∈ ℤ)
220219zred 12171 . . . . . . . . . . . . . 14 (𝜑 → (𝑀↑2) ∈ ℝ)
221220rehalfcld 11966 . . . . . . . . . . . . 13 (𝜑 → ((𝑀↑2) / 2) ∈ ℝ)
22216zred 12171 . . . . . . . . . . . . . . 15 (𝜑 → (𝐶↑2) ∈ ℝ)
22322zred 12171 . . . . . . . . . . . . . . 15 (𝜑 → (𝐷↑2) ∈ ℝ)
224222, 223readdcld 10751 . . . . . . . . . . . . . 14 (𝜑 → ((𝐶↑2) + (𝐷↑2)) ∈ ℝ)
225 1red 10723 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ∈ ℝ)
22648nnsqcld 13700 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℕ)
227226nnred 11734 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐶 gcd 𝐷)↑2) ∈ ℝ)
228150nn0ge0d 12042 . . . . . . . . . . . . . . . 16 (𝜑 → 0 ≤ ((𝐸↑2) + (𝐹↑2)))
229226nnge1d 11767 . . . . . . . . . . . . . . . 16 (𝜑 → 1 ≤ ((𝐶 gcd 𝐷)↑2))
230225, 227, 160, 228, 229lemul1ad 11660 . . . . . . . . . . . . . . 15 (𝜑 → (1 · ((𝐸↑2) + (𝐹↑2))) ≤ (((𝐶 gcd 𝐷)↑2) · ((𝐸↑2) + (𝐹↑2))))
231150nn0cnd 12041 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ ℂ)
232231mulid2d 10740 . . . . . . . . . . . . . . 15 (𝜑 → (1 · ((𝐸↑2) + (𝐹↑2))) = ((𝐸↑2) + (𝐹↑2)))
233230, 232, 933brtr3d 5062 . . . . . . . . . . . . . 14 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((𝐶↑2) + (𝐷↑2)))
234221rehalfcld 11966 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝑀↑2) / 2) / 2) ∈ ℝ)
23511, 5, 124sqlem7 16383 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐶↑2) ≤ (((𝑀↑2) / 2) / 2))
23617, 5, 184sqlem7 16383 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐷↑2) ≤ (((𝑀↑2) / 2) / 2))
237222, 223, 234, 234, 235, 236le2addd 11340 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐶↑2) + (𝐷↑2)) ≤ ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)))
238221recnd 10750 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑀↑2) / 2) ∈ ℂ)
2392382halvesd 11965 . . . . . . . . . . . . . . 15 (𝜑 → ((((𝑀↑2) / 2) / 2) + (((𝑀↑2) / 2) / 2)) = ((𝑀↑2) / 2))
240237, 239breqtrd 5057 . . . . . . . . . . . . . 14 (𝜑 → ((𝐶↑2) + (𝐷↑2)) ≤ ((𝑀↑2) / 2))
241160, 224, 221, 233, 240letrd 10878 . . . . . . . . . . . . 13 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ≤ ((𝑀↑2) / 2))
2425nnsqcld 13700 . . . . . . . . . . . . . . 15 (𝜑 → (𝑀↑2) ∈ ℕ)
243242nnrpd 12515 . . . . . . . . . . . . . 14 (𝜑 → (𝑀↑2) ∈ ℝ+)
244 rphalflt 12504 . . . . . . . . . . . . . 14 ((𝑀↑2) ∈ ℝ+ → ((𝑀↑2) / 2) < (𝑀↑2))
245243, 244syl 17 . . . . . . . . . . . . 13 (𝜑 → ((𝑀↑2) / 2) < (𝑀↑2))
246160, 221, 220, 241, 245lelttrd 10879 . . . . . . . . . . . 12 (𝜑 → ((𝐸↑2) + (𝐹↑2)) < (𝑀↑2))
2478zcnd 12172 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ ℂ)
248247sqvald 13602 . . . . . . . . . . . 12 (𝜑 → (𝑀↑2) = (𝑀 · 𝑀))
249246, 248breqtrd 5057 . . . . . . . . . . 11 (𝜑 → ((𝐸↑2) + (𝐹↑2)) < (𝑀 · 𝑀))
250 ltdivmul 11596 . . . . . . . . . . . 12 ((((𝐸↑2) + (𝐹↑2)) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀)) → ((((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀 ↔ ((𝐸↑2) + (𝐹↑2)) < (𝑀 · 𝑀)))
251160, 161, 161, 198, 250syl112anc 1375 . . . . . . . . . . 11 (𝜑 → ((((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀 ↔ ((𝐸↑2) + (𝐹↑2)) < (𝑀 · 𝑀)))
252249, 251mpbird 260 . . . . . . . . . 10 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀)
253 zltlem1 12119 . . . . . . . . . . 11 (((((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ ∧ 𝑀 ∈ ℤ) → ((((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ≤ (𝑀 − 1)))
254157, 8, 253syl2anc 587 . . . . . . . . . 10 (𝜑 → ((((𝐸↑2) + (𝐹↑2)) / 𝑀) < 𝑀 ↔ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ≤ (𝑀 − 1)))
255252, 254mpbid 235 . . . . . . . . 9 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ≤ (𝑀 − 1))
256255adantr 484 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ≤ (𝑀 − 1))
257204, 206, 210, 217, 256letrd 10878 . . . . . . 7 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ≤ (𝑀 − 1))
258208adantr 484 . . . . . . . 8 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑀 − 1) ∈ ℤ)
259 fznn 13069 . . . . . . . 8 ((𝑀 − 1) ∈ ℤ → (𝑝 ∈ (1...(𝑀 − 1)) ↔ (𝑝 ∈ ℕ ∧ 𝑝 ≤ (𝑀 − 1))))
260258, 259syl 17 . . . . . . 7 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑝 ∈ (1...(𝑀 − 1)) ↔ (𝑝 ∈ ℕ ∧ 𝑝 ≤ (𝑀 − 1))))
261203, 257, 260mpbir2and 713 . . . . . 6 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∈ (1...(𝑀 − 1)))
262195adantr 484 . . . . . 6 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → ((𝐸↑2) + (𝐹↑2)) ∈ 𝑌)
263261, 262jca 515 . . . . 5 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (𝑝 ∈ (1...(𝑀 − 1)) ∧ ((𝐸↑2) + (𝐹↑2)) ∈ 𝑌))
26446adantr 484 . . . . 5 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → ∀𝑏 ∈ (1...(𝑀 − 1))∀𝑎𝑌 (𝑏𝑎𝑏𝑆))
265151adantr 484 . . . . . 6 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → ((𝐸↑2) + (𝐹↑2)) ∈ ℤ)
266 dvdsmul2 15727 . . . . . . . . 9 ((𝑀 ∈ ℤ ∧ (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∈ ℤ) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ (𝑀 · (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
2678, 157, 266syl2anc 587 . . . . . . . 8 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ (𝑀 · (((𝐸↑2) + (𝐹↑2)) / 𝑀)))
268231, 247, 107divcan2d 11499 . . . . . . . 8 (𝜑 → (𝑀 · (((𝐸↑2) + (𝐹↑2)) / 𝑀)) = ((𝐸↑2) + (𝐹↑2)))
269267, 268breqtrd 5057 . . . . . . 7 (𝜑 → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ ((𝐸↑2) + (𝐹↑2)))
270269adantr 484 . . . . . 6 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → (((𝐸↑2) + (𝐹↑2)) / 𝑀) ∥ ((𝐸↑2) + (𝐹↑2)))
271213, 205, 265, 211, 270dvdstrd 15743 . . . . 5 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝 ∥ ((𝐸↑2) + (𝐹↑2)))
272 breq1 5034 . . . . . . 7 (𝑏 = 𝑝 → (𝑏𝑎𝑝𝑎))
273 eleq1w 2816 . . . . . . 7 (𝑏 = 𝑝 → (𝑏𝑆𝑝𝑆))
274272, 273imbi12d 348 . . . . . 6 (𝑏 = 𝑝 → ((𝑏𝑎𝑏𝑆) ↔ (𝑝𝑎𝑝𝑆)))
275 breq2 5035 . . . . . . 7 (𝑎 = ((𝐸↑2) + (𝐹↑2)) → (𝑝𝑎𝑝 ∥ ((𝐸↑2) + (𝐹↑2))))
276275imbi1d 345 . . . . . 6 (𝑎 = ((𝐸↑2) + (𝐹↑2)) → ((𝑝𝑎𝑝𝑆) ↔ (𝑝 ∥ ((𝐸↑2) + (𝐹↑2)) → 𝑝𝑆)))
277274, 276rspc2v 3537 . . . . 5 ((𝑝 ∈ (1...(𝑀 − 1)) ∧ ((𝐸↑2) + (𝐹↑2)) ∈ 𝑌) → (∀𝑏 ∈ (1...(𝑀 − 1))∀𝑎𝑌 (𝑏𝑎𝑏𝑆) → (𝑝 ∥ ((𝐸↑2) + (𝐹↑2)) → 𝑝𝑆)))
278263, 264, 271, 277syl3c 66 . . . 4 ((𝜑 ∧ (𝑝 ∈ ℙ ∧ 𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀))) → 𝑝𝑆)
279278expr 460 . . 3 ((𝜑𝑝 ∈ ℙ) → (𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) → 𝑝𝑆))
280279ralrimiva 3097 . 2 (𝜑 → ∀𝑝 ∈ ℙ (𝑝 ∥ (((𝐸↑2) + (𝐹↑2)) / 𝑀) → 𝑝𝑆))
281 inss1 4120 . . . . 5 (𝑆 ∩ ℕ) ⊆ 𝑆
282162, 281sstri 3887 . . . 4 𝑌𝑆
283282, 195sseldi 3876 . . 3 (𝜑 → ((𝐸↑2) + (𝐹↑2)) ∈ 𝑆)
284268, 283eqeltrd 2834 . 2 (𝜑 → (𝑀 · (((𝐸↑2) + (𝐹↑2)) / 𝑀)) ∈ 𝑆)
2851, 5, 201, 280, 2842sqlem6 26162 1 (𝜑𝑀𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399   = wceq 1542  wcel 2114  {cab 2717  wne 2935  wral 3054  wrex 3055  cin 3843   class class class wbr 5031  cmpt 5111  ran crn 5527  cfv 6340  (class class class)co 7173  cr 10617  0cc0 10618  1c1 10619   + caddc 10621   · cmul 10623   < clt 10756  cle 10757  cmin 10951   / cdiv 11378  cn 11719  2c2 11774  0cn0 11979  cz 12065  cuz 12327  +crp 12475  ...cfz 12984   mod cmo 13331  cexp 13524  abscabs 14686  cdvds 15702   gcd cgcd 15940  cprime 16115  ℤ[i]cgz 16368
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2711  ax-sep 5168  ax-nul 5175  ax-pow 5233  ax-pr 5297  ax-un 7482  ax-cnex 10674  ax-resscn 10675  ax-1cn 10676  ax-icn 10677  ax-addcl 10678  ax-addrcl 10679  ax-mulcl 10680  ax-mulrcl 10681  ax-mulcom 10682  ax-addass 10683  ax-mulass 10684  ax-distr 10685  ax-i2m1 10686  ax-1ne0 10687  ax-1rid 10688  ax-rnegex 10689  ax-rrecex 10690  ax-cnre 10691  ax-pre-lttri 10692  ax-pre-lttrn 10693  ax-pre-ltadd 10694  ax-pre-mulgt0 10695  ax-pre-sup 10696
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2541  df-eu 2571  df-clab 2718  df-cleq 2731  df-clel 2812  df-nfc 2882  df-ne 2936  df-nel 3040  df-ral 3059  df-rex 3060  df-reu 3061  df-rmo 3062  df-rab 3063  df-v 3401  df-sbc 3682  df-csb 3792  df-dif 3847  df-un 3849  df-in 3851  df-ss 3861  df-pss 3863  df-nul 4213  df-if 4416  df-pw 4491  df-sn 4518  df-pr 4520  df-tp 4522  df-op 4524  df-uni 4798  df-iun 4884  df-br 5032  df-opab 5094  df-mpt 5112  df-tr 5138  df-id 5430  df-eprel 5435  df-po 5443  df-so 5444  df-fr 5484  df-we 5486  df-xp 5532  df-rel 5533  df-cnv 5534  df-co 5535  df-dm 5536  df-rn 5537  df-res 5538  df-ima 5539  df-pred 6130  df-ord 6176  df-on 6177  df-lim 6178  df-suc 6179  df-iota 6298  df-fun 6342  df-fn 6343  df-f 6344  df-f1 6345  df-fo 6346  df-f1o 6347  df-fv 6348  df-riota 7130  df-ov 7176  df-oprab 7177  df-mpo 7178  df-om 7603  df-1st 7717  df-2nd 7718  df-wrecs 7979  df-recs 8040  df-rdg 8078  df-1o 8134  df-2o 8135  df-er 8323  df-en 8559  df-dom 8560  df-sdom 8561  df-fin 8562  df-sup 8982  df-inf 8983  df-pnf 10758  df-mnf 10759  df-xr 10760  df-ltxr 10761  df-le 10762  df-sub 10953  df-neg 10954  df-div 11379  df-nn 11720  df-2 11782  df-3 11783  df-n0 11980  df-z 12066  df-uz 12328  df-rp 12476  df-fz 12985  df-fl 13256  df-mod 13332  df-seq 13464  df-exp 13525  df-cj 14551  df-re 14552  df-im 14553  df-sqrt 14687  df-abs 14688  df-dvds 15703  df-gcd 15941  df-prm 16116  df-gz 16369
This theorem is referenced by:  2sqlem9  26166
  Copyright terms: Public domain W3C validator