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

Theorem dcubic2 25899
Description: Reverse direction of dcubic 25901. Given a solution 𝑈 to the "substitution" quadratic equation 𝑋 = 𝑈𝑀 / 𝑈, show that 𝑋 is in the desired form. (Contributed by Mario Carneiro, 25-Apr-2015.)
Hypotheses
Ref Expression
dcubic.c (𝜑𝑃 ∈ ℂ)
dcubic.d (𝜑𝑄 ∈ ℂ)
dcubic.x (𝜑𝑋 ∈ ℂ)
dcubic.t (𝜑𝑇 ∈ ℂ)
dcubic.3 (𝜑 → (𝑇↑3) = (𝐺𝑁))
dcubic.g (𝜑𝐺 ∈ ℂ)
dcubic.2 (𝜑 → (𝐺↑2) = ((𝑁↑2) + (𝑀↑3)))
dcubic.m (𝜑𝑀 = (𝑃 / 3))
dcubic.n (𝜑𝑁 = (𝑄 / 2))
dcubic.0 (𝜑𝑇 ≠ 0)
dcubic2.u (𝜑𝑈 ∈ ℂ)
dcubic2.z (𝜑𝑈 ≠ 0)
dcubic2.2 (𝜑𝑋 = (𝑈 − (𝑀 / 𝑈)))
dcubic2.x (𝜑 → ((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0)
Assertion
Ref Expression
dcubic2 (𝜑 → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
Distinct variable groups:   𝑀,𝑟   𝑃,𝑟   𝜑,𝑟   𝑄,𝑟   𝑇,𝑟   𝑈,𝑟   𝑋,𝑟
Allowed substitution hints:   𝐺(𝑟)   𝑁(𝑟)

Proof of Theorem dcubic2
StepHypRef Expression
1 dcubic2.u . . . . 5 (𝜑𝑈 ∈ ℂ)
2 dcubic.t . . . . 5 (𝜑𝑇 ∈ ℂ)
3 dcubic.0 . . . . 5 (𝜑𝑇 ≠ 0)
41, 2, 3divcld 11681 . . . 4 (𝜑 → (𝑈 / 𝑇) ∈ ℂ)
54adantr 480 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → (𝑈 / 𝑇) ∈ ℂ)
6 3nn0 12181 . . . . . . 7 3 ∈ ℕ0
76a1i 11 . . . . . 6 (𝜑 → 3 ∈ ℕ0)
81, 2, 3, 7expdivd 13806 . . . . 5 (𝜑 → ((𝑈 / 𝑇)↑3) = ((𝑈↑3) / (𝑇↑3)))
98adantr 480 . . . 4 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈 / 𝑇)↑3) = ((𝑈↑3) / (𝑇↑3)))
10 oveq1 7262 . . . . 5 ((𝑈↑3) = (𝐺𝑁) → ((𝑈↑3) / (𝑇↑3)) = ((𝐺𝑁) / (𝑇↑3)))
11 dcubic.3 . . . . . . 7 (𝜑 → (𝑇↑3) = (𝐺𝑁))
1211oveq1d 7270 . . . . . 6 (𝜑 → ((𝑇↑3) / (𝑇↑3)) = ((𝐺𝑁) / (𝑇↑3)))
13 expcl 13728 . . . . . . . 8 ((𝑇 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑇↑3) ∈ ℂ)
142, 6, 13sylancl 585 . . . . . . 7 (𝜑 → (𝑇↑3) ∈ ℂ)
15 3z 12283 . . . . . . . . 9 3 ∈ ℤ
1615a1i 11 . . . . . . . 8 (𝜑 → 3 ∈ ℤ)
172, 3, 16expne0d 13798 . . . . . . 7 (𝜑 → (𝑇↑3) ≠ 0)
1814, 17dividd 11679 . . . . . 6 (𝜑 → ((𝑇↑3) / (𝑇↑3)) = 1)
1912, 18eqtr3d 2780 . . . . 5 (𝜑 → ((𝐺𝑁) / (𝑇↑3)) = 1)
2010, 19sylan9eqr 2801 . . . 4 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈↑3) / (𝑇↑3)) = 1)
219, 20eqtrd 2778 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈 / 𝑇)↑3) = 1)
22 dcubic2.2 . . . . 5 (𝜑𝑋 = (𝑈 − (𝑀 / 𝑈)))
231, 2, 3divcan1d 11682 . . . . . 6 (𝜑 → ((𝑈 / 𝑇) · 𝑇) = 𝑈)
2423oveq2d 7271 . . . . . 6 (𝜑 → (𝑀 / ((𝑈 / 𝑇) · 𝑇)) = (𝑀 / 𝑈))
2523, 24oveq12d 7273 . . . . 5 (𝜑 → (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))) = (𝑈 − (𝑀 / 𝑈)))
2622, 25eqtr4d 2781 . . . 4 (𝜑𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
2726adantr 480 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
28 oveq1 7262 . . . . . 6 (𝑟 = (𝑈 / 𝑇) → (𝑟↑3) = ((𝑈 / 𝑇)↑3))
2928eqeq1d 2740 . . . . 5 (𝑟 = (𝑈 / 𝑇) → ((𝑟↑3) = 1 ↔ ((𝑈 / 𝑇)↑3) = 1))
30 oveq1 7262 . . . . . . 7 (𝑟 = (𝑈 / 𝑇) → (𝑟 · 𝑇) = ((𝑈 / 𝑇) · 𝑇))
3130oveq2d 7271 . . . . . . 7 (𝑟 = (𝑈 / 𝑇) → (𝑀 / (𝑟 · 𝑇)) = (𝑀 / ((𝑈 / 𝑇) · 𝑇)))
3230, 31oveq12d 7273 . . . . . 6 (𝑟 = (𝑈 / 𝑇) → ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
3332eqeq2d 2749 . . . . 5 (𝑟 = (𝑈 / 𝑇) → (𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) ↔ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇)))))
3429, 33anbi12d 630 . . . 4 (𝑟 = (𝑈 / 𝑇) → (((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))) ↔ (((𝑈 / 𝑇)↑3) = 1 ∧ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))))
3534rspcev 3552 . . 3 (((𝑈 / 𝑇) ∈ ℂ ∧ (((𝑈 / 𝑇)↑3) = 1 ∧ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
365, 21, 27, 35syl12anc 833 . 2 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
37 dcubic.m . . . . . . . 8 (𝜑𝑀 = (𝑃 / 3))
38 dcubic.c . . . . . . . . 9 (𝜑𝑃 ∈ ℂ)
39 3cn 11984 . . . . . . . . . 10 3 ∈ ℂ
4039a1i 11 . . . . . . . . 9 (𝜑 → 3 ∈ ℂ)
41 3ne0 12009 . . . . . . . . . 10 3 ≠ 0
4241a1i 11 . . . . . . . . 9 (𝜑 → 3 ≠ 0)
4338, 40, 42divcld 11681 . . . . . . . 8 (𝜑 → (𝑃 / 3) ∈ ℂ)
4437, 43eqeltrd 2839 . . . . . . 7 (𝜑𝑀 ∈ ℂ)
45 dcubic2.z . . . . . . 7 (𝜑𝑈 ≠ 0)
4644, 1, 45divcld 11681 . . . . . 6 (𝜑 → (𝑀 / 𝑈) ∈ ℂ)
4746negcld 11249 . . . . 5 (𝜑 → -(𝑀 / 𝑈) ∈ ℂ)
4847, 2, 3divcld 11681 . . . 4 (𝜑 → (-(𝑀 / 𝑈) / 𝑇) ∈ ℂ)
4948adantr 480 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝑀 / 𝑈) / 𝑇) ∈ ℂ)
5047, 2, 3, 7expdivd 13806 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇)↑3) = ((-(𝑀 / 𝑈)↑3) / (𝑇↑3)))
5144, 1, 45divnegd 11694 . . . . . . . . 9 (𝜑 → -(𝑀 / 𝑈) = (-𝑀 / 𝑈))
5251oveq1d 7270 . . . . . . . 8 (𝜑 → (-(𝑀 / 𝑈)↑3) = ((-𝑀 / 𝑈)↑3))
5344negcld 11249 . . . . . . . . 9 (𝜑 → -𝑀 ∈ ℂ)
5453, 1, 45, 7expdivd 13806 . . . . . . . 8 (𝜑 → ((-𝑀 / 𝑈)↑3) = ((-𝑀↑3) / (𝑈↑3)))
5511oveq2d 7271 . . . . . . . . . . . . . 14 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
56 dcubic.g . . . . . . . . . . . . . . 15 (𝜑𝐺 ∈ ℂ)
57 dcubic.n . . . . . . . . . . . . . . . 16 (𝜑𝑁 = (𝑄 / 2))
58 dcubic.d . . . . . . . . . . . . . . . . 17 (𝜑𝑄 ∈ ℂ)
5958halfcld 12148 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑄 / 2) ∈ ℂ)
6057, 59eqeltrd 2839 . . . . . . . . . . . . . . 15 (𝜑𝑁 ∈ ℂ)
61 subsq 13854 . . . . . . . . . . . . . . 15 ((𝐺 ∈ ℂ ∧ 𝑁 ∈ ℂ) → ((𝐺↑2) − (𝑁↑2)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
6256, 60, 61syl2anc 583 . . . . . . . . . . . . . 14 (𝜑 → ((𝐺↑2) − (𝑁↑2)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
6355, 62eqtr4d 2781 . . . . . . . . . . . . 13 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = ((𝐺↑2) − (𝑁↑2)))
64 dcubic.2 . . . . . . . . . . . . . 14 (𝜑 → (𝐺↑2) = ((𝑁↑2) + (𝑀↑3)))
6564oveq1d 7270 . . . . . . . . . . . . 13 (𝜑 → ((𝐺↑2) − (𝑁↑2)) = (((𝑁↑2) + (𝑀↑3)) − (𝑁↑2)))
6660sqcld 13790 . . . . . . . . . . . . . 14 (𝜑 → (𝑁↑2) ∈ ℂ)
67 expcl 13728 . . . . . . . . . . . . . . 15 ((𝑀 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑀↑3) ∈ ℂ)
6844, 6, 67sylancl 585 . . . . . . . . . . . . . 14 (𝜑 → (𝑀↑3) ∈ ℂ)
6966, 68pncan2d 11264 . . . . . . . . . . . . 13 (𝜑 → (((𝑁↑2) + (𝑀↑3)) − (𝑁↑2)) = (𝑀↑3))
7063, 65, 693eqtrd 2782 . . . . . . . . . . . 12 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = (𝑀↑3))
7170negeqd 11145 . . . . . . . . . . 11 (𝜑 → -((𝐺 + 𝑁) · (𝑇↑3)) = -(𝑀↑3))
7256, 60addcld 10925 . . . . . . . . . . . 12 (𝜑 → (𝐺 + 𝑁) ∈ ℂ)
7372, 14mulneg1d 11358 . . . . . . . . . . 11 (𝜑 → (-(𝐺 + 𝑁) · (𝑇↑3)) = -((𝐺 + 𝑁) · (𝑇↑3)))
74 3nn 11982 . . . . . . . . . . . . 13 3 ∈ ℕ
7574a1i 11 . . . . . . . . . . . 12 (𝜑 → 3 ∈ ℕ)
76 n2dvds3 16008 . . . . . . . . . . . . 13 ¬ 2 ∥ 3
7776a1i 11 . . . . . . . . . . . 12 (𝜑 → ¬ 2 ∥ 3)
78 oexpneg 15982 . . . . . . . . . . . 12 ((𝑀 ∈ ℂ ∧ 3 ∈ ℕ ∧ ¬ 2 ∥ 3) → (-𝑀↑3) = -(𝑀↑3))
7944, 75, 77, 78syl3anc 1369 . . . . . . . . . . 11 (𝜑 → (-𝑀↑3) = -(𝑀↑3))
8071, 73, 793eqtr4d 2788 . . . . . . . . . 10 (𝜑 → (-(𝐺 + 𝑁) · (𝑇↑3)) = (-𝑀↑3))
8180oveq1d 7270 . . . . . . . . 9 (𝜑 → ((-(𝐺 + 𝑁) · (𝑇↑3)) / (𝑈↑3)) = ((-𝑀↑3) / (𝑈↑3)))
8272negcld 11249 . . . . . . . . . 10 (𝜑 → -(𝐺 + 𝑁) ∈ ℂ)
83 expcl 13728 . . . . . . . . . . 11 ((𝑈 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑈↑3) ∈ ℂ)
841, 6, 83sylancl 585 . . . . . . . . . 10 (𝜑 → (𝑈↑3) ∈ ℂ)
851, 45, 16expne0d 13798 . . . . . . . . . 10 (𝜑 → (𝑈↑3) ≠ 0)
8682, 14, 84, 85div23d 11718 . . . . . . . . 9 (𝜑 → ((-(𝐺 + 𝑁) · (𝑇↑3)) / (𝑈↑3)) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8781, 86eqtr3d 2780 . . . . . . . 8 (𝜑 → ((-𝑀↑3) / (𝑈↑3)) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8852, 54, 873eqtrd 2782 . . . . . . 7 (𝜑 → (-(𝑀 / 𝑈)↑3) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8988oveq1d 7270 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈)↑3) / (𝑇↑3)) = (((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)) / (𝑇↑3)))
9082, 84, 85divcld 11681 . . . . . . 7 (𝜑 → (-(𝐺 + 𝑁) / (𝑈↑3)) ∈ ℂ)
9190, 14, 17divcan4d 11687 . . . . . 6 (𝜑 → (((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)) / (𝑇↑3)) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9250, 89, 913eqtrd 2782 . . . . 5 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇)↑3) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9392adantr 480 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇)↑3) = (-(𝐺 + 𝑁) / (𝑈↑3)))
94 oveq1 7262 . . . . . 6 ((𝑈↑3) = -(𝐺 + 𝑁) → ((𝑈↑3) / (𝑈↑3)) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9594eqcomd 2744 . . . . 5 ((𝑈↑3) = -(𝐺 + 𝑁) → (-(𝐺 + 𝑁) / (𝑈↑3)) = ((𝑈↑3) / (𝑈↑3)))
9684, 85dividd 11679 . . . . 5 (𝜑 → ((𝑈↑3) / (𝑈↑3)) = 1)
9795, 96sylan9eqr 2801 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝐺 + 𝑁) / (𝑈↑3)) = 1)
9893, 97eqtrd 2778 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇)↑3) = 1)
9946, 1neg2subd 11279 . . . . . 6 (𝜑 → (-(𝑀 / 𝑈) − -𝑈) = (𝑈 − (𝑀 / 𝑈)))
10022, 99eqtr4d 2781 . . . . 5 (𝜑𝑋 = (-(𝑀 / 𝑈) − -𝑈))
101100adantr 480 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑋 = (-(𝑀 / 𝑈) − -𝑈))
10247, 2, 3divcan1d 11682 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = -(𝑀 / 𝑈))
103102adantr 480 . . . . 5 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = -(𝑀 / 𝑈))
10444, 1, 45divneg2d 11695 . . . . . . . . 9 (𝜑 → -(𝑀 / 𝑈) = (𝑀 / -𝑈))
105102, 104eqtrd 2778 . . . . . . . 8 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = (𝑀 / -𝑈))
106105adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = (𝑀 / -𝑈))
107106oveq2d 7271 . . . . . 6 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)) = (𝑀 / (𝑀 / -𝑈)))
10844adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑀 ∈ ℂ)
1091negcld 11249 . . . . . . . 8 (𝜑 → -𝑈 ∈ ℂ)
110109adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -𝑈 ∈ ℂ)
11173, 71eqtrd 2778 . . . . . . . . . 10 (𝜑 → (-(𝐺 + 𝑁) · (𝑇↑3)) = -(𝑀↑3))
112111adantr 480 . . . . . . . . 9 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝐺 + 𝑁) · (𝑇↑3)) = -(𝑀↑3))
11382adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -(𝐺 + 𝑁) ∈ ℂ)
11414adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑇↑3) ∈ ℂ)
115 simpr 484 . . . . . . . . . . 11 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑈↑3) = -(𝐺 + 𝑁))
11685adantr 480 . . . . . . . . . . 11 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑈↑3) ≠ 0)
117115, 116eqnetrrd 3011 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -(𝐺 + 𝑁) ≠ 0)
11817adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑇↑3) ≠ 0)
119113, 114, 117, 118mulne0d 11557 . . . . . . . . 9 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝐺 + 𝑁) · (𝑇↑3)) ≠ 0)
120112, 119eqnetrrd 3011 . . . . . . . 8 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -(𝑀↑3) ≠ 0)
121 oveq1 7262 . . . . . . . . . . . 12 (𝑀 = 0 → (𝑀↑3) = (0↑3))
122 0exp 13746 . . . . . . . . . . . . 13 (3 ∈ ℕ → (0↑3) = 0)
12374, 122ax-mp 5 . . . . . . . . . . . 12 (0↑3) = 0
124121, 123eqtrdi 2795 . . . . . . . . . . 11 (𝑀 = 0 → (𝑀↑3) = 0)
125124negeqd 11145 . . . . . . . . . 10 (𝑀 = 0 → -(𝑀↑3) = -0)
126 neg0 11197 . . . . . . . . . 10 -0 = 0
127125, 126eqtrdi 2795 . . . . . . . . 9 (𝑀 = 0 → -(𝑀↑3) = 0)
128127necon3i 2975 . . . . . . . 8 (-(𝑀↑3) ≠ 0 → 𝑀 ≠ 0)
129120, 128syl 17 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑀 ≠ 0)
1301, 45negne0d 11260 . . . . . . . 8 (𝜑 → -𝑈 ≠ 0)
131130adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -𝑈 ≠ 0)
132108, 110, 129, 131ddcand 11701 . . . . . 6 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / (𝑀 / -𝑈)) = -𝑈)
133107, 132eqtrd 2778 . . . . 5 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)) = -𝑈)
134103, 133oveq12d 7273 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))) = (-(𝑀 / 𝑈) − -𝑈))
135101, 134eqtr4d 2781 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))
136 oveq1 7262 . . . . . 6 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑟↑3) = ((-(𝑀 / 𝑈) / 𝑇)↑3))
137136eqeq1d 2740 . . . . 5 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → ((𝑟↑3) = 1 ↔ ((-(𝑀 / 𝑈) / 𝑇)↑3) = 1))
138 oveq1 7262 . . . . . . 7 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑟 · 𝑇) = ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))
139138oveq2d 7271 . . . . . . 7 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑀 / (𝑟 · 𝑇)) = (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)))
140138, 139oveq12d 7273 . . . . . 6 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))
141140eqeq2d 2749 . . . . 5 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) ↔ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)))))
142137, 141anbi12d 630 . . . 4 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))) ↔ (((-(𝑀 / 𝑈) / 𝑇)↑3) = 1 ∧ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))))
143142rspcev 3552 . . 3 (((-(𝑀 / 𝑈) / 𝑇) ∈ ℂ ∧ (((-(𝑀 / 𝑈) / 𝑇)↑3) = 1 ∧ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
14449, 98, 135, 143syl12anc 833 . 2 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
14584sqcld 13790 . . . . . . 7 (𝜑 → ((𝑈↑3)↑2) ∈ ℂ)
146145mulid2d 10924 . . . . . 6 (𝜑 → (1 · ((𝑈↑3)↑2)) = ((𝑈↑3)↑2))
14758, 84mulcld 10926 . . . . . . 7 (𝜑 → (𝑄 · (𝑈↑3)) ∈ ℂ)
148147, 68negsubd 11268 . . . . . 6 (𝜑 → ((𝑄 · (𝑈↑3)) + -(𝑀↑3)) = ((𝑄 · (𝑈↑3)) − (𝑀↑3)))
149146, 148oveq12d 7273 . . . . 5 (𝜑 → ((1 · ((𝑈↑3)↑2)) + ((𝑄 · (𝑈↑3)) + -(𝑀↑3))) = (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))))
150 dcubic2.x . . . . . 6 (𝜑 → ((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0)
151 dcubic.x . . . . . . 7 (𝜑𝑋 ∈ ℂ)
15238, 58, 151, 2, 11, 56, 64, 37, 57, 3, 1, 45, 22dcubic1lem 25898 . . . . . 6 (𝜑 → (((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0 ↔ (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0))
153150, 152mpbid 231 . . . . 5 (𝜑 → (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0)
154149, 153eqtrd 2778 . . . 4 (𝜑 → ((1 · ((𝑈↑3)↑2)) + ((𝑄 · (𝑈↑3)) + -(𝑀↑3))) = 0)
155 1cnd 10901 . . . . 5 (𝜑 → 1 ∈ ℂ)
156 ax-1ne0 10871 . . . . . 6 1 ≠ 0
157156a1i 11 . . . . 5 (𝜑 → 1 ≠ 0)
15868negcld 11249 . . . . 5 (𝜑 → -(𝑀↑3) ∈ ℂ)
159 2cn 11978 . . . . . 6 2 ∈ ℂ
160 mulcl 10886 . . . . . 6 ((2 ∈ ℂ ∧ 𝐺 ∈ ℂ) → (2 · 𝐺) ∈ ℂ)
161159, 56, 160sylancr 586 . . . . 5 (𝜑 → (2 · 𝐺) ∈ ℂ)
162 sqmul 13767 . . . . . . 7 ((2 ∈ ℂ ∧ 𝐺 ∈ ℂ) → ((2 · 𝐺)↑2) = ((2↑2) · (𝐺↑2)))
163159, 56, 162sylancr 586 . . . . . 6 (𝜑 → ((2 · 𝐺)↑2) = ((2↑2) · (𝐺↑2)))
16464oveq2d 7271 . . . . . 6 (𝜑 → ((2↑2) · (𝐺↑2)) = ((2↑2) · ((𝑁↑2) + (𝑀↑3))))
165159sqcli 13826 . . . . . . . . 9 (2↑2) ∈ ℂ
166 mulcl 10886 . . . . . . . . 9 (((2↑2) ∈ ℂ ∧ (𝑁↑2) ∈ ℂ) → ((2↑2) · (𝑁↑2)) ∈ ℂ)
167165, 66, 166sylancr 586 . . . . . . . 8 (𝜑 → ((2↑2) · (𝑁↑2)) ∈ ℂ)
168 mulcl 10886 . . . . . . . . 9 (((2↑2) ∈ ℂ ∧ (𝑀↑3) ∈ ℂ) → ((2↑2) · (𝑀↑3)) ∈ ℂ)
169165, 68, 168sylancr 586 . . . . . . . 8 (𝜑 → ((2↑2) · (𝑀↑3)) ∈ ℂ)
170167, 169subnegd 11269 . . . . . . 7 (𝜑 → (((2↑2) · (𝑁↑2)) − -((2↑2) · (𝑀↑3))) = (((2↑2) · (𝑁↑2)) + ((2↑2) · (𝑀↑3))))
17157oveq2d 7271 . . . . . . . . . . 11 (𝜑 → (2 · 𝑁) = (2 · (𝑄 / 2)))
172159a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ∈ ℂ)
173 2ne0 12007 . . . . . . . . . . . . 13 2 ≠ 0
174173a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ≠ 0)
17558, 172, 174divcan2d 11683 . . . . . . . . . . 11 (𝜑 → (2 · (𝑄 / 2)) = 𝑄)
176171, 175eqtrd 2778 . . . . . . . . . 10 (𝜑 → (2 · 𝑁) = 𝑄)
177176oveq1d 7270 . . . . . . . . 9 (𝜑 → ((2 · 𝑁)↑2) = (𝑄↑2))
178 sqmul 13767 . . . . . . . . . 10 ((2 ∈ ℂ ∧ 𝑁 ∈ ℂ) → ((2 · 𝑁)↑2) = ((2↑2) · (𝑁↑2)))
179159, 60, 178sylancr 586 . . . . . . . . 9 (𝜑 → ((2 · 𝑁)↑2) = ((2↑2) · (𝑁↑2)))
180177, 179eqtr3d 2780 . . . . . . . 8 (𝜑 → (𝑄↑2) = ((2↑2) · (𝑁↑2)))
181158mulid2d 10924 . . . . . . . . . . 11 (𝜑 → (1 · -(𝑀↑3)) = -(𝑀↑3))
182181oveq2d 7271 . . . . . . . . . 10 (𝜑 → (4 · (1 · -(𝑀↑3))) = (4 · -(𝑀↑3)))
183 4cn 11988 . . . . . . . . . . 11 4 ∈ ℂ
184 mulneg2 11342 . . . . . . . . . . 11 ((4 ∈ ℂ ∧ (𝑀↑3) ∈ ℂ) → (4 · -(𝑀↑3)) = -(4 · (𝑀↑3)))
185183, 68, 184sylancr 586 . . . . . . . . . 10 (𝜑 → (4 · -(𝑀↑3)) = -(4 · (𝑀↑3)))
186182, 185eqtrd 2778 . . . . . . . . 9 (𝜑 → (4 · (1 · -(𝑀↑3))) = -(4 · (𝑀↑3)))
187 sq2 13842 . . . . . . . . . . 11 (2↑2) = 4
188187oveq1i 7265 . . . . . . . . . 10 ((2↑2) · (𝑀↑3)) = (4 · (𝑀↑3))
189188negeqi 11144 . . . . . . . . 9 -((2↑2) · (𝑀↑3)) = -(4 · (𝑀↑3))
190186, 189eqtr4di 2797 . . . . . . . 8 (𝜑 → (4 · (1 · -(𝑀↑3))) = -((2↑2) · (𝑀↑3)))
191180, 190oveq12d 7273 . . . . . . 7 (𝜑 → ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))) = (((2↑2) · (𝑁↑2)) − -((2↑2) · (𝑀↑3))))
192165a1i 11 . . . . . . . 8 (𝜑 → (2↑2) ∈ ℂ)
193192, 66, 68adddid 10930 . . . . . . 7 (𝜑 → ((2↑2) · ((𝑁↑2) + (𝑀↑3))) = (((2↑2) · (𝑁↑2)) + ((2↑2) · (𝑀↑3))))
194170, 191, 1933eqtr4rd 2789 . . . . . 6 (𝜑 → ((2↑2) · ((𝑁↑2) + (𝑀↑3))) = ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))))
195163, 164, 1943eqtrd 2782 . . . . 5 (𝜑 → ((2 · 𝐺)↑2) = ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))))
196155, 157, 58, 158, 84, 161, 195quad2 25894 . . . 4 (𝜑 → (((1 · ((𝑈↑3)↑2)) + ((𝑄 · (𝑈↑3)) + -(𝑀↑3))) = 0 ↔ ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1)))))
197154, 196mpbid 231 . . 3 (𝜑 → ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1))))
198 2t1e2 12066 . . . . . . 7 (2 · 1) = 2
199198oveq2i 7266 . . . . . 6 ((-𝑄 + (2 · 𝐺)) / (2 · 1)) = ((-𝑄 + (2 · 𝐺)) / 2)
20058negcld 11249 . . . . . . . 8 (𝜑 → -𝑄 ∈ ℂ)
201200, 161, 172, 174divdird 11719 . . . . . . 7 (𝜑 → ((-𝑄 + (2 · 𝐺)) / 2) = ((-𝑄 / 2) + ((2 · 𝐺) / 2)))
20257negeqd 11145 . . . . . . . . 9 (𝜑 → -𝑁 = -(𝑄 / 2))
20358, 172, 174divnegd 11694 . . . . . . . . 9 (𝜑 → -(𝑄 / 2) = (-𝑄 / 2))
204202, 203eqtr2d 2779 . . . . . . . 8 (𝜑 → (-𝑄 / 2) = -𝑁)
20556, 172, 174divcan3d 11686 . . . . . . . 8 (𝜑 → ((2 · 𝐺) / 2) = 𝐺)
206204, 205oveq12d 7273 . . . . . . 7 (𝜑 → ((-𝑄 / 2) + ((2 · 𝐺) / 2)) = (-𝑁 + 𝐺))
20760negcld 11249 . . . . . . . . 9 (𝜑 → -𝑁 ∈ ℂ)
208207, 56addcomd 11107 . . . . . . . 8 (𝜑 → (-𝑁 + 𝐺) = (𝐺 + -𝑁))
20956, 60negsubd 11268 . . . . . . . 8 (𝜑 → (𝐺 + -𝑁) = (𝐺𝑁))
210208, 209eqtrd 2778 . . . . . . 7 (𝜑 → (-𝑁 + 𝐺) = (𝐺𝑁))
211201, 206, 2103eqtrd 2782 . . . . . 6 (𝜑 → ((-𝑄 + (2 · 𝐺)) / 2) = (𝐺𝑁))
212199, 211syl5eq 2791 . . . . 5 (𝜑 → ((-𝑄 + (2 · 𝐺)) / (2 · 1)) = (𝐺𝑁))
213212eqeq2d 2749 . . . 4 (𝜑 → ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ↔ (𝑈↑3) = (𝐺𝑁)))
214198oveq2i 7266 . . . . . 6 ((-𝑄 − (2 · 𝐺)) / (2 · 1)) = ((-𝑄 − (2 · 𝐺)) / 2)
215204, 205oveq12d 7273 . . . . . . 7 (𝜑 → ((-𝑄 / 2) − ((2 · 𝐺) / 2)) = (-𝑁𝐺))
216200, 161, 172, 174divsubdird 11720 . . . . . . 7 (𝜑 → ((-𝑄 − (2 · 𝐺)) / 2) = ((-𝑄 / 2) − ((2 · 𝐺) / 2)))
21756, 60addcomd 11107 . . . . . . . . 9 (𝜑 → (𝐺 + 𝑁) = (𝑁 + 𝐺))
218217negeqd 11145 . . . . . . . 8 (𝜑 → -(𝐺 + 𝑁) = -(𝑁 + 𝐺))
21960, 56negdi2d 11276 . . . . . . . 8 (𝜑 → -(𝑁 + 𝐺) = (-𝑁𝐺))
220218, 219eqtrd 2778 . . . . . . 7 (𝜑 → -(𝐺 + 𝑁) = (-𝑁𝐺))
221215, 216, 2203eqtr4d 2788 . . . . . 6 (𝜑 → ((-𝑄 − (2 · 𝐺)) / 2) = -(𝐺 + 𝑁))
222214, 221syl5eq 2791 . . . . 5 (𝜑 → ((-𝑄 − (2 · 𝐺)) / (2 · 1)) = -(𝐺 + 𝑁))
223222eqeq2d 2749 . . . 4 (𝜑 → ((𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1)) ↔ (𝑈↑3) = -(𝐺 + 𝑁)))
224213, 223orbi12d 915 . . 3 (𝜑 → (((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1))) ↔ ((𝑈↑3) = (𝐺𝑁) ∨ (𝑈↑3) = -(𝐺 + 𝑁))))
225197, 224mpbid 231 . 2 (𝜑 → ((𝑈↑3) = (𝐺𝑁) ∨ (𝑈↑3) = -(𝐺 + 𝑁)))
22636, 144, 225mpjaodan 955 1 (𝜑 → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  wo 843   = wceq 1539  wcel 2108  wne 2942  wrex 3064   class class class wbr 5070  (class class class)co 7255  cc 10800  0cc0 10802  1c1 10803   + caddc 10805   · cmul 10807  cmin 11135  -cneg 11136   / cdiv 11562  cn 11903  2c2 11958  3c3 11959  4c4 11960  0cn0 12163  cz 12249  cexp 13710  cdvds 15891
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rmo 3071  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-er 8456  df-en 8692  df-dom 8693  df-sdom 8694  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-div 11563  df-nn 11904  df-2 11966  df-3 11967  df-4 11968  df-n0 12164  df-z 12250  df-uz 12512  df-rp 12660  df-seq 13650  df-exp 13711  df-dvds 15892
This theorem is referenced by:  dcubic  25901
  Copyright terms: Public domain W3C validator