Theorem dcubic1lem 26791

Description: Lemma for dcubic1 26793 and dcubic2 26792: 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 12518	. . . . . . . . 9 ⊢ 3 ∈ ℕ0
3		expcl 14074	. . . . . . . . 9 ⊢ ((𝑈 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑈↑3) ∈ ℂ)
4	1, 2, 3	sylancl 584	. . . . . . . 8 ⊢ (𝜑 → (𝑈↑3) ∈ ℂ)
5	4	sqvald 14137	. . . . . . 7 ⊢ (𝜑 → ((𝑈↑3)↑2) = ((𝑈↑3) · (𝑈↑3)))
6	5	oveq1d 7430	. . . . . 6 ⊢ (𝜑 → (((𝑈↑3)↑2) / (𝑈↑3)) = (((𝑈↑3) · (𝑈↑3)) / (𝑈↑3)))
7		dcubic2.z	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ≠ 0)
8		3z 12623	. . . . . . . . 9 ⊢ 3 ∈ ℤ
9	8	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 3 ∈ ℤ)
10	1, 7, 9	expne0d 14146	. . . . . . 7 ⊢ (𝜑 → (𝑈↑3) ≠ 0)
11	4, 4, 10	divcan4d 12024	. . . . . 6 ⊢ (𝜑 → (((𝑈↑3) · (𝑈↑3)) / (𝑈↑3)) = (𝑈↑3))
12	6, 11	eqtr2d 2766	. . . . 5 ⊢ (𝜑 → (𝑈↑3) = (((𝑈↑3)↑2) / (𝑈↑3)))
13		dcubic.d	. . . . . . . 8 ⊢ (𝜑 → 𝑄 ∈ ℂ)
14		dcubic.m	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 = (𝑃 / 3))
15		dcubic.c	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ ℂ)
16		3cn 12321	. . . . . . . . . . . . 13 ⊢ 3 ∈ ℂ
17	16	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ∈ ℂ)
18		3ne0 12346	. . . . . . . . . . . . 13 ⊢ 3 ≠ 0
19	18	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ≠ 0)
20	15, 17, 19	divcld 12018	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 / 3) ∈ ℂ)
21	14, 20	eqeltrd 2825	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ ℂ)
22		expcl 14074	. . . . . . . . . 10 ⊢ ((𝑀 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑀↑3) ∈ ℂ)
23	21, 2, 22	sylancl 584	. . . . . . . . 9 ⊢ (𝜑 → (𝑀↑3) ∈ ℂ)
24	23, 4, 10	divcld 12018	. . . . . . . 8 ⊢ (𝜑 → ((𝑀↑3) / (𝑈↑3)) ∈ ℂ)
25	13, 24	negsubd 11605	. . . . . . 7 ⊢ (𝜑 → (𝑄 + -((𝑀↑3) / (𝑈↑3))) = (𝑄 − ((𝑀↑3) / (𝑈↑3))))
26	13, 4, 10	divcan4d 12024	. . . . . . . 8 ⊢ (𝜑 → ((𝑄 · (𝑈↑3)) / (𝑈↑3)) = 𝑄)
27	26	oveq1d 7430	. . . . . . 7 ⊢ (𝜑 → (((𝑄 · (𝑈↑3)) / (𝑈↑3)) − ((𝑀↑3) / (𝑈↑3))) = (𝑄 − ((𝑀↑3) / (𝑈↑3))))
28	25, 27	eqtr4d 2768	. . . . . 6 ⊢ (𝜑 → (𝑄 + -((𝑀↑3) / (𝑈↑3))) = (((𝑄 · (𝑈↑3)) / (𝑈↑3)) − ((𝑀↑3) / (𝑈↑3))))
29		dcubic.x	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋 ∈ ℂ)
30	15, 29	mulcld 11262	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 · 𝑋) ∈ ℂ)
31	30	negcld 11586	. . . . . . . 8 ⊢ (𝜑 → -(𝑃 · 𝑋) ∈ ℂ)
32	24	negcld 11586	. . . . . . . 8 ⊢ (𝜑 → -((𝑀↑3) / (𝑈↑3)) ∈ ℂ)
33	31, 32, 30, 13	add42d 11471	. . . . . . 7 ⊢ (𝜑 → ((-(𝑃 · 𝑋) + -((𝑀↑3) / (𝑈↑3))) + ((𝑃 · 𝑋) + 𝑄)) = ((-(𝑃 · 𝑋) + (𝑃 · 𝑋)) + (𝑄 + -((𝑀↑3) / (𝑈↑3)))))
34	15, 29	mulneg2d 11696	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 · -𝑋) = -(𝑃 · 𝑋))
35		dcubic2.2	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 = (𝑈 − (𝑀 / 𝑈)))
36	35	negeqd 11482	. . . . . . . . . . . . . 14 ⊢ (𝜑 → -𝑋 = -(𝑈 − (𝑀 / 𝑈)))
37	21, 1, 7	divcld 12018	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑀 / 𝑈) ∈ ℂ)
38	1, 37	negsubdid 11614	. . . . . . . . . . . . . 14 ⊢ (𝜑 → -(𝑈 − (𝑀 / 𝑈)) = (-𝑈 + (𝑀 / 𝑈)))
39	36, 38	eqtrd 2765	. . . . . . . . . . . . 13 ⊢ (𝜑 → -𝑋 = (-𝑈 + (𝑀 / 𝑈)))
40	39	oveq2d 7431	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 · -𝑋) = (𝑃 · (-𝑈 + (𝑀 / 𝑈))))
41	34, 40	eqtr3d 2767	. . . . . . . . . . 11 ⊢ (𝜑 → -(𝑃 · 𝑋) = (𝑃 · (-𝑈 + (𝑀 / 𝑈))))
42	1	negcld 11586	. . . . . . . . . . . 12 ⊢ (𝜑 → -𝑈 ∈ ℂ)
43	15, 42, 37	adddid 11266	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 · (-𝑈 + (𝑀 / 𝑈))) = ((𝑃 · -𝑈) + (𝑃 · (𝑀 / 𝑈))))
44	15, 1	mulneg2d 11696	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 · -𝑈) = -(𝑃 · 𝑈))
45	44	oveq1d 7430	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑃 · -𝑈) + (𝑃 · (𝑀 / 𝑈))) = (-(𝑃 · 𝑈) + (𝑃 · (𝑀 / 𝑈))))
46	41, 43, 45	3eqtrd 2769	. . . . . . . . . 10 ⊢ (𝜑 → -(𝑃 · 𝑋) = (-(𝑃 · 𝑈) + (𝑃 · (𝑀 / 𝑈))))
47	46	oveq1d 7430	. . . . . . . . 9 ⊢ (𝜑 → (-(𝑃 · 𝑋) + -((𝑀↑3) / (𝑈↑3))) = ((-(𝑃 · 𝑈) + (𝑃 · (𝑀 / 𝑈))) + -((𝑀↑3) / (𝑈↑3))))
48	15, 1	mulcld 11262	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 · 𝑈) ∈ ℂ)
49	48	negcld 11586	. . . . . . . . . 10 ⊢ (𝜑 → -(𝑃 · 𝑈) ∈ ℂ)
50	15, 37	mulcld 11262	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 · (𝑀 / 𝑈)) ∈ ℂ)
51	49, 50, 32	addassd 11264	. . . . . . . . 9 ⊢ (𝜑 → ((-(𝑃 · 𝑈) + (𝑃 · (𝑀 / 𝑈))) + -((𝑀↑3) / (𝑈↑3))) = (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))))
52	47, 51	eqtrd 2765	. . . . . . . 8 ⊢ (𝜑 → (-(𝑃 · 𝑋) + -((𝑀↑3) / (𝑈↑3))) = (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))))
53	52	oveq1d 7430	. . . . . . 7 ⊢ (𝜑 → ((-(𝑃 · 𝑋) + -((𝑀↑3) / (𝑈↑3))) + ((𝑃 · 𝑋) + 𝑄)) = ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄)))
54	31, 30	addcomd 11444	. . . . . . . . . 10 ⊢ (𝜑 → (-(𝑃 · 𝑋) + (𝑃 · 𝑋)) = ((𝑃 · 𝑋) + -(𝑃 · 𝑋)))
55	30	negidd 11589	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑃 · 𝑋) + -(𝑃 · 𝑋)) = 0)
56	54, 55	eqtrd 2765	. . . . . . . . 9 ⊢ (𝜑 → (-(𝑃 · 𝑋) + (𝑃 · 𝑋)) = 0)
57	56	oveq1d 7430	. . . . . . . 8 ⊢ (𝜑 → ((-(𝑃 · 𝑋) + (𝑃 · 𝑋)) + (𝑄 + -((𝑀↑3) / (𝑈↑3)))) = (0 + (𝑄 + -((𝑀↑3) / (𝑈↑3)))))
58	13, 32	addcld 11261	. . . . . . . . 9 ⊢ (𝜑 → (𝑄 + -((𝑀↑3) / (𝑈↑3))) ∈ ℂ)
59	58	addlidd 11443	. . . . . . . 8 ⊢ (𝜑 → (0 + (𝑄 + -((𝑀↑3) / (𝑈↑3)))) = (𝑄 + -((𝑀↑3) / (𝑈↑3))))
60	57, 59	eqtrd 2765	. . . . . . 7 ⊢ (𝜑 → ((-(𝑃 · 𝑋) + (𝑃 · 𝑋)) + (𝑄 + -((𝑀↑3) / (𝑈↑3)))) = (𝑄 + -((𝑀↑3) / (𝑈↑3))))
61	33, 53, 60	3eqtr3d 2773	. . . . . 6 ⊢ (𝜑 → ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄)) = (𝑄 + -((𝑀↑3) / (𝑈↑3))))
62	13, 4	mulcld 11262	. . . . . . 7 ⊢ (𝜑 → (𝑄 · (𝑈↑3)) ∈ ℂ)
63	62, 23, 4, 10	divsubdird 12057	. . . . . 6 ⊢ (𝜑 → (((𝑄 · (𝑈↑3)) − (𝑀↑3)) / (𝑈↑3)) = (((𝑄 · (𝑈↑3)) / (𝑈↑3)) − ((𝑀↑3) / (𝑈↑3))))
64	28, 61, 63	3eqtr4d 2775	. . . . 5 ⊢ (𝜑 → ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄)) = (((𝑄 · (𝑈↑3)) − (𝑀↑3)) / (𝑈↑3)))
65	12, 64	oveq12d 7433	. . . 4 ⊢ (𝜑 → ((𝑈↑3) + ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄))) = ((((𝑈↑3)↑2) / (𝑈↑3)) + (((𝑄 · (𝑈↑3)) − (𝑀↑3)) / (𝑈↑3))))
66	1, 37	negsubd 11605	. . . . . . . . . 10 ⊢ (𝜑 → (𝑈 + -(𝑀 / 𝑈)) = (𝑈 − (𝑀 / 𝑈)))
67	35, 66	eqtr4d 2768	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 = (𝑈 + -(𝑀 / 𝑈)))
68	67	oveq1d 7430	. . . . . . . 8 ⊢ (𝜑 → (𝑋↑3) = ((𝑈 + -(𝑀 / 𝑈))↑3))
69	37	negcld 11586	. . . . . . . . 9 ⊢ (𝜑 → -(𝑀 / 𝑈) ∈ ℂ)
70		binom3 14216	. . . . . . . . 9 ⊢ ((𝑈 ∈ ℂ ∧ -(𝑀 / 𝑈) ∈ ℂ) → ((𝑈 + -(𝑀 / 𝑈))↑3) = (((𝑈↑3) + (3 · ((𝑈↑2) · -(𝑀 / 𝑈)))) + ((3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) + (-(𝑀 / 𝑈)↑3))))
71	1, 69, 70	syl2anc 582	. . . . . . . 8 ⊢ (𝜑 → ((𝑈 + -(𝑀 / 𝑈))↑3) = (((𝑈↑3) + (3 · ((𝑈↑2) · -(𝑀 / 𝑈)))) + ((3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) + (-(𝑀 / 𝑈)↑3))))
72	1	sqcld 14138	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑈↑2) ∈ ℂ)
73	72, 37	mulneg2d 11696	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑈↑2) · -(𝑀 / 𝑈)) = -((𝑈↑2) · (𝑀 / 𝑈)))
74	72, 21, 1, 7	div12d 12054	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑈↑2) · (𝑀 / 𝑈)) = (𝑀 · ((𝑈↑2) / 𝑈)))
75	1	sqvald 14137	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑈↑2) = (𝑈 · 𝑈))
76	75	oveq1d 7430	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑈↑2) / 𝑈) = ((𝑈 · 𝑈) / 𝑈))
77	1, 1, 7	divcan4d 12024	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑈 · 𝑈) / 𝑈) = 𝑈)
78	76, 77	eqtrd 2765	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑈↑2) / 𝑈) = 𝑈)
79	78	oveq2d 7431	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑀 · ((𝑈↑2) / 𝑈)) = (𝑀 · 𝑈))
80	74, 79	eqtrd 2765	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑈↑2) · (𝑀 / 𝑈)) = (𝑀 · 𝑈))
81	80	negeqd 11482	. . . . . . . . . . . . 13 ⊢ (𝜑 → -((𝑈↑2) · (𝑀 / 𝑈)) = -(𝑀 · 𝑈))
82	73, 81	eqtrd 2765	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑈↑2) · -(𝑀 / 𝑈)) = -(𝑀 · 𝑈))
83	82	oveq2d 7431	. . . . . . . . . . 11 ⊢ (𝜑 → (3 · ((𝑈↑2) · -(𝑀 / 𝑈))) = (3 · -(𝑀 · 𝑈)))
84	21, 1	mulcld 11262	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑀 · 𝑈) ∈ ℂ)
85	17, 84	mulneg2d 11696	. . . . . . . . . . 11 ⊢ (𝜑 → (3 · -(𝑀 · 𝑈)) = -(3 · (𝑀 · 𝑈)))
86	17, 21, 1	mulassd 11265	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((3 · 𝑀) · 𝑈) = (3 · (𝑀 · 𝑈)))
87	14	oveq2d 7431	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (3 · 𝑀) = (3 · (𝑃 / 3)))
88	15, 17, 19	divcan2d 12020	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (3 · (𝑃 / 3)) = 𝑃)
89	87, 88	eqtrd 2765	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (3 · 𝑀) = 𝑃)
90	89	oveq1d 7430	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((3 · 𝑀) · 𝑈) = (𝑃 · 𝑈))
91	86, 90	eqtr3d 2767	. . . . . . . . . . . 12 ⊢ (𝜑 → (3 · (𝑀 · 𝑈)) = (𝑃 · 𝑈))
92	91	negeqd 11482	. . . . . . . . . . 11 ⊢ (𝜑 → -(3 · (𝑀 · 𝑈)) = -(𝑃 · 𝑈))
93	83, 85, 92	3eqtrd 2769	. . . . . . . . . 10 ⊢ (𝜑 → (3 · ((𝑈↑2) · -(𝑀 / 𝑈))) = -(𝑃 · 𝑈))
94	93	oveq2d 7431	. . . . . . . . 9 ⊢ (𝜑 → ((𝑈↑3) + (3 · ((𝑈↑2) · -(𝑀 / 𝑈)))) = ((𝑈↑3) + -(𝑃 · 𝑈)))
95		sqneg 14110	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 / 𝑈) ∈ ℂ → (-(𝑀 / 𝑈)↑2) = ((𝑀 / 𝑈)↑2))
96	37, 95	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (-(𝑀 / 𝑈)↑2) = ((𝑀 / 𝑈)↑2))
97	37	sqvald 14137	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑀 / 𝑈)↑2) = ((𝑀 / 𝑈) · (𝑀 / 𝑈)))
98	96, 97	eqtrd 2765	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (-(𝑀 / 𝑈)↑2) = ((𝑀 / 𝑈) · (𝑀 / 𝑈)))
99	98	oveq2d 7431	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑈 · (-(𝑀 / 𝑈)↑2)) = (𝑈 · ((𝑀 / 𝑈) · (𝑀 / 𝑈))))
100	1, 37, 37	mulassd 11265	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑈 · (𝑀 / 𝑈)) · (𝑀 / 𝑈)) = (𝑈 · ((𝑀 / 𝑈) · (𝑀 / 𝑈))))
101	21, 1, 7	divcan2d 12020	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑈 · (𝑀 / 𝑈)) = 𝑀)
102	101	oveq1d 7430	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑈 · (𝑀 / 𝑈)) · (𝑀 / 𝑈)) = (𝑀 · (𝑀 / 𝑈)))
103	99, 100, 102	3eqtr2d 2771	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑈 · (-(𝑀 / 𝑈)↑2)) = (𝑀 · (𝑀 / 𝑈)))
104	103	oveq2d 7431	. . . . . . . . . . 11 ⊢ (𝜑 → (3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) = (3 · (𝑀 · (𝑀 / 𝑈))))
105	17, 21, 37	mulassd 11265	. . . . . . . . . . 11 ⊢ (𝜑 → ((3 · 𝑀) · (𝑀 / 𝑈)) = (3 · (𝑀 · (𝑀 / 𝑈))))
106	89	oveq1d 7430	. . . . . . . . . . 11 ⊢ (𝜑 → ((3 · 𝑀) · (𝑀 / 𝑈)) = (𝑃 · (𝑀 / 𝑈)))
107	104, 105, 106	3eqtr2d 2771	. . . . . . . . . 10 ⊢ (𝜑 → (3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) = (𝑃 · (𝑀 / 𝑈)))
108		3nn 12319	. . . . . . . . . . . . 13 ⊢ 3 ∈ ℕ
109	108	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ∈ ℕ)
110		n2dvds3 16345	. . . . . . . . . . . . 13 ⊢ ¬ 2 ∥ 3
111	110	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → ¬ 2 ∥ 3)
112		oexpneg 16319	. . . . . . . . . . . 12 ⊢ (((𝑀 / 𝑈) ∈ ℂ ∧ 3 ∈ ℕ ∧ ¬ 2 ∥ 3) → (-(𝑀 / 𝑈)↑3) = -((𝑀 / 𝑈)↑3))
113	37, 109, 111, 112	syl3anc 1368	. . . . . . . . . . 11 ⊢ (𝜑 → (-(𝑀 / 𝑈)↑3) = -((𝑀 / 𝑈)↑3))
114	2	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ∈ ℕ0)
115	21, 1, 7, 114	expdivd 14154	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑀 / 𝑈)↑3) = ((𝑀↑3) / (𝑈↑3)))
116	115	negeqd 11482	. . . . . . . . . . 11 ⊢ (𝜑 → -((𝑀 / 𝑈)↑3) = -((𝑀↑3) / (𝑈↑3)))
117	113, 116	eqtrd 2765	. . . . . . . . . 10 ⊢ (𝜑 → (-(𝑀 / 𝑈)↑3) = -((𝑀↑3) / (𝑈↑3)))
118	107, 117	oveq12d 7433	. . . . . . . . 9 ⊢ (𝜑 → ((3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) + (-(𝑀 / 𝑈)↑3)) = ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))
119	94, 118	oveq12d 7433	. . . . . . . 8 ⊢ (𝜑 → (((𝑈↑3) + (3 · ((𝑈↑2) · -(𝑀 / 𝑈)))) + ((3 · (𝑈 · (-(𝑀 / 𝑈)↑2))) + (-(𝑀 / 𝑈)↑3))) = (((𝑈↑3) + -(𝑃 · 𝑈)) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))))
120	68, 71, 119	3eqtrd 2769	. . . . . . 7 ⊢ (𝜑 → (𝑋↑3) = (((𝑈↑3) + -(𝑃 · 𝑈)) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))))
121	50, 32	addcld 11261	. . . . . . . 8 ⊢ (𝜑 → ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))) ∈ ℂ)
122	4, 49, 121	addassd 11264	. . . . . . 7 ⊢ (𝜑 → (((𝑈↑3) + -(𝑃 · 𝑈)) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) = ((𝑈↑3) + (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))))
123	120, 122	eqtrd 2765	. . . . . 6 ⊢ (𝜑 → (𝑋↑3) = ((𝑈↑3) + (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))))
124	123	oveq1d 7430	. . . . 5 ⊢ (𝜑 → ((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = (((𝑈↑3) + (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))) + ((𝑃 · 𝑋) + 𝑄)))
125	49, 121	addcld 11261	. . . . . 6 ⊢ (𝜑 → (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) ∈ ℂ)
126	30, 13	addcld 11261	. . . . . 6 ⊢ (𝜑 → ((𝑃 · 𝑋) + 𝑄) ∈ ℂ)
127	4, 125, 126	addassd 11264	. . . . 5 ⊢ (𝜑 → (((𝑈↑3) + (-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3))))) + ((𝑃 · 𝑋) + 𝑄)) = ((𝑈↑3) + ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄))))
128	124, 127	eqtrd 2765	. . . 4 ⊢ (𝜑 → ((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = ((𝑈↑3) + ((-(𝑃 · 𝑈) + ((𝑃 · (𝑀 / 𝑈)) + -((𝑀↑3) / (𝑈↑3)))) + ((𝑃 · 𝑋) + 𝑄))))
129	4	sqcld 14138	. . . . 5 ⊢ (𝜑 → ((𝑈↑3)↑2) ∈ ℂ)
130	62, 23	subcld 11599	. . . . 5 ⊢ (𝜑 → ((𝑄 · (𝑈↑3)) − (𝑀↑3)) ∈ ℂ)
131	129, 130, 4, 10	divdird 12056	. . . 4 ⊢ (𝜑 → ((((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) / (𝑈↑3)) = ((((𝑈↑3)↑2) / (𝑈↑3)) + (((𝑄 · (𝑈↑3)) − (𝑀↑3)) / (𝑈↑3))))
132	65, 128, 131	3eqtr4d 2775	. . 3 ⊢ (𝜑 → ((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = ((((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) / (𝑈↑3)))
133	132	eqeq1d 2727	. 2 ⊢ (𝜑 → (((𝑋↑3) + ((𝑃 · 𝑋) + 𝑄)) = 0 ↔ ((((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) / (𝑈↑3)) = 0))
134	129, 130	addcld 11261	. . 3 ⊢ (𝜑 → (((𝑈↑3)↑2) + ((𝑄 · (𝑈↑3)) − (𝑀↑3))) ∈ ℂ)
135	134, 4, 10	diveq0ad 12028	. 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 1533   ∈ wcel 2098   ≠ wne 2930   class class class wbr 5143  (class class class)co 7415  ℂcc 11134  0cc0 11136   + caddc 11139   · cmul 11141   − cmin 11472  -cneg 11473   / cdiv 11899  ℕcn 12240  2c2 12295  3c3 12296  ℕ₀cn0 12500  ℤcz 12586  ↑cexp 14056   ∥ cdvds 16228

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-sep 5294  ax-nul 5301  ax-pow 5359  ax-pr 5423  ax-un 7737  ax-cnex 11192  ax-resscn 11193  ax-1cn 11194  ax-icn 11195  ax-addcl 11196  ax-addrcl 11197  ax-mulcl 11198  ax-mulrcl 11199  ax-mulcom 11200  ax-addass 11201  ax-mulass 11202  ax-distr 11203  ax-i2m1 11204  ax-1ne0 11205  ax-1rid 11206  ax-rnegex 11207  ax-rrecex 11208  ax-cnre 11209  ax-pre-lttri 11210  ax-pre-lttrn 11211  ax-pre-ltadd 11212  ax-pre-mulgt0 11213

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3960  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4904  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5227  df-tr 5261  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7371  df-ov 7418  df-oprab 7419  df-mpo 7420  df-om 7868  df-2nd 7990  df-frecs 8283  df-wrecs 8314  df-recs 8388  df-rdg 8427  df-er 8721  df-en 8961  df-dom 8962  df-sdom 8963  df-pnf 11278  df-mnf 11279  df-xr 11280  df-ltxr 11281  df-le 11282  df-sub 11474  df-neg 11475  df-div 11900  df-nn 12241  df-2 12303  df-3 12304  df-4 12305  df-n0 12501  df-z 12587  df-uz 12851  df-rp 13005  df-seq 13997  df-exp 14057  df-dvds 16229

This theorem is referenced by:  dcubic2  26792  dcubic1  26793