Theorem dcubic1lem 26337

Description: Lemma for dcubic1 26339 and dcubic2 26338: simplify the cubic equation under the substitution 𝑋 = 𝑈 − 𝑀 / 𝑈. (Contributed by Mario Carneiro, 26-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	⊢ (𝜑 → 𝑋 = (𝑈 − (𝑀 / 𝑈)))

Assertion

Ref	Expression
dcubic1lem	⊢ (𝜑 → (((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0 ↔ (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0))

Proof of Theorem dcubic1lem

Step	Hyp	Ref	Expression
1		dcubic2.u	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ ℂ)
2		3nn0 12486	. . . . . . . . 9 ⊢ 3 ∈ ℕ0
3		expcl 14041	. . . . . . . . 9 ⊢ ((𝑈 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑈↑3) ∈ ℂ)
4	1, 2, 3	sylancl 586	. . . . . . . 8 ⊢ (𝜑 → (𝑈↑3) ∈ ℂ)
5	4	sqvald 14104	. . . . . . 7 ⊢ (𝜑 → ((𝑈↑3)↑2) = ((𝑈↑3) · (𝑈↑3)))
6	5	oveq1d 7420	. . . . . 6 ⊢ (𝜑 → (((𝑈↑3)↑2) / (𝑈↑3)) = (((𝑈↑3) · (𝑈↑3)) / (𝑈↑3)))
7		dcubic2.z	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ≠ 0)
8		3z 12591	. . . . . . . . 9 ⊢ 3 ∈ ℤ
9	8	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 3 ∈ ℤ)
10	1, 7, 9	expne0d 14113	. . . . . . 7 ⊢ (𝜑 → (𝑈↑3) ≠ 0)
11	4, 4, 10	divcan4d 11992	. . . . . 6 ⊢ (𝜑 → (((𝑈↑3) · (𝑈↑3)) / (𝑈↑3)) = (𝑈↑3))
12	6, 11	eqtr2d 2773	. . . . 5 ⊢ (𝜑 → (𝑈↑3) = (((𝑈↑3)↑2) / (𝑈↑3)))
13		dcubic.d	. . . . . . . 8 ⊢ (𝜑 → 𝑄 ∈ ℂ)
14		dcubic.m	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 = (𝑃 / 3))
15		dcubic.c	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ ℂ)
16		3cn 12289	. . . . . . . . . . . . 13 ⊢ 3 ∈ ℂ
17	16	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ∈ ℂ)
18		3ne0 12314	. . . . . . . . . . . . 13 ⊢ 3 ≠ 0
19	18	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ≠ 0)
20	15, 17, 19	divcld 11986	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 / 3) ∈ ℂ)
21	14, 20	eqeltrd 2833	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ ℂ)
22		expcl 14041	. . . . . . . . . 10 ⊢ ((𝑀 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑀↑3) ∈ ℂ)
23	21, 2, 22	sylancl 586	. . . . . . . . 9 ⊢ (𝜑 → (𝑀↑3) ∈ ℂ)
24	23, 4, 10	divcld 11986	. . . . . . . 8 ⊢ (𝜑 → ((𝑀↑3) / (𝑈↑3)) ∈ ℂ)
25	13, 24	negsubd 11573	. . . . . . 7 ⊢ (𝜑 → (𝑄 + -((𝑀↑3) / (𝑈↑3))) = (𝑄 − ((𝑀↑3) / (𝑈↑3))))
26	13, 4, 10	divcan4d 11992	. . . . . . . 8 ⊢ (𝜑 → ((𝑄 · (𝑈↑3)) / (𝑈↑3)) = 𝑄)
27	26	oveq1d 7420	. . . . . . 7 ⊢ (𝜑 → (((𝑄 · (𝑈↑3)) / (𝑈↑3)) − ((𝑀↑3) / (𝑈↑3))) = (𝑄 − ((𝑀↑3) / (𝑈↑3))))
28	25, 27	eqtr4d 2775	. . . . . 6 ⊢ (𝜑 → (𝑄 + -((𝑀↑3) / (𝑈↑3))) = (((𝑄 · (𝑈↑3)) / (𝑈↑3)) − ((𝑀↑3) / (𝑈↑3))))
29		dcubic.x	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋 ∈ ℂ)
30	15, 29	mulcld 11230	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 · 𝑋) ∈ ℂ)
31	30	negcld 11554	. . . . . . . 8 ⊢ (𝜑 → -(𝑃 · 𝑋) ∈ ℂ)
32	24	negcld 11554	. . . . . . . 8 ⊢ (𝜑 → -((𝑀↑3) / (𝑈↑3)) ∈ ℂ)
33	31, 32, 30, 13	add42d 11439	. . . . . . 7 ⊢ (𝜑 → ((-(𝑃 · 𝑋) + -((𝑀↑3) / (𝑈↑3))) + ((𝑃 · 𝑋) + 𝑄)) = ((-(𝑃 · 𝑋) + (𝑃 · 𝑋)) + (𝑄 + -((𝑀↑3) / (𝑈↑3)))))
34	15, 29	mulneg2d 11664	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 · -𝑋) = -(𝑃 · 𝑋))
35		dcubic2.2	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 = (𝑈 − (𝑀 / 𝑈)))
36	35	negeqd 11450	. . . . . . . . . . . . . 14 ⊢ (𝜑 → -𝑋 = -(𝑈 − (𝑀 / 𝑈)))
37	21, 1, 7	divcld 11986	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑀 / 𝑈) ∈ ℂ)
38	1, 37	negsubdid 11582	. . . . . . . . . . . . . 14 ⊢ (𝜑 → -(𝑈 − (𝑀 / 𝑈)) = (-𝑈 + (𝑀 / 𝑈)))
39	36, 38	eqtrd 2772	. . . . . . . . . . . . 13 ⊢ (𝜑 → -𝑋 = (-𝑈 + (𝑀 / 𝑈)))
40	39	oveq2d 7421	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 · -𝑋) = (𝑃 · (-𝑈 + (𝑀 / 𝑈))))
41	34, 40	eqtr3d 2774	. . . . . . . . . . 11 ⊢ (𝜑 → -(𝑃 · 𝑋) = (𝑃 · (-𝑈 + (𝑀 / 𝑈))))
42	1	negcld 11554	. . . . . . . . . . . 12 ⊢ (𝜑 → -𝑈 ∈ ℂ)
43	15, 42, 37	adddid 11234	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 · (-𝑈 + (𝑀 / 𝑈))) = ((𝑃 · -𝑈) + (𝑃 · (𝑀 / 𝑈))))
44	15, 1	mulneg2d 11664	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 · -𝑈) = -(𝑃 · 𝑈))
45	44	oveq1d 7420	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑃 · -𝑈) + (𝑃 · (𝑀 / 𝑈))) = (-(𝑃 · 𝑈) + (𝑃 · (𝑀 / 𝑈))))
46	41, 43, 45	3eqtrd 2776	. . . . . . . . . 10 ⊢ (𝜑 → -(𝑃 · 𝑋) = (-(𝑃 · 𝑈) + (𝑃 · (𝑀 / 𝑈))))
47	46	oveq1d 7420	. . . . . . . . 9 ⊢ (𝜑 → (-(𝑃 · 𝑋) + -((𝑀↑3) / (𝑈↑3))) = ((-(𝑃 · 𝑈) + (𝑃 · (𝑀 / 𝑈))) + -((𝑀↑3) / (𝑈↑3))))
48	15, 1	mulcld 11230	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 · 𝑈) ∈ ℂ)
49	48	negcld 11554	. . . . . . . . . 10 ⊢ (𝜑 → -(𝑃 · 𝑈) ∈ ℂ)
50	15, 37	mulcld 11230	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 · (𝑀 / 𝑈)) ∈ ℂ)
51	49, 50, 32	addassd 11232	. . . . . . . . 9 ⊢ (𝜑 → ((-(𝑃 · 𝑈) + (𝑃 · (𝑀 / 𝑈))) + -((𝑀↑3) / (𝑈↑3))) = (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))))
52	47, 51	eqtrd 2772	. . . . . . . 8 ⊢ (𝜑 → (-(𝑃 · 𝑋) + -((𝑀↑3) / (𝑈↑3))) = (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))))
53	52	oveq1d 7420	. . . . . . 7 ⊢ (𝜑 → ((-(𝑃 · 𝑋) + -((𝑀↑3) / (𝑈↑3))) + ((𝑃 · 𝑋) + 𝑄)) = ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄)))
54	31, 30	addcomd 11412	. . . . . . . . . 10 ⊢ (𝜑 → (-(𝑃 · 𝑋) + (𝑃 · 𝑋)) = ((𝑃 · 𝑋) + -(𝑃 · 𝑋)))
55	30	negidd 11557	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑃 · 𝑋) + -(𝑃 · 𝑋)) = 0)
56	54, 55	eqtrd 2772	. . . . . . . . 9 ⊢ (𝜑 → (-(𝑃 · 𝑋) + (𝑃 · 𝑋)) = 0)
57	56	oveq1d 7420	. . . . . . . 8 ⊢ (𝜑 → ((-(𝑃 · 𝑋) + (𝑃 · 𝑋)) + (𝑄 + -((𝑀↑3) / (𝑈↑3)))) = (0 + (𝑄 + -((𝑀↑3) / (𝑈↑3)))))
58	13, 32	addcld 11229	. . . . . . . . 9 ⊢ (𝜑 → (𝑄 + -((𝑀↑3) / (𝑈↑3))) ∈ ℂ)
59	58	addlidd 11411	. . . . . . . 8 ⊢ (𝜑 → (0 + (𝑄 + -((𝑀↑3) / (𝑈↑3)))) = (𝑄 + -((𝑀↑3) / (𝑈↑3))))
60	57, 59	eqtrd 2772	. . . . . . 7 ⊢ (𝜑 → ((-(𝑃 · 𝑋) + (𝑃 · 𝑋)) + (𝑄 + -((𝑀↑3) / (𝑈↑3)))) = (𝑄 + -((𝑀↑3) / (𝑈↑3))))
61	33, 53, 60	3eqtr3d 2780	. . . . . 6 ⊢ (𝜑 → ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄)) = (𝑄 + -((𝑀↑3) / (𝑈↑3))))
62	13, 4	mulcld 11230	. . . . . . 7 ⊢ (𝜑 → (𝑄 · (𝑈↑3)) ∈ ℂ)
63	62, 23, 4, 10	divsubdird 12025	. . . . . 6 ⊢ (𝜑 → (((𝑄 · (𝑈↑3)) − (𝑀↑3)) / (𝑈↑3)) = (((𝑄 · (𝑈↑3)) / (𝑈↑3)) − ((𝑀↑3) / (𝑈↑3))))
64	28, 61, 63	3eqtr4d 2782	. . . . 5 ⊢ (𝜑 → ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄)) = (((𝑄 · (𝑈↑3)) − (𝑀↑3)) / (𝑈↑3)))
65	12, 64	oveq12d 7423	. . . 4 ⊢ (𝜑 → ((𝑈↑3) + ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄))) = ((((𝑈↑3)↑2) / (𝑈↑3)) + (((𝑄 · (𝑈↑3)) − (𝑀↑3)) / (𝑈↑3))))
66	1, 37	negsubd 11573	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈 + -(𝑀 / 𝑈)) = (𝑈 − (𝑀 / 𝑈)))
67	35, 66	eqtr4d 2775	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 = (𝑈 + -(𝑀 / 𝑈)))
68	67	oveq1d 7420	. . . . . . . 8 ⊢ (𝜑 → (𝑋↑3) = ((𝑈 + -(𝑀 / 𝑈))↑3))
69	37	negcld 11554	. . . . . . . . 9 ⊢ (𝜑 → -(𝑀 / 𝑈) ∈ ℂ)
70		binom3 14183	. . . . . . . . 9 ⊢ ((𝑈 ∈ ℂ ∧ -(𝑀 / 𝑈) ∈ ℂ) → ((𝑈 + -(𝑀 / 𝑈))↑3) = (((𝑈↑3) + (3 · ((𝑈↑2) · -(𝑀 / 𝑈)))) + ((3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) + (-(𝑀 / 𝑈)↑3))))
71	1, 69, 70	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → ((𝑈 + -(𝑀 / 𝑈))↑3) = (((𝑈↑3) + (3 · ((𝑈↑2) · -(𝑀 / 𝑈)))) + ((3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) + (-(𝑀 / 𝑈)↑3))))
72	1	sqcld 14105	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑈↑2) ∈ ℂ)
73	72, 37	mulneg2d 11664	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑈↑2) · -(𝑀 / 𝑈)) = -((𝑈↑2) · (𝑀 / 𝑈)))
74	72, 21, 1, 7	div12d 12022	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑈↑2) · (𝑀 / 𝑈)) = (𝑀 · ((𝑈↑2) / 𝑈)))
75	1	sqvald 14104	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑈↑2) = (𝑈 · 𝑈))
76	75	oveq1d 7420	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑈↑2) / 𝑈) = ((𝑈 · 𝑈) / 𝑈))
77	1, 1, 7	divcan4d 11992	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑈 · 𝑈) / 𝑈) = 𝑈)
78	76, 77	eqtrd 2772	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑈↑2) / 𝑈) = 𝑈)
79	78	oveq2d 7421	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑀 · ((𝑈↑2) / 𝑈)) = (𝑀 · 𝑈))
80	74, 79	eqtrd 2772	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑈↑2) · (𝑀 / 𝑈)) = (𝑀 · 𝑈))
81	80	negeqd 11450	. . . . . . . . . . . . 13 ⊢ (𝜑 → -((𝑈↑2) · (𝑀 / 𝑈)) = -(𝑀 · 𝑈))
82	73, 81	eqtrd 2772	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑈↑2) · -(𝑀 / 𝑈)) = -(𝑀 · 𝑈))
83	82	oveq2d 7421	. . . . . . . . . . 11 ⊢ (𝜑 → (3 · ((𝑈↑2) · -(𝑀 / 𝑈))) = (3 · -(𝑀 · 𝑈)))
84	21, 1	mulcld 11230	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑀 · 𝑈) ∈ ℂ)
85	17, 84	mulneg2d 11664	. . . . . . . . . . 11 ⊢ (𝜑 → (3 · -(𝑀 · 𝑈)) = -(3 · (𝑀 · 𝑈)))
86	17, 21, 1	mulassd 11233	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((3 · 𝑀) · 𝑈) = (3 · (𝑀 · 𝑈)))
87	14	oveq2d 7421	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (3 · 𝑀) = (3 · (𝑃 / 3)))
88	15, 17, 19	divcan2d 11988	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (3 · (𝑃 / 3)) = 𝑃)
89	87, 88	eqtrd 2772	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (3 · 𝑀) = 𝑃)
90	89	oveq1d 7420	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((3 · 𝑀) · 𝑈) = (𝑃 · 𝑈))
91	86, 90	eqtr3d 2774	. . . . . . . . . . . 12 ⊢ (𝜑 → (3 · (𝑀 · 𝑈)) = (𝑃 · 𝑈))
92	91	negeqd 11450	. . . . . . . . . . 11 ⊢ (𝜑 → -(3 · (𝑀 · 𝑈)) = -(𝑃 · 𝑈))
93	83, 85, 92	3eqtrd 2776	. . . . . . . . . 10 ⊢ (𝜑 → (3 · ((𝑈↑2) · -(𝑀 / 𝑈))) = -(𝑃 · 𝑈))
94	93	oveq2d 7421	. . . . . . . . 9 ⊢ (𝜑 → ((𝑈↑3) + (3 · ((𝑈↑2) · -(𝑀 / 𝑈)))) = ((𝑈↑3) + -(𝑃 · 𝑈)))
95		sqneg 14077	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 / 𝑈) ∈ ℂ → (-(𝑀 / 𝑈)↑2) = ((𝑀 / 𝑈)↑2))
96	37, 95	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (-(𝑀 / 𝑈)↑2) = ((𝑀 / 𝑈)↑2))
97	37	sqvald 14104	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑀 / 𝑈)↑2) = ((𝑀 / 𝑈) · (𝑀 / 𝑈)))
98	96, 97	eqtrd 2772	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (-(𝑀 / 𝑈)↑2) = ((𝑀 / 𝑈) · (𝑀 / 𝑈)))
99	98	oveq2d 7421	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑈 · (-(𝑀 / 𝑈)↑2)) = (𝑈 · ((𝑀 / 𝑈) · (𝑀 / 𝑈))))
100	1, 37, 37	mulassd 11233	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑈 · (𝑀 / 𝑈)) · (𝑀 / 𝑈)) = (𝑈 · ((𝑀 / 𝑈) · (𝑀 / 𝑈))))
101	21, 1, 7	divcan2d 11988	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑈 · (𝑀 / 𝑈)) = 𝑀)
102	101	oveq1d 7420	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑈 · (𝑀 / 𝑈)) · (𝑀 / 𝑈)) = (𝑀 · (𝑀 / 𝑈)))
103	99, 100, 102	3eqtr2d 2778	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈 · (-(𝑀 / 𝑈)↑2)) = (𝑀 · (𝑀 / 𝑈)))
104	103	oveq2d 7421	. . . . . . . . . . 11 ⊢ (𝜑 → (3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) = (3 · (𝑀 · (𝑀 / 𝑈))))
105	17, 21, 37	mulassd 11233	. . . . . . . . . . 11 ⊢ (𝜑 → ((3 · 𝑀) · (𝑀 / 𝑈)) = (3 · (𝑀 · (𝑀 / 𝑈))))
106	89	oveq1d 7420	. . . . . . . . . . 11 ⊢ (𝜑 → ((3 · 𝑀) · (𝑀 / 𝑈)) = (𝑃 · (𝑀 / 𝑈)))
107	104, 105, 106	3eqtr2d 2778	. . . . . . . . . 10 ⊢ (𝜑 → (3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) = (𝑃 · (𝑀 / 𝑈)))
108		3nn 12287	. . . . . . . . . . . . 13 ⊢ 3 ∈ ℕ
109	108	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ∈ ℕ)
110		n2dvds3 16310	. . . . . . . . . . . . 13 ⊢ ¬ 2 ∥ 3
111	110	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → ¬ 2 ∥ 3)
112		oexpneg 16284	. . . . . . . . . . . 12 ⊢ (((𝑀 / 𝑈) ∈ ℂ ∧ 3 ∈ ℕ ∧ ¬ 2 ∥ 3) → (-(𝑀 / 𝑈)↑3) = -((𝑀 / 𝑈)↑3))
113	37, 109, 111, 112	syl3anc 1371	. . . . . . . . . . 11 ⊢ (𝜑 → (-(𝑀 / 𝑈)↑3) = -((𝑀 / 𝑈)↑3))
114	2	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ∈ ℕ0)
115	21, 1, 7, 114	expdivd 14121	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑀 / 𝑈)↑3) = ((𝑀↑3) / (𝑈↑3)))
116	115	negeqd 11450	. . . . . . . . . . 11 ⊢ (𝜑 → -((𝑀 / 𝑈)↑3) = -((𝑀↑3) / (𝑈↑3)))
117	113, 116	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝜑 → (-(𝑀 / 𝑈)↑3) = -((𝑀↑3) / (𝑈↑3)))
118	107, 117	oveq12d 7423	. . . . . . . . 9 ⊢ (𝜑 → ((3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) + (-(𝑀 / 𝑈)↑3)) = ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))
119	94, 118	oveq12d 7423	. . . . . . . 8 ⊢ (𝜑 → (((𝑈↑3) + (3 · ((𝑈↑2) · -(𝑀 / 𝑈)))) + ((3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) + (-(𝑀 / 𝑈)↑3))) = (((𝑈↑3) + -(𝑃 · 𝑈)) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))))
120	68, 71, 119	3eqtrd 2776	. . . . . . 7 ⊢ (𝜑 → (𝑋↑3) = (((𝑈↑3) + -(𝑃 · 𝑈)) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))))
121	50, 32	addcld 11229	. . . . . . . 8 ⊢ (𝜑 → ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))) ∈ ℂ)
122	4, 49, 121	addassd 11232	. . . . . . 7 ⊢ (𝜑 → (((𝑈↑3) + -(𝑃 · 𝑈)) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) = ((𝑈↑3) + (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))))
123	120, 122	eqtrd 2772	. . . . . 6 ⊢ (𝜑 → (𝑋↑3) = ((𝑈↑3) + (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))))
124	123	oveq1d 7420	. . . . 5 ⊢ (𝜑 → ((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = (((𝑈↑3) + (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))) + ((𝑃 · 𝑋) + 𝑄)))
125	49, 121	addcld 11229	. . . . . 6 ⊢ (𝜑 → (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) ∈ ℂ)
126	30, 13	addcld 11229	. . . . . 6 ⊢ (𝜑 → ((𝑃 · 𝑋) + 𝑄) ∈ ℂ)
127	4, 125, 126	addassd 11232	. . . . 5 ⊢ (𝜑 → (((𝑈↑3) + (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))) + ((𝑃 · 𝑋) + 𝑄)) = ((𝑈↑3) + ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄))))
128	124, 127	eqtrd 2772	. . . 4 ⊢ (𝜑 → ((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = ((𝑈↑3) + ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄))))
129	4	sqcld 14105	. . . . 5 ⊢ (𝜑 → ((𝑈↑3)↑2) ∈ ℂ)
130	62, 23	subcld 11567	. . . . 5 ⊢ (𝜑 → ((𝑄 · (𝑈↑3)) − (𝑀↑3)) ∈ ℂ)
131	129, 130, 4, 10	divdird 12024	. . . 4 ⊢ (𝜑 → ((((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) / (𝑈↑3)) = ((((𝑈↑3)↑2) / (𝑈↑3)) + (((𝑄 · (𝑈↑3)) − (𝑀↑3)) / (𝑈↑3))))
132	65, 128, 131	3eqtr4d 2782	. . 3 ⊢ (𝜑 → ((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = ((((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) / (𝑈↑3)))
133	132	eqeq1d 2734	. 2 ⊢ (𝜑 → (((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0 ↔ ((((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) / (𝑈↑3)) = 0))
134	129, 130	addcld 11229	. . 3 ⊢ (𝜑 → (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) ∈ ℂ)
135	134, 4, 10	diveq0ad 11996	. 2 ⊢ (𝜑 → (((((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) / (𝑈↑3)) = 0 ↔ (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0))
136	133, 135	bitrd 278	1 ⊢ (𝜑 → (((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0 ↔ (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) = 0))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   = wceq 1541   ∈ wcel 2106   ≠ wne 2940   class class class wbr 5147  (class class class)co 7405  ℂcc 11104  0cc0 11106   + caddc 11109   · cmul 11111   − cmin 11440  -cneg 11441   / cdiv 11867  ℕcn 12208  2c2 12263  3c3 12264  ℕ₀cn0 12468  ℤcz 12554  ↑cexp 14023   ∥ cdvds 16193

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7852  df-2nd 7972  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-er 8699  df-en 8936  df-dom 8937  df-sdom 8938  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-n0 12469  df-z 12555  df-uz 12819  df-rp 12971  df-seq 13963  df-exp 14024  df-dvds 16194

This theorem is referenced by:  dcubic2  26338  dcubic1  26339