Metamath Proof Explorer


Theorem quart1

Description: Depress a quartic equation. (Contributed by Mario Carneiro, 6-May-2015)

Ref Expression
Hypotheses quart1.a φ A
quart1.b φ B
quart1.c φ C
quart1.d φ D
quart1.p φ P = B 3 8 A 2
quart1.q φ Q = C - A B 2 + A 3 8
quart1.r φ R = D C A 4 + A 2 B 16 - 3 256 A 4
quart1.x φ X
quart1.y φ Y = X + A 4
Assertion quart1 φ X 4 + A X 3 + B X 2 + C X + D = Y 4 + P Y 2 + Q Y + R

Proof

Step Hyp Ref Expression
1 quart1.a φ A
2 quart1.b φ B
3 quart1.c φ C
4 quart1.d φ D
5 quart1.p φ P = B 3 8 A 2
6 quart1.q φ Q = C - A B 2 + A 3 8
7 quart1.r φ R = D C A 4 + A 2 B 16 - 3 256 A 4
8 quart1.x φ X
9 quart1.y φ Y = X + A 4
10 9 oveq1d φ Y 4 = X + A 4 4
11 4cn 4
12 11 a1i φ 4
13 4ne0 4 0
14 13 a1i φ 4 0
15 1 12 14 divcld φ A 4
16 binom4 X A 4 X + A 4 4 = X 4 + 4 X 3 A 4 + 6 X 2 A 4 2 + 4 X A 4 3 + A 4 4
17 8 15 16 syl2anc φ X + A 4 4 = X 4 + 4 X 3 A 4 + 6 X 2 A 4 2 + 4 X A 4 3 + A 4 4
18 3nn0 3 0
19 expcl X 3 0 X 3
20 8 18 19 sylancl φ X 3
21 12 20 15 mul12d φ 4 X 3 A 4 = X 3 4 A 4
22 1 12 14 divcan2d φ 4 A 4 = A
23 22 oveq2d φ X 3 4 A 4 = X 3 A
24 20 1 mulcomd φ X 3 A = A X 3
25 21 23 24 3eqtrd φ 4 X 3 A 4 = A X 3
26 25 oveq2d φ X 4 + 4 X 3 A 4 = X 4 + A X 3
27 6nn 6
28 27 nncni 6
29 28 a1i φ 6
30 15 sqcld φ A 4 2
31 8 sqcld φ X 2
32 29 30 31 mulassd φ 6 A 4 2 X 2 = 6 A 4 2 X 2
33 2t3e6 2 3 = 6
34 8cn 8
35 2cn 2
36 8t2e16 8 2 = 16
37 34 35 36 mulcomli 2 8 = 16
38 33 37 oveq12i 2 3 2 8 = 6 16
39 3cn 3
40 8nn 8
41 40 nnne0i 8 0
42 34 41 pm3.2i 8 8 0
43 2cnne0 2 2 0
44 divcan5 3 8 8 0 2 2 0 2 3 2 8 = 3 8
45 39 42 43 44 mp3an 2 3 2 8 = 3 8
46 38 45 eqtr3i 6 16 = 3 8
47 46 oveq2i A 2 6 16 = A 2 3 8
48 1 sqcld φ A 2
49 1nn0 1 0
50 49 27 decnncl 16
51 50 nncni 16
52 51 a1i φ 16
53 50 nnne0i 16 0
54 53 a1i φ 16 0
55 48 29 52 54 div12d φ A 2 6 16 = 6 A 2 16
56 47 55 eqtr3id φ A 2 3 8 = 6 A 2 16
57 39 34 41 divcli 3 8
58 mulcom 3 8 A 2 3 8 A 2 = A 2 3 8
59 57 48 58 sylancr φ 3 8 A 2 = A 2 3 8
60 1 12 14 sqdivd φ A 4 2 = A 2 4 2
61 11 sqvali 4 2 = 4 4
62 4t4e16 4 4 = 16
63 61 62 eqtri 4 2 = 16
64 63 oveq2i A 2 4 2 = A 2 16
65 60 64 eqtrdi φ A 4 2 = A 2 16
66 65 oveq2d φ 6 A 4 2 = 6 A 2 16
67 56 59 66 3eqtr4d φ 3 8 A 2 = 6 A 4 2
68 67 oveq1d φ 3 8 A 2 X 2 = 6 A 4 2 X 2
69 31 30 mulcomd φ X 2 A 4 2 = A 4 2 X 2
70 69 oveq2d φ 6 X 2 A 4 2 = 6 A 4 2 X 2
71 32 68 70 3eqtr4rd φ 6 X 2 A 4 2 = 3 8 A 2 X 2
72 expcl A 4 3 0 A 4 3
73 15 18 72 sylancl φ A 4 3
74 12 8 73 mul12d φ 4 X A 4 3 = X 4 A 4 3
75 12 73 mulcld φ 4 A 4 3
76 8 75 mulcomd φ X 4 A 4 3 = 4 A 4 3 X
77 df-3 3 = 2 + 1
78 77 oveq2i 4 3 = 4 2 + 1
79 2nn0 2 0
80 expp1 4 2 0 4 2 + 1 = 4 2 4
81 11 79 80 mp2an 4 2 + 1 = 4 2 4
82 63 oveq1i 4 2 4 = 16 4
83 78 81 82 3eqtri 4 3 = 16 4
84 83 oveq2i A 3 4 3 = A 3 16 4
85 18 a1i φ 3 0
86 1 12 14 85 expdivd φ A 4 3 = A 3 4 3
87 expcl A 3 0 A 3
88 1 18 87 sylancl φ A 3
89 88 52 12 54 14 divdiv1d φ A 3 16 4 = A 3 16 4
90 84 86 89 3eqtr4a φ A 4 3 = A 3 16 4
91 90 oveq2d φ 4 A 4 3 = 4 A 3 16 4
92 36 oveq2i A 3 8 2 = A 3 16
93 34 a1i φ 8
94 35 a1i φ 2
95 41 a1i φ 8 0
96 2ne0 2 0
97 96 a1i φ 2 0
98 88 93 94 95 97 divdiv1d φ A 3 8 2 = A 3 8 2
99 88 52 54 divcld φ A 3 16
100 99 12 14 divcan2d φ 4 A 3 16 4 = A 3 16
101 92 98 100 3eqtr4a φ A 3 8 2 = 4 A 3 16 4
102 91 101 eqtr4d φ 4 A 4 3 = A 3 8 2
103 102 oveq1d φ 4 A 4 3 X = A 3 8 2 X
104 74 76 103 3eqtrd φ 4 X A 4 3 = A 3 8 2 X
105 4nn0 4 0
106 105 a1i φ 4 0
107 1 12 14 106 expdivd φ A 4 4 = A 4 4 4
108 expmul 2 2 0 4 0 2 2 4 = 2 2 4
109 35 79 105 108 mp3an 2 2 4 = 2 2 4
110 4t2e8 4 2 = 8
111 11 35 110 mulcomli 2 4 = 8
112 111 oveq2i 2 2 4 = 2 8
113 109 112 eqtr3i 2 2 4 = 2 8
114 sq2 2 2 = 4
115 114 oveq1i 2 2 4 = 4 4
116 113 115 eqtr3i 2 8 = 4 4
117 2exp8 2 8 = 256
118 116 117 eqtr3i 4 4 = 256
119 118 oveq2i A 4 4 4 = A 4 256
120 107 119 eqtrdi φ A 4 4 = A 4 256
121 104 120 oveq12d φ 4 X A 4 3 + A 4 4 = A 3 8 2 X + A 4 256
122 71 121 oveq12d φ 6 X 2 A 4 2 + 4 X A 4 3 + A 4 4 = 3 8 A 2 X 2 + A 3 8 2 X + A 4 256
123 26 122 oveq12d φ X 4 + 4 X 3 A 4 + 6 X 2 A 4 2 + 4 X A 4 3 + A 4 4 = X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256
124 10 17 123 3eqtrd φ Y 4 = X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256
125 124 oveq1d φ Y 4 + P Y 2 = X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2
126 expcl X 4 0 X 4
127 8 105 126 sylancl φ X 4
128 1 20 mulcld φ A X 3
129 127 128 addcld φ X 4 + A X 3
130 mulcl 3 8 A 2 3 8 A 2
131 57 48 130 sylancr φ 3 8 A 2
132 131 31 mulcld φ 3 8 A 2 X 2
133 88 93 95 divcld φ A 3 8
134 133 halfcld φ A 3 8 2
135 134 8 mulcld φ A 3 8 2 X
136 expcl A 4 0 A 4
137 1 105 136 sylancl φ A 4
138 5nn0 5 0
139 79 138 deccl 25 0
140 139 27 decnncl 256
141 140 nncni 256
142 141 a1i φ 256
143 140 nnne0i 256 0
144 143 a1i φ 256 0
145 137 142 144 divcld φ A 4 256
146 135 145 addcld φ A 3 8 2 X + A 4 256
147 132 146 addcld φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256
148 1 2 3 4 5 6 7 quart1cl φ P Q R
149 148 simp1d φ P
150 8 15 addcld φ X + A 4
151 9 150 eqeltrd φ Y
152 151 sqcld φ Y 2
153 149 152 mulcld φ P Y 2
154 129 147 153 addassd φ X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 = X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2
155 125 154 eqtrd φ Y 4 + P Y 2 = X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2
156 155 oveq1d φ Y 4 + P Y 2 + Q Y + R = X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 + Q Y + R
157 147 153 addcld φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2
158 148 simp2d φ Q
159 158 151 mulcld φ Q Y
160 148 simp3d φ R
161 159 160 addcld φ Q Y + R
162 129 157 161 addassd φ X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 + Q Y + R = X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 + Q Y + R
163 9 oveq1d φ Y 2 = X + A 4 2
164 binom2 X A 4 X + A 4 2 = X 2 + 2 X A 4 + A 4 2
165 8 15 164 syl2anc φ X + A 4 2 = X 2 + 2 X A 4 + A 4 2
166 8 15 mulcld φ X A 4
167 mulcl 2 X A 4 2 X A 4
168 35 166 167 sylancr φ 2 X A 4
169 31 168 30 addassd φ X 2 + 2 X A 4 + A 4 2 = X 2 + 2 X A 4 + A 4 2
170 163 165 169 3eqtrd φ Y 2 = X 2 + 2 X A 4 + A 4 2
171 170 oveq2d φ P Y 2 = P X 2 + 2 X A 4 + A 4 2
172 168 30 addcld φ 2 X A 4 + A 4 2
173 149 31 172 adddid φ P X 2 + 2 X A 4 + A 4 2 = P X 2 + P 2 X A 4 + A 4 2
174 171 173 eqtrd φ P Y 2 = P X 2 + P 2 X A 4 + A 4 2
175 174 oveq2d φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 = 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P X 2 + P 2 X A 4 + A 4 2
176 149 31 mulcld φ P X 2
177 149 172 mulcld φ P 2 X A 4 + A 4 2
178 132 146 176 177 add4d φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P X 2 + P 2 X A 4 + A 4 2 = 3 8 A 2 X 2 + P X 2 + A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2
179 131 149 31 adddird φ 3 8 A 2 + P X 2 = 3 8 A 2 X 2 + P X 2
180 5 oveq2d φ 3 8 A 2 + P = 3 8 A 2 + B - 3 8 A 2
181 131 2 pncan3d φ 3 8 A 2 + B - 3 8 A 2 = B
182 180 181 eqtrd φ 3 8 A 2 + P = B
183 182 oveq1d φ 3 8 A 2 + P X 2 = B X 2
184 179 183 eqtr3d φ 3 8 A 2 X 2 + P X 2 = B X 2
185 184 oveq1d φ 3 8 A 2 X 2 + P X 2 + A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 = B X 2 + A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2
186 175 178 185 3eqtrd φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 = B X 2 + A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2
187 186 oveq1d φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 + Q Y + R = B X 2 + A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 + Q Y + R
188 2 31 mulcld φ B X 2
189 146 177 addcld φ A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2
190 188 189 161 addassd φ B X 2 + A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 + Q Y + R = B X 2 + A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 + Q Y + R
191 1 2 mulcld φ A B
192 191 halfcld φ A B 2
193 192 133 subcld φ A B 2 A 3 8
194 193 8 mulcld φ A B 2 A 3 8 X
195 149 30 mulcld φ P A 4 2
196 145 195 addcld φ A 4 256 + P A 4 2
197 158 8 mulcld φ Q X
198 158 15 mulcld φ Q A 4
199 198 160 addcld φ Q A 4 + R
200 194 196 197 199 add4d φ A B 2 A 3 8 X + A 4 256 + P A 4 2 + Q X + Q A 4 + R = A B 2 A 3 8 X + Q X + A 4 256 + P A 4 2 + Q A 4 + R
201 149 168 30 adddid φ P 2 X A 4 + A 4 2 = P 2 X A 4 + P A 4 2
202 201 oveq2d φ A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 = A 3 8 2 X + A 4 256 + P 2 X A 4 + P A 4 2
203 149 168 mulcld φ P 2 X A 4
204 135 145 203 195 add4d φ A 3 8 2 X + A 4 256 + P 2 X A 4 + P A 4 2 = A 3 8 2 X + P 2 X A 4 + A 4 256 + P A 4 2
205 1 94 94 97 97 divdiv1d φ A 2 2 = A 2 2
206 2t2e4 2 2 = 4
207 206 oveq2i A 2 2 = A 4
208 205 207 eqtrdi φ A 2 2 = A 4
209 208 oveq2d φ 2 A 2 2 = 2 A 4
210 1 halfcld φ A 2
211 210 94 97 divcan2d φ 2 A 2 2 = A 2
212 209 211 eqtr3d φ 2 A 4 = A 2
213 212 oveq2d φ X 2 A 4 = X A 2
214 8 210 mulcomd φ X A 2 = A 2 X
215 213 214 eqtrd φ X 2 A 4 = A 2 X
216 215 oveq2d φ P X 2 A 4 = P A 2 X
217 94 8 15 mul12d φ 2 X A 4 = X 2 A 4
218 217 oveq2d φ P 2 X A 4 = P X 2 A 4
219 149 210 8 mulassd φ P A 2 X = P A 2 X
220 216 218 219 3eqtr4d φ P 2 X A 4 = P A 2 X
221 220 oveq2d φ A 3 8 2 X + P 2 X A 4 = A 3 8 2 X + P A 2 X
222 149 210 mulcld φ P A 2
223 134 222 8 adddird φ A 3 8 2 + P A 2 X = A 3 8 2 X + P A 2 X
224 5 oveq1d φ P A 2 = B 3 8 A 2 A 2
225 2 131 210 subdird φ B 3 8 A 2 A 2 = B A 2 3 8 A 2 A 2
226 2 1 94 97 divassd φ B A 2 = B A 2
227 2 1 mulcomd φ B A = A B
228 227 oveq1d φ B A 2 = A B 2
229 226 228 eqtr3d φ B A 2 = A B 2
230 77 oveq2i A 3 = A 2 + 1
231 expp1 A 2 0 A 2 + 1 = A 2 A
232 1 79 231 sylancl φ A 2 + 1 = A 2 A
233 230 232 eqtrid φ A 3 = A 2 A
234 233 oveq2d φ 3 8 A 3 = 3 8 A 2 A
235 39 a1i φ 3
236 235 88 93 95 div23d φ 3 A 3 8 = 3 8 A 3
237 57 a1i φ 3 8
238 237 48 1 mulassd φ 3 8 A 2 A = 3 8 A 2 A
239 234 236 238 3eqtr4rd φ 3 8 A 2 A = 3 A 3 8
240 235 88 93 95 divassd φ 3 A 3 8 = 3 A 3 8
241 239 240 eqtrd φ 3 8 A 2 A = 3 A 3 8
242 241 oveq1d φ 3 8 A 2 A 2 = 3 A 3 8 2
243 131 1 94 97 divassd φ 3 8 A 2 A 2 = 3 8 A 2 A 2
244 235 133 94 97 divassd φ 3 A 3 8 2 = 3 A 3 8 2
245 242 243 244 3eqtr3d φ 3 8 A 2 A 2 = 3 A 3 8 2
246 229 245 oveq12d φ B A 2 3 8 A 2 A 2 = A B 2 3 A 3 8 2
247 224 225 246 3eqtrd φ P A 2 = A B 2 3 A 3 8 2
248 247 oveq2d φ A 3 8 2 + P A 2 = A 3 8 2 + A B 2 - 3 A 3 8 2
249 mulcl 3 A 3 8 2 3 A 3 8 2
250 39 134 249 sylancr φ 3 A 3 8 2
251 134 192 250 addsub12d φ A 3 8 2 + A B 2 - 3 A 3 8 2 = A B 2 + A 3 8 2 - 3 A 3 8 2
252 192 250 134 subsub2d φ A B 2 3 A 3 8 2 A 3 8 2 = A B 2 + A 3 8 2 - 3 A 3 8 2
253 134 mullidd φ 1 A 3 8 2 = A 3 8 2
254 253 oveq2d φ 3 A 3 8 2 1 A 3 8 2 = 3 A 3 8 2 A 3 8 2
255 3m1e2 3 1 = 2
256 255 oveq1i 3 1 A 3 8 2 = 2 A 3 8 2
257 1cnd φ 1
258 235 257 134 subdird φ 3 1 A 3 8 2 = 3 A 3 8 2 1 A 3 8 2
259 133 94 97 divcan2d φ 2 A 3 8 2 = A 3 8
260 256 258 259 3eqtr3a φ 3 A 3 8 2 1 A 3 8 2 = A 3 8
261 254 260 eqtr3d φ 3 A 3 8 2 A 3 8 2 = A 3 8
262 261 oveq2d φ A B 2 3 A 3 8 2 A 3 8 2 = A B 2 A 3 8
263 251 252 262 3eqtr2d φ A 3 8 2 + A B 2 - 3 A 3 8 2 = A B 2 A 3 8
264 248 263 eqtrd φ A 3 8 2 + P A 2 = A B 2 A 3 8
265 264 oveq1d φ A 3 8 2 + P A 2 X = A B 2 A 3 8 X
266 221 223 265 3eqtr2d φ A 3 8 2 X + P 2 X A 4 = A B 2 A 3 8 X
267 266 oveq1d φ A 3 8 2 X + P 2 X A 4 + A 4 256 + P A 4 2 = A B 2 A 3 8 X + A 4 256 + P A 4 2
268 202 204 267 3eqtrd φ A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 = A B 2 A 3 8 X + A 4 256 + P A 4 2
269 9 oveq2d φ Q Y = Q X + A 4
270 158 8 15 adddid φ Q X + A 4 = Q X + Q A 4
271 269 270 eqtrd φ Q Y = Q X + Q A 4
272 271 oveq1d φ Q Y + R = Q X + Q A 4 + R
273 197 198 160 addassd φ Q X + Q A 4 + R = Q X + Q A 4 + R
274 272 273 eqtrd φ Q Y + R = Q X + Q A 4 + R
275 268 274 oveq12d φ A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 + Q Y + R = A B 2 A 3 8 X + A 4 256 + P A 4 2 + Q X + Q A 4 + R
276 193 158 addcomd φ A B 2 - A 3 8 + Q = Q + A B 2 - A 3 8
277 6 oveq1d φ Q + A B 2 - A 3 8 = C A B 2 + A 3 8 + A B 2 A 3 8
278 3 192 subcld φ C A B 2
279 278 133 192 ppncand φ C A B 2 + A 3 8 + A B 2 A 3 8 = C - A B 2 + A B 2
280 3 192 npcand φ C - A B 2 + A B 2 = C
281 279 280 eqtrd φ C A B 2 + A 3 8 + A B 2 A 3 8 = C
282 276 277 281 3eqtrd φ A B 2 - A 3 8 + Q = C
283 282 oveq1d φ A B 2 - A 3 8 + Q X = C X
284 193 158 8 adddird φ A B 2 - A 3 8 + Q X = A B 2 A 3 8 X + Q X
285 283 284 eqtr3d φ C X = A B 2 A 3 8 X + Q X
286 1 2 3 4 5 6 7 8 9 quart1lem φ D = A 4 256 + P A 4 2 + Q A 4 + R
287 285 286 oveq12d φ C X + D = A B 2 A 3 8 X + Q X + A 4 256 + P A 4 2 + Q A 4 + R
288 200 275 287 3eqtr4d φ A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 + Q Y + R = C X + D
289 288 oveq2d φ B X 2 + A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 + Q Y + R = B X 2 + C X + D
290 187 190 289 3eqtrd φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 + Q Y + R = B X 2 + C X + D
291 290 oveq2d φ X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2 + Q Y + R = X 4 + A X 3 + B X 2 + C X + D
292 156 162 291 3eqtrrd φ X 4 + A X 3 + B X 2 + C X + D = Y 4 + P Y 2 + Q Y + R