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

Theorem dcubic2 26887
Description: Reverse direction of dcubic 26889. 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 12043 . . . 4 (𝜑 → (𝑈 / 𝑇) ∈ ℂ)
54adantr 480 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → (𝑈 / 𝑇) ∈ ℂ)
6 3nn0 12544 . . . . . . 7 3 ∈ ℕ0
76a1i 11 . . . . . 6 (𝜑 → 3 ∈ ℕ0)
81, 2, 3, 7expdivd 14200 . . . . 5 (𝜑 → ((𝑈 / 𝑇)↑3) = ((𝑈↑3) / (𝑇↑3)))
98adantr 480 . . . 4 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈 / 𝑇)↑3) = ((𝑈↑3) / (𝑇↑3)))
10 oveq1 7438 . . . . 5 ((𝑈↑3) = (𝐺𝑁) → ((𝑈↑3) / (𝑇↑3)) = ((𝐺𝑁) / (𝑇↑3)))
11 dcubic.3 . . . . . . 7 (𝜑 → (𝑇↑3) = (𝐺𝑁))
1211oveq1d 7446 . . . . . 6 (𝜑 → ((𝑇↑3) / (𝑇↑3)) = ((𝐺𝑁) / (𝑇↑3)))
13 expcl 14120 . . . . . . . 8 ((𝑇 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑇↑3) ∈ ℂ)
142, 6, 13sylancl 586 . . . . . . 7 (𝜑 → (𝑇↑3) ∈ ℂ)
15 3z 12650 . . . . . . . . 9 3 ∈ ℤ
1615a1i 11 . . . . . . . 8 (𝜑 → 3 ∈ ℤ)
172, 3, 16expne0d 14192 . . . . . . 7 (𝜑 → (𝑇↑3) ≠ 0)
1814, 17dividd 12041 . . . . . 6 (𝜑 → ((𝑇↑3) / (𝑇↑3)) = 1)
1912, 18eqtr3d 2779 . . . . 5 (𝜑 → ((𝐺𝑁) / (𝑇↑3)) = 1)
2010, 19sylan9eqr 2799 . . . 4 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈↑3) / (𝑇↑3)) = 1)
219, 20eqtrd 2777 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈 / 𝑇)↑3) = 1)
22 dcubic2.2 . . . . 5 (𝜑𝑋 = (𝑈 − (𝑀 / 𝑈)))
231, 2, 3divcan1d 12044 . . . . . 6 (𝜑 → ((𝑈 / 𝑇) · 𝑇) = 𝑈)
2423oveq2d 7447 . . . . . 6 (𝜑 → (𝑀 / ((𝑈 / 𝑇) · 𝑇)) = (𝑀 / 𝑈))
2523, 24oveq12d 7449 . . . . 5 (𝜑 → (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))) = (𝑈 − (𝑀 / 𝑈)))
2622, 25eqtr4d 2780 . . . 4 (𝜑𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
2726adantr 480 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
28 oveq1 7438 . . . . . 6 (𝑟 = (𝑈 / 𝑇) → (𝑟↑3) = ((𝑈 / 𝑇)↑3))
2928eqeq1d 2739 . . . . 5 (𝑟 = (𝑈 / 𝑇) → ((𝑟↑3) = 1 ↔ ((𝑈 / 𝑇)↑3) = 1))
30 oveq1 7438 . . . . . . 7 (𝑟 = (𝑈 / 𝑇) → (𝑟 · 𝑇) = ((𝑈 / 𝑇) · 𝑇))
3130oveq2d 7447 . . . . . . 7 (𝑟 = (𝑈 / 𝑇) → (𝑀 / (𝑟 · 𝑇)) = (𝑀 / ((𝑈 / 𝑇) · 𝑇)))
3230, 31oveq12d 7449 . . . . . 6 (𝑟 = (𝑈 / 𝑇) → ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
3332eqeq2d 2748 . . . . 5 (𝑟 = (𝑈 / 𝑇) → (𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) ↔ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇)))))
3429, 33anbi12d 632 . . . 4 (𝑟 = (𝑈 / 𝑇) → (((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))) ↔ (((𝑈 / 𝑇)↑3) = 1 ∧ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))))
3534rspcev 3622 . . 3 (((𝑈 / 𝑇) ∈ ℂ ∧ (((𝑈 / 𝑇)↑3) = 1 ∧ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
365, 21, 27, 35syl12anc 837 . 2 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
37 dcubic.m . . . . . . . 8 (𝜑𝑀 = (𝑃 / 3))
38 dcubic.c . . . . . . . . 9 (𝜑𝑃 ∈ ℂ)
39 3cn 12347 . . . . . . . . . 10 3 ∈ ℂ
4039a1i 11 . . . . . . . . 9 (𝜑 → 3 ∈ ℂ)
41 3ne0 12372 . . . . . . . . . 10 3 ≠ 0
4241a1i 11 . . . . . . . . 9 (𝜑 → 3 ≠ 0)
4338, 40, 42divcld 12043 . . . . . . . 8 (𝜑 → (𝑃 / 3) ∈ ℂ)
4437, 43eqeltrd 2841 . . . . . . 7 (𝜑𝑀 ∈ ℂ)
45 dcubic2.z . . . . . . 7 (𝜑𝑈 ≠ 0)
4644, 1, 45divcld 12043 . . . . . 6 (𝜑 → (𝑀 / 𝑈) ∈ ℂ)
4746negcld 11607 . . . . 5 (𝜑 → -(𝑀 / 𝑈) ∈ ℂ)
4847, 2, 3divcld 12043 . . . 4 (𝜑 → (-(𝑀 / 𝑈) / 𝑇) ∈ ℂ)
4948adantr 480 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝑀 / 𝑈) / 𝑇) ∈ ℂ)
5047, 2, 3, 7expdivd 14200 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇)↑3) = ((-(𝑀 / 𝑈)↑3) / (𝑇↑3)))
5144, 1, 45divnegd 12056 . . . . . . . . 9 (𝜑 → -(𝑀 / 𝑈) = (-𝑀 / 𝑈))
5251oveq1d 7446 . . . . . . . 8 (𝜑 → (-(𝑀 / 𝑈)↑3) = ((-𝑀 / 𝑈)↑3))
5344negcld 11607 . . . . . . . . 9 (𝜑 → -𝑀 ∈ ℂ)
5453, 1, 45, 7expdivd 14200 . . . . . . . 8 (𝜑 → ((-𝑀 / 𝑈)↑3) = ((-𝑀↑3) / (𝑈↑3)))
5511oveq2d 7447 . . . . . . . . . . . . . 14 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
56 dcubic.g . . . . . . . . . . . . . . 15 (𝜑𝐺 ∈ ℂ)
57 dcubic.n . . . . . . . . . . . . . . . 16 (𝜑𝑁 = (𝑄 / 2))
58 dcubic.d . . . . . . . . . . . . . . . . 17 (𝜑𝑄 ∈ ℂ)
5958halfcld 12511 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑄 / 2) ∈ ℂ)
6057, 59eqeltrd 2841 . . . . . . . . . . . . . . 15 (𝜑𝑁 ∈ ℂ)
61 subsq 14249 . . . . . . . . . . . . . . 15 ((𝐺 ∈ ℂ ∧ 𝑁 ∈ ℂ) → ((𝐺↑2) − (𝑁↑2)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
6256, 60, 61syl2anc 584 . . . . . . . . . . . . . 14 (𝜑 → ((𝐺↑2) − (𝑁↑2)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
6355, 62eqtr4d 2780 . . . . . . . . . . . . 13 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = ((𝐺↑2) − (𝑁↑2)))
64 dcubic.2 . . . . . . . . . . . . . 14 (𝜑 → (𝐺↑2) = ((𝑁↑2) + (𝑀↑3)))
6564oveq1d 7446 . . . . . . . . . . . . 13 (𝜑 → ((𝐺↑2) − (𝑁↑2)) = (((𝑁↑2) + (𝑀↑3)) − (𝑁↑2)))
6660sqcld 14184 . . . . . . . . . . . . . 14 (𝜑 → (𝑁↑2) ∈ ℂ)
67 expcl 14120 . . . . . . . . . . . . . . 15 ((𝑀 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑀↑3) ∈ ℂ)
6844, 6, 67sylancl 586 . . . . . . . . . . . . . 14 (𝜑 → (𝑀↑3) ∈ ℂ)
6966, 68pncan2d 11622 . . . . . . . . . . . . 13 (𝜑 → (((𝑁↑2) + (𝑀↑3)) − (𝑁↑2)) = (𝑀↑3))
7063, 65, 693eqtrd 2781 . . . . . . . . . . . 12 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = (𝑀↑3))
7170negeqd 11502 . . . . . . . . . . 11 (𝜑 → -((𝐺 + 𝑁) · (𝑇↑3)) = -(𝑀↑3))
7256, 60addcld 11280 . . . . . . . . . . . 12 (𝜑 → (𝐺 + 𝑁) ∈ ℂ)
7372, 14mulneg1d 11716 . . . . . . . . . . 11 (𝜑 → (-(𝐺 + 𝑁) · (𝑇↑3)) = -((𝐺 + 𝑁) · (𝑇↑3)))
74 3nn 12345 . . . . . . . . . . . . 13 3 ∈ ℕ
7574a1i 11 . . . . . . . . . . . 12 (𝜑 → 3 ∈ ℕ)
76 n2dvds3 16408 . . . . . . . . . . . . 13 ¬ 2 ∥ 3
7776a1i 11 . . . . . . . . . . . 12 (𝜑 → ¬ 2 ∥ 3)
78 oexpneg 16382 . . . . . . . . . . . 12 ((𝑀 ∈ ℂ ∧ 3 ∈ ℕ ∧ ¬ 2 ∥ 3) → (-𝑀↑3) = -(𝑀↑3))
7944, 75, 77, 78syl3anc 1373 . . . . . . . . . . 11 (𝜑 → (-𝑀↑3) = -(𝑀↑3))
8071, 73, 793eqtr4d 2787 . . . . . . . . . 10 (𝜑 → (-(𝐺 + 𝑁) · (𝑇↑3)) = (-𝑀↑3))
8180oveq1d 7446 . . . . . . . . 9 (𝜑 → ((-(𝐺 + 𝑁) · (𝑇↑3)) / (𝑈↑3)) = ((-𝑀↑3) / (𝑈↑3)))
8272negcld 11607 . . . . . . . . . 10 (𝜑 → -(𝐺 + 𝑁) ∈ ℂ)
83 expcl 14120 . . . . . . . . . . 11 ((𝑈 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑈↑3) ∈ ℂ)
841, 6, 83sylancl 586 . . . . . . . . . 10 (𝜑 → (𝑈↑3) ∈ ℂ)
851, 45, 16expne0d 14192 . . . . . . . . . 10 (𝜑 → (𝑈↑3) ≠ 0)
8682, 14, 84, 85div23d 12080 . . . . . . . . 9 (𝜑 → ((-(𝐺 + 𝑁) · (𝑇↑3)) / (𝑈↑3)) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8781, 86eqtr3d 2779 . . . . . . . 8 (𝜑 → ((-𝑀↑3) / (𝑈↑3)) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8852, 54, 873eqtrd 2781 . . . . . . 7 (𝜑 → (-(𝑀 / 𝑈)↑3) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8988oveq1d 7446 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈)↑3) / (𝑇↑3)) = (((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)) / (𝑇↑3)))
9082, 84, 85divcld 12043 . . . . . . 7 (𝜑 → (-(𝐺 + 𝑁) / (𝑈↑3)) ∈ ℂ)
9190, 14, 17divcan4d 12049 . . . . . 6 (𝜑 → (((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)) / (𝑇↑3)) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9250, 89, 913eqtrd 2781 . . . . 5 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇)↑3) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9392adantr 480 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇)↑3) = (-(𝐺 + 𝑁) / (𝑈↑3)))
94 oveq1 7438 . . . . . 6 ((𝑈↑3) = -(𝐺 + 𝑁) → ((𝑈↑3) / (𝑈↑3)) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9594eqcomd 2743 . . . . 5 ((𝑈↑3) = -(𝐺 + 𝑁) → (-(𝐺 + 𝑁) / (𝑈↑3)) = ((𝑈↑3) / (𝑈↑3)))
9684, 85dividd 12041 . . . . 5 (𝜑 → ((𝑈↑3) / (𝑈↑3)) = 1)
9795, 96sylan9eqr 2799 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝐺 + 𝑁) / (𝑈↑3)) = 1)
9893, 97eqtrd 2777 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇)↑3) = 1)
9946, 1neg2subd 11637 . . . . . 6 (𝜑 → (-(𝑀 / 𝑈) − -𝑈) = (𝑈 − (𝑀 / 𝑈)))
10022, 99eqtr4d 2780 . . . . 5 (𝜑𝑋 = (-(𝑀 / 𝑈) − -𝑈))
101100adantr 480 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑋 = (-(𝑀 / 𝑈) − -𝑈))
10247, 2, 3divcan1d 12044 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = -(𝑀 / 𝑈))
103102adantr 480 . . . . 5 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = -(𝑀 / 𝑈))
10444, 1, 45divneg2d 12057 . . . . . . . . 9 (𝜑 → -(𝑀 / 𝑈) = (𝑀 / -𝑈))
105102, 104eqtrd 2777 . . . . . . . 8 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = (𝑀 / -𝑈))
106105adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = (𝑀 / -𝑈))
107106oveq2d 7447 . . . . . 6 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)) = (𝑀 / (𝑀 / -𝑈)))
10844adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑀 ∈ ℂ)
1091negcld 11607 . . . . . . . 8 (𝜑 → -𝑈 ∈ ℂ)
110109adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -𝑈 ∈ ℂ)
11173, 71eqtrd 2777 . . . . . . . . . 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 3009 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -(𝐺 + 𝑁) ≠ 0)
11817adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑇↑3) ≠ 0)
119113, 114, 117, 118mulne0d 11915 . . . . . . . . 9 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝐺 + 𝑁) · (𝑇↑3)) ≠ 0)
120112, 119eqnetrrd 3009 . . . . . . . 8 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -(𝑀↑3) ≠ 0)
121 oveq1 7438 . . . . . . . . . . . 12 (𝑀 = 0 → (𝑀↑3) = (0↑3))
122 0exp 14138 . . . . . . . . . . . . 13 (3 ∈ ℕ → (0↑3) = 0)
12374, 122ax-mp 5 . . . . . . . . . . . 12 (0↑3) = 0
124121, 123eqtrdi 2793 . . . . . . . . . . 11 (𝑀 = 0 → (𝑀↑3) = 0)
125124negeqd 11502 . . . . . . . . . 10 (𝑀 = 0 → -(𝑀↑3) = -0)
126 neg0 11555 . . . . . . . . . 10 -0 = 0
127125, 126eqtrdi 2793 . . . . . . . . 9 (𝑀 = 0 → -(𝑀↑3) = 0)
128127necon3i 2973 . . . . . . . 8 (-(𝑀↑3) ≠ 0 → 𝑀 ≠ 0)
129120, 128syl 17 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑀 ≠ 0)
1301, 45negne0d 11618 . . . . . . . 8 (𝜑 → -𝑈 ≠ 0)
131130adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -𝑈 ≠ 0)
132108, 110, 129, 131ddcand 12063 . . . . . 6 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / (𝑀 / -𝑈)) = -𝑈)
133107, 132eqtrd 2777 . . . . 5 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)) = -𝑈)
134103, 133oveq12d 7449 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))) = (-(𝑀 / 𝑈) − -𝑈))
135101, 134eqtr4d 2780 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))
136 oveq1 7438 . . . . . 6 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑟↑3) = ((-(𝑀 / 𝑈) / 𝑇)↑3))
137136eqeq1d 2739 . . . . 5 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → ((𝑟↑3) = 1 ↔ ((-(𝑀 / 𝑈) / 𝑇)↑3) = 1))
138 oveq1 7438 . . . . . . 7 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑟 · 𝑇) = ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))
139138oveq2d 7447 . . . . . . 7 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑀 / (𝑟 · 𝑇)) = (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)))
140138, 139oveq12d 7449 . . . . . 6 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))
141140eqeq2d 2748 . . . . 5 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) ↔ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)))))
142137, 141anbi12d 632 . . . 4 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))) ↔ (((-(𝑀 / 𝑈) / 𝑇)↑3) = 1 ∧ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))))
143142rspcev 3622 . . 3 (((-(𝑀 / 𝑈) / 𝑇) ∈ ℂ ∧ (((-(𝑀 / 𝑈) / 𝑇)↑3) = 1 ∧ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
14449, 98, 135, 143syl12anc 837 . 2 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
14584sqcld 14184 . . . . . . 7 (𝜑 → ((𝑈↑3)↑2) ∈ ℂ)
146145mullidd 11279 . . . . . 6 (𝜑 → (1 · ((𝑈↑3)↑2)) = ((𝑈↑3)↑2))
14758, 84mulcld 11281 . . . . . . 7 (𝜑 → (𝑄 · (𝑈↑3)) ∈ ℂ)
148147, 68negsubd 11626 . . . . . 6 (𝜑 → ((𝑄 · (𝑈↑3)) + -(𝑀↑3)) = ((𝑄 · (𝑈↑3)) − (𝑀↑3)))
149146, 148oveq12d 7449 . . . . 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 26886 . . . . . 6 (𝜑 → (((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0 ↔ (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0))
153150, 152mpbid 232 . . . . 5 (𝜑 → (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0)
154149, 153eqtrd 2777 . . . 4 (𝜑 → ((1 · ((𝑈↑3)↑2)) + ((𝑄 · (𝑈↑3)) + -(𝑀↑3))) = 0)
155 1cnd 11256 . . . . 5 (𝜑 → 1 ∈ ℂ)
156 ax-1ne0 11224 . . . . . 6 1 ≠ 0
157156a1i 11 . . . . 5 (𝜑 → 1 ≠ 0)
15868negcld 11607 . . . . 5 (𝜑 → -(𝑀↑3) ∈ ℂ)
159 2cn 12341 . . . . . 6 2 ∈ ℂ
160 mulcl 11239 . . . . . 6 ((2 ∈ ℂ ∧ 𝐺 ∈ ℂ) → (2 · 𝐺) ∈ ℂ)
161159, 56, 160sylancr 587 . . . . 5 (𝜑 → (2 · 𝐺) ∈ ℂ)
162 sqmul 14159 . . . . . . 7 ((2 ∈ ℂ ∧ 𝐺 ∈ ℂ) → ((2 · 𝐺)↑2) = ((2↑2) · (𝐺↑2)))
163159, 56, 162sylancr 587 . . . . . 6 (𝜑 → ((2 · 𝐺)↑2) = ((2↑2) · (𝐺↑2)))
16464oveq2d 7447 . . . . . 6 (𝜑 → ((2↑2) · (𝐺↑2)) = ((2↑2) · ((𝑁↑2) + (𝑀↑3))))
165159sqcli 14220 . . . . . . . . 9 (2↑2) ∈ ℂ
166 mulcl 11239 . . . . . . . . 9 (((2↑2) ∈ ℂ ∧ (𝑁↑2) ∈ ℂ) → ((2↑2) · (𝑁↑2)) ∈ ℂ)
167165, 66, 166sylancr 587 . . . . . . . 8 (𝜑 → ((2↑2) · (𝑁↑2)) ∈ ℂ)
168 mulcl 11239 . . . . . . . . 9 (((2↑2) ∈ ℂ ∧ (𝑀↑3) ∈ ℂ) → ((2↑2) · (𝑀↑3)) ∈ ℂ)
169165, 68, 168sylancr 587 . . . . . . . 8 (𝜑 → ((2↑2) · (𝑀↑3)) ∈ ℂ)
170167, 169subnegd 11627 . . . . . . 7 (𝜑 → (((2↑2) · (𝑁↑2)) − -((2↑2) · (𝑀↑3))) = (((2↑2) · (𝑁↑2)) + ((2↑2) · (𝑀↑3))))
17157oveq2d 7447 . . . . . . . . . . 11 (𝜑 → (2 · 𝑁) = (2 · (𝑄 / 2)))
172159a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ∈ ℂ)
173 2ne0 12370 . . . . . . . . . . . . 13 2 ≠ 0
174173a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ≠ 0)
17558, 172, 174divcan2d 12045 . . . . . . . . . . 11 (𝜑 → (2 · (𝑄 / 2)) = 𝑄)
176171, 175eqtrd 2777 . . . . . . . . . 10 (𝜑 → (2 · 𝑁) = 𝑄)
177176oveq1d 7446 . . . . . . . . 9 (𝜑 → ((2 · 𝑁)↑2) = (𝑄↑2))
178 sqmul 14159 . . . . . . . . . 10 ((2 ∈ ℂ ∧ 𝑁 ∈ ℂ) → ((2 · 𝑁)↑2) = ((2↑2) · (𝑁↑2)))
179159, 60, 178sylancr 587 . . . . . . . . 9 (𝜑 → ((2 · 𝑁)↑2) = ((2↑2) · (𝑁↑2)))
180177, 179eqtr3d 2779 . . . . . . . 8 (𝜑 → (𝑄↑2) = ((2↑2) · (𝑁↑2)))
181158mullidd 11279 . . . . . . . . . . 11 (𝜑 → (1 · -(𝑀↑3)) = -(𝑀↑3))
182181oveq2d 7447 . . . . . . . . . 10 (𝜑 → (4 · (1 · -(𝑀↑3))) = (4 · -(𝑀↑3)))
183 4cn 12351 . . . . . . . . . . 11 4 ∈ ℂ
184 mulneg2 11700 . . . . . . . . . . 11 ((4 ∈ ℂ ∧ (𝑀↑3) ∈ ℂ) → (4 · -(𝑀↑3)) = -(4 · (𝑀↑3)))
185183, 68, 184sylancr 587 . . . . . . . . . 10 (𝜑 → (4 · -(𝑀↑3)) = -(4 · (𝑀↑3)))
186182, 185eqtrd 2777 . . . . . . . . 9 (𝜑 → (4 · (1 · -(𝑀↑3))) = -(4 · (𝑀↑3)))
187 sq2 14236 . . . . . . . . . . 11 (2↑2) = 4
188187oveq1i 7441 . . . . . . . . . 10 ((2↑2) · (𝑀↑3)) = (4 · (𝑀↑3))
189188negeqi 11501 . . . . . . . . 9 -((2↑2) · (𝑀↑3)) = -(4 · (𝑀↑3))
190186, 189eqtr4di 2795 . . . . . . . 8 (𝜑 → (4 · (1 · -(𝑀↑3))) = -((2↑2) · (𝑀↑3)))
191180, 190oveq12d 7449 . . . . . . 7 (𝜑 → ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))) = (((2↑2) · (𝑁↑2)) − -((2↑2) · (𝑀↑3))))
192165a1i 11 . . . . . . . 8 (𝜑 → (2↑2) ∈ ℂ)
193192, 66, 68adddid 11285 . . . . . . 7 (𝜑 → ((2↑2) · ((𝑁↑2) + (𝑀↑3))) = (((2↑2) · (𝑁↑2)) + ((2↑2) · (𝑀↑3))))
194170, 191, 1933eqtr4rd 2788 . . . . . 6 (𝜑 → ((2↑2) · ((𝑁↑2) + (𝑀↑3))) = ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))))
195163, 164, 1943eqtrd 2781 . . . . 5 (𝜑 → ((2 · 𝐺)↑2) = ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))))
196155, 157, 58, 158, 84, 161, 195quad2 26882 . . . 4 (𝜑 → (((1 · ((𝑈↑3)↑2)) + ((𝑄 · (𝑈↑3)) + -(𝑀↑3))) = 0 ↔ ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1)))))
197154, 196mpbid 232 . . 3 (𝜑 → ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1))))
198 2t1e2 12429 . . . . . . 7 (2 · 1) = 2
199198oveq2i 7442 . . . . . 6 ((-𝑄 + (2 · 𝐺)) / (2 · 1)) = ((-𝑄 + (2 · 𝐺)) / 2)
20058negcld 11607 . . . . . . . 8 (𝜑 → -𝑄 ∈ ℂ)
201200, 161, 172, 174divdird 12081 . . . . . . 7 (𝜑 → ((-𝑄 + (2 · 𝐺)) / 2) = ((-𝑄 / 2) + ((2 · 𝐺) / 2)))
20257negeqd 11502 . . . . . . . . 9 (𝜑 → -𝑁 = -(𝑄 / 2))
20358, 172, 174divnegd 12056 . . . . . . . . 9 (𝜑 → -(𝑄 / 2) = (-𝑄 / 2))
204202, 203eqtr2d 2778 . . . . . . . 8 (𝜑 → (-𝑄 / 2) = -𝑁)
20556, 172, 174divcan3d 12048 . . . . . . . 8 (𝜑 → ((2 · 𝐺) / 2) = 𝐺)
206204, 205oveq12d 7449 . . . . . . 7 (𝜑 → ((-𝑄 / 2) + ((2 · 𝐺) / 2)) = (-𝑁 + 𝐺))
20760negcld 11607 . . . . . . . . 9 (𝜑 → -𝑁 ∈ ℂ)
208207, 56addcomd 11463 . . . . . . . 8 (𝜑 → (-𝑁 + 𝐺) = (𝐺 + -𝑁))
20956, 60negsubd 11626 . . . . . . . 8 (𝜑 → (𝐺 + -𝑁) = (𝐺𝑁))
210208, 209eqtrd 2777 . . . . . . 7 (𝜑 → (-𝑁 + 𝐺) = (𝐺𝑁))
211201, 206, 2103eqtrd 2781 . . . . . 6 (𝜑 → ((-𝑄 + (2 · 𝐺)) / 2) = (𝐺𝑁))
212199, 211eqtrid 2789 . . . . 5 (𝜑 → ((-𝑄 + (2 · 𝐺)) / (2 · 1)) = (𝐺𝑁))
213212eqeq2d 2748 . . . 4 (𝜑 → ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ↔ (𝑈↑3) = (𝐺𝑁)))
214198oveq2i 7442 . . . . . 6 ((-𝑄 − (2 · 𝐺)) / (2 · 1)) = ((-𝑄 − (2 · 𝐺)) / 2)
215204, 205oveq12d 7449 . . . . . . 7 (𝜑 → ((-𝑄 / 2) − ((2 · 𝐺) / 2)) = (-𝑁𝐺))
216200, 161, 172, 174divsubdird 12082 . . . . . . 7 (𝜑 → ((-𝑄 − (2 · 𝐺)) / 2) = ((-𝑄 / 2) − ((2 · 𝐺) / 2)))
21756, 60addcomd 11463 . . . . . . . . 9 (𝜑 → (𝐺 + 𝑁) = (𝑁 + 𝐺))
218217negeqd 11502 . . . . . . . 8 (𝜑 → -(𝐺 + 𝑁) = -(𝑁 + 𝐺))
21960, 56negdi2d 11634 . . . . . . . 8 (𝜑 → -(𝑁 + 𝐺) = (-𝑁𝐺))
220218, 219eqtrd 2777 . . . . . . 7 (𝜑 → -(𝐺 + 𝑁) = (-𝑁𝐺))
221215, 216, 2203eqtr4d 2787 . . . . . 6 (𝜑 → ((-𝑄 − (2 · 𝐺)) / 2) = -(𝐺 + 𝑁))
222214, 221eqtrid 2789 . . . . 5 (𝜑 → ((-𝑄 − (2 · 𝐺)) / (2 · 1)) = -(𝐺 + 𝑁))
223222eqeq2d 2748 . . . 4 (𝜑 → ((𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1)) ↔ (𝑈↑3) = -(𝐺 + 𝑁)))
224213, 223orbi12d 919 . . 3 (𝜑 → (((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1))) ↔ ((𝑈↑3) = (𝐺𝑁) ∨ (𝑈↑3) = -(𝐺 + 𝑁))))
225197, 224mpbid 232 . 2 (𝜑 → ((𝑈↑3) = (𝐺𝑁) ∨ (𝑈↑3) = -(𝐺 + 𝑁)))
22636, 144, 225mpjaodan 961 1 (𝜑 → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  wo 848   = wceq 1540  wcel 2108  wne 2940  wrex 3070   class class class wbr 5143  (class class class)co 7431  cc 11153  0cc0 11155  1c1 11156   + caddc 11158   · cmul 11160  cmin 11492  -cneg 11493   / cdiv 11920  cn 12266  2c2 12321  3c3 12322  4c4 12323  0cn0 12526  cz 12613  cexp 14102  cdvds 16290
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755  ax-cnex 11211  ax-resscn 11212  ax-1cn 11213  ax-icn 11214  ax-addcl 11215  ax-addrcl 11216  ax-mulcl 11217  ax-mulrcl 11218  ax-mulcom 11219  ax-addass 11220  ax-mulass 11221  ax-distr 11222  ax-i2m1 11223  ax-1ne0 11224  ax-1rid 11225  ax-rnegex 11226  ax-rrecex 11227  ax-cnre 11228  ax-pre-lttri 11229  ax-pre-lttrn 11230  ax-pre-ltadd 11231  ax-pre-mulgt0 11232
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3380  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-om 7888  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-rdg 8450  df-er 8745  df-en 8986  df-dom 8987  df-sdom 8988  df-pnf 11297  df-mnf 11298  df-xr 11299  df-ltxr 11300  df-le 11301  df-sub 11494  df-neg 11495  df-div 11921  df-nn 12267  df-2 12329  df-3 12330  df-4 12331  df-n0 12527  df-z 12614  df-uz 12879  df-rp 13035  df-seq 14043  df-exp 14103  df-dvds 16291
This theorem is referenced by:  dcubic  26889
  Copyright terms: Public domain W3C validator