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 2t4e8 2 4 = 8
111 110 oveq2i 2 2 4 = 2 8
112 109 111 eqtr3i 2 2 4 = 2 8
113 sq2 2 2 = 4
114 113 oveq1i 2 2 4 = 4 4
115 112 114 eqtr3i 2 8 = 4 4
116 2exp8 2 8 = 256
117 115 116 eqtr3i 4 4 = 256
118 117 oveq2i A 4 4 4 = A 4 256
119 107 118 eqtrdi φ A 4 4 = A 4 256
120 104 119 oveq12d φ 4 X A 4 3 + A 4 4 = A 3 8 2 X + A 4 256
121 71 120 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
122 26 121 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
123 10 17 122 3eqtrd φ Y 4 = X 4 + A X 3 + 3 8 A 2 X 2 + A 3 8 2 X + A 4 256
124 123 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
125 expcl X 4 0 X 4
126 8 105 125 sylancl φ X 4
127 1 20 mulcld φ A X 3
128 126 127 addcld φ X 4 + A X 3
129 mulcl 3 8 A 2 3 8 A 2
130 57 48 129 sylancr φ 3 8 A 2
131 130 31 mulcld φ 3 8 A 2 X 2
132 88 93 95 divcld φ A 3 8
133 132 halfcld φ A 3 8 2
134 133 8 mulcld φ A 3 8 2 X
135 expcl A 4 0 A 4
136 1 105 135 sylancl φ A 4
137 5nn0 5 0
138 79 137 deccl 25 0
139 138 27 decnncl 256
140 139 nncni 256
141 140 a1i φ 256
142 139 nnne0i 256 0
143 142 a1i φ 256 0
144 136 141 143 divcld φ A 4 256
145 134 144 addcld φ A 3 8 2 X + A 4 256
146 131 145 addcld φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256
147 1 2 3 4 5 6 7 quart1cl φ P Q R
148 147 simp1d φ P
149 8 15 addcld φ X + A 4
150 9 149 eqeltrd φ Y
151 150 sqcld φ Y 2
152 148 151 mulcld φ P Y 2
153 128 146 152 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
154 124 153 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
155 154 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
156 146 152 addcld φ 3 8 A 2 X 2 + A 3 8 2 X + A 4 256 + P Y 2
157 147 simp2d φ Q
158 157 150 mulcld φ Q Y
159 147 simp3d φ R
160 158 159 addcld φ Q Y + R
161 128 156 160 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
162 9 oveq1d φ Y 2 = X + A 4 2
163 binom2 X A 4 X + A 4 2 = X 2 + 2 X A 4 + A 4 2
164 8 15 163 syl2anc φ X + A 4 2 = X 2 + 2 X A 4 + A 4 2
165 8 15 mulcld φ X A 4
166 mulcl 2 X A 4 2 X A 4
167 35 165 166 sylancr φ 2 X A 4
168 31 167 30 addassd φ X 2 + 2 X A 4 + A 4 2 = X 2 + 2 X A 4 + A 4 2
169 162 164 168 3eqtrd φ Y 2 = X 2 + 2 X A 4 + A 4 2
170 169 oveq2d φ P Y 2 = P X 2 + 2 X A 4 + A 4 2
171 167 30 addcld φ 2 X A 4 + A 4 2
172 148 31 171 adddid φ P X 2 + 2 X A 4 + A 4 2 = P X 2 + P 2 X A 4 + A 4 2
173 170 172 eqtrd φ P Y 2 = P X 2 + P 2 X A 4 + A 4 2
174 173 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
175 148 31 mulcld φ P X 2
176 148 171 mulcld φ P 2 X A 4 + A 4 2
177 131 145 175 176 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
178 130 148 31 adddird φ 3 8 A 2 + P X 2 = 3 8 A 2 X 2 + P X 2
179 5 oveq2d φ 3 8 A 2 + P = 3 8 A 2 + B - 3 8 A 2
180 130 2 pncan3d φ 3 8 A 2 + B - 3 8 A 2 = B
181 179 180 eqtrd φ 3 8 A 2 + P = B
182 181 oveq1d φ 3 8 A 2 + P X 2 = B X 2
183 178 182 eqtr3d φ 3 8 A 2 X 2 + P X 2 = B X 2
184 183 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
185 174 177 184 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
186 185 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
187 2 31 mulcld φ B X 2
188 145 176 addcld φ A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2
189 187 188 160 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
190 1 2 mulcld φ A B
191 190 halfcld φ A B 2
192 191 132 subcld φ A B 2 A 3 8
193 192 8 mulcld φ A B 2 A 3 8 X
194 148 30 mulcld φ P A 4 2
195 144 194 addcld φ A 4 256 + P A 4 2
196 157 8 mulcld φ Q X
197 157 15 mulcld φ Q A 4
198 197 159 addcld φ Q A 4 + R
199 193 195 196 198 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
200 148 167 30 adddid φ P 2 X A 4 + A 4 2 = P 2 X A 4 + P A 4 2
201 200 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
202 148 167 mulcld φ P 2 X A 4
203 134 144 202 194 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
204 1 94 94 97 97 divdiv1d φ A 2 2 = A 2 2
205 2t2e4 2 2 = 4
206 205 oveq2i A 2 2 = A 4
207 204 206 eqtrdi φ A 2 2 = A 4
208 207 oveq2d φ 2 A 2 2 = 2 A 4
209 1 halfcld φ A 2
210 209 94 97 divcan2d φ 2 A 2 2 = A 2
211 208 210 eqtr3d φ 2 A 4 = A 2
212 211 oveq2d φ X 2 A 4 = X A 2
213 8 209 mulcomd φ X A 2 = A 2 X
214 212 213 eqtrd φ X 2 A 4 = A 2 X
215 214 oveq2d φ P X 2 A 4 = P A 2 X
216 94 8 15 mul12d φ 2 X A 4 = X 2 A 4
217 216 oveq2d φ P 2 X A 4 = P X 2 A 4
218 148 209 8 mulassd φ P A 2 X = P A 2 X
219 215 217 218 3eqtr4d φ P 2 X A 4 = P A 2 X
220 219 oveq2d φ A 3 8 2 X + P 2 X A 4 = A 3 8 2 X + P A 2 X
221 148 209 mulcld φ P A 2
222 133 221 8 adddird φ A 3 8 2 + P A 2 X = A 3 8 2 X + P A 2 X
223 5 oveq1d φ P A 2 = B 3 8 A 2 A 2
224 2 130 209 subdird φ B 3 8 A 2 A 2 = B A 2 3 8 A 2 A 2
225 2 1 94 97 divassd φ B A 2 = B A 2
226 2 1 mulcomd φ B A = A B
227 226 oveq1d φ B A 2 = A B 2
228 225 227 eqtr3d φ B A 2 = A B 2
229 77 oveq2i A 3 = A 2 + 1
230 expp1 A 2 0 A 2 + 1 = A 2 A
231 1 79 230 sylancl φ A 2 + 1 = A 2 A
232 229 231 eqtrid φ A 3 = A 2 A
233 232 oveq2d φ 3 8 A 3 = 3 8 A 2 A
234 39 a1i φ 3
235 234 88 93 95 div23d φ 3 A 3 8 = 3 8 A 3
236 57 a1i φ 3 8
237 236 48 1 mulassd φ 3 8 A 2 A = 3 8 A 2 A
238 233 235 237 3eqtr4rd φ 3 8 A 2 A = 3 A 3 8
239 234 88 93 95 divassd φ 3 A 3 8 = 3 A 3 8
240 238 239 eqtrd φ 3 8 A 2 A = 3 A 3 8
241 240 oveq1d φ 3 8 A 2 A 2 = 3 A 3 8 2
242 130 1 94 97 divassd φ 3 8 A 2 A 2 = 3 8 A 2 A 2
243 234 132 94 97 divassd φ 3 A 3 8 2 = 3 A 3 8 2
244 241 242 243 3eqtr3d φ 3 8 A 2 A 2 = 3 A 3 8 2
245 228 244 oveq12d φ B A 2 3 8 A 2 A 2 = A B 2 3 A 3 8 2
246 223 224 245 3eqtrd φ P A 2 = A B 2 3 A 3 8 2
247 246 oveq2d φ A 3 8 2 + P A 2 = A 3 8 2 + A B 2 - 3 A 3 8 2
248 mulcl 3 A 3 8 2 3 A 3 8 2
249 39 133 248 sylancr φ 3 A 3 8 2
250 133 191 249 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
251 191 249 133 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
252 133 mullidd φ 1 A 3 8 2 = A 3 8 2
253 252 oveq2d φ 3 A 3 8 2 1 A 3 8 2 = 3 A 3 8 2 A 3 8 2
254 3m1e2 3 1 = 2
255 254 oveq1i 3 1 A 3 8 2 = 2 A 3 8 2
256 1cnd φ 1
257 234 256 133 subdird φ 3 1 A 3 8 2 = 3 A 3 8 2 1 A 3 8 2
258 132 94 97 divcan2d φ 2 A 3 8 2 = A 3 8
259 255 257 258 3eqtr3a φ 3 A 3 8 2 1 A 3 8 2 = A 3 8
260 253 259 eqtr3d φ 3 A 3 8 2 A 3 8 2 = A 3 8
261 260 oveq2d φ A B 2 3 A 3 8 2 A 3 8 2 = A B 2 A 3 8
262 250 251 261 3eqtr2d φ A 3 8 2 + A B 2 - 3 A 3 8 2 = A B 2 A 3 8
263 247 262 eqtrd φ A 3 8 2 + P A 2 = A B 2 A 3 8
264 263 oveq1d φ A 3 8 2 + P A 2 X = A B 2 A 3 8 X
265 220 222 264 3eqtr2d φ A 3 8 2 X + P 2 X A 4 = A B 2 A 3 8 X
266 265 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
267 201 203 266 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
268 9 oveq2d φ Q Y = Q X + A 4
269 157 8 15 adddid φ Q X + A 4 = Q X + Q A 4
270 268 269 eqtrd φ Q Y = Q X + Q A 4
271 270 oveq1d φ Q Y + R = Q X + Q A 4 + R
272 196 197 159 addassd φ Q X + Q A 4 + R = Q X + Q A 4 + R
273 271 272 eqtrd φ Q Y + R = Q X + Q A 4 + R
274 267 273 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
275 192 157 addcomd φ A B 2 - A 3 8 + Q = Q + A B 2 - A 3 8
276 6 oveq1d φ Q + A B 2 - A 3 8 = C A B 2 + A 3 8 + A B 2 A 3 8
277 3 191 subcld φ C A B 2
278 277 132 191 ppncand φ C A B 2 + A 3 8 + A B 2 A 3 8 = C - A B 2 + A B 2
279 3 191 npcand φ C - A B 2 + A B 2 = C
280 278 279 eqtrd φ C A B 2 + A 3 8 + A B 2 A 3 8 = C
281 275 276 280 3eqtrd φ A B 2 - A 3 8 + Q = C
282 281 oveq1d φ A B 2 - A 3 8 + Q X = C X
283 192 157 8 adddird φ A B 2 - A 3 8 + Q X = A B 2 A 3 8 X + Q X
284 282 283 eqtr3d φ C X = A B 2 A 3 8 X + Q X
285 1 2 3 4 5 6 7 8 9 quart1lem φ D = A 4 256 + P A 4 2 + Q A 4 + R
286 284 285 oveq12d φ C X + D = A B 2 A 3 8 X + Q X + A 4 256 + P A 4 2 + Q A 4 + R
287 199 274 286 3eqtr4d φ A 3 8 2 X + A 4 256 + P 2 X A 4 + A 4 2 + Q Y + R = C X + D
288 287 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
289 186 189 288 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
290 289 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
291 155 161 290 3eqtrrd φ X 4 + A X 3 + B X 2 + C X + D = Y 4 + P Y 2 + Q Y + R