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

Theorem dcubic2 25424
Description: Reverse direction of dcubic 25426. 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 11418 . . . 4 (𝜑 → (𝑈 / 𝑇) ∈ ℂ)
54adantr 483 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → (𝑈 / 𝑇) ∈ ℂ)
6 3nn0 11918 . . . . . . 7 3 ∈ ℕ0
76a1i 11 . . . . . 6 (𝜑 → 3 ∈ ℕ0)
81, 2, 3, 7expdivd 13527 . . . . 5 (𝜑 → ((𝑈 / 𝑇)↑3) = ((𝑈↑3) / (𝑇↑3)))
98adantr 483 . . . 4 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈 / 𝑇)↑3) = ((𝑈↑3) / (𝑇↑3)))
10 oveq1 7165 . . . . 5 ((𝑈↑3) = (𝐺𝑁) → ((𝑈↑3) / (𝑇↑3)) = ((𝐺𝑁) / (𝑇↑3)))
11 dcubic.3 . . . . . . 7 (𝜑 → (𝑇↑3) = (𝐺𝑁))
1211oveq1d 7173 . . . . . 6 (𝜑 → ((𝑇↑3) / (𝑇↑3)) = ((𝐺𝑁) / (𝑇↑3)))
13 expcl 13450 . . . . . . . 8 ((𝑇 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑇↑3) ∈ ℂ)
142, 6, 13sylancl 588 . . . . . . 7 (𝜑 → (𝑇↑3) ∈ ℂ)
15 3z 12018 . . . . . . . . 9 3 ∈ ℤ
1615a1i 11 . . . . . . . 8 (𝜑 → 3 ∈ ℤ)
172, 3, 16expne0d 13519 . . . . . . 7 (𝜑 → (𝑇↑3) ≠ 0)
1814, 17dividd 11416 . . . . . 6 (𝜑 → ((𝑇↑3) / (𝑇↑3)) = 1)
1912, 18eqtr3d 2860 . . . . 5 (𝜑 → ((𝐺𝑁) / (𝑇↑3)) = 1)
2010, 19sylan9eqr 2880 . . . 4 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈↑3) / (𝑇↑3)) = 1)
219, 20eqtrd 2858 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ((𝑈 / 𝑇)↑3) = 1)
22 dcubic2.2 . . . . 5 (𝜑𝑋 = (𝑈 − (𝑀 / 𝑈)))
231, 2, 3divcan1d 11419 . . . . . 6 (𝜑 → ((𝑈 / 𝑇) · 𝑇) = 𝑈)
2423oveq2d 7174 . . . . . 6 (𝜑 → (𝑀 / ((𝑈 / 𝑇) · 𝑇)) = (𝑀 / 𝑈))
2523, 24oveq12d 7176 . . . . 5 (𝜑 → (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))) = (𝑈 − (𝑀 / 𝑈)))
2622, 25eqtr4d 2861 . . . 4 (𝜑𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
2726adantr 483 . . 3 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
28 oveq1 7165 . . . . . 6 (𝑟 = (𝑈 / 𝑇) → (𝑟↑3) = ((𝑈 / 𝑇)↑3))
2928eqeq1d 2825 . . . . 5 (𝑟 = (𝑈 / 𝑇) → ((𝑟↑3) = 1 ↔ ((𝑈 / 𝑇)↑3) = 1))
30 oveq1 7165 . . . . . . 7 (𝑟 = (𝑈 / 𝑇) → (𝑟 · 𝑇) = ((𝑈 / 𝑇) · 𝑇))
3130oveq2d 7174 . . . . . . 7 (𝑟 = (𝑈 / 𝑇) → (𝑀 / (𝑟 · 𝑇)) = (𝑀 / ((𝑈 / 𝑇) · 𝑇)))
3230, 31oveq12d 7176 . . . . . 6 (𝑟 = (𝑈 / 𝑇) → ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))
3332eqeq2d 2834 . . . . 5 (𝑟 = (𝑈 / 𝑇) → (𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) ↔ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇)))))
3429, 33anbi12d 632 . . . 4 (𝑟 = (𝑈 / 𝑇) → (((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))) ↔ (((𝑈 / 𝑇)↑3) = 1 ∧ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))))
3534rspcev 3625 . . 3 (((𝑈 / 𝑇) ∈ ℂ ∧ (((𝑈 / 𝑇)↑3) = 1 ∧ 𝑋 = (((𝑈 / 𝑇) · 𝑇) − (𝑀 / ((𝑈 / 𝑇) · 𝑇))))) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
365, 21, 27, 35syl12anc 834 . 2 ((𝜑 ∧ (𝑈↑3) = (𝐺𝑁)) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
37 dcubic.m . . . . . . . 8 (𝜑𝑀 = (𝑃 / 3))
38 dcubic.c . . . . . . . . 9 (𝜑𝑃 ∈ ℂ)
39 3cn 11721 . . . . . . . . . 10 3 ∈ ℂ
4039a1i 11 . . . . . . . . 9 (𝜑 → 3 ∈ ℂ)
41 3ne0 11746 . . . . . . . . . 10 3 ≠ 0
4241a1i 11 . . . . . . . . 9 (𝜑 → 3 ≠ 0)
4338, 40, 42divcld 11418 . . . . . . . 8 (𝜑 → (𝑃 / 3) ∈ ℂ)
4437, 43eqeltrd 2915 . . . . . . 7 (𝜑𝑀 ∈ ℂ)
45 dcubic2.z . . . . . . 7 (𝜑𝑈 ≠ 0)
4644, 1, 45divcld 11418 . . . . . 6 (𝜑 → (𝑀 / 𝑈) ∈ ℂ)
4746negcld 10986 . . . . 5 (𝜑 → -(𝑀 / 𝑈) ∈ ℂ)
4847, 2, 3divcld 11418 . . . 4 (𝜑 → (-(𝑀 / 𝑈) / 𝑇) ∈ ℂ)
4948adantr 483 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝑀 / 𝑈) / 𝑇) ∈ ℂ)
5047, 2, 3, 7expdivd 13527 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇)↑3) = ((-(𝑀 / 𝑈)↑3) / (𝑇↑3)))
5144, 1, 45divnegd 11431 . . . . . . . . 9 (𝜑 → -(𝑀 / 𝑈) = (-𝑀 / 𝑈))
5251oveq1d 7173 . . . . . . . 8 (𝜑 → (-(𝑀 / 𝑈)↑3) = ((-𝑀 / 𝑈)↑3))
5344negcld 10986 . . . . . . . . 9 (𝜑 → -𝑀 ∈ ℂ)
5453, 1, 45, 7expdivd 13527 . . . . . . . 8 (𝜑 → ((-𝑀 / 𝑈)↑3) = ((-𝑀↑3) / (𝑈↑3)))
5511oveq2d 7174 . . . . . . . . . . . . . 14 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
56 dcubic.g . . . . . . . . . . . . . . 15 (𝜑𝐺 ∈ ℂ)
57 dcubic.n . . . . . . . . . . . . . . . 16 (𝜑𝑁 = (𝑄 / 2))
58 dcubic.d . . . . . . . . . . . . . . . . 17 (𝜑𝑄 ∈ ℂ)
5958halfcld 11885 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑄 / 2) ∈ ℂ)
6057, 59eqeltrd 2915 . . . . . . . . . . . . . . 15 (𝜑𝑁 ∈ ℂ)
61 subsq 13575 . . . . . . . . . . . . . . 15 ((𝐺 ∈ ℂ ∧ 𝑁 ∈ ℂ) → ((𝐺↑2) − (𝑁↑2)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
6256, 60, 61syl2anc 586 . . . . . . . . . . . . . 14 (𝜑 → ((𝐺↑2) − (𝑁↑2)) = ((𝐺 + 𝑁) · (𝐺𝑁)))
6355, 62eqtr4d 2861 . . . . . . . . . . . . 13 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = ((𝐺↑2) − (𝑁↑2)))
64 dcubic.2 . . . . . . . . . . . . . 14 (𝜑 → (𝐺↑2) = ((𝑁↑2) + (𝑀↑3)))
6564oveq1d 7173 . . . . . . . . . . . . 13 (𝜑 → ((𝐺↑2) − (𝑁↑2)) = (((𝑁↑2) + (𝑀↑3)) − (𝑁↑2)))
6660sqcld 13511 . . . . . . . . . . . . . 14 (𝜑 → (𝑁↑2) ∈ ℂ)
67 expcl 13450 . . . . . . . . . . . . . . 15 ((𝑀 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑀↑3) ∈ ℂ)
6844, 6, 67sylancl 588 . . . . . . . . . . . . . 14 (𝜑 → (𝑀↑3) ∈ ℂ)
6966, 68pncan2d 11001 . . . . . . . . . . . . 13 (𝜑 → (((𝑁↑2) + (𝑀↑3)) − (𝑁↑2)) = (𝑀↑3))
7063, 65, 693eqtrd 2862 . . . . . . . . . . . 12 (𝜑 → ((𝐺 + 𝑁) · (𝑇↑3)) = (𝑀↑3))
7170negeqd 10882 . . . . . . . . . . 11 (𝜑 → -((𝐺 + 𝑁) · (𝑇↑3)) = -(𝑀↑3))
7256, 60addcld 10662 . . . . . . . . . . . 12 (𝜑 → (𝐺 + 𝑁) ∈ ℂ)
7372, 14mulneg1d 11095 . . . . . . . . . . 11 (𝜑 → (-(𝐺 + 𝑁) · (𝑇↑3)) = -((𝐺 + 𝑁) · (𝑇↑3)))
74 3nn 11719 . . . . . . . . . . . . 13 3 ∈ ℕ
7574a1i 11 . . . . . . . . . . . 12 (𝜑 → 3 ∈ ℕ)
76 n2dvds3 15723 . . . . . . . . . . . . 13 ¬ 2 ∥ 3
7776a1i 11 . . . . . . . . . . . 12 (𝜑 → ¬ 2 ∥ 3)
78 oexpneg 15696 . . . . . . . . . . . 12 ((𝑀 ∈ ℂ ∧ 3 ∈ ℕ ∧ ¬ 2 ∥ 3) → (-𝑀↑3) = -(𝑀↑3))
7944, 75, 77, 78syl3anc 1367 . . . . . . . . . . 11 (𝜑 → (-𝑀↑3) = -(𝑀↑3))
8071, 73, 793eqtr4d 2868 . . . . . . . . . 10 (𝜑 → (-(𝐺 + 𝑁) · (𝑇↑3)) = (-𝑀↑3))
8180oveq1d 7173 . . . . . . . . 9 (𝜑 → ((-(𝐺 + 𝑁) · (𝑇↑3)) / (𝑈↑3)) = ((-𝑀↑3) / (𝑈↑3)))
8272negcld 10986 . . . . . . . . . 10 (𝜑 → -(𝐺 + 𝑁) ∈ ℂ)
83 expcl 13450 . . . . . . . . . . 11 ((𝑈 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑈↑3) ∈ ℂ)
841, 6, 83sylancl 588 . . . . . . . . . 10 (𝜑 → (𝑈↑3) ∈ ℂ)
851, 45, 16expne0d 13519 . . . . . . . . . 10 (𝜑 → (𝑈↑3) ≠ 0)
8682, 14, 84, 85div23d 11455 . . . . . . . . 9 (𝜑 → ((-(𝐺 + 𝑁) · (𝑇↑3)) / (𝑈↑3)) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8781, 86eqtr3d 2860 . . . . . . . 8 (𝜑 → ((-𝑀↑3) / (𝑈↑3)) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8852, 54, 873eqtrd 2862 . . . . . . 7 (𝜑 → (-(𝑀 / 𝑈)↑3) = ((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)))
8988oveq1d 7173 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈)↑3) / (𝑇↑3)) = (((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)) / (𝑇↑3)))
9082, 84, 85divcld 11418 . . . . . . 7 (𝜑 → (-(𝐺 + 𝑁) / (𝑈↑3)) ∈ ℂ)
9190, 14, 17divcan4d 11424 . . . . . 6 (𝜑 → (((-(𝐺 + 𝑁) / (𝑈↑3)) · (𝑇↑3)) / (𝑇↑3)) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9250, 89, 913eqtrd 2862 . . . . 5 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇)↑3) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9392adantr 483 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇)↑3) = (-(𝐺 + 𝑁) / (𝑈↑3)))
94 oveq1 7165 . . . . . 6 ((𝑈↑3) = -(𝐺 + 𝑁) → ((𝑈↑3) / (𝑈↑3)) = (-(𝐺 + 𝑁) / (𝑈↑3)))
9594eqcomd 2829 . . . . 5 ((𝑈↑3) = -(𝐺 + 𝑁) → (-(𝐺 + 𝑁) / (𝑈↑3)) = ((𝑈↑3) / (𝑈↑3)))
9684, 85dividd 11416 . . . . 5 (𝜑 → ((𝑈↑3) / (𝑈↑3)) = 1)
9795, 96sylan9eqr 2880 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝐺 + 𝑁) / (𝑈↑3)) = 1)
9893, 97eqtrd 2858 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇)↑3) = 1)
9946, 1neg2subd 11016 . . . . . 6 (𝜑 → (-(𝑀 / 𝑈) − -𝑈) = (𝑈 − (𝑀 / 𝑈)))
10022, 99eqtr4d 2861 . . . . 5 (𝜑𝑋 = (-(𝑀 / 𝑈) − -𝑈))
101100adantr 483 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑋 = (-(𝑀 / 𝑈) − -𝑈))
10247, 2, 3divcan1d 11419 . . . . . 6 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = -(𝑀 / 𝑈))
103102adantr 483 . . . . 5 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = -(𝑀 / 𝑈))
10444, 1, 45divneg2d 11432 . . . . . . . . 9 (𝜑 → -(𝑀 / 𝑈) = (𝑀 / -𝑈))
105102, 104eqtrd 2858 . . . . . . . 8 (𝜑 → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = (𝑀 / -𝑈))
106105adantr 483 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ((-(𝑀 / 𝑈) / 𝑇) · 𝑇) = (𝑀 / -𝑈))
107106oveq2d 7174 . . . . . 6 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)) = (𝑀 / (𝑀 / -𝑈)))
10844adantr 483 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑀 ∈ ℂ)
1091negcld 10986 . . . . . . . 8 (𝜑 → -𝑈 ∈ ℂ)
110109adantr 483 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -𝑈 ∈ ℂ)
11173, 71eqtrd 2858 . . . . . . . . . 10 (𝜑 → (-(𝐺 + 𝑁) · (𝑇↑3)) = -(𝑀↑3))
112111adantr 483 . . . . . . . . 9 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝐺 + 𝑁) · (𝑇↑3)) = -(𝑀↑3))
11382adantr 483 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -(𝐺 + 𝑁) ∈ ℂ)
11414adantr 483 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑇↑3) ∈ ℂ)
115 simpr 487 . . . . . . . . . . 11 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑈↑3) = -(𝐺 + 𝑁))
11685adantr 483 . . . . . . . . . . 11 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑈↑3) ≠ 0)
117115, 116eqnetrrd 3086 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -(𝐺 + 𝑁) ≠ 0)
11817adantr 483 . . . . . . . . . 10 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑇↑3) ≠ 0)
119113, 114, 117, 118mulne0d 11294 . . . . . . . . 9 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (-(𝐺 + 𝑁) · (𝑇↑3)) ≠ 0)
120112, 119eqnetrrd 3086 . . . . . . . 8 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -(𝑀↑3) ≠ 0)
121 oveq1 7165 . . . . . . . . . . . 12 (𝑀 = 0 → (𝑀↑3) = (0↑3))
122 0exp 13467 . . . . . . . . . . . . 13 (3 ∈ ℕ → (0↑3) = 0)
12374, 122ax-mp 5 . . . . . . . . . . . 12 (0↑3) = 0
124121, 123syl6eq 2874 . . . . . . . . . . 11 (𝑀 = 0 → (𝑀↑3) = 0)
125124negeqd 10882 . . . . . . . . . 10 (𝑀 = 0 → -(𝑀↑3) = -0)
126 neg0 10934 . . . . . . . . . 10 -0 = 0
127125, 126syl6eq 2874 . . . . . . . . 9 (𝑀 = 0 → -(𝑀↑3) = 0)
128127necon3i 3050 . . . . . . . 8 (-(𝑀↑3) ≠ 0 → 𝑀 ≠ 0)
129120, 128syl 17 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑀 ≠ 0)
1301, 45negne0d 10997 . . . . . . . 8 (𝜑 → -𝑈 ≠ 0)
131130adantr 483 . . . . . . 7 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → -𝑈 ≠ 0)
132108, 110, 129, 131ddcand 11438 . . . . . 6 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / (𝑀 / -𝑈)) = -𝑈)
133107, 132eqtrd 2858 . . . . 5 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)) = -𝑈)
134103, 133oveq12d 7176 . . . 4 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))) = (-(𝑀 / 𝑈) − -𝑈))
135101, 134eqtr4d 2861 . . 3 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))
136 oveq1 7165 . . . . . 6 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑟↑3) = ((-(𝑀 / 𝑈) / 𝑇)↑3))
137136eqeq1d 2825 . . . . 5 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → ((𝑟↑3) = 1 ↔ ((-(𝑀 / 𝑈) / 𝑇)↑3) = 1))
138 oveq1 7165 . . . . . . 7 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑟 · 𝑇) = ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))
139138oveq2d 7174 . . . . . . 7 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑀 / (𝑟 · 𝑇)) = (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)))
140138, 139oveq12d 7176 . . . . . 6 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))
141140eqeq2d 2834 . . . . 5 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇))) ↔ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇)))))
142137, 141anbi12d 632 . . . 4 (𝑟 = (-(𝑀 / 𝑈) / 𝑇) → (((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))) ↔ (((-(𝑀 / 𝑈) / 𝑇)↑3) = 1 ∧ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))))
143142rspcev 3625 . . 3 (((-(𝑀 / 𝑈) / 𝑇) ∈ ℂ ∧ (((-(𝑀 / 𝑈) / 𝑇)↑3) = 1 ∧ 𝑋 = (((-(𝑀 / 𝑈) / 𝑇) · 𝑇) − (𝑀 / ((-(𝑀 / 𝑈) / 𝑇) · 𝑇))))) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
14449, 98, 135, 143syl12anc 834 . 2 ((𝜑 ∧ (𝑈↑3) = -(𝐺 + 𝑁)) → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
14584sqcld 13511 . . . . . . 7 (𝜑 → ((𝑈↑3)↑2) ∈ ℂ)
146145mulid2d 10661 . . . . . 6 (𝜑 → (1 · ((𝑈↑3)↑2)) = ((𝑈↑3)↑2))
14758, 84mulcld 10663 . . . . . . 7 (𝜑 → (𝑄 · (𝑈↑3)) ∈ ℂ)
148147, 68negsubd 11005 . . . . . 6 (𝜑 → ((𝑄 · (𝑈↑3)) + -(𝑀↑3)) = ((𝑄 · (𝑈↑3)) − (𝑀↑3)))
149146, 148oveq12d 7176 . . . . 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 25423 . . . . . 6 (𝜑 → (((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0 ↔ (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0))
153150, 152mpbid 234 . . . . 5 (𝜑 → (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0)
154149, 153eqtrd 2858 . . . 4 (𝜑 → ((1 · ((𝑈↑3)↑2)) + ((𝑄 · (𝑈↑3)) + -(𝑀↑3))) = 0)
155 1cnd 10638 . . . . 5 (𝜑 → 1 ∈ ℂ)
156 ax-1ne0 10608 . . . . . 6 1 ≠ 0
157156a1i 11 . . . . 5 (𝜑 → 1 ≠ 0)
15868negcld 10986 . . . . 5 (𝜑 → -(𝑀↑3) ∈ ℂ)
159 2cn 11715 . . . . . 6 2 ∈ ℂ
160 mulcl 10623 . . . . . 6 ((2 ∈ ℂ ∧ 𝐺 ∈ ℂ) → (2 · 𝐺) ∈ ℂ)
161159, 56, 160sylancr 589 . . . . 5 (𝜑 → (2 · 𝐺) ∈ ℂ)
162 sqmul 13488 . . . . . . 7 ((2 ∈ ℂ ∧ 𝐺 ∈ ℂ) → ((2 · 𝐺)↑2) = ((2↑2) · (𝐺↑2)))
163159, 56, 162sylancr 589 . . . . . 6 (𝜑 → ((2 · 𝐺)↑2) = ((2↑2) · (𝐺↑2)))
16464oveq2d 7174 . . . . . 6 (𝜑 → ((2↑2) · (𝐺↑2)) = ((2↑2) · ((𝑁↑2) + (𝑀↑3))))
165159sqcli 13547 . . . . . . . . 9 (2↑2) ∈ ℂ
166 mulcl 10623 . . . . . . . . 9 (((2↑2) ∈ ℂ ∧ (𝑁↑2) ∈ ℂ) → ((2↑2) · (𝑁↑2)) ∈ ℂ)
167165, 66, 166sylancr 589 . . . . . . . 8 (𝜑 → ((2↑2) · (𝑁↑2)) ∈ ℂ)
168 mulcl 10623 . . . . . . . . 9 (((2↑2) ∈ ℂ ∧ (𝑀↑3) ∈ ℂ) → ((2↑2) · (𝑀↑3)) ∈ ℂ)
169165, 68, 168sylancr 589 . . . . . . . 8 (𝜑 → ((2↑2) · (𝑀↑3)) ∈ ℂ)
170167, 169subnegd 11006 . . . . . . 7 (𝜑 → (((2↑2) · (𝑁↑2)) − -((2↑2) · (𝑀↑3))) = (((2↑2) · (𝑁↑2)) + ((2↑2) · (𝑀↑3))))
17157oveq2d 7174 . . . . . . . . . . 11 (𝜑 → (2 · 𝑁) = (2 · (𝑄 / 2)))
172159a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ∈ ℂ)
173 2ne0 11744 . . . . . . . . . . . . 13 2 ≠ 0
174173a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ≠ 0)
17558, 172, 174divcan2d 11420 . . . . . . . . . . 11 (𝜑 → (2 · (𝑄 / 2)) = 𝑄)
176171, 175eqtrd 2858 . . . . . . . . . 10 (𝜑 → (2 · 𝑁) = 𝑄)
177176oveq1d 7173 . . . . . . . . 9 (𝜑 → ((2 · 𝑁)↑2) = (𝑄↑2))
178 sqmul 13488 . . . . . . . . . 10 ((2 ∈ ℂ ∧ 𝑁 ∈ ℂ) → ((2 · 𝑁)↑2) = ((2↑2) · (𝑁↑2)))
179159, 60, 178sylancr 589 . . . . . . . . 9 (𝜑 → ((2 · 𝑁)↑2) = ((2↑2) · (𝑁↑2)))
180177, 179eqtr3d 2860 . . . . . . . 8 (𝜑 → (𝑄↑2) = ((2↑2) · (𝑁↑2)))
181158mulid2d 10661 . . . . . . . . . . 11 (𝜑 → (1 · -(𝑀↑3)) = -(𝑀↑3))
182181oveq2d 7174 . . . . . . . . . 10 (𝜑 → (4 · (1 · -(𝑀↑3))) = (4 · -(𝑀↑3)))
183 4cn 11725 . . . . . . . . . . 11 4 ∈ ℂ
184 mulneg2 11079 . . . . . . . . . . 11 ((4 ∈ ℂ ∧ (𝑀↑3) ∈ ℂ) → (4 · -(𝑀↑3)) = -(4 · (𝑀↑3)))
185183, 68, 184sylancr 589 . . . . . . . . . 10 (𝜑 → (4 · -(𝑀↑3)) = -(4 · (𝑀↑3)))
186182, 185eqtrd 2858 . . . . . . . . 9 (𝜑 → (4 · (1 · -(𝑀↑3))) = -(4 · (𝑀↑3)))
187 sq2 13563 . . . . . . . . . . 11 (2↑2) = 4
188187oveq1i 7168 . . . . . . . . . 10 ((2↑2) · (𝑀↑3)) = (4 · (𝑀↑3))
189188negeqi 10881 . . . . . . . . 9 -((2↑2) · (𝑀↑3)) = -(4 · (𝑀↑3))
190186, 189syl6eqr 2876 . . . . . . . 8 (𝜑 → (4 · (1 · -(𝑀↑3))) = -((2↑2) · (𝑀↑3)))
191180, 190oveq12d 7176 . . . . . . 7 (𝜑 → ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))) = (((2↑2) · (𝑁↑2)) − -((2↑2) · (𝑀↑3))))
192165a1i 11 . . . . . . . 8 (𝜑 → (2↑2) ∈ ℂ)
193192, 66, 68adddid 10667 . . . . . . 7 (𝜑 → ((2↑2) · ((𝑁↑2) + (𝑀↑3))) = (((2↑2) · (𝑁↑2)) + ((2↑2) · (𝑀↑3))))
194170, 191, 1933eqtr4rd 2869 . . . . . 6 (𝜑 → ((2↑2) · ((𝑁↑2) + (𝑀↑3))) = ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))))
195163, 164, 1943eqtrd 2862 . . . . 5 (𝜑 → ((2 · 𝐺)↑2) = ((𝑄↑2) − (4 · (1 · -(𝑀↑3)))))
196155, 157, 58, 158, 84, 161, 195quad2 25419 . . . 4 (𝜑 → (((1 · ((𝑈↑3)↑2)) + ((𝑄 · (𝑈↑3)) + -(𝑀↑3))) = 0 ↔ ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1)))))
197154, 196mpbid 234 . . 3 (𝜑 → ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1))))
198 2t1e2 11803 . . . . . . 7 (2 · 1) = 2
199198oveq2i 7169 . . . . . 6 ((-𝑄 + (2 · 𝐺)) / (2 · 1)) = ((-𝑄 + (2 · 𝐺)) / 2)
20058negcld 10986 . . . . . . . 8 (𝜑 → -𝑄 ∈ ℂ)
201200, 161, 172, 174divdird 11456 . . . . . . 7 (𝜑 → ((-𝑄 + (2 · 𝐺)) / 2) = ((-𝑄 / 2) + ((2 · 𝐺) / 2)))
20257negeqd 10882 . . . . . . . . 9 (𝜑 → -𝑁 = -(𝑄 / 2))
20358, 172, 174divnegd 11431 . . . . . . . . 9 (𝜑 → -(𝑄 / 2) = (-𝑄 / 2))
204202, 203eqtr2d 2859 . . . . . . . 8 (𝜑 → (-𝑄 / 2) = -𝑁)
20556, 172, 174divcan3d 11423 . . . . . . . 8 (𝜑 → ((2 · 𝐺) / 2) = 𝐺)
206204, 205oveq12d 7176 . . . . . . 7 (𝜑 → ((-𝑄 / 2) + ((2 · 𝐺) / 2)) = (-𝑁 + 𝐺))
20760negcld 10986 . . . . . . . . 9 (𝜑 → -𝑁 ∈ ℂ)
208207, 56addcomd 10844 . . . . . . . 8 (𝜑 → (-𝑁 + 𝐺) = (𝐺 + -𝑁))
20956, 60negsubd 11005 . . . . . . . 8 (𝜑 → (𝐺 + -𝑁) = (𝐺𝑁))
210208, 209eqtrd 2858 . . . . . . 7 (𝜑 → (-𝑁 + 𝐺) = (𝐺𝑁))
211201, 206, 2103eqtrd 2862 . . . . . 6 (𝜑 → ((-𝑄 + (2 · 𝐺)) / 2) = (𝐺𝑁))
212199, 211syl5eq 2870 . . . . 5 (𝜑 → ((-𝑄 + (2 · 𝐺)) / (2 · 1)) = (𝐺𝑁))
213212eqeq2d 2834 . . . 4 (𝜑 → ((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ↔ (𝑈↑3) = (𝐺𝑁)))
214198oveq2i 7169 . . . . . 6 ((-𝑄 − (2 · 𝐺)) / (2 · 1)) = ((-𝑄 − (2 · 𝐺)) / 2)
215204, 205oveq12d 7176 . . . . . . 7 (𝜑 → ((-𝑄 / 2) − ((2 · 𝐺) / 2)) = (-𝑁𝐺))
216200, 161, 172, 174divsubdird 11457 . . . . . . 7 (𝜑 → ((-𝑄 − (2 · 𝐺)) / 2) = ((-𝑄 / 2) − ((2 · 𝐺) / 2)))
21756, 60addcomd 10844 . . . . . . . . 9 (𝜑 → (𝐺 + 𝑁) = (𝑁 + 𝐺))
218217negeqd 10882 . . . . . . . 8 (𝜑 → -(𝐺 + 𝑁) = -(𝑁 + 𝐺))
21960, 56negdi2d 11013 . . . . . . . 8 (𝜑 → -(𝑁 + 𝐺) = (-𝑁𝐺))
220218, 219eqtrd 2858 . . . . . . 7 (𝜑 → -(𝐺 + 𝑁) = (-𝑁𝐺))
221215, 216, 2203eqtr4d 2868 . . . . . 6 (𝜑 → ((-𝑄 − (2 · 𝐺)) / 2) = -(𝐺 + 𝑁))
222214, 221syl5eq 2870 . . . . 5 (𝜑 → ((-𝑄 − (2 · 𝐺)) / (2 · 1)) = -(𝐺 + 𝑁))
223222eqeq2d 2834 . . . 4 (𝜑 → ((𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1)) ↔ (𝑈↑3) = -(𝐺 + 𝑁)))
224213, 223orbi12d 915 . . 3 (𝜑 → (((𝑈↑3) = ((-𝑄 + (2 · 𝐺)) / (2 · 1)) ∨ (𝑈↑3) = ((-𝑄 − (2 · 𝐺)) / (2 · 1))) ↔ ((𝑈↑3) = (𝐺𝑁) ∨ (𝑈↑3) = -(𝐺 + 𝑁))))
225197, 224mpbid 234 . 2 (𝜑 → ((𝑈↑3) = (𝐺𝑁) ∨ (𝑈↑3) = -(𝐺 + 𝑁)))
22636, 144, 225mpjaodan 955 1 (𝜑 → ∃𝑟 ∈ ℂ ((𝑟↑3) = 1 ∧ 𝑋 = ((𝑟 · 𝑇) − (𝑀 / (𝑟 · 𝑇)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 398  wo 843   = wceq 1537  wcel 2114  wne 3018  wrex 3141   class class class wbr 5068  (class class class)co 7158  cc 10537  0cc0 10539  1c1 10540   + caddc 10542   · cmul 10544  cmin 10872  -cneg 10873   / cdiv 11299  cn 11640  2c2 11695  3c3 11696  4c4 11697  0cn0 11900  cz 11984  cexp 13432  cdvds 15609
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-2nd 7692  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-er 8291  df-en 8512  df-dom 8513  df-sdom 8514  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-n0 11901  df-z 11985  df-uz 12247  df-rp 12393  df-seq 13373  df-exp 13433  df-dvds 15610
This theorem is referenced by:  dcubic  25426
  Copyright terms: Public domain W3C validator