Proof of Theorem quartlem1
Step | Hyp | Ref
| Expression |
1 | | 2cn 12048 |
. . . . . . . . . 10
⊢ 2 ∈
ℂ |
2 | | quartlem1.p |
. . . . . . . . . 10
⊢ (𝜑 → 𝑃 ∈ ℂ) |
3 | | sqmul 13839 |
. . . . . . . . . 10
⊢ ((2
∈ ℂ ∧ 𝑃
∈ ℂ) → ((2 · 𝑃)↑2) = ((2↑2) · (𝑃↑2))) |
4 | 1, 2, 3 | sylancr 587 |
. . . . . . . . 9
⊢ (𝜑 → ((2 · 𝑃)↑2) = ((2↑2) ·
(𝑃↑2))) |
5 | | sq2 13914 |
. . . . . . . . . 10
⊢
(2↑2) = 4 |
6 | 5 | oveq1i 7285 |
. . . . . . . . 9
⊢
((2↑2) · (𝑃↑2)) = (4 · (𝑃↑2)) |
7 | 4, 6 | eqtrdi 2794 |
. . . . . . . 8
⊢ (𝜑 → ((2 · 𝑃)↑2) = (4 · (𝑃↑2))) |
8 | 7 | oveq1d 7290 |
. . . . . . 7
⊢ (𝜑 → (((2 · 𝑃)↑2) − (3 ·
(𝑃↑2))) = ((4 ·
(𝑃↑2)) − (3
· (𝑃↑2)))) |
9 | | 4cn 12058 |
. . . . . . . . 9
⊢ 4 ∈
ℂ |
10 | 9 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → 4 ∈
ℂ) |
11 | | 3cn 12054 |
. . . . . . . . 9
⊢ 3 ∈
ℂ |
12 | 11 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → 3 ∈
ℂ) |
13 | 2 | sqcld 13862 |
. . . . . . . 8
⊢ (𝜑 → (𝑃↑2) ∈ ℂ) |
14 | 10, 12, 13 | subdird 11432 |
. . . . . . 7
⊢ (𝜑 → ((4 − 3) ·
(𝑃↑2)) = ((4 ·
(𝑃↑2)) − (3
· (𝑃↑2)))) |
15 | 8, 14 | eqtr4d 2781 |
. . . . . 6
⊢ (𝜑 → (((2 · 𝑃)↑2) − (3 ·
(𝑃↑2))) = ((4 −
3) · (𝑃↑2))) |
16 | | ax-1cn 10929 |
. . . . . . . . . 10
⊢ 1 ∈
ℂ |
17 | | 3p1e4 12118 |
. . . . . . . . . 10
⊢ (3 + 1) =
4 |
18 | 9, 11, 16, 17 | subaddrii 11310 |
. . . . . . . . 9
⊢ (4
− 3) = 1 |
19 | 18 | oveq1i 7285 |
. . . . . . . 8
⊢ ((4
− 3) · (𝑃↑2)) = (1 · (𝑃↑2)) |
20 | | mulid2 10974 |
. . . . . . . 8
⊢ ((𝑃↑2) ∈ ℂ →
(1 · (𝑃↑2)) =
(𝑃↑2)) |
21 | 19, 20 | eqtrid 2790 |
. . . . . . 7
⊢ ((𝑃↑2) ∈ ℂ →
((4 − 3) · (𝑃↑2)) = (𝑃↑2)) |
22 | 13, 21 | syl 17 |
. . . . . 6
⊢ (𝜑 → ((4 − 3) ·
(𝑃↑2)) = (𝑃↑2)) |
23 | 15, 22 | eqtr2d 2779 |
. . . . 5
⊢ (𝜑 → (𝑃↑2) = (((2 · 𝑃)↑2) − (3 · (𝑃↑2)))) |
24 | 23 | oveq1d 7290 |
. . . 4
⊢ (𝜑 → ((𝑃↑2) + (;12 · 𝑅)) = ((((2 · 𝑃)↑2) − (3 · (𝑃↑2))) + (;12 · 𝑅))) |
25 | | mulcl 10955 |
. . . . . . 7
⊢ ((2
∈ ℂ ∧ 𝑃
∈ ℂ) → (2 · 𝑃) ∈ ℂ) |
26 | 1, 2, 25 | sylancr 587 |
. . . . . 6
⊢ (𝜑 → (2 · 𝑃) ∈
ℂ) |
27 | 26 | sqcld 13862 |
. . . . 5
⊢ (𝜑 → ((2 · 𝑃)↑2) ∈
ℂ) |
28 | | mulcl 10955 |
. . . . . 6
⊢ ((3
∈ ℂ ∧ (𝑃↑2) ∈ ℂ) → (3 ·
(𝑃↑2)) ∈
ℂ) |
29 | 11, 13, 28 | sylancr 587 |
. . . . 5
⊢ (𝜑 → (3 · (𝑃↑2)) ∈
ℂ) |
30 | | 1nn0 12249 |
. . . . . . . 8
⊢ 1 ∈
ℕ0 |
31 | | 2nn 12046 |
. . . . . . . 8
⊢ 2 ∈
ℕ |
32 | 30, 31 | decnncl 12457 |
. . . . . . 7
⊢ ;12 ∈ ℕ |
33 | 32 | nncni 11983 |
. . . . . 6
⊢ ;12 ∈ ℂ |
34 | | quartlem1.r |
. . . . . 6
⊢ (𝜑 → 𝑅 ∈ ℂ) |
35 | | mulcl 10955 |
. . . . . 6
⊢ ((;12 ∈ ℂ ∧ 𝑅 ∈ ℂ) → (;12 · 𝑅) ∈ ℂ) |
36 | 33, 34, 35 | sylancr 587 |
. . . . 5
⊢ (𝜑 → (;12 · 𝑅) ∈ ℂ) |
37 | 27, 29, 36 | subsubd 11360 |
. . . 4
⊢ (𝜑 → (((2 · 𝑃)↑2) − ((3 ·
(𝑃↑2)) − (;12 · 𝑅))) = ((((2 · 𝑃)↑2) − (3 · (𝑃↑2))) + (;12 · 𝑅))) |
38 | 24, 37 | eqtr4d 2781 |
. . 3
⊢ (𝜑 → ((𝑃↑2) + (;12 · 𝑅)) = (((2 · 𝑃)↑2) − ((3 · (𝑃↑2)) − (;12 · 𝑅)))) |
39 | | quartlem1.u |
. . 3
⊢ (𝜑 → 𝑈 = ((𝑃↑2) + (;12 · 𝑅))) |
40 | | mulcl 10955 |
. . . . . . 7
⊢ ((4
∈ ℂ ∧ 𝑅
∈ ℂ) → (4 · 𝑅) ∈ ℂ) |
41 | 9, 34, 40 | sylancr 587 |
. . . . . 6
⊢ (𝜑 → (4 · 𝑅) ∈
ℂ) |
42 | 12, 13, 41 | subdid 11431 |
. . . . 5
⊢ (𝜑 → (3 · ((𝑃↑2) − (4 ·
𝑅))) = ((3 · (𝑃↑2)) − (3 · (4
· 𝑅)))) |
43 | | 4t3e12 12535 |
. . . . . . . . 9
⊢ (4
· 3) = ;12 |
44 | 9, 11, 43 | mulcomli 10984 |
. . . . . . . 8
⊢ (3
· 4) = ;12 |
45 | 44 | oveq1i 7285 |
. . . . . . 7
⊢ ((3
· 4) · 𝑅) =
(;12 · 𝑅) |
46 | 12, 10, 34 | mulassd 10998 |
. . . . . . 7
⊢ (𝜑 → ((3 · 4) ·
𝑅) = (3 · (4
· 𝑅))) |
47 | 45, 46 | eqtr3id 2792 |
. . . . . 6
⊢ (𝜑 → (;12 · 𝑅) = (3 · (4 · 𝑅))) |
48 | 47 | oveq2d 7291 |
. . . . 5
⊢ (𝜑 → ((3 · (𝑃↑2)) − (;12 · 𝑅)) = ((3 · (𝑃↑2)) − (3 · (4 ·
𝑅)))) |
49 | 42, 48 | eqtr4d 2781 |
. . . 4
⊢ (𝜑 → (3 · ((𝑃↑2) − (4 ·
𝑅))) = ((3 · (𝑃↑2)) − (;12 · 𝑅))) |
50 | 49 | oveq2d 7291 |
. . 3
⊢ (𝜑 → (((2 · 𝑃)↑2) − (3 ·
((𝑃↑2) − (4
· 𝑅)))) = (((2
· 𝑃)↑2) −
((3 · (𝑃↑2))
− (;12 · 𝑅)))) |
51 | 38, 39, 50 | 3eqtr4d 2788 |
. 2
⊢ (𝜑 → 𝑈 = (((2 · 𝑃)↑2) − (3 · ((𝑃↑2) − (4 ·
𝑅))))) |
52 | 1 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → 2 ∈
ℂ) |
53 | | 3nn0 12251 |
. . . . . . . . . . 11
⊢ 3 ∈
ℕ0 |
54 | 53 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → 3 ∈
ℕ0) |
55 | 52, 2, 54 | mulexpd 13879 |
. . . . . . . . 9
⊢ (𝜑 → ((2 · 𝑃)↑3) = ((2↑3) ·
(𝑃↑3))) |
56 | | cu2 13917 |
. . . . . . . . . 10
⊢
(2↑3) = 8 |
57 | 56 | oveq1i 7285 |
. . . . . . . . 9
⊢
((2↑3) · (𝑃↑3)) = (8 · (𝑃↑3)) |
58 | 55, 57 | eqtrdi 2794 |
. . . . . . . 8
⊢ (𝜑 → ((2 · 𝑃)↑3) = (8 · (𝑃↑3))) |
59 | 58 | oveq2d 7291 |
. . . . . . 7
⊢ (𝜑 → (2 · ((2 ·
𝑃)↑3)) = (2 ·
(8 · (𝑃↑3)))) |
60 | | 8cn 12070 |
. . . . . . . . 9
⊢ 8 ∈
ℂ |
61 | 60 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → 8 ∈
ℂ) |
62 | | expcl 13800 |
. . . . . . . . 9
⊢ ((𝑃 ∈ ℂ ∧ 3 ∈
ℕ0) → (𝑃↑3) ∈ ℂ) |
63 | 2, 53, 62 | sylancl 586 |
. . . . . . . 8
⊢ (𝜑 → (𝑃↑3) ∈ ℂ) |
64 | 52, 61, 63 | mul12d 11184 |
. . . . . . 7
⊢ (𝜑 → (2 · (8 ·
(𝑃↑3))) = (8 ·
(2 · (𝑃↑3)))) |
65 | 59, 64 | eqtrd 2778 |
. . . . . 6
⊢ (𝜑 → (2 · ((2 ·
𝑃)↑3)) = (8 ·
(2 · (𝑃↑3)))) |
66 | | 9cn 12073 |
. . . . . . . . 9
⊢ 9 ∈
ℂ |
67 | 66 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → 9 ∈
ℂ) |
68 | | mulcl 10955 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ (𝑃↑3) ∈ ℂ) → (2 ·
(𝑃↑3)) ∈
ℂ) |
69 | 1, 63, 68 | sylancr 587 |
. . . . . . . 8
⊢ (𝜑 → (2 · (𝑃↑3)) ∈
ℂ) |
70 | 2, 34 | mulcld 10995 |
. . . . . . . . 9
⊢ (𝜑 → (𝑃 · 𝑅) ∈ ℂ) |
71 | | mulcl 10955 |
. . . . . . . . 9
⊢ ((8
∈ ℂ ∧ (𝑃
· 𝑅) ∈ ℂ)
→ (8 · (𝑃
· 𝑅)) ∈
ℂ) |
72 | 60, 70, 71 | sylancr 587 |
. . . . . . . 8
⊢ (𝜑 → (8 · (𝑃 · 𝑅)) ∈ ℂ) |
73 | 67, 69, 72 | subdid 11431 |
. . . . . . 7
⊢ (𝜑 → (9 · ((2 ·
(𝑃↑3)) − (8
· (𝑃 · 𝑅)))) = ((9 · (2 ·
(𝑃↑3))) − (9
· (8 · (𝑃
· 𝑅))))) |
74 | 26, 13, 41 | subdid 11431 |
. . . . . . . . 9
⊢ (𝜑 → ((2 · 𝑃) · ((𝑃↑2) − (4 · 𝑅))) = (((2 · 𝑃) · (𝑃↑2)) − ((2 · 𝑃) · (4 · 𝑅)))) |
75 | 52, 2, 13 | mulassd 10998 |
. . . . . . . . . . 11
⊢ (𝜑 → ((2 · 𝑃) · (𝑃↑2)) = (2 · (𝑃 · (𝑃↑2)))) |
76 | 2, 13 | mulcomd 10996 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑃 · (𝑃↑2)) = ((𝑃↑2) · 𝑃)) |
77 | | df-3 12037 |
. . . . . . . . . . . . . . 15
⊢ 3 = (2 +
1) |
78 | 77 | oveq2i 7286 |
. . . . . . . . . . . . . 14
⊢ (𝑃↑3) = (𝑃↑(2 + 1)) |
79 | | 2nn0 12250 |
. . . . . . . . . . . . . . 15
⊢ 2 ∈
ℕ0 |
80 | | expp1 13789 |
. . . . . . . . . . . . . . 15
⊢ ((𝑃 ∈ ℂ ∧ 2 ∈
ℕ0) → (𝑃↑(2 + 1)) = ((𝑃↑2) · 𝑃)) |
81 | 2, 79, 80 | sylancl 586 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑃↑(2 + 1)) = ((𝑃↑2) · 𝑃)) |
82 | 78, 81 | eqtrid 2790 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑃↑3) = ((𝑃↑2) · 𝑃)) |
83 | 76, 82 | eqtr4d 2781 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑃 · (𝑃↑2)) = (𝑃↑3)) |
84 | 83 | oveq2d 7291 |
. . . . . . . . . . 11
⊢ (𝜑 → (2 · (𝑃 · (𝑃↑2))) = (2 · (𝑃↑3))) |
85 | 75, 84 | eqtrd 2778 |
. . . . . . . . . 10
⊢ (𝜑 → ((2 · 𝑃) · (𝑃↑2)) = (2 · (𝑃↑3))) |
86 | 52, 2, 10, 34 | mul4d 11187 |
. . . . . . . . . . 11
⊢ (𝜑 → ((2 · 𝑃) · (4 · 𝑅)) = ((2 · 4) ·
(𝑃 · 𝑅))) |
87 | | 4t2e8 12141 |
. . . . . . . . . . . . 13
⊢ (4
· 2) = 8 |
88 | 9, 1, 87 | mulcomli 10984 |
. . . . . . . . . . . 12
⊢ (2
· 4) = 8 |
89 | 88 | oveq1i 7285 |
. . . . . . . . . . 11
⊢ ((2
· 4) · (𝑃
· 𝑅)) = (8 ·
(𝑃 · 𝑅)) |
90 | 86, 89 | eqtrdi 2794 |
. . . . . . . . . 10
⊢ (𝜑 → ((2 · 𝑃) · (4 · 𝑅)) = (8 · (𝑃 · 𝑅))) |
91 | 85, 90 | oveq12d 7293 |
. . . . . . . . 9
⊢ (𝜑 → (((2 · 𝑃) · (𝑃↑2)) − ((2 · 𝑃) · (4 · 𝑅))) = ((2 · (𝑃↑3)) − (8 ·
(𝑃 · 𝑅)))) |
92 | 74, 91 | eqtrd 2778 |
. . . . . . . 8
⊢ (𝜑 → ((2 · 𝑃) · ((𝑃↑2) − (4 · 𝑅))) = ((2 · (𝑃↑3)) − (8 ·
(𝑃 · 𝑅)))) |
93 | 92 | oveq2d 7291 |
. . . . . . 7
⊢ (𝜑 → (9 · ((2 ·
𝑃) · ((𝑃↑2) − (4 ·
𝑅)))) = (9 · ((2
· (𝑃↑3))
− (8 · (𝑃
· 𝑅))))) |
94 | | 9t8e72 12565 |
. . . . . . . . . 10
⊢ (9
· 8) = ;72 |
95 | 94 | oveq1i 7285 |
. . . . . . . . 9
⊢ ((9
· 8) · (𝑃
· 𝑅)) = (;72 · (𝑃 · 𝑅)) |
96 | 67, 61, 70 | mulassd 10998 |
. . . . . . . . 9
⊢ (𝜑 → ((9 · 8) ·
(𝑃 · 𝑅)) = (9 · (8 ·
(𝑃 · 𝑅)))) |
97 | 95, 96 | eqtr3id 2792 |
. . . . . . . 8
⊢ (𝜑 → (;72 · (𝑃 · 𝑅)) = (9 · (8 · (𝑃 · 𝑅)))) |
98 | 97 | oveq2d 7291 |
. . . . . . 7
⊢ (𝜑 → ((9 · (2 ·
(𝑃↑3))) − (;72 · (𝑃 · 𝑅))) = ((9 · (2 · (𝑃↑3))) − (9 ·
(8 · (𝑃 ·
𝑅))))) |
99 | 73, 93, 98 | 3eqtr4d 2788 |
. . . . . 6
⊢ (𝜑 → (9 · ((2 ·
𝑃) · ((𝑃↑2) − (4 ·
𝑅)))) = ((9 · (2
· (𝑃↑3)))
− (;72 · (𝑃 · 𝑅)))) |
100 | 65, 99 | oveq12d 7293 |
. . . . 5
⊢ (𝜑 → ((2 · ((2 ·
𝑃)↑3)) − (9
· ((2 · 𝑃)
· ((𝑃↑2)
− (4 · 𝑅)))))
= ((8 · (2 · (𝑃↑3))) − ((9 · (2 ·
(𝑃↑3))) − (;72 · (𝑃 · 𝑅))))) |
101 | | mulcl 10955 |
. . . . . . 7
⊢ ((8
∈ ℂ ∧ (2 · (𝑃↑3)) ∈ ℂ) → (8 ·
(2 · (𝑃↑3)))
∈ ℂ) |
102 | 60, 69, 101 | sylancr 587 |
. . . . . 6
⊢ (𝜑 → (8 · (2 ·
(𝑃↑3))) ∈
ℂ) |
103 | | mulcl 10955 |
. . . . . . 7
⊢ ((9
∈ ℂ ∧ (2 · (𝑃↑3)) ∈ ℂ) → (9 ·
(2 · (𝑃↑3)))
∈ ℂ) |
104 | 66, 69, 103 | sylancr 587 |
. . . . . 6
⊢ (𝜑 → (9 · (2 ·
(𝑃↑3))) ∈
ℂ) |
105 | | 7nn0 12255 |
. . . . . . . . 9
⊢ 7 ∈
ℕ0 |
106 | 105, 31 | decnncl 12457 |
. . . . . . . 8
⊢ ;72 ∈ ℕ |
107 | 106 | nncni 11983 |
. . . . . . 7
⊢ ;72 ∈ ℂ |
108 | | mulcl 10955 |
. . . . . . 7
⊢ ((;72 ∈ ℂ ∧ (𝑃 · 𝑅) ∈ ℂ) → (;72 · (𝑃 · 𝑅)) ∈ ℂ) |
109 | 107, 70, 108 | sylancr 587 |
. . . . . 6
⊢ (𝜑 → (;72 · (𝑃 · 𝑅)) ∈ ℂ) |
110 | 102, 104,
109 | subsubd 11360 |
. . . . 5
⊢ (𝜑 → ((8 · (2 ·
(𝑃↑3))) − ((9
· (2 · (𝑃↑3))) − (;72 · (𝑃 · 𝑅)))) = (((8 · (2 · (𝑃↑3))) − (9 ·
(2 · (𝑃↑3)))) +
(;72 · (𝑃 · 𝑅)))) |
111 | 104, 102 | negsubdi2d 11348 |
. . . . . . 7
⊢ (𝜑 → -((9 · (2 ·
(𝑃↑3))) − (8
· (2 · (𝑃↑3)))) = ((8 · (2 ·
(𝑃↑3))) − (9
· (2 · (𝑃↑3))))) |
112 | 67, 61, 69 | subdird 11432 |
. . . . . . . . 9
⊢ (𝜑 → ((9 − 8) · (2
· (𝑃↑3))) = ((9
· (2 · (𝑃↑3))) − (8 · (2 ·
(𝑃↑3))))) |
113 | | 8p1e9 12123 |
. . . . . . . . . . . 12
⊢ (8 + 1) =
9 |
114 | 66, 60, 16, 113 | subaddrii 11310 |
. . . . . . . . . . 11
⊢ (9
− 8) = 1 |
115 | 114 | oveq1i 7285 |
. . . . . . . . . 10
⊢ ((9
− 8) · (2 · (𝑃↑3))) = (1 · (2 · (𝑃↑3))) |
116 | 69 | mulid2d 10993 |
. . . . . . . . . 10
⊢ (𝜑 → (1 · (2 ·
(𝑃↑3))) = (2 ·
(𝑃↑3))) |
117 | 115, 116 | eqtrid 2790 |
. . . . . . . . 9
⊢ (𝜑 → ((9 − 8) · (2
· (𝑃↑3))) = (2
· (𝑃↑3))) |
118 | 112, 117 | eqtr3d 2780 |
. . . . . . . 8
⊢ (𝜑 → ((9 · (2 ·
(𝑃↑3))) − (8
· (2 · (𝑃↑3)))) = (2 · (𝑃↑3))) |
119 | 118 | negeqd 11215 |
. . . . . . 7
⊢ (𝜑 → -((9 · (2 ·
(𝑃↑3))) − (8
· (2 · (𝑃↑3)))) = -(2 · (𝑃↑3))) |
120 | 111, 119 | eqtr3d 2780 |
. . . . . 6
⊢ (𝜑 → ((8 · (2 ·
(𝑃↑3))) − (9
· (2 · (𝑃↑3)))) = -(2 · (𝑃↑3))) |
121 | 120 | oveq1d 7290 |
. . . . 5
⊢ (𝜑 → (((8 · (2 ·
(𝑃↑3))) − (9
· (2 · (𝑃↑3)))) + (;72 · (𝑃 · 𝑅))) = (-(2 · (𝑃↑3)) + (;72 · (𝑃 · 𝑅)))) |
122 | 100, 110,
121 | 3eqtrd 2782 |
. . . 4
⊢ (𝜑 → ((2 · ((2 ·
𝑃)↑3)) − (9
· ((2 · 𝑃)
· ((𝑃↑2)
− (4 · 𝑅)))))
= (-(2 · (𝑃↑3))
+ (;72 · (𝑃 · 𝑅)))) |
123 | | 7nn 12065 |
. . . . . . 7
⊢ 7 ∈
ℕ |
124 | 79, 123 | decnncl 12457 |
. . . . . 6
⊢ ;27 ∈ ℕ |
125 | 124 | nncni 11983 |
. . . . 5
⊢ ;27 ∈ ℂ |
126 | | quartlem1.q |
. . . . . 6
⊢ (𝜑 → 𝑄 ∈ ℂ) |
127 | 126 | sqcld 13862 |
. . . . 5
⊢ (𝜑 → (𝑄↑2) ∈ ℂ) |
128 | | mulneg2 11412 |
. . . . 5
⊢ ((;27 ∈ ℂ ∧ (𝑄↑2) ∈ ℂ) →
(;27 · -(𝑄↑2)) = -(;27 · (𝑄↑2))) |
129 | 125, 127,
128 | sylancr 587 |
. . . 4
⊢ (𝜑 → (;27 · -(𝑄↑2)) = -(;27 · (𝑄↑2))) |
130 | 122, 129 | oveq12d 7293 |
. . 3
⊢ (𝜑 → (((2 · ((2 ·
𝑃)↑3)) − (9
· ((2 · 𝑃)
· ((𝑃↑2)
− (4 · 𝑅)))))
+ (;27 · -(𝑄↑2))) = ((-(2 ·
(𝑃↑3)) + (;72 · (𝑃 · 𝑅))) + -(;27 · (𝑄↑2)))) |
131 | 69 | negcld 11319 |
. . . . 5
⊢ (𝜑 → -(2 · (𝑃↑3)) ∈
ℂ) |
132 | | mulcl 10955 |
. . . . . 6
⊢ ((;27 ∈ ℂ ∧ (𝑄↑2) ∈ ℂ) →
(;27 · (𝑄↑2)) ∈ ℂ) |
133 | 125, 127,
132 | sylancr 587 |
. . . . 5
⊢ (𝜑 → (;27 · (𝑄↑2)) ∈ ℂ) |
134 | 131, 109,
133 | addsubd 11353 |
. . . 4
⊢ (𝜑 → ((-(2 · (𝑃↑3)) + (;72 · (𝑃 · 𝑅))) − (;27 · (𝑄↑2))) = ((-(2 · (𝑃↑3)) − (;27 · (𝑄↑2))) + (;72 · (𝑃 · 𝑅)))) |
135 | 131, 109 | addcld 10994 |
. . . . 5
⊢ (𝜑 → (-(2 · (𝑃↑3)) + (;72 · (𝑃 · 𝑅))) ∈ ℂ) |
136 | 135, 133 | negsubd 11338 |
. . . 4
⊢ (𝜑 → ((-(2 · (𝑃↑3)) + (;72 · (𝑃 · 𝑅))) + -(;27 · (𝑄↑2))) = ((-(2 · (𝑃↑3)) + (;72 · (𝑃 · 𝑅))) − (;27 · (𝑄↑2)))) |
137 | | quartlem1.v |
. . . 4
⊢ (𝜑 → 𝑉 = ((-(2 · (𝑃↑3)) − (;27 · (𝑄↑2))) + (;72 · (𝑃 · 𝑅)))) |
138 | 134, 136,
137 | 3eqtr4d 2788 |
. . 3
⊢ (𝜑 → ((-(2 · (𝑃↑3)) + (;72 · (𝑃 · 𝑅))) + -(;27 · (𝑄↑2))) = 𝑉) |
139 | 130, 138 | eqtr2d 2779 |
. 2
⊢ (𝜑 → 𝑉 = (((2 · ((2 · 𝑃)↑3)) − (9 ·
((2 · 𝑃) ·
((𝑃↑2) − (4
· 𝑅))))) + (;27 · -(𝑄↑2)))) |
140 | 51, 139 | jca 512 |
1
⊢ (𝜑 → (𝑈 = (((2 · 𝑃)↑2) − (3 · ((𝑃↑2) − (4 ·
𝑅)))) ∧ 𝑉 = (((2 · ((2 ·
𝑃)↑3)) − (9
· ((2 · 𝑃)
· ((𝑃↑2)
− (4 · 𝑅)))))
+ (;27 · -(𝑄↑2))))) |