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

Theorem quart1 24383
Description: Depress a quartic equation. (Contributed by Mario Carneiro, 6-May-2015.)
Hypotheses
Ref Expression
quart1.a (𝜑𝐴 ∈ ℂ)
quart1.b (𝜑𝐵 ∈ ℂ)
quart1.c (𝜑𝐶 ∈ ℂ)
quart1.d (𝜑𝐷 ∈ ℂ)
quart1.p (𝜑𝑃 = (𝐵 − ((3 / 8) · (𝐴↑2))))
quart1.q (𝜑𝑄 = ((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴↑3) / 8)))
quart1.r (𝜑𝑅 = ((𝐷 − ((𝐶 · 𝐴) / 4)) + ((((𝐴↑2) · 𝐵) / 16) − ((3 / 256) · (𝐴↑4)))))
quart1.x (𝜑𝑋 ∈ ℂ)
quart1.y (𝜑𝑌 = (𝑋 + (𝐴 / 4)))
Assertion
Ref Expression
quart1 (𝜑 → (((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷))) = (((𝑌↑4) + (𝑃 · (𝑌↑2))) + ((𝑄 · 𝑌) + 𝑅)))

Proof of Theorem quart1
StepHypRef Expression
1 quart1.y . . . . . . 7 (𝜑𝑌 = (𝑋 + (𝐴 / 4)))
21oveq1d 6564 . . . . . 6 (𝜑 → (𝑌↑4) = ((𝑋 + (𝐴 / 4))↑4))
3 quart1.x . . . . . . 7 (𝜑𝑋 ∈ ℂ)
4 quart1.a . . . . . . . 8 (𝜑𝐴 ∈ ℂ)
5 4cn 10975 . . . . . . . . 9 4 ∈ ℂ
65a1i 11 . . . . . . . 8 (𝜑 → 4 ∈ ℂ)
7 4ne0 10994 . . . . . . . . 9 4 ≠ 0
87a1i 11 . . . . . . . 8 (𝜑 → 4 ≠ 0)
94, 6, 8divcld 10680 . . . . . . 7 (𝜑 → (𝐴 / 4) ∈ ℂ)
10 binom4 24377 . . . . . . 7 ((𝑋 ∈ ℂ ∧ (𝐴 / 4) ∈ ℂ) → ((𝑋 + (𝐴 / 4))↑4) = (((𝑋↑4) + (4 · ((𝑋↑3) · (𝐴 / 4)))) + ((6 · ((𝑋↑2) · ((𝐴 / 4)↑2))) + ((4 · (𝑋 · ((𝐴 / 4)↑3))) + ((𝐴 / 4)↑4)))))
113, 9, 10syl2anc 691 . . . . . 6 (𝜑 → ((𝑋 + (𝐴 / 4))↑4) = (((𝑋↑4) + (4 · ((𝑋↑3) · (𝐴 / 4)))) + ((6 · ((𝑋↑2) · ((𝐴 / 4)↑2))) + ((4 · (𝑋 · ((𝐴 / 4)↑3))) + ((𝐴 / 4)↑4)))))
12 3nn0 11187 . . . . . . . . . . 11 3 ∈ ℕ0
13 expcl 12740 . . . . . . . . . . 11 ((𝑋 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑋↑3) ∈ ℂ)
143, 12, 13sylancl 693 . . . . . . . . . 10 (𝜑 → (𝑋↑3) ∈ ℂ)
156, 14, 9mul12d 10124 . . . . . . . . 9 (𝜑 → (4 · ((𝑋↑3) · (𝐴 / 4))) = ((𝑋↑3) · (4 · (𝐴 / 4))))
164, 6, 8divcan2d 10682 . . . . . . . . . 10 (𝜑 → (4 · (𝐴 / 4)) = 𝐴)
1716oveq2d 6565 . . . . . . . . 9 (𝜑 → ((𝑋↑3) · (4 · (𝐴 / 4))) = ((𝑋↑3) · 𝐴))
1814, 4mulcomd 9940 . . . . . . . . 9 (𝜑 → ((𝑋↑3) · 𝐴) = (𝐴 · (𝑋↑3)))
1915, 17, 183eqtrd 2648 . . . . . . . 8 (𝜑 → (4 · ((𝑋↑3) · (𝐴 / 4))) = (𝐴 · (𝑋↑3)))
2019oveq2d 6565 . . . . . . 7 (𝜑 → ((𝑋↑4) + (4 · ((𝑋↑3) · (𝐴 / 4)))) = ((𝑋↑4) + (𝐴 · (𝑋↑3))))
21 6nn 11066 . . . . . . . . . . . 12 6 ∈ ℕ
2221nncni 10907 . . . . . . . . . . 11 6 ∈ ℂ
2322a1i 11 . . . . . . . . . 10 (𝜑 → 6 ∈ ℂ)
249sqcld 12868 . . . . . . . . . 10 (𝜑 → ((𝐴 / 4)↑2) ∈ ℂ)
253sqcld 12868 . . . . . . . . . 10 (𝜑 → (𝑋↑2) ∈ ℂ)
2623, 24, 25mulassd 9942 . . . . . . . . 9 (𝜑 → ((6 · ((𝐴 / 4)↑2)) · (𝑋↑2)) = (6 · (((𝐴 / 4)↑2) · (𝑋↑2))))
27 3cn 10972 . . . . . . . . . . . . . . . 16 3 ∈ ℂ
28 2cn 10968 . . . . . . . . . . . . . . . 16 2 ∈ ℂ
29 3t2e6 11056 . . . . . . . . . . . . . . . 16 (3 · 2) = 6
3027, 28, 29mulcomli 9926 . . . . . . . . . . . . . . 15 (2 · 3) = 6
31 8cn 10983 . . . . . . . . . . . . . . . 16 8 ∈ ℂ
32 8t2e16 11530 . . . . . . . . . . . . . . . 16 (8 · 2) = 16
3331, 28, 32mulcomli 9926 . . . . . . . . . . . . . . 15 (2 · 8) = 16
3430, 33oveq12i 6561 . . . . . . . . . . . . . 14 ((2 · 3) / (2 · 8)) = (6 / 16)
35 8nn 11068 . . . . . . . . . . . . . . . . 17 8 ∈ ℕ
3635nnne0i 10932 . . . . . . . . . . . . . . . 16 8 ≠ 0
3731, 36pm3.2i 470 . . . . . . . . . . . . . . 15 (8 ∈ ℂ ∧ 8 ≠ 0)
38 2cnne0 11119 . . . . . . . . . . . . . . 15 (2 ∈ ℂ ∧ 2 ≠ 0)
39 divcan5 10606 . . . . . . . . . . . . . . 15 ((3 ∈ ℂ ∧ (8 ∈ ℂ ∧ 8 ≠ 0) ∧ (2 ∈ ℂ ∧ 2 ≠ 0)) → ((2 · 3) / (2 · 8)) = (3 / 8))
4027, 37, 38, 39mp3an 1416 . . . . . . . . . . . . . 14 ((2 · 3) / (2 · 8)) = (3 / 8)
4134, 40eqtr3i 2634 . . . . . . . . . . . . 13 (6 / 16) = (3 / 8)
4241oveq2i 6560 . . . . . . . . . . . 12 ((𝐴↑2) · (6 / 16)) = ((𝐴↑2) · (3 / 8))
434sqcld 12868 . . . . . . . . . . . . 13 (𝜑 → (𝐴↑2) ∈ ℂ)
44 1nn0 11185 . . . . . . . . . . . . . . . 16 1 ∈ ℕ0
4544, 21decnncl 11394 . . . . . . . . . . . . . . 15 16 ∈ ℕ
4645nncni 10907 . . . . . . . . . . . . . 14 16 ∈ ℂ
4746a1i 11 . . . . . . . . . . . . 13 (𝜑16 ∈ ℂ)
4845nnne0i 10932 . . . . . . . . . . . . . 14 16 ≠ 0
4948a1i 11 . . . . . . . . . . . . 13 (𝜑16 ≠ 0)
5043, 23, 47, 49div12d 10716 . . . . . . . . . . . 12 (𝜑 → ((𝐴↑2) · (6 / 16)) = (6 · ((𝐴↑2) / 16)))
5142, 50syl5eqr 2658 . . . . . . . . . . 11 (𝜑 → ((𝐴↑2) · (3 / 8)) = (6 · ((𝐴↑2) / 16)))
5227, 31, 36divcli 10646 . . . . . . . . . . . 12 (3 / 8) ∈ ℂ
53 mulcom 9901 . . . . . . . . . . . 12 (((3 / 8) ∈ ℂ ∧ (𝐴↑2) ∈ ℂ) → ((3 / 8) · (𝐴↑2)) = ((𝐴↑2) · (3 / 8)))
5452, 43, 53sylancr 694 . . . . . . . . . . 11 (𝜑 → ((3 / 8) · (𝐴↑2)) = ((𝐴↑2) · (3 / 8)))
554, 6, 8sqdivd 12883 . . . . . . . . . . . . 13 (𝜑 → ((𝐴 / 4)↑2) = ((𝐴↑2) / (4↑2)))
565sqvali 12805 . . . . . . . . . . . . . . 15 (4↑2) = (4 · 4)
57 4t4e16 11509 . . . . . . . . . . . . . . 15 (4 · 4) = 16
5856, 57eqtri 2632 . . . . . . . . . . . . . 14 (4↑2) = 16
5958oveq2i 6560 . . . . . . . . . . . . 13 ((𝐴↑2) / (4↑2)) = ((𝐴↑2) / 16)
6055, 59syl6eq 2660 . . . . . . . . . . . 12 (𝜑 → ((𝐴 / 4)↑2) = ((𝐴↑2) / 16))
6160oveq2d 6565 . . . . . . . . . . 11 (𝜑 → (6 · ((𝐴 / 4)↑2)) = (6 · ((𝐴↑2) / 16)))
6251, 54, 613eqtr4d 2654 . . . . . . . . . 10 (𝜑 → ((3 / 8) · (𝐴↑2)) = (6 · ((𝐴 / 4)↑2)))
6362oveq1d 6564 . . . . . . . . 9 (𝜑 → (((3 / 8) · (𝐴↑2)) · (𝑋↑2)) = ((6 · ((𝐴 / 4)↑2)) · (𝑋↑2)))
6425, 24mulcomd 9940 . . . . . . . . . 10 (𝜑 → ((𝑋↑2) · ((𝐴 / 4)↑2)) = (((𝐴 / 4)↑2) · (𝑋↑2)))
6564oveq2d 6565 . . . . . . . . 9 (𝜑 → (6 · ((𝑋↑2) · ((𝐴 / 4)↑2))) = (6 · (((𝐴 / 4)↑2) · (𝑋↑2))))
6626, 63, 653eqtr4rd 2655 . . . . . . . 8 (𝜑 → (6 · ((𝑋↑2) · ((𝐴 / 4)↑2))) = (((3 / 8) · (𝐴↑2)) · (𝑋↑2)))
67 expcl 12740 . . . . . . . . . . . 12 (((𝐴 / 4) ∈ ℂ ∧ 3 ∈ ℕ0) → ((𝐴 / 4)↑3) ∈ ℂ)
689, 12, 67sylancl 693 . . . . . . . . . . 11 (𝜑 → ((𝐴 / 4)↑3) ∈ ℂ)
696, 3, 68mul12d 10124 . . . . . . . . . 10 (𝜑 → (4 · (𝑋 · ((𝐴 / 4)↑3))) = (𝑋 · (4 · ((𝐴 / 4)↑3))))
706, 68mulcld 9939 . . . . . . . . . . 11 (𝜑 → (4 · ((𝐴 / 4)↑3)) ∈ ℂ)
713, 70mulcomd 9940 . . . . . . . . . 10 (𝜑 → (𝑋 · (4 · ((𝐴 / 4)↑3))) = ((4 · ((𝐴 / 4)↑3)) · 𝑋))
72 df-3 10957 . . . . . . . . . . . . . . . . 17 3 = (2 + 1)
7372oveq2i 6560 . . . . . . . . . . . . . . . 16 (4↑3) = (4↑(2 + 1))
74 2nn0 11186 . . . . . . . . . . . . . . . . 17 2 ∈ ℕ0
75 expp1 12729 . . . . . . . . . . . . . . . . 17 ((4 ∈ ℂ ∧ 2 ∈ ℕ0) → (4↑(2 + 1)) = ((4↑2) · 4))
765, 74, 75mp2an 704 . . . . . . . . . . . . . . . 16 (4↑(2 + 1)) = ((4↑2) · 4)
7758oveq1i 6559 . . . . . . . . . . . . . . . 16 ((4↑2) · 4) = (16 · 4)
7873, 76, 773eqtri 2636 . . . . . . . . . . . . . . 15 (4↑3) = (16 · 4)
7978oveq2i 6560 . . . . . . . . . . . . . 14 ((𝐴↑3) / (4↑3)) = ((𝐴↑3) / (16 · 4))
8012a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → 3 ∈ ℕ0)
814, 6, 8, 80expdivd 12884 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴 / 4)↑3) = ((𝐴↑3) / (4↑3)))
82 expcl 12740 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝐴↑3) ∈ ℂ)
834, 12, 82sylancl 693 . . . . . . . . . . . . . . 15 (𝜑 → (𝐴↑3) ∈ ℂ)
8483, 47, 6, 49, 8divdiv1d 10711 . . . . . . . . . . . . . 14 (𝜑 → (((𝐴↑3) / 16) / 4) = ((𝐴↑3) / (16 · 4)))
8579, 81, 843eqtr4a 2670 . . . . . . . . . . . . 13 (𝜑 → ((𝐴 / 4)↑3) = (((𝐴↑3) / 16) / 4))
8685oveq2d 6565 . . . . . . . . . . . 12 (𝜑 → (4 · ((𝐴 / 4)↑3)) = (4 · (((𝐴↑3) / 16) / 4)))
8732oveq2i 6560 . . . . . . . . . . . . 13 ((𝐴↑3) / (8 · 2)) = ((𝐴↑3) / 16)
8831a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 8 ∈ ℂ)
8928a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 2 ∈ ℂ)
9036a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 8 ≠ 0)
91 2ne0 10990 . . . . . . . . . . . . . . 15 2 ≠ 0
9291a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 2 ≠ 0)
9383, 88, 89, 90, 92divdiv1d 10711 . . . . . . . . . . . . 13 (𝜑 → (((𝐴↑3) / 8) / 2) = ((𝐴↑3) / (8 · 2)))
9483, 47, 49divcld 10680 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴↑3) / 16) ∈ ℂ)
9594, 6, 8divcan2d 10682 . . . . . . . . . . . . 13 (𝜑 → (4 · (((𝐴↑3) / 16) / 4)) = ((𝐴↑3) / 16))
9687, 93, 953eqtr4a 2670 . . . . . . . . . . . 12 (𝜑 → (((𝐴↑3) / 8) / 2) = (4 · (((𝐴↑3) / 16) / 4)))
9786, 96eqtr4d 2647 . . . . . . . . . . 11 (𝜑 → (4 · ((𝐴 / 4)↑3)) = (((𝐴↑3) / 8) / 2))
9897oveq1d 6564 . . . . . . . . . 10 (𝜑 → ((4 · ((𝐴 / 4)↑3)) · 𝑋) = ((((𝐴↑3) / 8) / 2) · 𝑋))
9969, 71, 983eqtrd 2648 . . . . . . . . 9 (𝜑 → (4 · (𝑋 · ((𝐴 / 4)↑3))) = ((((𝐴↑3) / 8) / 2) · 𝑋))
100 4nn0 11188 . . . . . . . . . . . 12 4 ∈ ℕ0
101100a1i 11 . . . . . . . . . . 11 (𝜑 → 4 ∈ ℕ0)
1024, 6, 8, 101expdivd 12884 . . . . . . . . . 10 (𝜑 → ((𝐴 / 4)↑4) = ((𝐴↑4) / (4↑4)))
103 expmul 12767 . . . . . . . . . . . . . . 15 ((2 ∈ ℂ ∧ 2 ∈ ℕ0 ∧ 4 ∈ ℕ0) → (2↑(2 · 4)) = ((2↑2)↑4))
10428, 74, 100, 103mp3an 1416 . . . . . . . . . . . . . 14 (2↑(2 · 4)) = ((2↑2)↑4)
105 4t2e8 11058 . . . . . . . . . . . . . . . 16 (4 · 2) = 8
1065, 28, 105mulcomli 9926 . . . . . . . . . . . . . . 15 (2 · 4) = 8
107106oveq2i 6560 . . . . . . . . . . . . . 14 (2↑(2 · 4)) = (2↑8)
108104, 107eqtr3i 2634 . . . . . . . . . . . . 13 ((2↑2)↑4) = (2↑8)
109 sq2 12822 . . . . . . . . . . . . . 14 (2↑2) = 4
110109oveq1i 6559 . . . . . . . . . . . . 13 ((2↑2)↑4) = (4↑4)
111108, 110eqtr3i 2634 . . . . . . . . . . . 12 (2↑8) = (4↑4)
112 2exp8 15634 . . . . . . . . . . . 12 (2↑8) = 256
113111, 112eqtr3i 2634 . . . . . . . . . . 11 (4↑4) = 256
114113oveq2i 6560 . . . . . . . . . 10 ((𝐴↑4) / (4↑4)) = ((𝐴↑4) / 256)
115102, 114syl6eq 2660 . . . . . . . . 9 (𝜑 → ((𝐴 / 4)↑4) = ((𝐴↑4) / 256))
11699, 115oveq12d 6567 . . . . . . . 8 (𝜑 → ((4 · (𝑋 · ((𝐴 / 4)↑3))) + ((𝐴 / 4)↑4)) = (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)))
11766, 116oveq12d 6567 . . . . . . 7 (𝜑 → ((6 · ((𝑋↑2) · ((𝐴 / 4)↑2))) + ((4 · (𝑋 · ((𝐴 / 4)↑3))) + ((𝐴 / 4)↑4))) = ((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))))
11820, 117oveq12d 6567 . . . . . 6 (𝜑 → (((𝑋↑4) + (4 · ((𝑋↑3) · (𝐴 / 4)))) + ((6 · ((𝑋↑2) · ((𝐴 / 4)↑2))) + ((4 · (𝑋 · ((𝐴 / 4)↑3))) + ((𝐴 / 4)↑4)))) = (((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)))))
1192, 11, 1183eqtrd 2648 . . . . 5 (𝜑 → (𝑌↑4) = (((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)))))
120119oveq1d 6564 . . . 4 (𝜑 → ((𝑌↑4) + (𝑃 · (𝑌↑2))) = ((((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)))) + (𝑃 · (𝑌↑2))))
121 expcl 12740 . . . . . . 7 ((𝑋 ∈ ℂ ∧ 4 ∈ ℕ0) → (𝑋↑4) ∈ ℂ)
1223, 100, 121sylancl 693 . . . . . 6 (𝜑 → (𝑋↑4) ∈ ℂ)
1234, 14mulcld 9939 . . . . . 6 (𝜑 → (𝐴 · (𝑋↑3)) ∈ ℂ)
124122, 123addcld 9938 . . . . 5 (𝜑 → ((𝑋↑4) + (𝐴 · (𝑋↑3))) ∈ ℂ)
125 mulcl 9899 . . . . . . . 8 (((3 / 8) ∈ ℂ ∧ (𝐴↑2) ∈ ℂ) → ((3 / 8) · (𝐴↑2)) ∈ ℂ)
12652, 43, 125sylancr 694 . . . . . . 7 (𝜑 → ((3 / 8) · (𝐴↑2)) ∈ ℂ)
127126, 25mulcld 9939 . . . . . 6 (𝜑 → (((3 / 8) · (𝐴↑2)) · (𝑋↑2)) ∈ ℂ)
12883, 88, 90divcld 10680 . . . . . . . . 9 (𝜑 → ((𝐴↑3) / 8) ∈ ℂ)
129128halfcld 11154 . . . . . . . 8 (𝜑 → (((𝐴↑3) / 8) / 2) ∈ ℂ)
130129, 3mulcld 9939 . . . . . . 7 (𝜑 → ((((𝐴↑3) / 8) / 2) · 𝑋) ∈ ℂ)
131 expcl 12740 . . . . . . . . 9 ((𝐴 ∈ ℂ ∧ 4 ∈ ℕ0) → (𝐴↑4) ∈ ℂ)
1324, 100, 131sylancl 693 . . . . . . . 8 (𝜑 → (𝐴↑4) ∈ ℂ)
133 5nn0 11189 . . . . . . . . . . . 12 5 ∈ ℕ0
13474, 133deccl 11388 . . . . . . . . . . 11 25 ∈ ℕ0
135134, 21decnncl 11394 . . . . . . . . . 10 256 ∈ ℕ
136135nncni 10907 . . . . . . . . 9 256 ∈ ℂ
137136a1i 11 . . . . . . . 8 (𝜑256 ∈ ℂ)
138135nnne0i 10932 . . . . . . . . 9 256 ≠ 0
139138a1i 11 . . . . . . . 8 (𝜑256 ≠ 0)
140132, 137, 139divcld 10680 . . . . . . 7 (𝜑 → ((𝐴↑4) / 256) ∈ ℂ)
141130, 140addcld 9938 . . . . . 6 (𝜑 → (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) ∈ ℂ)
142127, 141addcld 9938 . . . . 5 (𝜑 → ((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) ∈ ℂ)
143 quart1.b . . . . . . . 8 (𝜑𝐵 ∈ ℂ)
144 quart1.c . . . . . . . 8 (𝜑𝐶 ∈ ℂ)
145 quart1.d . . . . . . . 8 (𝜑𝐷 ∈ ℂ)
146 quart1.p . . . . . . . 8 (𝜑𝑃 = (𝐵 − ((3 / 8) · (𝐴↑2))))
147 quart1.q . . . . . . . 8 (𝜑𝑄 = ((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴↑3) / 8)))
148 quart1.r . . . . . . . 8 (𝜑𝑅 = ((𝐷 − ((𝐶 · 𝐴) / 4)) + ((((𝐴↑2) · 𝐵) / 16) − ((3 / 256) · (𝐴↑4)))))
1494, 143, 144, 145, 146, 147, 148quart1cl 24381 . . . . . . 7 (𝜑 → (𝑃 ∈ ℂ ∧ 𝑄 ∈ ℂ ∧ 𝑅 ∈ ℂ))
150149simp1d 1066 . . . . . 6 (𝜑𝑃 ∈ ℂ)
1513, 9addcld 9938 . . . . . . . 8 (𝜑 → (𝑋 + (𝐴 / 4)) ∈ ℂ)
1521, 151eqeltrd 2688 . . . . . . 7 (𝜑𝑌 ∈ ℂ)
153152sqcld 12868 . . . . . 6 (𝜑 → (𝑌↑2) ∈ ℂ)
154150, 153mulcld 9939 . . . . 5 (𝜑 → (𝑃 · (𝑌↑2)) ∈ ℂ)
155124, 142, 154addassd 9941 . . . 4 (𝜑 → ((((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)))) + (𝑃 · (𝑌↑2))) = (((𝑋↑4) + (𝐴 · (𝑋↑3))) + (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2)))))
156120, 155eqtrd 2644 . . 3 (𝜑 → ((𝑌↑4) + (𝑃 · (𝑌↑2))) = (((𝑋↑4) + (𝐴 · (𝑋↑3))) + (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2)))))
157156oveq1d 6564 . 2 (𝜑 → (((𝑌↑4) + (𝑃 · (𝑌↑2))) + ((𝑄 · 𝑌) + 𝑅)) = ((((𝑋↑4) + (𝐴 · (𝑋↑3))) + (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2)))) + ((𝑄 · 𝑌) + 𝑅)))
158142, 154addcld 9938 . . 3 (𝜑 → (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2))) ∈ ℂ)
159149simp2d 1067 . . . . 5 (𝜑𝑄 ∈ ℂ)
160159, 152mulcld 9939 . . . 4 (𝜑 → (𝑄 · 𝑌) ∈ ℂ)
161149simp3d 1068 . . . 4 (𝜑𝑅 ∈ ℂ)
162160, 161addcld 9938 . . 3 (𝜑 → ((𝑄 · 𝑌) + 𝑅) ∈ ℂ)
163124, 158, 162addassd 9941 . 2 (𝜑 → ((((𝑋↑4) + (𝐴 · (𝑋↑3))) + (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2)))) + ((𝑄 · 𝑌) + 𝑅)) = (((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2))) + ((𝑄 · 𝑌) + 𝑅))))
1641oveq1d 6564 . . . . . . . . . 10 (𝜑 → (𝑌↑2) = ((𝑋 + (𝐴 / 4))↑2))
165 binom2 12841 . . . . . . . . . . 11 ((𝑋 ∈ ℂ ∧ (𝐴 / 4) ∈ ℂ) → ((𝑋 + (𝐴 / 4))↑2) = (((𝑋↑2) + (2 · (𝑋 · (𝐴 / 4)))) + ((𝐴 / 4)↑2)))
1663, 9, 165syl2anc 691 . . . . . . . . . 10 (𝜑 → ((𝑋 + (𝐴 / 4))↑2) = (((𝑋↑2) + (2 · (𝑋 · (𝐴 / 4)))) + ((𝐴 / 4)↑2)))
1673, 9mulcld 9939 . . . . . . . . . . . 12 (𝜑 → (𝑋 · (𝐴 / 4)) ∈ ℂ)
168 mulcl 9899 . . . . . . . . . . . 12 ((2 ∈ ℂ ∧ (𝑋 · (𝐴 / 4)) ∈ ℂ) → (2 · (𝑋 · (𝐴 / 4))) ∈ ℂ)
16928, 167, 168sylancr 694 . . . . . . . . . . 11 (𝜑 → (2 · (𝑋 · (𝐴 / 4))) ∈ ℂ)
17025, 169, 24addassd 9941 . . . . . . . . . 10 (𝜑 → (((𝑋↑2) + (2 · (𝑋 · (𝐴 / 4)))) + ((𝐴 / 4)↑2)) = ((𝑋↑2) + ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))
171164, 166, 1703eqtrd 2648 . . . . . . . . 9 (𝜑 → (𝑌↑2) = ((𝑋↑2) + ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))
172171oveq2d 6565 . . . . . . . 8 (𝜑 → (𝑃 · (𝑌↑2)) = (𝑃 · ((𝑋↑2) + ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))))
173169, 24addcld 9938 . . . . . . . . 9 (𝜑 → ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)) ∈ ℂ)
174150, 25, 173adddid 9943 . . . . . . . 8 (𝜑 → (𝑃 · ((𝑋↑2) + ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))) = ((𝑃 · (𝑋↑2)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))))
175172, 174eqtrd 2644 . . . . . . 7 (𝜑 → (𝑃 · (𝑌↑2)) = ((𝑃 · (𝑋↑2)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))))
176175oveq2d 6565 . . . . . 6 (𝜑 → (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2))) = (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + ((𝑃 · (𝑋↑2)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))))
177150, 25mulcld 9939 . . . . . . 7 (𝜑 → (𝑃 · (𝑋↑2)) ∈ ℂ)
178150, 173mulcld 9939 . . . . . . 7 (𝜑 → (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))) ∈ ℂ)
179127, 141, 177, 178add4d 10143 . . . . . 6 (𝜑 → (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + ((𝑃 · (𝑋↑2)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))) = (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (𝑃 · (𝑋↑2))) + ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))))
180126, 150, 25adddird 9944 . . . . . . . 8 (𝜑 → ((((3 / 8) · (𝐴↑2)) + 𝑃) · (𝑋↑2)) = ((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (𝑃 · (𝑋↑2))))
181146oveq2d 6565 . . . . . . . . . 10 (𝜑 → (((3 / 8) · (𝐴↑2)) + 𝑃) = (((3 / 8) · (𝐴↑2)) + (𝐵 − ((3 / 8) · (𝐴↑2)))))
182126, 143pncan3d 10274 . . . . . . . . . 10 (𝜑 → (((3 / 8) · (𝐴↑2)) + (𝐵 − ((3 / 8) · (𝐴↑2)))) = 𝐵)
183181, 182eqtrd 2644 . . . . . . . . 9 (𝜑 → (((3 / 8) · (𝐴↑2)) + 𝑃) = 𝐵)
184183oveq1d 6564 . . . . . . . 8 (𝜑 → ((((3 / 8) · (𝐴↑2)) + 𝑃) · (𝑋↑2)) = (𝐵 · (𝑋↑2)))
185180, 184eqtr3d 2646 . . . . . . 7 (𝜑 → ((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (𝑃 · (𝑋↑2))) = (𝐵 · (𝑋↑2)))
186185oveq1d 6564 . . . . . 6 (𝜑 → (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (𝑃 · (𝑋↑2))) + ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))) = ((𝐵 · (𝑋↑2)) + ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))))
187176, 179, 1863eqtrd 2648 . . . . 5 (𝜑 → (((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2))) = ((𝐵 · (𝑋↑2)) + ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))))
188187oveq1d 6564 . . . 4 (𝜑 → ((((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2))) + ((𝑄 · 𝑌) + 𝑅)) = (((𝐵 · (𝑋↑2)) + ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))) + ((𝑄 · 𝑌) + 𝑅)))
189143, 25mulcld 9939 . . . . 5 (𝜑 → (𝐵 · (𝑋↑2)) ∈ ℂ)
190141, 178addcld 9938 . . . . 5 (𝜑 → ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))) ∈ ℂ)
191189, 190, 162addassd 9941 . . . 4 (𝜑 → (((𝐵 · (𝑋↑2)) + ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))))) + ((𝑄 · 𝑌) + 𝑅)) = ((𝐵 · (𝑋↑2)) + (((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))) + ((𝑄 · 𝑌) + 𝑅))))
1924, 143mulcld 9939 . . . . . . . . . 10 (𝜑 → (𝐴 · 𝐵) ∈ ℂ)
193192halfcld 11154 . . . . . . . . 9 (𝜑 → ((𝐴 · 𝐵) / 2) ∈ ℂ)
194193, 128subcld 10271 . . . . . . . 8 (𝜑 → (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) ∈ ℂ)
195194, 3mulcld 9939 . . . . . . 7 (𝜑 → ((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) ∈ ℂ)
196150, 24mulcld 9939 . . . . . . . 8 (𝜑 → (𝑃 · ((𝐴 / 4)↑2)) ∈ ℂ)
197140, 196addcld 9938 . . . . . . 7 (𝜑 → (((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2))) ∈ ℂ)
198159, 3mulcld 9939 . . . . . . 7 (𝜑 → (𝑄 · 𝑋) ∈ ℂ)
199159, 9mulcld 9939 . . . . . . . 8 (𝜑 → (𝑄 · (𝐴 / 4)) ∈ ℂ)
200199, 161addcld 9938 . . . . . . 7 (𝜑 → ((𝑄 · (𝐴 / 4)) + 𝑅) ∈ ℂ)
201195, 197, 198, 200add4d 10143 . . . . . 6 (𝜑 → ((((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) + (((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2)))) + ((𝑄 · 𝑋) + ((𝑄 · (𝐴 / 4)) + 𝑅))) = ((((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) + (𝑄 · 𝑋)) + ((((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2))) + ((𝑄 · (𝐴 / 4)) + 𝑅))))
202150, 169, 24adddid 9943 . . . . . . . . 9 (𝜑 → (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2))) = ((𝑃 · (2 · (𝑋 · (𝐴 / 4)))) + (𝑃 · ((𝐴 / 4)↑2))))
203202oveq2d 6565 . . . . . . . 8 (𝜑 → ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))) = ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + ((𝑃 · (2 · (𝑋 · (𝐴 / 4)))) + (𝑃 · ((𝐴 / 4)↑2)))))
204150, 169mulcld 9939 . . . . . . . . 9 (𝜑 → (𝑃 · (2 · (𝑋 · (𝐴 / 4)))) ∈ ℂ)
205130, 140, 204, 196add4d 10143 . . . . . . . 8 (𝜑 → ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + ((𝑃 · (2 · (𝑋 · (𝐴 / 4)))) + (𝑃 · ((𝐴 / 4)↑2)))) = ((((((𝐴↑3) / 8) / 2) · 𝑋) + (𝑃 · (2 · (𝑋 · (𝐴 / 4))))) + (((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2)))))
2064, 89, 89, 92, 92divdiv1d 10711 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝐴 / 2) / 2) = (𝐴 / (2 · 2)))
207 2t2e4 11054 . . . . . . . . . . . . . . . . . . 19 (2 · 2) = 4
208207oveq2i 6560 . . . . . . . . . . . . . . . . . 18 (𝐴 / (2 · 2)) = (𝐴 / 4)
209206, 208syl6eq 2660 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝐴 / 2) / 2) = (𝐴 / 4))
210209oveq2d 6565 . . . . . . . . . . . . . . . 16 (𝜑 → (2 · ((𝐴 / 2) / 2)) = (2 · (𝐴 / 4)))
2114halfcld 11154 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐴 / 2) ∈ ℂ)
212211, 89, 92divcan2d 10682 . . . . . . . . . . . . . . . 16 (𝜑 → (2 · ((𝐴 / 2) / 2)) = (𝐴 / 2))
213210, 212eqtr3d 2646 . . . . . . . . . . . . . . 15 (𝜑 → (2 · (𝐴 / 4)) = (𝐴 / 2))
214213oveq2d 6565 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 · (2 · (𝐴 / 4))) = (𝑋 · (𝐴 / 2)))
2153, 211mulcomd 9940 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 · (𝐴 / 2)) = ((𝐴 / 2) · 𝑋))
216214, 215eqtrd 2644 . . . . . . . . . . . . 13 (𝜑 → (𝑋 · (2 · (𝐴 / 4))) = ((𝐴 / 2) · 𝑋))
217216oveq2d 6565 . . . . . . . . . . . 12 (𝜑 → (𝑃 · (𝑋 · (2 · (𝐴 / 4)))) = (𝑃 · ((𝐴 / 2) · 𝑋)))
21889, 3, 9mul12d 10124 . . . . . . . . . . . . 13 (𝜑 → (2 · (𝑋 · (𝐴 / 4))) = (𝑋 · (2 · (𝐴 / 4))))
219218oveq2d 6565 . . . . . . . . . . . 12 (𝜑 → (𝑃 · (2 · (𝑋 · (𝐴 / 4)))) = (𝑃 · (𝑋 · (2 · (𝐴 / 4)))))
220150, 211, 3mulassd 9942 . . . . . . . . . . . 12 (𝜑 → ((𝑃 · (𝐴 / 2)) · 𝑋) = (𝑃 · ((𝐴 / 2) · 𝑋)))
221217, 219, 2203eqtr4d 2654 . . . . . . . . . . 11 (𝜑 → (𝑃 · (2 · (𝑋 · (𝐴 / 4)))) = ((𝑃 · (𝐴 / 2)) · 𝑋))
222221oveq2d 6565 . . . . . . . . . 10 (𝜑 → (((((𝐴↑3) / 8) / 2) · 𝑋) + (𝑃 · (2 · (𝑋 · (𝐴 / 4))))) = (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝑃 · (𝐴 / 2)) · 𝑋)))
223150, 211mulcld 9939 . . . . . . . . . . 11 (𝜑 → (𝑃 · (𝐴 / 2)) ∈ ℂ)
224129, 223, 3adddird 9944 . . . . . . . . . 10 (𝜑 → (((((𝐴↑3) / 8) / 2) + (𝑃 · (𝐴 / 2))) · 𝑋) = (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝑃 · (𝐴 / 2)) · 𝑋)))
225146oveq1d 6564 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 · (𝐴 / 2)) = ((𝐵 − ((3 / 8) · (𝐴↑2))) · (𝐴 / 2)))
226143, 126, 211subdird 10366 . . . . . . . . . . . . . 14 (𝜑 → ((𝐵 − ((3 / 8) · (𝐴↑2))) · (𝐴 / 2)) = ((𝐵 · (𝐴 / 2)) − (((3 / 8) · (𝐴↑2)) · (𝐴 / 2))))
227143, 4, 89, 92divassd 10715 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐵 · 𝐴) / 2) = (𝐵 · (𝐴 / 2)))
228143, 4mulcomd 9940 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐵 · 𝐴) = (𝐴 · 𝐵))
229228oveq1d 6564 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐵 · 𝐴) / 2) = ((𝐴 · 𝐵) / 2))
230227, 229eqtr3d 2646 . . . . . . . . . . . . . . 15 (𝜑 → (𝐵 · (𝐴 / 2)) = ((𝐴 · 𝐵) / 2))
23172oveq2i 6560 . . . . . . . . . . . . . . . . . . . . 21 (𝐴↑3) = (𝐴↑(2 + 1))
232 expp1 12729 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐴 ∈ ℂ ∧ 2 ∈ ℕ0) → (𝐴↑(2 + 1)) = ((𝐴↑2) · 𝐴))
2334, 74, 232sylancl 693 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (𝐴↑(2 + 1)) = ((𝐴↑2) · 𝐴))
234231, 233syl5eq 2656 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐴↑3) = ((𝐴↑2) · 𝐴))
235234oveq2d 6565 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((3 / 8) · (𝐴↑3)) = ((3 / 8) · ((𝐴↑2) · 𝐴)))
23627a1i 11 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → 3 ∈ ℂ)
237236, 83, 88, 90div23d 10717 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((3 · (𝐴↑3)) / 8) = ((3 / 8) · (𝐴↑3)))
23852a1i 11 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (3 / 8) ∈ ℂ)
239238, 43, 4mulassd 9942 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((3 / 8) · (𝐴↑2)) · 𝐴) = ((3 / 8) · ((𝐴↑2) · 𝐴)))
240235, 237, 2393eqtr4rd 2655 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((3 / 8) · (𝐴↑2)) · 𝐴) = ((3 · (𝐴↑3)) / 8))
241236, 83, 88, 90divassd 10715 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((3 · (𝐴↑3)) / 8) = (3 · ((𝐴↑3) / 8)))
242240, 241eqtrd 2644 . . . . . . . . . . . . . . . . 17 (𝜑 → (((3 / 8) · (𝐴↑2)) · 𝐴) = (3 · ((𝐴↑3) / 8)))
243242oveq1d 6564 . . . . . . . . . . . . . . . 16 (𝜑 → ((((3 / 8) · (𝐴↑2)) · 𝐴) / 2) = ((3 · ((𝐴↑3) / 8)) / 2))
244126, 4, 89, 92divassd 10715 . . . . . . . . . . . . . . . 16 (𝜑 → ((((3 / 8) · (𝐴↑2)) · 𝐴) / 2) = (((3 / 8) · (𝐴↑2)) · (𝐴 / 2)))
245236, 128, 89, 92divassd 10715 . . . . . . . . . . . . . . . 16 (𝜑 → ((3 · ((𝐴↑3) / 8)) / 2) = (3 · (((𝐴↑3) / 8) / 2)))
246243, 244, 2453eqtr3d 2652 . . . . . . . . . . . . . . 15 (𝜑 → (((3 / 8) · (𝐴↑2)) · (𝐴 / 2)) = (3 · (((𝐴↑3) / 8) / 2)))
247230, 246oveq12d 6567 . . . . . . . . . . . . . 14 (𝜑 → ((𝐵 · (𝐴 / 2)) − (((3 / 8) · (𝐴↑2)) · (𝐴 / 2))) = (((𝐴 · 𝐵) / 2) − (3 · (((𝐴↑3) / 8) / 2))))
248225, 226, 2473eqtrd 2648 . . . . . . . . . . . . 13 (𝜑 → (𝑃 · (𝐴 / 2)) = (((𝐴 · 𝐵) / 2) − (3 · (((𝐴↑3) / 8) / 2))))
249248oveq2d 6565 . . . . . . . . . . . 12 (𝜑 → ((((𝐴↑3) / 8) / 2) + (𝑃 · (𝐴 / 2))) = ((((𝐴↑3) / 8) / 2) + (((𝐴 · 𝐵) / 2) − (3 · (((𝐴↑3) / 8) / 2)))))
250 mulcl 9899 . . . . . . . . . . . . . . 15 ((3 ∈ ℂ ∧ (((𝐴↑3) / 8) / 2) ∈ ℂ) → (3 · (((𝐴↑3) / 8) / 2)) ∈ ℂ)
25127, 129, 250sylancr 694 . . . . . . . . . . . . . 14 (𝜑 → (3 · (((𝐴↑3) / 8) / 2)) ∈ ℂ)
252129, 193, 251addsub12d 10294 . . . . . . . . . . . . 13 (𝜑 → ((((𝐴↑3) / 8) / 2) + (((𝐴 · 𝐵) / 2) − (3 · (((𝐴↑3) / 8) / 2)))) = (((𝐴 · 𝐵) / 2) + ((((𝐴↑3) / 8) / 2) − (3 · (((𝐴↑3) / 8) / 2)))))
253193, 251, 129subsub2d 10300 . . . . . . . . . . . . 13 (𝜑 → (((𝐴 · 𝐵) / 2) − ((3 · (((𝐴↑3) / 8) / 2)) − (((𝐴↑3) / 8) / 2))) = (((𝐴 · 𝐵) / 2) + ((((𝐴↑3) / 8) / 2) − (3 · (((𝐴↑3) / 8) / 2)))))
254129mulid2d 9937 . . . . . . . . . . . . . . . 16 (𝜑 → (1 · (((𝐴↑3) / 8) / 2)) = (((𝐴↑3) / 8) / 2))
255254oveq2d 6565 . . . . . . . . . . . . . . 15 (𝜑 → ((3 · (((𝐴↑3) / 8) / 2)) − (1 · (((𝐴↑3) / 8) / 2))) = ((3 · (((𝐴↑3) / 8) / 2)) − (((𝐴↑3) / 8) / 2)))
256 3m1e2 11014 . . . . . . . . . . . . . . . . 17 (3 − 1) = 2
257256oveq1i 6559 . . . . . . . . . . . . . . . 16 ((3 − 1) · (((𝐴↑3) / 8) / 2)) = (2 · (((𝐴↑3) / 8) / 2))
258 1cnd 9935 . . . . . . . . . . . . . . . . 17 (𝜑 → 1 ∈ ℂ)
259236, 258, 129subdird 10366 . . . . . . . . . . . . . . . 16 (𝜑 → ((3 − 1) · (((𝐴↑3) / 8) / 2)) = ((3 · (((𝐴↑3) / 8) / 2)) − (1 · (((𝐴↑3) / 8) / 2))))
260128, 89, 92divcan2d 10682 . . . . . . . . . . . . . . . 16 (𝜑 → (2 · (((𝐴↑3) / 8) / 2)) = ((𝐴↑3) / 8))
261257, 259, 2603eqtr3a 2668 . . . . . . . . . . . . . . 15 (𝜑 → ((3 · (((𝐴↑3) / 8) / 2)) − (1 · (((𝐴↑3) / 8) / 2))) = ((𝐴↑3) / 8))
262255, 261eqtr3d 2646 . . . . . . . . . . . . . 14 (𝜑 → ((3 · (((𝐴↑3) / 8) / 2)) − (((𝐴↑3) / 8) / 2)) = ((𝐴↑3) / 8))
263262oveq2d 6565 . . . . . . . . . . . . 13 (𝜑 → (((𝐴 · 𝐵) / 2) − ((3 · (((𝐴↑3) / 8) / 2)) − (((𝐴↑3) / 8) / 2))) = (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)))
264252, 253, 2633eqtr2d 2650 . . . . . . . . . . . 12 (𝜑 → ((((𝐴↑3) / 8) / 2) + (((𝐴 · 𝐵) / 2) − (3 · (((𝐴↑3) / 8) / 2)))) = (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)))
265249, 264eqtrd 2644 . . . . . . . . . . 11 (𝜑 → ((((𝐴↑3) / 8) / 2) + (𝑃 · (𝐴 / 2))) = (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)))
266265oveq1d 6564 . . . . . . . . . 10 (𝜑 → (((((𝐴↑3) / 8) / 2) + (𝑃 · (𝐴 / 2))) · 𝑋) = ((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋))
267222, 224, 2663eqtr2d 2650 . . . . . . . . 9 (𝜑 → (((((𝐴↑3) / 8) / 2) · 𝑋) + (𝑃 · (2 · (𝑋 · (𝐴 / 4))))) = ((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋))
268267oveq1d 6564 . . . . . . . 8 (𝜑 → ((((((𝐴↑3) / 8) / 2) · 𝑋) + (𝑃 · (2 · (𝑋 · (𝐴 / 4))))) + (((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2)))) = (((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) + (((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2)))))
269203, 205, 2683eqtrd 2648 . . . . . . 7 (𝜑 → ((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))) = (((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) + (((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2)))))
2701oveq2d 6565 . . . . . . . . . 10 (𝜑 → (𝑄 · 𝑌) = (𝑄 · (𝑋 + (𝐴 / 4))))
271159, 3, 9adddid 9943 . . . . . . . . . 10 (𝜑 → (𝑄 · (𝑋 + (𝐴 / 4))) = ((𝑄 · 𝑋) + (𝑄 · (𝐴 / 4))))
272270, 271eqtrd 2644 . . . . . . . . 9 (𝜑 → (𝑄 · 𝑌) = ((𝑄 · 𝑋) + (𝑄 · (𝐴 / 4))))
273272oveq1d 6564 . . . . . . . 8 (𝜑 → ((𝑄 · 𝑌) + 𝑅) = (((𝑄 · 𝑋) + (𝑄 · (𝐴 / 4))) + 𝑅))
274198, 199, 161addassd 9941 . . . . . . . 8 (𝜑 → (((𝑄 · 𝑋) + (𝑄 · (𝐴 / 4))) + 𝑅) = ((𝑄 · 𝑋) + ((𝑄 · (𝐴 / 4)) + 𝑅)))
275273, 274eqtrd 2644 . . . . . . 7 (𝜑 → ((𝑄 · 𝑌) + 𝑅) = ((𝑄 · 𝑋) + ((𝑄 · (𝐴 / 4)) + 𝑅)))
276269, 275oveq12d 6567 . . . . . 6 (𝜑 → (((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))) + ((𝑄 · 𝑌) + 𝑅)) = ((((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) + (((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2)))) + ((𝑄 · 𝑋) + ((𝑄 · (𝐴 / 4)) + 𝑅))))
277194, 159addcomd 10117 . . . . . . . . . 10 (𝜑 → ((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) + 𝑄) = (𝑄 + (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8))))
278147oveq1d 6564 . . . . . . . . . 10 (𝜑 → (𝑄 + (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8))) = (((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴↑3) / 8)) + (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8))))
279144, 193subcld 10271 . . . . . . . . . . . 12 (𝜑 → (𝐶 − ((𝐴 · 𝐵) / 2)) ∈ ℂ)
280279, 128, 193ppncand 10311 . . . . . . . . . . 11 (𝜑 → (((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴↑3) / 8)) + (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8))) = ((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴 · 𝐵) / 2)))
281144, 193npcand 10275 . . . . . . . . . . 11 (𝜑 → ((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴 · 𝐵) / 2)) = 𝐶)
282280, 281eqtrd 2644 . . . . . . . . . 10 (𝜑 → (((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴↑3) / 8)) + (((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8))) = 𝐶)
283277, 278, 2823eqtrd 2648 . . . . . . . . 9 (𝜑 → ((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) + 𝑄) = 𝐶)
284283oveq1d 6564 . . . . . . . 8 (𝜑 → (((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) + 𝑄) · 𝑋) = (𝐶 · 𝑋))
285194, 159, 3adddird 9944 . . . . . . . 8 (𝜑 → (((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) + 𝑄) · 𝑋) = (((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) + (𝑄 · 𝑋)))
286284, 285eqtr3d 2646 . . . . . . 7 (𝜑 → (𝐶 · 𝑋) = (((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) + (𝑄 · 𝑋)))
2874, 143, 144, 145, 146, 147, 148, 3, 1quart1lem 24382 . . . . . . 7 (𝜑𝐷 = ((((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2))) + ((𝑄 · (𝐴 / 4)) + 𝑅)))
288286, 287oveq12d 6567 . . . . . 6 (𝜑 → ((𝐶 · 𝑋) + 𝐷) = ((((((𝐴 · 𝐵) / 2) − ((𝐴↑3) / 8)) · 𝑋) + (𝑄 · 𝑋)) + ((((𝐴↑4) / 256) + (𝑃 · ((𝐴 / 4)↑2))) + ((𝑄 · (𝐴 / 4)) + 𝑅))))
289201, 276, 2883eqtr4d 2654 . . . . 5 (𝜑 → (((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))) + ((𝑄 · 𝑌) + 𝑅)) = ((𝐶 · 𝑋) + 𝐷))
290289oveq2d 6565 . . . 4 (𝜑 → ((𝐵 · (𝑋↑2)) + (((((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256)) + (𝑃 · ((2 · (𝑋 · (𝐴 / 4))) + ((𝐴 / 4)↑2)))) + ((𝑄 · 𝑌) + 𝑅))) = ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷)))
291188, 191, 2903eqtrd 2648 . . 3 (𝜑 → ((((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2))) + ((𝑄 · 𝑌) + 𝑅)) = ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷)))
292291oveq2d 6565 . 2 (𝜑 → (((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((((((3 / 8) · (𝐴↑2)) · (𝑋↑2)) + (((((𝐴↑3) / 8) / 2) · 𝑋) + ((𝐴↑4) / 256))) + (𝑃 · (𝑌↑2))) + ((𝑄 · 𝑌) + 𝑅))) = (((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷))))
293157, 163, 2923eqtrrd 2649 1 (𝜑 → (((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷))) = (((𝑌↑4) + (𝑃 · (𝑌↑2))) + ((𝑄 · 𝑌) + 𝑅)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383   = wceq 1475  wcel 1977  wne 2780  (class class class)co 6549  cc 9813  0cc0 9815  1c1 9816   + caddc 9818   · cmul 9820  cmin 10145   / cdiv 10563  2c2 10947  3c3 10948  4c4 10949  5c5 10950  6c6 10951  8c8 10953  0cn0 11169  cdc 11369  cexp 12722
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-om 6958  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-er 7629  df-en 7842  df-dom 7843  df-sdom 7844  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-div 10564  df-nn 10898  df-2 10956  df-3 10957  df-4 10958  df-5 10959  df-6 10960  df-7 10961  df-8 10962  df-9 10963  df-n0 11170  df-z 11255  df-dec 11370  df-uz 11564  df-seq 12664  df-exp 12723
This theorem is referenced by:  quart  24388
  Copyright terms: Public domain W3C validator