Metamath Proof Explorer


Theorem 4sqlem17

Description: Lemma for 4sq . (Contributed by Mario Carneiro, 16-Jul-2014) (Revised by AV, 14-Sep-2020)

Ref Expression
Hypotheses 4sq.1 ⊢ S = n | ∃ x ∈ ℤ ∃ y ∈ ℤ ∃ z ∈ ℤ ∃ w ∈ ℤ n = x 2 + y 2 + z 2 + w 2
4sq.2 ⊢ φ → N ∈ ℕ
4sq.3 ⊢ φ → P = 2 ⋅ N + 1
4sq.4 ⊢ φ → P ∈ ℙ
4sq.5 ⊢ φ → 0 … 2 ⋅ N ⊆ S
4sq.6 ⊢ T = i ∈ ℕ | i ⁢ P ∈ S
4sq.7 ⊢ M = inf T ℝ <
4sq.m ⊢ φ → M ∈ ℤ ≥ 2
4sq.a ⊢ φ → A ∈ ℤ
4sq.b ⊢ φ → B ∈ ℤ
4sq.c ⊢ φ → C ∈ ℤ
4sq.d ⊢ φ → D ∈ ℤ
4sq.e ⊢ E = A + M 2 mod M − M 2
4sq.f ⊢ F = B + M 2 mod M − M 2
4sq.g ⊢ G = C + M 2 mod M − M 2
4sq.h ⊢ H = D + M 2 mod M − M 2
4sq.r ⊢ R = E 2 + F 2 + G 2 + H 2 M
4sq.p ⊢ φ → M ⁢ P = A 2 + B 2 + C 2 + D 2
Assertion 4sqlem17 ⊢ ¬ φ

Proof

Step Hyp Ref Expression
1 4sq.1 ⊢ S = n | ∃ x ∈ ℤ ∃ y ∈ ℤ ∃ z ∈ ℤ ∃ w ∈ ℤ n = x 2 + y 2 + z 2 + w 2
2 4sq.2 ⊢ φ → N ∈ ℕ
3 4sq.3 ⊢ φ → P = 2 ⋅ N + 1
4 4sq.4 ⊢ φ → P ∈ ℙ
5 4sq.5 ⊢ φ → 0 … 2 ⋅ N ⊆ S
6 4sq.6 ⊢ T = i ∈ ℕ | i ⁢ P ∈ S
7 4sq.7 ⊢ M = inf T ℝ <
8 4sq.m ⊢ φ → M ∈ ℤ ≥ 2
9 4sq.a ⊢ φ → A ∈ ℤ
10 4sq.b ⊢ φ → B ∈ ℤ
11 4sq.c ⊢ φ → C ∈ ℤ
12 4sq.d ⊢ φ → D ∈ ℤ
13 4sq.e ⊢ E = A + M 2 mod M − M 2
14 4sq.f ⊢ F = B + M 2 mod M − M 2
15 4sq.g ⊢ G = C + M 2 mod M − M 2
16 4sq.h ⊢ H = D + M 2 mod M − M 2
17 4sq.r ⊢ R = E 2 + F 2 + G 2 + H 2 M
18 4sq.p ⊢ φ → M ⁢ P = A 2 + B 2 + C 2 + D 2
19 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 4sqlem16 ⊢ φ → R ≤ M ∧ R = 0 ∨ R = M → M 2 ∥ M ⁢ P
20 19 simpld ⊢ φ → R ≤ M
21 6 ssrab3 ⊢ T ⊆ ℕ
22 nnuz ⊢ ℕ = ℤ ≥ 1
23 21 22 sseqtri ⊢ T ⊆ ℤ ≥ 1
24 1 2 3 4 5 6 7 4sqlem13 ⊢ φ → T ≠ ∅ ∧ M < P
25 24 simpld ⊢ φ → T ≠ ∅
26 infssuzcl ⊢ T ⊆ ℤ ≥ 1 ∧ T ≠ ∅ → inf T ℝ < ∈ T
27 23 25 26 sylancr ⊢ φ → inf T ℝ < ∈ T
28 7 27 eqeltrid ⊢ φ → M ∈ T
29 21 28 sselid ⊢ φ → M ∈ ℕ
30 29 nnred ⊢ φ → M ∈ ℝ
31 24 simprd ⊢ φ → M < P
32 30 31 ltned ⊢ φ → M ≠ P
33 29 nncnd ⊢ φ → M ∈ ℂ
34 33 sqvald ⊢ φ → M 2 = M ⋅ M
35 34 breq1d ⊢ φ → M 2 ∥ M ⁢ P ↔ M ⋅ M ∥ M ⁢ P
36 29 nnzd ⊢ φ → M ∈ ℤ
37 prmz ⊢ P ∈ ℙ → P ∈ ℤ
38 4 37 syl ⊢ φ → P ∈ ℤ
39 29 nnne0d ⊢ φ → M ≠ 0
40 dvdscmulr ⊢ M ∈ ℤ ∧ P ∈ ℤ ∧ M ∈ ℤ ∧ M ≠ 0 → M ⋅ M ∥ M ⁢ P ↔ M ∥ P
41 36 38 36 39 40 syl112anc ⊢ φ → M ⋅ M ∥ M ⁢ P ↔ M ∥ P
42 dvdsprm ⊢ M ∈ ℤ ≥ 2 ∧ P ∈ ℙ → M ∥ P ↔ M = P
43 8 4 42 syl2anc ⊢ φ → M ∥ P ↔ M = P
44 35 41 43 3bitrd ⊢ φ → M 2 ∥ M ⁢ P ↔ M = P
45 44 necon3bbid ⊢ φ → ¬ M 2 ∥ M ⁢ P ↔ M ≠ P
46 32 45 mpbird ⊢ φ → ¬ M 2 ∥ M ⁢ P
47 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 4sqlem14 ⊢ φ → R ∈ ℕ 0
48 elnn0 ⊢ R ∈ ℕ 0 ↔ R ∈ ℕ ∨ R = 0
49 47 48 sylib ⊢ φ → R ∈ ℕ ∨ R = 0
50 49 ord ⊢ φ → ¬ R ∈ ℕ → R = 0
51 orc ⊢ R = 0 → R = 0 ∨ R = M
52 19 simprd ⊢ φ → R = 0 ∨ R = M → M 2 ∥ M ⁢ P
53 51 52 syl5 ⊢ φ → R = 0 → M 2 ∥ M ⁢ P
54 50 53 syld ⊢ φ → ¬ R ∈ ℕ → M 2 ∥ M ⁢ P
55 46 54 mt3d ⊢ φ → R ∈ ℕ
56 gzreim ⊢ A ∈ ℤ ∧ B ∈ ℤ → A + i ⁢ B ∈ ℤ i
57 9 10 56 syl2anc ⊢ φ → A + i ⁢ B ∈ ℤ i
58 gzcn ⊢ A + i ⁢ B ∈ ℤ i → A + i ⁢ B ∈ ℂ
59 57 58 syl ⊢ φ → A + i ⁢ B ∈ ℂ
60 59 absvalsq2d ⊢ φ → A + i ⁢ B 2 = ℜ ⁡ A + i ⁢ B 2 + ℑ ⁡ A + i ⁢ B 2
61 9 zred ⊢ φ → A ∈ ℝ
62 10 zred ⊢ φ → B ∈ ℝ
63 61 62 crred ⊢ φ → ℜ ⁡ A + i ⁢ B = A
64 63 oveq1d ⊢ φ → ℜ ⁡ A + i ⁢ B 2 = A 2
65 61 62 crimd ⊢ φ → ℑ ⁡ A + i ⁢ B = B
66 65 oveq1d ⊢ φ → ℑ ⁡ A + i ⁢ B 2 = B 2
67 64 66 oveq12d ⊢ φ → ℜ ⁡ A + i ⁢ B 2 + ℑ ⁡ A + i ⁢ B 2 = A 2 + B 2
68 60 67 eqtrd ⊢ φ → A + i ⁢ B 2 = A 2 + B 2
69 gzreim ⊢ C ∈ ℤ ∧ D ∈ ℤ → C + i ⁢ D ∈ ℤ i
70 11 12 69 syl2anc ⊢ φ → C + i ⁢ D ∈ ℤ i
71 gzcn ⊢ C + i ⁢ D ∈ ℤ i → C + i ⁢ D ∈ ℂ
72 70 71 syl ⊢ φ → C + i ⁢ D ∈ ℂ
73 72 absvalsq2d ⊢ φ → C + i ⁢ D 2 = ℜ ⁡ C + i ⁢ D 2 + ℑ ⁡ C + i ⁢ D 2
74 11 zred ⊢ φ → C ∈ ℝ
75 12 zred ⊢ φ → D ∈ ℝ
76 74 75 crred ⊢ φ → ℜ ⁡ C + i ⁢ D = C
77 76 oveq1d ⊢ φ → ℜ ⁡ C + i ⁢ D 2 = C 2
78 74 75 crimd ⊢ φ → ℑ ⁡ C + i ⁢ D = D
79 78 oveq1d ⊢ φ → ℑ ⁡ C + i ⁢ D 2 = D 2
80 77 79 oveq12d ⊢ φ → ℜ ⁡ C + i ⁢ D 2 + ℑ ⁡ C + i ⁢ D 2 = C 2 + D 2
81 73 80 eqtrd ⊢ φ → C + i ⁢ D 2 = C 2 + D 2
82 68 81 oveq12d ⊢ φ → A + i ⁢ B 2 + C + i ⁢ D 2 = A 2 + B 2 + C 2 + D 2
83 18 82 eqtr4d ⊢ φ → M ⁢ P = A + i ⁢ B 2 + C + i ⁢ D 2
84 83 oveq1d ⊢ φ → M ⁢ P M = A + i ⁢ B 2 + C + i ⁢ D 2 M
85 prmnn ⊢ P ∈ ℙ → P ∈ ℕ
86 4 85 syl ⊢ φ → P ∈ ℕ
87 86 nncnd ⊢ φ → P ∈ ℂ
88 87 33 39 divcan3d ⊢ φ → M ⁢ P M = P
89 84 88 eqtr3d ⊢ φ → A + i ⁢ B 2 + C + i ⁢ D 2 M = P
90 9 29 13 4sqlem5 ⊢ φ → E ∈ ℤ ∧ A − E M ∈ ℤ
91 90 simpld ⊢ φ → E ∈ ℤ
92 10 29 14 4sqlem5 ⊢ φ → F ∈ ℤ ∧ B − F M ∈ ℤ
93 92 simpld ⊢ φ → F ∈ ℤ
94 gzreim ⊢ E ∈ ℤ ∧ F ∈ ℤ → E + i ⁢ F ∈ ℤ i
95 91 93 94 syl2anc ⊢ φ → E + i ⁢ F ∈ ℤ i
96 gzcn ⊢ E + i ⁢ F ∈ ℤ i → E + i ⁢ F ∈ ℂ
97 95 96 syl ⊢ φ → E + i ⁢ F ∈ ℂ
98 97 absvalsq2d ⊢ φ → E + i ⁢ F 2 = ℜ ⁡ E + i ⁢ F 2 + ℑ ⁡ E + i ⁢ F 2
99 91 zred ⊢ φ → E ∈ ℝ
100 93 zred ⊢ φ → F ∈ ℝ
101 99 100 crred ⊢ φ → ℜ ⁡ E + i ⁢ F = E
102 101 oveq1d ⊢ φ → ℜ ⁡ E + i ⁢ F 2 = E 2
103 99 100 crimd ⊢ φ → ℑ ⁡ E + i ⁢ F = F
104 103 oveq1d ⊢ φ → ℑ ⁡ E + i ⁢ F 2 = F 2
105 102 104 oveq12d ⊢ φ → ℜ ⁡ E + i ⁢ F 2 + ℑ ⁡ E + i ⁢ F 2 = E 2 + F 2
106 98 105 eqtrd ⊢ φ → E + i ⁢ F 2 = E 2 + F 2
107 11 29 15 4sqlem5 ⊢ φ → G ∈ ℤ ∧ C − G M ∈ ℤ
108 107 simpld ⊢ φ → G ∈ ℤ
109 12 29 16 4sqlem5 ⊢ φ → H ∈ ℤ ∧ D − H M ∈ ℤ
110 109 simpld ⊢ φ → H ∈ ℤ
111 gzreim ⊢ G ∈ ℤ ∧ H ∈ ℤ → G + i ⁢ H ∈ ℤ i
112 108 110 111 syl2anc ⊢ φ → G + i ⁢ H ∈ ℤ i
113 gzcn ⊢ G + i ⁢ H ∈ ℤ i → G + i ⁢ H ∈ ℂ
114 112 113 syl ⊢ φ → G + i ⁢ H ∈ ℂ
115 114 absvalsq2d ⊢ φ → G + i ⁢ H 2 = ℜ ⁡ G + i ⁢ H 2 + ℑ ⁡ G + i ⁢ H 2
116 108 zred ⊢ φ → G ∈ ℝ
117 110 zred ⊢ φ → H ∈ ℝ
118 116 117 crred ⊢ φ → ℜ ⁡ G + i ⁢ H = G
119 118 oveq1d ⊢ φ → ℜ ⁡ G + i ⁢ H 2 = G 2
120 116 117 crimd ⊢ φ → ℑ ⁡ G + i ⁢ H = H
121 120 oveq1d ⊢ φ → ℑ ⁡ G + i ⁢ H 2 = H 2
122 119 121 oveq12d ⊢ φ → ℜ ⁡ G + i ⁢ H 2 + ℑ ⁡ G + i ⁢ H 2 = G 2 + H 2
123 115 122 eqtrd ⊢ φ → G + i ⁢ H 2 = G 2 + H 2
124 106 123 oveq12d ⊢ φ → E + i ⁢ F 2 + G + i ⁢ H 2 = E 2 + F 2 + G 2 + H 2
125 124 oveq1d ⊢ φ → E + i ⁢ F 2 + G + i ⁢ H 2 M = E 2 + F 2 + G 2 + H 2 M
126 125 17 eqtr4di ⊢ φ → E + i ⁢ F 2 + G + i ⁢ H 2 M = R
127 89 126 oveq12d ⊢ φ → A + i ⁢ B 2 + C + i ⁢ D 2 M ⁢ E + i ⁢ F 2 + G + i ⁢ H 2 M = P ⁢ R
128 55 nncnd ⊢ φ → R ∈ ℂ
129 87 128 mulcomd ⊢ φ → P ⁢ R = R ⁢ P
130 127 129 eqtrd ⊢ φ → A + i ⁢ B 2 + C + i ⁢ D 2 M ⁢ E + i ⁢ F 2 + G + i ⁢ H 2 M = R ⁢ P
131 eqid ⊢ A + i ⁢ B 2 + C + i ⁢ D 2 = A + i ⁢ B 2 + C + i ⁢ D 2
132 eqid ⊢ E + i ⁢ F 2 + G + i ⁢ H 2 = E + i ⁢ F 2 + G + i ⁢ H 2
133 9 zcnd ⊢ φ → A ∈ ℂ
134 ax-icn ⊢ i ∈ ℂ
135 10 zcnd ⊢ φ → B ∈ ℂ
136 mulcl ⊢ i ∈ ℂ ∧ B ∈ ℂ → i ⁢ B ∈ ℂ
137 134 135 136 sylancr ⊢ φ → i ⁢ B ∈ ℂ
138 91 zcnd ⊢ φ → E ∈ ℂ
139 93 zcnd ⊢ φ → F ∈ ℂ
140 mulcl ⊢ i ∈ ℂ ∧ F ∈ ℂ → i ⁢ F ∈ ℂ
141 134 139 140 sylancr ⊢ φ → i ⁢ F ∈ ℂ
142 133 137 138 141 addsub4d ⊢ φ → A + i ⁢ B - E + i ⁢ F = A − E + i ⁢ B - i ⁢ F
143 134 a1i ⊢ φ → i ∈ ℂ
144 143 135 139 subdid ⊢ φ → i ⁢ B − F = i ⁢ B − i ⁢ F
145 144 oveq2d ⊢ φ → A - E + i ⁢ B − F = A − E + i ⁢ B - i ⁢ F
146 142 145 eqtr4d ⊢ φ → A + i ⁢ B - E + i ⁢ F = A - E + i ⁢ B − F
147 146 oveq1d ⊢ φ → A + i ⁢ B - E + i ⁢ F M = A - E + i ⁢ B − F M
148 133 138 subcld ⊢ φ → A − E ∈ ℂ
149 135 139 subcld ⊢ φ → B − F ∈ ℂ
150 mulcl ⊢ i ∈ ℂ ∧ B − F ∈ ℂ → i ⁢ B − F ∈ ℂ
151 134 149 150 sylancr ⊢ φ → i ⁢ B − F ∈ ℂ
152 148 151 33 39 divdird ⊢ φ → A - E + i ⁢ B − F M = A − E M + i ⁢ B − F M
153 143 149 33 39 divassd ⊢ φ → i ⁢ B − F M = i ⁢ B − F M
154 153 oveq2d ⊢ φ → A − E M + i ⁢ B − F M = A − E M + i ⁢ B − F M
155 147 152 154 3eqtrd ⊢ φ → A + i ⁢ B - E + i ⁢ F M = A − E M + i ⁢ B − F M
156 90 simprd ⊢ φ → A − E M ∈ ℤ
157 92 simprd ⊢ φ → B − F M ∈ ℤ
158 gzreim ⊢ A − E M ∈ ℤ ∧ B − F M ∈ ℤ → A − E M + i ⁢ B − F M ∈ ℤ i
159 156 157 158 syl2anc ⊢ φ → A − E M + i ⁢ B − F M ∈ ℤ i
160 155 159 eqeltrd ⊢ φ → A + i ⁢ B - E + i ⁢ F M ∈ ℤ i
161 11 zcnd ⊢ φ → C ∈ ℂ
162 12 zcnd ⊢ φ → D ∈ ℂ
163 mulcl ⊢ i ∈ ℂ ∧ D ∈ ℂ → i ⁢ D ∈ ℂ
164 134 162 163 sylancr ⊢ φ → i ⁢ D ∈ ℂ
165 108 zcnd ⊢ φ → G ∈ ℂ
166 110 zcnd ⊢ φ → H ∈ ℂ
167 mulcl ⊢ i ∈ ℂ ∧ H ∈ ℂ → i ⁢ H ∈ ℂ
168 134 166 167 sylancr ⊢ φ → i ⁢ H ∈ ℂ
169 161 164 165 168 addsub4d ⊢ φ → C + i ⁢ D - G + i ⁢ H = C − G + i ⁢ D - i ⁢ H
170 143 162 166 subdid ⊢ φ → i ⁢ D − H = i ⁢ D − i ⁢ H
171 170 oveq2d ⊢ φ → C - G + i ⁢ D − H = C − G + i ⁢ D - i ⁢ H
172 169 171 eqtr4d ⊢ φ → C + i ⁢ D - G + i ⁢ H = C - G + i ⁢ D − H
173 172 oveq1d ⊢ φ → C + i ⁢ D - G + i ⁢ H M = C - G + i ⁢ D − H M
174 161 165 subcld ⊢ φ → C − G ∈ ℂ
175 162 166 subcld ⊢ φ → D − H ∈ ℂ
176 mulcl ⊢ i ∈ ℂ ∧ D − H ∈ ℂ → i ⁢ D − H ∈ ℂ
177 134 175 176 sylancr ⊢ φ → i ⁢ D − H ∈ ℂ
178 174 177 33 39 divdird ⊢ φ → C - G + i ⁢ D − H M = C − G M + i ⁢ D − H M
179 143 175 33 39 divassd ⊢ φ → i ⁢ D − H M = i ⁢ D − H M
180 179 oveq2d ⊢ φ → C − G M + i ⁢ D − H M = C − G M + i ⁢ D − H M
181 173 178 180 3eqtrd ⊢ φ → C + i ⁢ D - G + i ⁢ H M = C − G M + i ⁢ D − H M
182 107 simprd ⊢ φ → C − G M ∈ ℤ
183 109 simprd ⊢ φ → D − H M ∈ ℤ
184 gzreim ⊢ C − G M ∈ ℤ ∧ D − H M ∈ ℤ → C − G M + i ⁢ D − H M ∈ ℤ i
185 182 183 184 syl2anc ⊢ φ → C − G M + i ⁢ D − H M ∈ ℤ i
186 181 185 eqeltrd ⊢ φ → C + i ⁢ D - G + i ⁢ H M ∈ ℤ i
187 86 nnnn0d ⊢ φ → P ∈ ℕ 0
188 89 187 eqeltrd ⊢ φ → A + i ⁢ B 2 + C + i ⁢ D 2 M ∈ ℕ 0
189 1 57 70 95 112 131 132 29 160 186 188 mul4sqlem ⊢ φ → A + i ⁢ B 2 + C + i ⁢ D 2 M ⁢ E + i ⁢ F 2 + G + i ⁢ H 2 M ∈ S
190 130 189 eqeltrrd ⊢ φ → R ⁢ P ∈ S
191 oveq1 ⊢ i = R → i ⁢ P = R ⁢ P
192 191 eleq1d ⊢ i = R → i ⁢ P ∈ S ↔ R ⁢ P ∈ S
193 192 6 elrab2 ⊢ R ∈ T ↔ R ∈ ℕ ∧ R ⁢ P ∈ S
194 55 190 193 sylanbrc ⊢ φ → R ∈ T
195 infssuzle ⊢ T ⊆ ℤ ≥ 1 ∧ R ∈ T → inf T ℝ < ≤ R
196 23 194 195 sylancr ⊢ φ → inf T ℝ < ≤ R
197 7 196 eqbrtrid ⊢ φ → M ≤ R
198 55 nnred ⊢ φ → R ∈ ℝ
199 198 30 letri3d ⊢ φ → R = M ↔ R ≤ M ∧ M ≤ R
200 20 197 199 mpbir2and ⊢ φ → R = M
201 200 olcd ⊢ φ → R = 0 ∨ R = M
202 201 52 mpd ⊢ φ → M 2 ∥ M ⁢ P
203 202 46 pm2.65i ⊢ ¬ φ