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

Theorem 4sqlem17 16299
Description: Lemma for 4sq 16302. (Contributed by Mario Carneiro, 16-Jul-2014.) (Revised by AV, 14-Sep-2020.)
Hypotheses
Ref Expression
4sq.1 𝑆 = {𝑛 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℤ 𝑛 = (((𝑥↑2) + (𝑦↑2)) + ((𝑧↑2) + (𝑤↑2)))}
4sq.2 (𝜑𝑁 ∈ ℕ)
4sq.3 (𝜑𝑃 = ((2 · 𝑁) + 1))
4sq.4 (𝜑𝑃 ∈ ℙ)
4sq.5 (𝜑 → (0...(2 · 𝑁)) ⊆ 𝑆)
4sq.6 𝑇 = {𝑖 ∈ ℕ ∣ (𝑖 · 𝑃) ∈ 𝑆}
4sq.7 𝑀 = inf(𝑇, ℝ, < )
4sq.m (𝜑𝑀 ∈ (ℤ‘2))
4sq.a (𝜑𝐴 ∈ ℤ)
4sq.b (𝜑𝐵 ∈ ℤ)
4sq.c (𝜑𝐶 ∈ ℤ)
4sq.d (𝜑𝐷 ∈ ℤ)
4sq.e 𝐸 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sq.f 𝐹 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sq.g 𝐺 = (((𝐶 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sq.h 𝐻 = (((𝐷 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
4sq.r 𝑅 = ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀)
4sq.p (𝜑 → (𝑀 · 𝑃) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
Assertion
Ref Expression
4sqlem17 ¬ 𝜑
Distinct variable groups:   𝑤,𝑛,𝑥,𝑦,𝑧   𝐵,𝑛   𝑛,𝐸   𝑛,𝐺   𝑛,𝐻   𝐴,𝑛   𝐶,𝑛   𝐷,𝑛   𝑛,𝐹   𝑖,𝑛,𝑀   𝑛,𝑁   𝑃,𝑖,𝑛   𝜑,𝑛   𝑆,𝑖,𝑛   𝑅,𝑖
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑤,𝑖)   𝐴(𝑥,𝑦,𝑧,𝑤,𝑖)   𝐵(𝑥,𝑦,𝑧,𝑤,𝑖)   𝐶(𝑥,𝑦,𝑧,𝑤,𝑖)   𝐷(𝑥,𝑦,𝑧,𝑤,𝑖)   𝑃(𝑥,𝑦,𝑧,𝑤)   𝑅(𝑥,𝑦,𝑧,𝑤,𝑛)   𝑆(𝑥,𝑦,𝑧,𝑤)   𝑇(𝑥,𝑦,𝑧,𝑤,𝑖,𝑛)   𝐸(𝑥,𝑦,𝑧,𝑤,𝑖)   𝐹(𝑥,𝑦,𝑧,𝑤,𝑖)   𝐺(𝑥,𝑦,𝑧,𝑤,𝑖)   𝐻(𝑥,𝑦,𝑧,𝑤,𝑖)   𝑀(𝑥,𝑦,𝑧,𝑤)   𝑁(𝑥,𝑦,𝑧,𝑤,𝑖)

Proof of Theorem 4sqlem17
StepHypRef Expression
1 4sq.1 . . . . . . 7 𝑆 = {𝑛 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ∃𝑧 ∈ ℤ ∃𝑤 ∈ ℤ 𝑛 = (((𝑥↑2) + (𝑦↑2)) + ((𝑧↑2) + (𝑤↑2)))}
2 4sq.2 . . . . . . 7 (𝜑𝑁 ∈ ℕ)
3 4sq.3 . . . . . . 7 (𝜑𝑃 = ((2 · 𝑁) + 1))
4 4sq.4 . . . . . . 7 (𝜑𝑃 ∈ ℙ)
5 4sq.5 . . . . . . 7 (𝜑 → (0...(2 · 𝑁)) ⊆ 𝑆)
6 4sq.6 . . . . . . 7 𝑇 = {𝑖 ∈ ℕ ∣ (𝑖 · 𝑃) ∈ 𝑆}
7 4sq.7 . . . . . . 7 𝑀 = inf(𝑇, ℝ, < )
8 4sq.m . . . . . . 7 (𝜑𝑀 ∈ (ℤ‘2))
9 4sq.a . . . . . . 7 (𝜑𝐴 ∈ ℤ)
10 4sq.b . . . . . . 7 (𝜑𝐵 ∈ ℤ)
11 4sq.c . . . . . . 7 (𝜑𝐶 ∈ ℤ)
12 4sq.d . . . . . . 7 (𝜑𝐷 ∈ ℤ)
13 4sq.e . . . . . . 7 𝐸 = (((𝐴 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
14 4sq.f . . . . . . 7 𝐹 = (((𝐵 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
15 4sq.g . . . . . . 7 𝐺 = (((𝐶 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
16 4sq.h . . . . . . 7 𝐻 = (((𝐷 + (𝑀 / 2)) mod 𝑀) − (𝑀 / 2))
17 4sq.r . . . . . . 7 𝑅 = ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀)
18 4sq.p . . . . . . 7 (𝜑 → (𝑀 · 𝑃) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
191, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 184sqlem16 16298 . . . . . 6 (𝜑 → (𝑅𝑀 ∧ ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃))))
2019simpld 497 . . . . 5 (𝜑𝑅𝑀)
216ssrab3 4059 . . . . . . . 8 𝑇 ⊆ ℕ
22 nnuz 12284 . . . . . . . 8 ℕ = (ℤ‘1)
2321, 22sseqtri 4005 . . . . . . 7 𝑇 ⊆ (ℤ‘1)
241, 2, 3, 4, 5, 6, 74sqlem13 16295 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑇 ≠ ∅ ∧ 𝑀 < 𝑃))
2524simpld 497 . . . . . . . . . . . . . . 15 (𝜑𝑇 ≠ ∅)
26 infssuzcl 12335 . . . . . . . . . . . . . . 15 ((𝑇 ⊆ (ℤ‘1) ∧ 𝑇 ≠ ∅) → inf(𝑇, ℝ, < ) ∈ 𝑇)
2723, 25, 26sylancr 589 . . . . . . . . . . . . . 14 (𝜑 → inf(𝑇, ℝ, < ) ∈ 𝑇)
287, 27eqeltrid 2919 . . . . . . . . . . . . 13 (𝜑𝑀𝑇)
2921, 28sseldi 3967 . . . . . . . . . . . 12 (𝜑𝑀 ∈ ℕ)
3029nnred 11655 . . . . . . . . . . 11 (𝜑𝑀 ∈ ℝ)
3124simprd 498 . . . . . . . . . . 11 (𝜑𝑀 < 𝑃)
3230, 31ltned 10778 . . . . . . . . . 10 (𝜑𝑀𝑃)
3329nncnd 11656 . . . . . . . . . . . . . 14 (𝜑𝑀 ∈ ℂ)
3433sqvald 13510 . . . . . . . . . . . . 13 (𝜑 → (𝑀↑2) = (𝑀 · 𝑀))
3534breq1d 5078 . . . . . . . . . . . 12 (𝜑 → ((𝑀↑2) ∥ (𝑀 · 𝑃) ↔ (𝑀 · 𝑀) ∥ (𝑀 · 𝑃)))
3629nnzd 12089 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ ℤ)
37 prmz 16021 . . . . . . . . . . . . . 14 (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
384, 37syl 17 . . . . . . . . . . . . 13 (𝜑𝑃 ∈ ℤ)
3929nnne0d 11690 . . . . . . . . . . . . 13 (𝜑𝑀 ≠ 0)
40 dvdscmulr 15640 . . . . . . . . . . . . 13 ((𝑀 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑀 ∈ ℤ ∧ 𝑀 ≠ 0)) → ((𝑀 · 𝑀) ∥ (𝑀 · 𝑃) ↔ 𝑀𝑃))
4136, 38, 36, 39, 40syl112anc 1370 . . . . . . . . . . . 12 (𝜑 → ((𝑀 · 𝑀) ∥ (𝑀 · 𝑃) ↔ 𝑀𝑃))
42 dvdsprm 16049 . . . . . . . . . . . . 13 ((𝑀 ∈ (ℤ‘2) ∧ 𝑃 ∈ ℙ) → (𝑀𝑃𝑀 = 𝑃))
438, 4, 42syl2anc 586 . . . . . . . . . . . 12 (𝜑 → (𝑀𝑃𝑀 = 𝑃))
4435, 41, 433bitrd 307 . . . . . . . . . . 11 (𝜑 → ((𝑀↑2) ∥ (𝑀 · 𝑃) ↔ 𝑀 = 𝑃))
4544necon3bbid 3055 . . . . . . . . . 10 (𝜑 → (¬ (𝑀↑2) ∥ (𝑀 · 𝑃) ↔ 𝑀𝑃))
4632, 45mpbird 259 . . . . . . . . 9 (𝜑 → ¬ (𝑀↑2) ∥ (𝑀 · 𝑃))
471, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 184sqlem14 16296 . . . . . . . . . . . 12 (𝜑𝑅 ∈ ℕ0)
48 elnn0 11902 . . . . . . . . . . . 12 (𝑅 ∈ ℕ0 ↔ (𝑅 ∈ ℕ ∨ 𝑅 = 0))
4947, 48sylib 220 . . . . . . . . . . 11 (𝜑 → (𝑅 ∈ ℕ ∨ 𝑅 = 0))
5049ord 860 . . . . . . . . . 10 (𝜑 → (¬ 𝑅 ∈ ℕ → 𝑅 = 0))
51 orc 863 . . . . . . . . . . 11 (𝑅 = 0 → (𝑅 = 0 ∨ 𝑅 = 𝑀))
5219simprd 498 . . . . . . . . . . 11 (𝜑 → ((𝑅 = 0 ∨ 𝑅 = 𝑀) → (𝑀↑2) ∥ (𝑀 · 𝑃)))
5351, 52syl5 34 . . . . . . . . . 10 (𝜑 → (𝑅 = 0 → (𝑀↑2) ∥ (𝑀 · 𝑃)))
5450, 53syld 47 . . . . . . . . 9 (𝜑 → (¬ 𝑅 ∈ ℕ → (𝑀↑2) ∥ (𝑀 · 𝑃)))
5546, 54mt3d 150 . . . . . . . 8 (𝜑𝑅 ∈ ℕ)
56 gzreim 16277 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐴 + (i · 𝐵)) ∈ ℤ[i])
579, 10, 56syl2anc 586 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐴 + (i · 𝐵)) ∈ ℤ[i])
58 gzcn 16270 . . . . . . . . . . . . . . . . . 18 ((𝐴 + (i · 𝐵)) ∈ ℤ[i] → (𝐴 + (i · 𝐵)) ∈ ℂ)
5957, 58syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐴 + (i · 𝐵)) ∈ ℂ)
6059absvalsq2d 14805 . . . . . . . . . . . . . . . 16 (𝜑 → ((abs‘(𝐴 + (i · 𝐵)))↑2) = (((ℜ‘(𝐴 + (i · 𝐵)))↑2) + ((ℑ‘(𝐴 + (i · 𝐵)))↑2)))
619zred 12090 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐴 ∈ ℝ)
6210zred 12090 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐵 ∈ ℝ)
6361, 62crred 14592 . . . . . . . . . . . . . . . . . 18 (𝜑 → (ℜ‘(𝐴 + (i · 𝐵))) = 𝐴)
6463oveq1d 7173 . . . . . . . . . . . . . . . . 17 (𝜑 → ((ℜ‘(𝐴 + (i · 𝐵)))↑2) = (𝐴↑2))
6561, 62crimd 14593 . . . . . . . . . . . . . . . . . 18 (𝜑 → (ℑ‘(𝐴 + (i · 𝐵))) = 𝐵)
6665oveq1d 7173 . . . . . . . . . . . . . . . . 17 (𝜑 → ((ℑ‘(𝐴 + (i · 𝐵)))↑2) = (𝐵↑2))
6764, 66oveq12d 7176 . . . . . . . . . . . . . . . 16 (𝜑 → (((ℜ‘(𝐴 + (i · 𝐵)))↑2) + ((ℑ‘(𝐴 + (i · 𝐵)))↑2)) = ((𝐴↑2) + (𝐵↑2)))
6860, 67eqtrd 2858 . . . . . . . . . . . . . . 15 (𝜑 → ((abs‘(𝐴 + (i · 𝐵)))↑2) = ((𝐴↑2) + (𝐵↑2)))
69 gzreim 16277 . . . . . . . . . . . . . . . . . . 19 ((𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (𝐶 + (i · 𝐷)) ∈ ℤ[i])
7011, 12, 69syl2anc 586 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐶 + (i · 𝐷)) ∈ ℤ[i])
71 gzcn 16270 . . . . . . . . . . . . . . . . . 18 ((𝐶 + (i · 𝐷)) ∈ ℤ[i] → (𝐶 + (i · 𝐷)) ∈ ℂ)
7270, 71syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐶 + (i · 𝐷)) ∈ ℂ)
7372absvalsq2d 14805 . . . . . . . . . . . . . . . 16 (𝜑 → ((abs‘(𝐶 + (i · 𝐷)))↑2) = (((ℜ‘(𝐶 + (i · 𝐷)))↑2) + ((ℑ‘(𝐶 + (i · 𝐷)))↑2)))
7411zred 12090 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐶 ∈ ℝ)
7512zred 12090 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐷 ∈ ℝ)
7674, 75crred 14592 . . . . . . . . . . . . . . . . . 18 (𝜑 → (ℜ‘(𝐶 + (i · 𝐷))) = 𝐶)
7776oveq1d 7173 . . . . . . . . . . . . . . . . 17 (𝜑 → ((ℜ‘(𝐶 + (i · 𝐷)))↑2) = (𝐶↑2))
7874, 75crimd 14593 . . . . . . . . . . . . . . . . . 18 (𝜑 → (ℑ‘(𝐶 + (i · 𝐷))) = 𝐷)
7978oveq1d 7173 . . . . . . . . . . . . . . . . 17 (𝜑 → ((ℑ‘(𝐶 + (i · 𝐷)))↑2) = (𝐷↑2))
8077, 79oveq12d 7176 . . . . . . . . . . . . . . . 16 (𝜑 → (((ℜ‘(𝐶 + (i · 𝐷)))↑2) + ((ℑ‘(𝐶 + (i · 𝐷)))↑2)) = ((𝐶↑2) + (𝐷↑2)))
8173, 80eqtrd 2858 . . . . . . . . . . . . . . 15 (𝜑 → ((abs‘(𝐶 + (i · 𝐷)))↑2) = ((𝐶↑2) + (𝐷↑2)))
8268, 81oveq12d 7176 . . . . . . . . . . . . . 14 (𝜑 → (((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)) = (((𝐴↑2) + (𝐵↑2)) + ((𝐶↑2) + (𝐷↑2))))
8318, 82eqtr4d 2861 . . . . . . . . . . . . 13 (𝜑 → (𝑀 · 𝑃) = (((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)))
8483oveq1d 7173 . . . . . . . . . . . 12 (𝜑 → ((𝑀 · 𝑃) / 𝑀) = ((((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)) / 𝑀))
85 prmnn 16020 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
864, 85syl 17 . . . . . . . . . . . . . 14 (𝜑𝑃 ∈ ℕ)
8786nncnd 11656 . . . . . . . . . . . . 13 (𝜑𝑃 ∈ ℂ)
8887, 33, 39divcan3d 11423 . . . . . . . . . . . 12 (𝜑 → ((𝑀 · 𝑃) / 𝑀) = 𝑃)
8984, 88eqtr3d 2860 . . . . . . . . . . 11 (𝜑 → ((((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)) / 𝑀) = 𝑃)
909, 29, 134sqlem5 16280 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐸 ∈ ℤ ∧ ((𝐴𝐸) / 𝑀) ∈ ℤ))
9190simpld 497 . . . . . . . . . . . . . . . . . 18 (𝜑𝐸 ∈ ℤ)
9210, 29, 144sqlem5 16280 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐹 ∈ ℤ ∧ ((𝐵𝐹) / 𝑀) ∈ ℤ))
9392simpld 497 . . . . . . . . . . . . . . . . . 18 (𝜑𝐹 ∈ ℤ)
94 gzreim 16277 . . . . . . . . . . . . . . . . . 18 ((𝐸 ∈ ℤ ∧ 𝐹 ∈ ℤ) → (𝐸 + (i · 𝐹)) ∈ ℤ[i])
9591, 93, 94syl2anc 586 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐸 + (i · 𝐹)) ∈ ℤ[i])
96 gzcn 16270 . . . . . . . . . . . . . . . . 17 ((𝐸 + (i · 𝐹)) ∈ ℤ[i] → (𝐸 + (i · 𝐹)) ∈ ℂ)
9795, 96syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐸 + (i · 𝐹)) ∈ ℂ)
9897absvalsq2d 14805 . . . . . . . . . . . . . . 15 (𝜑 → ((abs‘(𝐸 + (i · 𝐹)))↑2) = (((ℜ‘(𝐸 + (i · 𝐹)))↑2) + ((ℑ‘(𝐸 + (i · 𝐹)))↑2)))
9991zred 12090 . . . . . . . . . . . . . . . . . 18 (𝜑𝐸 ∈ ℝ)
10093zred 12090 . . . . . . . . . . . . . . . . . 18 (𝜑𝐹 ∈ ℝ)
10199, 100crred 14592 . . . . . . . . . . . . . . . . 17 (𝜑 → (ℜ‘(𝐸 + (i · 𝐹))) = 𝐸)
102101oveq1d 7173 . . . . . . . . . . . . . . . 16 (𝜑 → ((ℜ‘(𝐸 + (i · 𝐹)))↑2) = (𝐸↑2))
10399, 100crimd 14593 . . . . . . . . . . . . . . . . 17 (𝜑 → (ℑ‘(𝐸 + (i · 𝐹))) = 𝐹)
104103oveq1d 7173 . . . . . . . . . . . . . . . 16 (𝜑 → ((ℑ‘(𝐸 + (i · 𝐹)))↑2) = (𝐹↑2))
105102, 104oveq12d 7176 . . . . . . . . . . . . . . 15 (𝜑 → (((ℜ‘(𝐸 + (i · 𝐹)))↑2) + ((ℑ‘(𝐸 + (i · 𝐹)))↑2)) = ((𝐸↑2) + (𝐹↑2)))
10698, 105eqtrd 2858 . . . . . . . . . . . . . 14 (𝜑 → ((abs‘(𝐸 + (i · 𝐹)))↑2) = ((𝐸↑2) + (𝐹↑2)))
10711, 29, 154sqlem5 16280 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐺 ∈ ℤ ∧ ((𝐶𝐺) / 𝑀) ∈ ℤ))
108107simpld 497 . . . . . . . . . . . . . . . . . 18 (𝜑𝐺 ∈ ℤ)
10912, 29, 164sqlem5 16280 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐻 ∈ ℤ ∧ ((𝐷𝐻) / 𝑀) ∈ ℤ))
110109simpld 497 . . . . . . . . . . . . . . . . . 18 (𝜑𝐻 ∈ ℤ)
111 gzreim 16277 . . . . . . . . . . . . . . . . . 18 ((𝐺 ∈ ℤ ∧ 𝐻 ∈ ℤ) → (𝐺 + (i · 𝐻)) ∈ ℤ[i])
112108, 110, 111syl2anc 586 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐺 + (i · 𝐻)) ∈ ℤ[i])
113 gzcn 16270 . . . . . . . . . . . . . . . . 17 ((𝐺 + (i · 𝐻)) ∈ ℤ[i] → (𝐺 + (i · 𝐻)) ∈ ℂ)
114112, 113syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐺 + (i · 𝐻)) ∈ ℂ)
115114absvalsq2d 14805 . . . . . . . . . . . . . . 15 (𝜑 → ((abs‘(𝐺 + (i · 𝐻)))↑2) = (((ℜ‘(𝐺 + (i · 𝐻)))↑2) + ((ℑ‘(𝐺 + (i · 𝐻)))↑2)))
116108zred 12090 . . . . . . . . . . . . . . . . . 18 (𝜑𝐺 ∈ ℝ)
117110zred 12090 . . . . . . . . . . . . . . . . . 18 (𝜑𝐻 ∈ ℝ)
118116, 117crred 14592 . . . . . . . . . . . . . . . . 17 (𝜑 → (ℜ‘(𝐺 + (i · 𝐻))) = 𝐺)
119118oveq1d 7173 . . . . . . . . . . . . . . . 16 (𝜑 → ((ℜ‘(𝐺 + (i · 𝐻)))↑2) = (𝐺↑2))
120116, 117crimd 14593 . . . . . . . . . . . . . . . . 17 (𝜑 → (ℑ‘(𝐺 + (i · 𝐻))) = 𝐻)
121120oveq1d 7173 . . . . . . . . . . . . . . . 16 (𝜑 → ((ℑ‘(𝐺 + (i · 𝐻)))↑2) = (𝐻↑2))
122119, 121oveq12d 7176 . . . . . . . . . . . . . . 15 (𝜑 → (((ℜ‘(𝐺 + (i · 𝐻)))↑2) + ((ℑ‘(𝐺 + (i · 𝐻)))↑2)) = ((𝐺↑2) + (𝐻↑2)))
123115, 122eqtrd 2858 . . . . . . . . . . . . . 14 (𝜑 → ((abs‘(𝐺 + (i · 𝐻)))↑2) = ((𝐺↑2) + (𝐻↑2)))
124106, 123oveq12d 7176 . . . . . . . . . . . . 13 (𝜑 → (((abs‘(𝐸 + (i · 𝐹)))↑2) + ((abs‘(𝐺 + (i · 𝐻)))↑2)) = (((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))))
125124oveq1d 7173 . . . . . . . . . . . 12 (𝜑 → ((((abs‘(𝐸 + (i · 𝐹)))↑2) + ((abs‘(𝐺 + (i · 𝐻)))↑2)) / 𝑀) = ((((𝐸↑2) + (𝐹↑2)) + ((𝐺↑2) + (𝐻↑2))) / 𝑀))
126125, 17syl6eqr 2876 . . . . . . . . . . 11 (𝜑 → ((((abs‘(𝐸 + (i · 𝐹)))↑2) + ((abs‘(𝐺 + (i · 𝐻)))↑2)) / 𝑀) = 𝑅)
12789, 126oveq12d 7176 . . . . . . . . . 10 (𝜑 → (((((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)) / 𝑀) · ((((abs‘(𝐸 + (i · 𝐹)))↑2) + ((abs‘(𝐺 + (i · 𝐻)))↑2)) / 𝑀)) = (𝑃 · 𝑅))
12855nncnd 11656 . . . . . . . . . . 11 (𝜑𝑅 ∈ ℂ)
12987, 128mulcomd 10664 . . . . . . . . . 10 (𝜑 → (𝑃 · 𝑅) = (𝑅 · 𝑃))
130127, 129eqtrd 2858 . . . . . . . . 9 (𝜑 → (((((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)) / 𝑀) · ((((abs‘(𝐸 + (i · 𝐹)))↑2) + ((abs‘(𝐺 + (i · 𝐻)))↑2)) / 𝑀)) = (𝑅 · 𝑃))
131 eqid 2823 . . . . . . . . . 10 (((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)) = (((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2))
132 eqid 2823 . . . . . . . . . 10 (((abs‘(𝐸 + (i · 𝐹)))↑2) + ((abs‘(𝐺 + (i · 𝐻)))↑2)) = (((abs‘(𝐸 + (i · 𝐹)))↑2) + ((abs‘(𝐺 + (i · 𝐻)))↑2))
1339zcnd 12091 . . . . . . . . . . . . . . 15 (𝜑𝐴 ∈ ℂ)
134 ax-icn 10598 . . . . . . . . . . . . . . . 16 i ∈ ℂ
13510zcnd 12091 . . . . . . . . . . . . . . . 16 (𝜑𝐵 ∈ ℂ)
136 mulcl 10623 . . . . . . . . . . . . . . . 16 ((i ∈ ℂ ∧ 𝐵 ∈ ℂ) → (i · 𝐵) ∈ ℂ)
137134, 135, 136sylancr 589 . . . . . . . . . . . . . . 15 (𝜑 → (i · 𝐵) ∈ ℂ)
13891zcnd 12091 . . . . . . . . . . . . . . 15 (𝜑𝐸 ∈ ℂ)
13993zcnd 12091 . . . . . . . . . . . . . . . 16 (𝜑𝐹 ∈ ℂ)
140 mulcl 10623 . . . . . . . . . . . . . . . 16 ((i ∈ ℂ ∧ 𝐹 ∈ ℂ) → (i · 𝐹) ∈ ℂ)
141134, 139, 140sylancr 589 . . . . . . . . . . . . . . 15 (𝜑 → (i · 𝐹) ∈ ℂ)
142133, 137, 138, 141addsub4d 11046 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴 + (i · 𝐵)) − (𝐸 + (i · 𝐹))) = ((𝐴𝐸) + ((i · 𝐵) − (i · 𝐹))))
143134a1i 11 . . . . . . . . . . . . . . . 16 (𝜑 → i ∈ ℂ)
144143, 135, 139subdid 11098 . . . . . . . . . . . . . . 15 (𝜑 → (i · (𝐵𝐹)) = ((i · 𝐵) − (i · 𝐹)))
145144oveq2d 7174 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴𝐸) + (i · (𝐵𝐹))) = ((𝐴𝐸) + ((i · 𝐵) − (i · 𝐹))))
146142, 145eqtr4d 2861 . . . . . . . . . . . . 13 (𝜑 → ((𝐴 + (i · 𝐵)) − (𝐸 + (i · 𝐹))) = ((𝐴𝐸) + (i · (𝐵𝐹))))
147146oveq1d 7173 . . . . . . . . . . . 12 (𝜑 → (((𝐴 + (i · 𝐵)) − (𝐸 + (i · 𝐹))) / 𝑀) = (((𝐴𝐸) + (i · (𝐵𝐹))) / 𝑀))
148133, 138subcld 10999 . . . . . . . . . . . . 13 (𝜑 → (𝐴𝐸) ∈ ℂ)
149135, 139subcld 10999 . . . . . . . . . . . . . 14 (𝜑 → (𝐵𝐹) ∈ ℂ)
150 mulcl 10623 . . . . . . . . . . . . . 14 ((i ∈ ℂ ∧ (𝐵𝐹) ∈ ℂ) → (i · (𝐵𝐹)) ∈ ℂ)
151134, 149, 150sylancr 589 . . . . . . . . . . . . 13 (𝜑 → (i · (𝐵𝐹)) ∈ ℂ)
152148, 151, 33, 39divdird 11456 . . . . . . . . . . . 12 (𝜑 → (((𝐴𝐸) + (i · (𝐵𝐹))) / 𝑀) = (((𝐴𝐸) / 𝑀) + ((i · (𝐵𝐹)) / 𝑀)))
153143, 149, 33, 39divassd 11453 . . . . . . . . . . . . 13 (𝜑 → ((i · (𝐵𝐹)) / 𝑀) = (i · ((𝐵𝐹) / 𝑀)))
154153oveq2d 7174 . . . . . . . . . . . 12 (𝜑 → (((𝐴𝐸) / 𝑀) + ((i · (𝐵𝐹)) / 𝑀)) = (((𝐴𝐸) / 𝑀) + (i · ((𝐵𝐹) / 𝑀))))
155147, 152, 1543eqtrd 2862 . . . . . . . . . . 11 (𝜑 → (((𝐴 + (i · 𝐵)) − (𝐸 + (i · 𝐹))) / 𝑀) = (((𝐴𝐸) / 𝑀) + (i · ((𝐵𝐹) / 𝑀))))
15690simprd 498 . . . . . . . . . . . 12 (𝜑 → ((𝐴𝐸) / 𝑀) ∈ ℤ)
15792simprd 498 . . . . . . . . . . . 12 (𝜑 → ((𝐵𝐹) / 𝑀) ∈ ℤ)
158 gzreim 16277 . . . . . . . . . . . 12 ((((𝐴𝐸) / 𝑀) ∈ ℤ ∧ ((𝐵𝐹) / 𝑀) ∈ ℤ) → (((𝐴𝐸) / 𝑀) + (i · ((𝐵𝐹) / 𝑀))) ∈ ℤ[i])
159156, 157, 158syl2anc 586 . . . . . . . . . . 11 (𝜑 → (((𝐴𝐸) / 𝑀) + (i · ((𝐵𝐹) / 𝑀))) ∈ ℤ[i])
160155, 159eqeltrd 2915 . . . . . . . . . 10 (𝜑 → (((𝐴 + (i · 𝐵)) − (𝐸 + (i · 𝐹))) / 𝑀) ∈ ℤ[i])
16111zcnd 12091 . . . . . . . . . . . . . . 15 (𝜑𝐶 ∈ ℂ)
16212zcnd 12091 . . . . . . . . . . . . . . . 16 (𝜑𝐷 ∈ ℂ)
163 mulcl 10623 . . . . . . . . . . . . . . . 16 ((i ∈ ℂ ∧ 𝐷 ∈ ℂ) → (i · 𝐷) ∈ ℂ)
164134, 162, 163sylancr 589 . . . . . . . . . . . . . . 15 (𝜑 → (i · 𝐷) ∈ ℂ)
165108zcnd 12091 . . . . . . . . . . . . . . 15 (𝜑𝐺 ∈ ℂ)
166110zcnd 12091 . . . . . . . . . . . . . . . 16 (𝜑𝐻 ∈ ℂ)
167 mulcl 10623 . . . . . . . . . . . . . . . 16 ((i ∈ ℂ ∧ 𝐻 ∈ ℂ) → (i · 𝐻) ∈ ℂ)
168134, 166, 167sylancr 589 . . . . . . . . . . . . . . 15 (𝜑 → (i · 𝐻) ∈ ℂ)
169161, 164, 165, 168addsub4d 11046 . . . . . . . . . . . . . 14 (𝜑 → ((𝐶 + (i · 𝐷)) − (𝐺 + (i · 𝐻))) = ((𝐶𝐺) + ((i · 𝐷) − (i · 𝐻))))
170143, 162, 166subdid 11098 . . . . . . . . . . . . . . 15 (𝜑 → (i · (𝐷𝐻)) = ((i · 𝐷) − (i · 𝐻)))
171170oveq2d 7174 . . . . . . . . . . . . . 14 (𝜑 → ((𝐶𝐺) + (i · (𝐷𝐻))) = ((𝐶𝐺) + ((i · 𝐷) − (i · 𝐻))))
172169, 171eqtr4d 2861 . . . . . . . . . . . . 13 (𝜑 → ((𝐶 + (i · 𝐷)) − (𝐺 + (i · 𝐻))) = ((𝐶𝐺) + (i · (𝐷𝐻))))
173172oveq1d 7173 . . . . . . . . . . . 12 (𝜑 → (((𝐶 + (i · 𝐷)) − (𝐺 + (i · 𝐻))) / 𝑀) = (((𝐶𝐺) + (i · (𝐷𝐻))) / 𝑀))
174161, 165subcld 10999 . . . . . . . . . . . . 13 (𝜑 → (𝐶𝐺) ∈ ℂ)
175162, 166subcld 10999 . . . . . . . . . . . . . 14 (𝜑 → (𝐷𝐻) ∈ ℂ)
176 mulcl 10623 . . . . . . . . . . . . . 14 ((i ∈ ℂ ∧ (𝐷𝐻) ∈ ℂ) → (i · (𝐷𝐻)) ∈ ℂ)
177134, 175, 176sylancr 589 . . . . . . . . . . . . 13 (𝜑 → (i · (𝐷𝐻)) ∈ ℂ)
178174, 177, 33, 39divdird 11456 . . . . . . . . . . . 12 (𝜑 → (((𝐶𝐺) + (i · (𝐷𝐻))) / 𝑀) = (((𝐶𝐺) / 𝑀) + ((i · (𝐷𝐻)) / 𝑀)))
179143, 175, 33, 39divassd 11453 . . . . . . . . . . . . 13 (𝜑 → ((i · (𝐷𝐻)) / 𝑀) = (i · ((𝐷𝐻) / 𝑀)))
180179oveq2d 7174 . . . . . . . . . . . 12 (𝜑 → (((𝐶𝐺) / 𝑀) + ((i · (𝐷𝐻)) / 𝑀)) = (((𝐶𝐺) / 𝑀) + (i · ((𝐷𝐻) / 𝑀))))
181173, 178, 1803eqtrd 2862 . . . . . . . . . . 11 (𝜑 → (((𝐶 + (i · 𝐷)) − (𝐺 + (i · 𝐻))) / 𝑀) = (((𝐶𝐺) / 𝑀) + (i · ((𝐷𝐻) / 𝑀))))
182107simprd 498 . . . . . . . . . . . 12 (𝜑 → ((𝐶𝐺) / 𝑀) ∈ ℤ)
183109simprd 498 . . . . . . . . . . . 12 (𝜑 → ((𝐷𝐻) / 𝑀) ∈ ℤ)
184 gzreim 16277 . . . . . . . . . . . 12 ((((𝐶𝐺) / 𝑀) ∈ ℤ ∧ ((𝐷𝐻) / 𝑀) ∈ ℤ) → (((𝐶𝐺) / 𝑀) + (i · ((𝐷𝐻) / 𝑀))) ∈ ℤ[i])
185182, 183, 184syl2anc 586 . . . . . . . . . . 11 (𝜑 → (((𝐶𝐺) / 𝑀) + (i · ((𝐷𝐻) / 𝑀))) ∈ ℤ[i])
186181, 185eqeltrd 2915 . . . . . . . . . 10 (𝜑 → (((𝐶 + (i · 𝐷)) − (𝐺 + (i · 𝐻))) / 𝑀) ∈ ℤ[i])
18786nnnn0d 11958 . . . . . . . . . . 11 (𝜑𝑃 ∈ ℕ0)
18889, 187eqeltrd 2915 . . . . . . . . . 10 (𝜑 → ((((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)) / 𝑀) ∈ ℕ0)
1891, 57, 70, 95, 112, 131, 132, 29, 160, 186, 188mul4sqlem 16291 . . . . . . . . 9 (𝜑 → (((((abs‘(𝐴 + (i · 𝐵)))↑2) + ((abs‘(𝐶 + (i · 𝐷)))↑2)) / 𝑀) · ((((abs‘(𝐸 + (i · 𝐹)))↑2) + ((abs‘(𝐺 + (i · 𝐻)))↑2)) / 𝑀)) ∈ 𝑆)
190130, 189eqeltrrd 2916 . . . . . . . 8 (𝜑 → (𝑅 · 𝑃) ∈ 𝑆)
191 oveq1 7165 . . . . . . . . . 10 (𝑖 = 𝑅 → (𝑖 · 𝑃) = (𝑅 · 𝑃))
192191eleq1d 2899 . . . . . . . . 9 (𝑖 = 𝑅 → ((𝑖 · 𝑃) ∈ 𝑆 ↔ (𝑅 · 𝑃) ∈ 𝑆))
193192, 6elrab2 3685 . . . . . . . 8 (𝑅𝑇 ↔ (𝑅 ∈ ℕ ∧ (𝑅 · 𝑃) ∈ 𝑆))
19455, 190, 193sylanbrc 585 . . . . . . 7 (𝜑𝑅𝑇)
195 infssuzle 12334 . . . . . . 7 ((𝑇 ⊆ (ℤ‘1) ∧ 𝑅𝑇) → inf(𝑇, ℝ, < ) ≤ 𝑅)
19623, 194, 195sylancr 589 . . . . . 6 (𝜑 → inf(𝑇, ℝ, < ) ≤ 𝑅)
1977, 196eqbrtrid 5103 . . . . 5 (𝜑𝑀𝑅)
19855nnred 11655 . . . . . 6 (𝜑𝑅 ∈ ℝ)
199198, 30letri3d 10784 . . . . 5 (𝜑 → (𝑅 = 𝑀 ↔ (𝑅𝑀𝑀𝑅)))
20020, 197, 199mpbir2and 711 . . . 4 (𝜑𝑅 = 𝑀)
201200olcd 870 . . 3 (𝜑 → (𝑅 = 0 ∨ 𝑅 = 𝑀))
202201, 52mpd 15 . 2 (𝜑 → (𝑀↑2) ∥ (𝑀 · 𝑃))
203202, 46pm2.65i 196 1 ¬ 𝜑
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wo 843   = wceq 1537  wcel 2114  {cab 2801  wne 3018  wrex 3141  {crab 3144  wss 3938  c0 4293   class class class wbr 5068  cfv 6357  (class class class)co 7158  infcinf 8907  cc 10537  cr 10538  0cc0 10539  1c1 10540  ici 10541   + caddc 10542   · cmul 10544   < clt 10677  cle 10678  cmin 10872   / cdiv 11299  cn 11640  2c2 11695  0cn0 11900  cz 11984  cuz 12246  ...cfz 12895   mod cmo 13240  cexp 13432  cre 14458  cim 14459  abscabs 14595  cdvds 15609  cprime 16017  ℤ[i]cgz 16267
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616  ax-pre-sup 10617
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-1st 7691  df-2nd 7692  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-2o 8105  df-oadd 8108  df-er 8291  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-sup 8908  df-inf 8909  df-dju 9332  df-card 9370  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-n0 11901  df-xnn0 11971  df-z 11985  df-uz 12247  df-rp 12393  df-fz 12896  df-fl 13165  df-mod 13241  df-seq 13373  df-exp 13433  df-hash 13694  df-cj 14460  df-re 14461  df-im 14462  df-sqrt 14596  df-abs 14597  df-dvds 15610  df-gcd 15846  df-prm 16018  df-gz 16268
This theorem is referenced by:  4sqlem18  16300
  Copyright terms: Public domain W3C validator