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

Theorem quart 26709
Description: The quartic equation, writing out all roots using square and cube root functions so that only direct substitutions remain, and we can actually claim to have a "quartic equation". Naturally, this theorem is ridiculously long (see quartfull 34645) if all the substitutions are performed. This is Metamath 100 proof #46. (Contributed by Mario Carneiro, 6-May-2015.)
Hypotheses
Ref Expression
quart.a (𝜑𝐴 ∈ ℂ)
quart.b (𝜑𝐵 ∈ ℂ)
quart.c (𝜑𝐶 ∈ ℂ)
quart.d (𝜑𝐷 ∈ ℂ)
quart.x (𝜑𝑋 ∈ ℂ)
quart.e (𝜑𝐸 = -(𝐴 / 4))
quart.p (𝜑𝑃 = (𝐵 − ((3 / 8) · (𝐴↑2))))
quart.q (𝜑𝑄 = ((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴↑3) / 8)))
quart.r (𝜑𝑅 = ((𝐷 − ((𝐶 · 𝐴) / 4)) + ((((𝐴↑2) · 𝐵) / 16) − ((3 / 256) · (𝐴↑4)))))
quart.u (𝜑𝑈 = ((𝑃↑2) + (12 · 𝑅)))
quart.v (𝜑𝑉 = ((-(2 · (𝑃↑3)) − (27 · (𝑄↑2))) + (72 · (𝑃 · 𝑅))))
quart.w (𝜑𝑊 = (√‘((𝑉↑2) − (4 · (𝑈↑3)))))
quart.s (𝜑𝑆 = ((√‘𝑀) / 2))
quart.m (𝜑𝑀 = -((((2 · 𝑃) + 𝑇) + (𝑈 / 𝑇)) / 3))
quart.t (𝜑𝑇 = (((𝑉 + 𝑊) / 2)↑𝑐(1 / 3)))
quart.t0 (𝜑𝑇 ≠ 0)
quart.m0 (𝜑𝑀 ≠ 0)
quart.i (𝜑𝐼 = (√‘((-(𝑆↑2) − (𝑃 / 2)) + ((𝑄 / 4) / 𝑆))))
quart.j (𝜑𝐽 = (√‘((-(𝑆↑2) − (𝑃 / 2)) − ((𝑄 / 4) / 𝑆))))
Assertion
Ref Expression
quart (𝜑 → ((((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷))) = 0 ↔ ((𝑋 = ((𝐸𝑆) + 𝐼) ∨ 𝑋 = ((𝐸𝑆) − 𝐼)) ∨ (𝑋 = ((𝐸 + 𝑆) + 𝐽) ∨ 𝑋 = ((𝐸 + 𝑆) − 𝐽)))))

Proof of Theorem quart
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 quart.a . . . 4 (𝜑𝐴 ∈ ℂ)
2 quart.b . . . 4 (𝜑𝐵 ∈ ℂ)
3 quart.c . . . 4 (𝜑𝐶 ∈ ℂ)
4 quart.d . . . 4 (𝜑𝐷 ∈ ℂ)
5 quart.p . . . 4 (𝜑𝑃 = (𝐵 − ((3 / 8) · (𝐴↑2))))
6 quart.q . . . 4 (𝜑𝑄 = ((𝐶 − ((𝐴 · 𝐵) / 2)) + ((𝐴↑3) / 8)))
7 quart.r . . . 4 (𝜑𝑅 = ((𝐷 − ((𝐶 · 𝐴) / 4)) + ((((𝐴↑2) · 𝐵) / 16) − ((3 / 256) · (𝐴↑4)))))
8 quart.x . . . 4 (𝜑𝑋 ∈ ℂ)
9 quart.e . . . . . 6 (𝜑𝐸 = -(𝐴 / 4))
109oveq2d 7417 . . . . 5 (𝜑 → (𝑋𝐸) = (𝑋 − -(𝐴 / 4)))
11 4cn 12294 . . . . . . . 8 4 ∈ ℂ
1211a1i 11 . . . . . . 7 (𝜑 → 4 ∈ ℂ)
13 4ne0 12317 . . . . . . . 8 4 ≠ 0
1413a1i 11 . . . . . . 7 (𝜑 → 4 ≠ 0)
151, 12, 14divcld 11987 . . . . . 6 (𝜑 → (𝐴 / 4) ∈ ℂ)
168, 15subnegd 11575 . . . . 5 (𝜑 → (𝑋 − -(𝐴 / 4)) = (𝑋 + (𝐴 / 4)))
1710, 16eqtrd 2764 . . . 4 (𝜑 → (𝑋𝐸) = (𝑋 + (𝐴 / 4)))
181, 2, 3, 4, 5, 6, 7, 8, 17quart1 26704 . . 3 (𝜑 → (((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷))) = ((((𝑋𝐸)↑4) + (𝑃 · ((𝑋𝐸)↑2))) + ((𝑄 · (𝑋𝐸)) + 𝑅)))
1918eqeq1d 2726 . 2 (𝜑 → ((((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷))) = 0 ↔ ((((𝑋𝐸)↑4) + (𝑃 · ((𝑋𝐸)↑2))) + ((𝑄 · (𝑋𝐸)) + 𝑅)) = 0))
201, 2, 3, 4, 5, 6, 7quart1cl 26702 . . . 4 (𝜑 → (𝑃 ∈ ℂ ∧ 𝑄 ∈ ℂ ∧ 𝑅 ∈ ℂ))
2120simp1d 1139 . . 3 (𝜑𝑃 ∈ ℂ)
2220simp2d 1140 . . 3 (𝜑𝑄 ∈ ℂ)
2315negcld 11555 . . . . 5 (𝜑 → -(𝐴 / 4) ∈ ℂ)
249, 23eqeltrd 2825 . . . 4 (𝜑𝐸 ∈ ℂ)
258, 24subcld 11568 . . 3 (𝜑 → (𝑋𝐸) ∈ ℂ)
26 quart.u . . . . 5 (𝜑𝑈 = ((𝑃↑2) + (12 · 𝑅)))
27 quart.v . . . . 5 (𝜑𝑉 = ((-(2 · (𝑃↑3)) − (27 · (𝑄↑2))) + (72 · (𝑃 · 𝑅))))
28 quart.w . . . . 5 (𝜑𝑊 = (√‘((𝑉↑2) − (4 · (𝑈↑3)))))
29 quart.s . . . . 5 (𝜑𝑆 = ((√‘𝑀) / 2))
30 quart.m . . . . 5 (𝜑𝑀 = -((((2 · 𝑃) + 𝑇) + (𝑈 / 𝑇)) / 3))
31 quart.t . . . . 5 (𝜑𝑇 = (((𝑉 + 𝑊) / 2)↑𝑐(1 / 3)))
32 quart.t0 . . . . 5 (𝜑𝑇 ≠ 0)
331, 2, 3, 4, 1, 9, 5, 6, 7, 26, 27, 28, 29, 30, 31, 32quartlem3 26707 . . . 4 (𝜑 → (𝑆 ∈ ℂ ∧ 𝑀 ∈ ℂ ∧ 𝑇 ∈ ℂ))
3433simp1d 1139 . . 3 (𝜑𝑆 ∈ ℂ)
3529oveq2d 7417 . . . . . 6 (𝜑 → (2 · 𝑆) = (2 · ((√‘𝑀) / 2)))
3633simp2d 1140 . . . . . . . 8 (𝜑𝑀 ∈ ℂ)
3736sqrtcld 15381 . . . . . . 7 (𝜑 → (√‘𝑀) ∈ ℂ)
38 2cnd 12287 . . . . . . 7 (𝜑 → 2 ∈ ℂ)
39 2ne0 12313 . . . . . . . 8 2 ≠ 0
4039a1i 11 . . . . . . 7 (𝜑 → 2 ≠ 0)
4137, 38, 40divcan2d 11989 . . . . . 6 (𝜑 → (2 · ((√‘𝑀) / 2)) = (√‘𝑀))
4235, 41eqtrd 2764 . . . . 5 (𝜑 → (2 · 𝑆) = (√‘𝑀))
4342oveq1d 7416 . . . 4 (𝜑 → ((2 · 𝑆)↑2) = ((√‘𝑀)↑2))
4436sqsqrtd 15383 . . . 4 (𝜑 → ((√‘𝑀)↑2) = 𝑀)
4543, 44eqtr2d 2765 . . 3 (𝜑𝑀 = ((2 · 𝑆)↑2))
46 quart.m0 . . 3 (𝜑𝑀 ≠ 0)
47 quart.i . . . . 5 (𝜑𝐼 = (√‘((-(𝑆↑2) − (𝑃 / 2)) + ((𝑄 / 4) / 𝑆))))
48 quart.j . . . . 5 (𝜑𝐽 = (√‘((-(𝑆↑2) − (𝑃 / 2)) − ((𝑄 / 4) / 𝑆))))
491, 2, 3, 4, 1, 9, 5, 6, 7, 26, 27, 28, 29, 30, 31, 32, 46, 47, 48quartlem4 26708 . . . 4 (𝜑 → (𝑆 ≠ 0 ∧ 𝐼 ∈ ℂ ∧ 𝐽 ∈ ℂ))
5049simp2d 1140 . . 3 (𝜑𝐼 ∈ ℂ)
5147oveq1d 7416 . . . 4 (𝜑 → (𝐼↑2) = ((√‘((-(𝑆↑2) − (𝑃 / 2)) + ((𝑄 / 4) / 𝑆)))↑2))
5234sqcld 14106 . . . . . . . 8 (𝜑 → (𝑆↑2) ∈ ℂ)
5352negcld 11555 . . . . . . 7 (𝜑 → -(𝑆↑2) ∈ ℂ)
5421halfcld 12454 . . . . . . 7 (𝜑 → (𝑃 / 2) ∈ ℂ)
5553, 54subcld 11568 . . . . . 6 (𝜑 → (-(𝑆↑2) − (𝑃 / 2)) ∈ ℂ)
5622, 12, 14divcld 11987 . . . . . . 7 (𝜑 → (𝑄 / 4) ∈ ℂ)
5749simp1d 1139 . . . . . . 7 (𝜑𝑆 ≠ 0)
5856, 34, 57divcld 11987 . . . . . 6 (𝜑 → ((𝑄 / 4) / 𝑆) ∈ ℂ)
5955, 58addcld 11230 . . . . 5 (𝜑 → ((-(𝑆↑2) − (𝑃 / 2)) + ((𝑄 / 4) / 𝑆)) ∈ ℂ)
6059sqsqrtd 15383 . . . 4 (𝜑 → ((√‘((-(𝑆↑2) − (𝑃 / 2)) + ((𝑄 / 4) / 𝑆)))↑2) = ((-(𝑆↑2) − (𝑃 / 2)) + ((𝑄 / 4) / 𝑆)))
6151, 60eqtrd 2764 . . 3 (𝜑 → (𝐼↑2) = ((-(𝑆↑2) − (𝑃 / 2)) + ((𝑄 / 4) / 𝑆)))
6220simp3d 1141 . . 3 (𝜑𝑅 ∈ ℂ)
63 1cnd 11206 . . . . 5 (𝜑 → 1 ∈ ℂ)
64 3z 12592 . . . . . 6 3 ∈ ℤ
65 1exp 14054 . . . . . 6 (3 ∈ ℤ → (1↑3) = 1)
6664, 65mp1i 13 . . . . 5 (𝜑 → (1↑3) = 1)
6733simp3d 1141 . . . . . . . . . . 11 (𝜑𝑇 ∈ ℂ)
6867mullidd 11229 . . . . . . . . . 10 (𝜑 → (1 · 𝑇) = 𝑇)
6968oveq2d 7417 . . . . . . . . 9 (𝜑 → ((2 · 𝑃) + (1 · 𝑇)) = ((2 · 𝑃) + 𝑇))
7068oveq2d 7417 . . . . . . . . 9 (𝜑 → (𝑈 / (1 · 𝑇)) = (𝑈 / 𝑇))
7169, 70oveq12d 7419 . . . . . . . 8 (𝜑 → (((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) = (((2 · 𝑃) + 𝑇) + (𝑈 / 𝑇)))
7271oveq1d 7416 . . . . . . 7 (𝜑 → ((((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) / 3) = ((((2 · 𝑃) + 𝑇) + (𝑈 / 𝑇)) / 3))
7372negeqd 11451 . . . . . 6 (𝜑 → -((((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) / 3) = -((((2 · 𝑃) + 𝑇) + (𝑈 / 𝑇)) / 3))
7430, 73eqtr4d 2767 . . . . 5 (𝜑𝑀 = -((((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) / 3))
75 oveq1 7408 . . . . . . . 8 (𝑥 = 1 → (𝑥↑3) = (1↑3))
7675eqeq1d 2726 . . . . . . 7 (𝑥 = 1 → ((𝑥↑3) = 1 ↔ (1↑3) = 1))
77 oveq1 7408 . . . . . . . . . . . 12 (𝑥 = 1 → (𝑥 · 𝑇) = (1 · 𝑇))
7877oveq2d 7417 . . . . . . . . . . 11 (𝑥 = 1 → ((2 · 𝑃) + (𝑥 · 𝑇)) = ((2 · 𝑃) + (1 · 𝑇)))
7977oveq2d 7417 . . . . . . . . . . 11 (𝑥 = 1 → (𝑈 / (𝑥 · 𝑇)) = (𝑈 / (1 · 𝑇)))
8078, 79oveq12d 7419 . . . . . . . . . 10 (𝑥 = 1 → (((2 · 𝑃) + (𝑥 · 𝑇)) + (𝑈 / (𝑥 · 𝑇))) = (((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))))
8180oveq1d 7416 . . . . . . . . 9 (𝑥 = 1 → ((((2 · 𝑃) + (𝑥 · 𝑇)) + (𝑈 / (𝑥 · 𝑇))) / 3) = ((((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) / 3))
8281negeqd 11451 . . . . . . . 8 (𝑥 = 1 → -((((2 · 𝑃) + (𝑥 · 𝑇)) + (𝑈 / (𝑥 · 𝑇))) / 3) = -((((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) / 3))
8382eqeq2d 2735 . . . . . . 7 (𝑥 = 1 → (𝑀 = -((((2 · 𝑃) + (𝑥 · 𝑇)) + (𝑈 / (𝑥 · 𝑇))) / 3) ↔ 𝑀 = -((((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) / 3)))
8476, 83anbi12d 630 . . . . . 6 (𝑥 = 1 → (((𝑥↑3) = 1 ∧ 𝑀 = -((((2 · 𝑃) + (𝑥 · 𝑇)) + (𝑈 / (𝑥 · 𝑇))) / 3)) ↔ ((1↑3) = 1 ∧ 𝑀 = -((((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) / 3))))
8584rspcev 3604 . . . . 5 ((1 ∈ ℂ ∧ ((1↑3) = 1 ∧ 𝑀 = -((((2 · 𝑃) + (1 · 𝑇)) + (𝑈 / (1 · 𝑇))) / 3))) → ∃𝑥 ∈ ℂ ((𝑥↑3) = 1 ∧ 𝑀 = -((((2 · 𝑃) + (𝑥 · 𝑇)) + (𝑈 / (𝑥 · 𝑇))) / 3)))
8663, 66, 74, 85syl12anc 834 . . . 4 (𝜑 → ∃𝑥 ∈ ℂ ((𝑥↑3) = 1 ∧ 𝑀 = -((((2 · 𝑃) + (𝑥 · 𝑇)) + (𝑈 / (𝑥 · 𝑇))) / 3)))
87 2cn 12284 . . . . . 6 2 ∈ ℂ
88 mulcl 11190 . . . . . 6 ((2 ∈ ℂ ∧ 𝑃 ∈ ℂ) → (2 · 𝑃) ∈ ℂ)
8987, 21, 88sylancr 586 . . . . 5 (𝜑 → (2 · 𝑃) ∈ ℂ)
9021sqcld 14106 . . . . . 6 (𝜑 → (𝑃↑2) ∈ ℂ)
91 mulcl 11190 . . . . . . 7 ((4 ∈ ℂ ∧ 𝑅 ∈ ℂ) → (4 · 𝑅) ∈ ℂ)
9211, 62, 91sylancr 586 . . . . . 6 (𝜑 → (4 · 𝑅) ∈ ℂ)
9390, 92subcld 11568 . . . . 5 (𝜑 → ((𝑃↑2) − (4 · 𝑅)) ∈ ℂ)
9422sqcld 14106 . . . . . 6 (𝜑 → (𝑄↑2) ∈ ℂ)
9594negcld 11555 . . . . 5 (𝜑 → -(𝑄↑2) ∈ ℂ)
9631oveq1d 7416 . . . . . 6 (𝜑 → (𝑇↑3) = ((((𝑉 + 𝑊) / 2)↑𝑐(1 / 3))↑3))
971, 2, 3, 4, 1, 9, 5, 6, 7, 26, 27, 28quartlem2 26706 . . . . . . . . . 10 (𝜑 → (𝑈 ∈ ℂ ∧ 𝑉 ∈ ℂ ∧ 𝑊 ∈ ℂ))
9897simp2d 1140 . . . . . . . . 9 (𝜑𝑉 ∈ ℂ)
9997simp3d 1141 . . . . . . . . 9 (𝜑𝑊 ∈ ℂ)
10098, 99addcld 11230 . . . . . . . 8 (𝜑 → (𝑉 + 𝑊) ∈ ℂ)
101100halfcld 12454 . . . . . . 7 (𝜑 → ((𝑉 + 𝑊) / 2) ∈ ℂ)
102 3nn 12288 . . . . . . 7 3 ∈ ℕ
103 cxproot 26540 . . . . . . 7 ((((𝑉 + 𝑊) / 2) ∈ ℂ ∧ 3 ∈ ℕ) → ((((𝑉 + 𝑊) / 2)↑𝑐(1 / 3))↑3) = ((𝑉 + 𝑊) / 2))
104101, 102, 103sylancl 585 . . . . . 6 (𝜑 → ((((𝑉 + 𝑊) / 2)↑𝑐(1 / 3))↑3) = ((𝑉 + 𝑊) / 2))
10596, 104eqtrd 2764 . . . . 5 (𝜑 → (𝑇↑3) = ((𝑉 + 𝑊) / 2))
10628oveq1d 7416 . . . . . 6 (𝜑 → (𝑊↑2) = ((√‘((𝑉↑2) − (4 · (𝑈↑3))))↑2))
10798sqcld 14106 . . . . . . . 8 (𝜑 → (𝑉↑2) ∈ ℂ)
10897simp1d 1139 . . . . . . . . . 10 (𝜑𝑈 ∈ ℂ)
109 3nn0 12487 . . . . . . . . . 10 3 ∈ ℕ0
110 expcl 14042 . . . . . . . . . 10 ((𝑈 ∈ ℂ ∧ 3 ∈ ℕ0) → (𝑈↑3) ∈ ℂ)
111108, 109, 110sylancl 585 . . . . . . . . 9 (𝜑 → (𝑈↑3) ∈ ℂ)
112 mulcl 11190 . . . . . . . . 9 ((4 ∈ ℂ ∧ (𝑈↑3) ∈ ℂ) → (4 · (𝑈↑3)) ∈ ℂ)
11311, 111, 112sylancr 586 . . . . . . . 8 (𝜑 → (4 · (𝑈↑3)) ∈ ℂ)
114107, 113subcld 11568 . . . . . . 7 (𝜑 → ((𝑉↑2) − (4 · (𝑈↑3))) ∈ ℂ)
115114sqsqrtd 15383 . . . . . 6 (𝜑 → ((√‘((𝑉↑2) − (4 · (𝑈↑3))))↑2) = ((𝑉↑2) − (4 · (𝑈↑3))))
116106, 115eqtrd 2764 . . . . 5 (𝜑 → (𝑊↑2) = ((𝑉↑2) − (4 · (𝑈↑3))))
11721, 22, 62, 26, 27quartlem1 26705 . . . . . 6 (𝜑 → (𝑈 = (((2 · 𝑃)↑2) − (3 · ((𝑃↑2) − (4 · 𝑅)))) ∧ 𝑉 = (((2 · ((2 · 𝑃)↑3)) − (9 · ((2 · 𝑃) · ((𝑃↑2) − (4 · 𝑅))))) + (27 · -(𝑄↑2)))))
118117simpld 494 . . . . 5 (𝜑𝑈 = (((2 · 𝑃)↑2) − (3 · ((𝑃↑2) − (4 · 𝑅)))))
119117simprd 495 . . . . 5 (𝜑𝑉 = (((2 · ((2 · 𝑃)↑3)) − (9 · ((2 · 𝑃) · ((𝑃↑2) − (4 · 𝑅))))) + (27 · -(𝑄↑2))))
12089, 93, 95, 36, 67, 105, 99, 116, 118, 119, 32mcubic 26695 . . . 4 (𝜑 → ((((𝑀↑3) + ((2 · 𝑃) · (𝑀↑2))) + ((((𝑃↑2) − (4 · 𝑅)) · 𝑀) + -(𝑄↑2))) = 0 ↔ ∃𝑥 ∈ ℂ ((𝑥↑3) = 1 ∧ 𝑀 = -((((2 · 𝑃) + (𝑥 · 𝑇)) + (𝑈 / (𝑥 · 𝑇))) / 3))))
12186, 120mpbird 257 . . 3 (𝜑 → (((𝑀↑3) + ((2 · 𝑃) · (𝑀↑2))) + ((((𝑃↑2) − (4 · 𝑅)) · 𝑀) + -(𝑄↑2))) = 0)
12249simp3d 1141 . . 3 (𝜑𝐽 ∈ ℂ)
12348oveq1d 7416 . . . 4 (𝜑 → (𝐽↑2) = ((√‘((-(𝑆↑2) − (𝑃 / 2)) − ((𝑄 / 4) / 𝑆)))↑2))
12455, 58subcld 11568 . . . . 5 (𝜑 → ((-(𝑆↑2) − (𝑃 / 2)) − ((𝑄 / 4) / 𝑆)) ∈ ℂ)
125124sqsqrtd 15383 . . . 4 (𝜑 → ((√‘((-(𝑆↑2) − (𝑃 / 2)) − ((𝑄 / 4) / 𝑆)))↑2) = ((-(𝑆↑2) − (𝑃 / 2)) − ((𝑄 / 4) / 𝑆)))
126123, 125eqtrd 2764 . . 3 (𝜑 → (𝐽↑2) = ((-(𝑆↑2) − (𝑃 / 2)) − ((𝑄 / 4) / 𝑆)))
12721, 22, 25, 34, 45, 46, 50, 61, 62, 121, 122, 126dquart 26701 . 2 (𝜑 → (((((𝑋𝐸)↑4) + (𝑃 · ((𝑋𝐸)↑2))) + ((𝑄 · (𝑋𝐸)) + 𝑅)) = 0 ↔ (((𝑋𝐸) = (-𝑆 + 𝐼) ∨ (𝑋𝐸) = (-𝑆𝐼)) ∨ ((𝑋𝐸) = (𝑆 + 𝐽) ∨ (𝑋𝐸) = (𝑆𝐽)))))
12834negcld 11555 . . . . . . . 8 (𝜑 → -𝑆 ∈ ℂ)
129128, 50addcld 11230 . . . . . . 7 (𝜑 → (-𝑆 + 𝐼) ∈ ℂ)
1308, 24, 129subaddd 11586 . . . . . 6 (𝜑 → ((𝑋𝐸) = (-𝑆 + 𝐼) ↔ (𝐸 + (-𝑆 + 𝐼)) = 𝑋))
13124, 34negsubd 11574 . . . . . . . . 9 (𝜑 → (𝐸 + -𝑆) = (𝐸𝑆))
132131oveq1d 7416 . . . . . . . 8 (𝜑 → ((𝐸 + -𝑆) + 𝐼) = ((𝐸𝑆) + 𝐼))
13324, 128, 50addassd 11233 . . . . . . . 8 (𝜑 → ((𝐸 + -𝑆) + 𝐼) = (𝐸 + (-𝑆 + 𝐼)))
134132, 133eqtr3d 2766 . . . . . . 7 (𝜑 → ((𝐸𝑆) + 𝐼) = (𝐸 + (-𝑆 + 𝐼)))
135134eqeq1d 2726 . . . . . 6 (𝜑 → (((𝐸𝑆) + 𝐼) = 𝑋 ↔ (𝐸 + (-𝑆 + 𝐼)) = 𝑋))
136130, 135bitr4d 282 . . . . 5 (𝜑 → ((𝑋𝐸) = (-𝑆 + 𝐼) ↔ ((𝐸𝑆) + 𝐼) = 𝑋))
137 eqcom 2731 . . . . 5 (((𝐸𝑆) + 𝐼) = 𝑋𝑋 = ((𝐸𝑆) + 𝐼))
138136, 137bitrdi 287 . . . 4 (𝜑 → ((𝑋𝐸) = (-𝑆 + 𝐼) ↔ 𝑋 = ((𝐸𝑆) + 𝐼)))
139128, 50subcld 11568 . . . . . . 7 (𝜑 → (-𝑆𝐼) ∈ ℂ)
1408, 24, 139subaddd 11586 . . . . . 6 (𝜑 → ((𝑋𝐸) = (-𝑆𝐼) ↔ (𝐸 + (-𝑆𝐼)) = 𝑋))
141131oveq1d 7416 . . . . . . . 8 (𝜑 → ((𝐸 + -𝑆) − 𝐼) = ((𝐸𝑆) − 𝐼))
14224, 128, 50addsubassd 11588 . . . . . . . 8 (𝜑 → ((𝐸 + -𝑆) − 𝐼) = (𝐸 + (-𝑆𝐼)))
143141, 142eqtr3d 2766 . . . . . . 7 (𝜑 → ((𝐸𝑆) − 𝐼) = (𝐸 + (-𝑆𝐼)))
144143eqeq1d 2726 . . . . . 6 (𝜑 → (((𝐸𝑆) − 𝐼) = 𝑋 ↔ (𝐸 + (-𝑆𝐼)) = 𝑋))
145140, 144bitr4d 282 . . . . 5 (𝜑 → ((𝑋𝐸) = (-𝑆𝐼) ↔ ((𝐸𝑆) − 𝐼) = 𝑋))
146 eqcom 2731 . . . . 5 (((𝐸𝑆) − 𝐼) = 𝑋𝑋 = ((𝐸𝑆) − 𝐼))
147145, 146bitrdi 287 . . . 4 (𝜑 → ((𝑋𝐸) = (-𝑆𝐼) ↔ 𝑋 = ((𝐸𝑆) − 𝐼)))
148138, 147orbi12d 915 . . 3 (𝜑 → (((𝑋𝐸) = (-𝑆 + 𝐼) ∨ (𝑋𝐸) = (-𝑆𝐼)) ↔ (𝑋 = ((𝐸𝑆) + 𝐼) ∨ 𝑋 = ((𝐸𝑆) − 𝐼))))
14934, 122addcld 11230 . . . . . . 7 (𝜑 → (𝑆 + 𝐽) ∈ ℂ)
1508, 24, 149subaddd 11586 . . . . . 6 (𝜑 → ((𝑋𝐸) = (𝑆 + 𝐽) ↔ (𝐸 + (𝑆 + 𝐽)) = 𝑋))
15124, 34, 122addassd 11233 . . . . . . 7 (𝜑 → ((𝐸 + 𝑆) + 𝐽) = (𝐸 + (𝑆 + 𝐽)))
152151eqeq1d 2726 . . . . . 6 (𝜑 → (((𝐸 + 𝑆) + 𝐽) = 𝑋 ↔ (𝐸 + (𝑆 + 𝐽)) = 𝑋))
153150, 152bitr4d 282 . . . . 5 (𝜑 → ((𝑋𝐸) = (𝑆 + 𝐽) ↔ ((𝐸 + 𝑆) + 𝐽) = 𝑋))
154 eqcom 2731 . . . . 5 (((𝐸 + 𝑆) + 𝐽) = 𝑋𝑋 = ((𝐸 + 𝑆) + 𝐽))
155153, 154bitrdi 287 . . . 4 (𝜑 → ((𝑋𝐸) = (𝑆 + 𝐽) ↔ 𝑋 = ((𝐸 + 𝑆) + 𝐽)))
15634, 122subcld 11568 . . . . . . 7 (𝜑 → (𝑆𝐽) ∈ ℂ)
1578, 24, 156subaddd 11586 . . . . . 6 (𝜑 → ((𝑋𝐸) = (𝑆𝐽) ↔ (𝐸 + (𝑆𝐽)) = 𝑋))
15824, 34, 122addsubassd 11588 . . . . . . 7 (𝜑 → ((𝐸 + 𝑆) − 𝐽) = (𝐸 + (𝑆𝐽)))
159158eqeq1d 2726 . . . . . 6 (𝜑 → (((𝐸 + 𝑆) − 𝐽) = 𝑋 ↔ (𝐸 + (𝑆𝐽)) = 𝑋))
160157, 159bitr4d 282 . . . . 5 (𝜑 → ((𝑋𝐸) = (𝑆𝐽) ↔ ((𝐸 + 𝑆) − 𝐽) = 𝑋))
161 eqcom 2731 . . . . 5 (((𝐸 + 𝑆) − 𝐽) = 𝑋𝑋 = ((𝐸 + 𝑆) − 𝐽))
162160, 161bitrdi 287 . . . 4 (𝜑 → ((𝑋𝐸) = (𝑆𝐽) ↔ 𝑋 = ((𝐸 + 𝑆) − 𝐽)))
163155, 162orbi12d 915 . . 3 (𝜑 → (((𝑋𝐸) = (𝑆 + 𝐽) ∨ (𝑋𝐸) = (𝑆𝐽)) ↔ (𝑋 = ((𝐸 + 𝑆) + 𝐽) ∨ 𝑋 = ((𝐸 + 𝑆) − 𝐽))))
164148, 163orbi12d 915 . 2 (𝜑 → ((((𝑋𝐸) = (-𝑆 + 𝐼) ∨ (𝑋𝐸) = (-𝑆𝐼)) ∨ ((𝑋𝐸) = (𝑆 + 𝐽) ∨ (𝑋𝐸) = (𝑆𝐽))) ↔ ((𝑋 = ((𝐸𝑆) + 𝐼) ∨ 𝑋 = ((𝐸𝑆) − 𝐼)) ∨ (𝑋 = ((𝐸 + 𝑆) + 𝐽) ∨ 𝑋 = ((𝐸 + 𝑆) − 𝐽)))))
16519, 127, 1643bitrd 305 1 (𝜑 → ((((𝑋↑4) + (𝐴 · (𝑋↑3))) + ((𝐵 · (𝑋↑2)) + ((𝐶 · 𝑋) + 𝐷))) = 0 ↔ ((𝑋 = ((𝐸𝑆) + 𝐼) ∨ 𝑋 = ((𝐸𝑆) − 𝐼)) ∨ (𝑋 = ((𝐸 + 𝑆) + 𝐽) ∨ 𝑋 = ((𝐸 + 𝑆) − 𝐽)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395  wo 844   = wceq 1533  wcel 2098  wne 2932  wrex 3062  cfv 6533  (class class class)co 7401  cc 11104  0cc0 11106  1c1 11107   + caddc 11109   · cmul 11111  cmin 11441  -cneg 11442   / cdiv 11868  cn 12209  2c2 12264  3c3 12265  4c4 12266  5c5 12267  6c6 12268  7c7 12269  8c8 12270  9c9 12271  0cn0 12469  cz 12555  cdc 12674  cexp 14024  csqrt 15177  𝑐ccxp 26406
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 2163  ax-ext 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718  ax-inf2 9632  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  ax-pre-sup 11184  ax-addf 11185
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-tp 4625  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-iin 4990  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-se 5622  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-of 7663  df-om 7849  df-1st 7968  df-2nd 7969  df-supp 8141  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-2o 8462  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-z 12556  df-dec 12675  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  df-ioc 13326  df-ico 13327  df-icc 13328  df-fz 13482  df-fzo 13625  df-fl 13754  df-mod 13832  df-seq 13964  df-exp 14025  df-fac 14231  df-bc 14260  df-hash 14288  df-shft 15011  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-limsup 15412  df-clim 15429  df-rlim 15430  df-sum 15630  df-ef 16008  df-sin 16010  df-cos 16011  df-pi 16013  df-dvds 16195  df-struct 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-hom 17220  df-cco 17221  df-rest 17367  df-topn 17368  df-0g 17386  df-gsum 17387  df-topgen 17388  df-pt 17389  df-prds 17392  df-xrs 17447  df-qtop 17452  df-imas 17453  df-xps 17455  df-mre 17529  df-mrc 17530  df-acs 17532  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-submnd 18704  df-mulg 18986  df-cntz 19223  df-cmn 19692  df-psmet 21220  df-xmet 21221  df-met 21222  df-bl 21223  df-mopn 21224  df-fbas 21225  df-fg 21226  df-cnfld 21229  df-top 22718  df-topon 22735  df-topsp 22757  df-bases 22771  df-cld 22845  df-ntr 22846  df-cls 22847  df-nei 22924  df-lp 22962  df-perf 22963  df-cn 23053  df-cnp 23054  df-haus 23141  df-tx 23388  df-hmeo 23581  df-fil 23672  df-fm 23764  df-flim 23765  df-flf 23766  df-xms 24148  df-ms 24149  df-tms 24150  df-cncf 24720  df-limc 25717  df-dv 25718  df-log 26407  df-cxp 26408
This theorem is referenced by:  quartfull  34645
  Copyright terms: Public domain W3C validator