Metamath Proof Explorer


Theorem quartlem2

Description: Closure lemmas for quart . (Contributed by Mario Carneiro, 7-May-2015)

Ref Expression
Hypotheses quart.a ⊢ φ → A ∈ ℂ
quart.b ⊢ φ → B ∈ ℂ
quart.c ⊢ φ → C ∈ ℂ
quart.d ⊢ φ → D ∈ ℂ
quart.x ⊢ φ → X ∈ ℂ
quart.e ⊢ φ → E = − A 4
quart.p ⊢ φ → P = B − 3 8 ⁢ A 2
quart.q ⊢ φ → Q = C - A ⁢ B 2 + A 3 8
quart.r ⊢ φ → R = D − C ⁢ A 4 + A 2 ⁢ B 16 - 3 256 ⁢ A 4
quart.u ⊢ φ → U = P 2 + 12 ⁢ R
quart.v ⊢ φ → V = − 2 ⁢ P 3 - 27 ⁢ Q 2 + 72 ⁢ P ⁢ R
quart.w ⊢ φ → W = V 2 − 4 ⁢ U 3
Assertion quartlem2 ⊢ φ → U ∈ ℂ ∧ V ∈ ℂ ∧ W ∈ ℂ

Proof

Step Hyp Ref Expression
1 quart.a ⊢ φ → A ∈ ℂ
2 quart.b ⊢ φ → B ∈ ℂ
3 quart.c ⊢ φ → C ∈ ℂ
4 quart.d ⊢ φ → D ∈ ℂ
5 quart.x ⊢ φ → X ∈ ℂ
6 quart.e ⊢ φ → E = − A 4
7 quart.p ⊢ φ → P = B − 3 8 ⁢ A 2
8 quart.q ⊢ φ → Q = C - A ⁢ B 2 + A 3 8
9 quart.r ⊢ φ → R = D − C ⁢ A 4 + A 2 ⁢ B 16 - 3 256 ⁢ A 4
10 quart.u ⊢ φ → U = P 2 + 12 ⁢ R
11 quart.v ⊢ φ → V = − 2 ⁢ P 3 - 27 ⁢ Q 2 + 72 ⁢ P ⁢ R
12 quart.w ⊢ φ → W = V 2 − 4 ⁢ U 3
13 1 2 3 4 7 8 9 quart1cl ⊢ φ → P ∈ ℂ ∧ Q ∈ ℂ ∧ R ∈ ℂ
14 13 simp1d ⊢ φ → P ∈ ℂ
15 14 sqcld ⊢ φ → P 2 ∈ ℂ
16 1nn0 ⊢ 1 ∈ ℕ 0
17 2nn ⊢ 2 ∈ ℕ
18 16 17 decnncl ⊢ 12 ∈ ℕ
19 18 nncni ⊢ 12 ∈ ℂ
20 13 simp3d ⊢ φ → R ∈ ℂ
21 mulcl ⊢ 12 ∈ ℂ ∧ R ∈ ℂ → 12 ⁢ R ∈ ℂ
22 19 20 21 sylancr ⊢ φ → 12 ⁢ R ∈ ℂ
23 15 22 addcld ⊢ φ → P 2 + 12 ⁢ R ∈ ℂ
24 10 23 eqeltrd ⊢ φ → U ∈ ℂ
25 2cn ⊢ 2 ∈ ℂ
26 3nn0 ⊢ 3 ∈ ℕ 0
27 expcl ⊢ P ∈ ℂ ∧ 3 ∈ ℕ 0 → P 3 ∈ ℂ
28 14 26 27 sylancl ⊢ φ → P 3 ∈ ℂ
29 mulcl ⊢ 2 ∈ ℂ ∧ P 3 ∈ ℂ → 2 ⁢ P 3 ∈ ℂ
30 25 28 29 sylancr ⊢ φ → 2 ⁢ P 3 ∈ ℂ
31 30 negcld ⊢ φ → − 2 ⁢ P 3 ∈ ℂ
32 2nn0 ⊢ 2 ∈ ℕ 0
33 7nn ⊢ 7 ∈ ℕ
34 32 33 decnncl ⊢ 27 ∈ ℕ
35 34 nncni ⊢ 27 ∈ ℂ
36 13 simp2d ⊢ φ → Q ∈ ℂ
37 36 sqcld ⊢ φ → Q 2 ∈ ℂ
38 mulcl ⊢ 27 ∈ ℂ ∧ Q 2 ∈ ℂ → 27 ⁢ Q 2 ∈ ℂ
39 35 37 38 sylancr ⊢ φ → 27 ⁢ Q 2 ∈ ℂ
40 31 39 subcld ⊢ φ → - 2 ⁢ P 3 - 27 ⁢ Q 2 ∈ ℂ
41 7nn0 ⊢ 7 ∈ ℕ 0
42 41 17 decnncl ⊢ 72 ∈ ℕ
43 42 nncni ⊢ 72 ∈ ℂ
44 14 20 mulcld ⊢ φ → P ⁢ R ∈ ℂ
45 mulcl ⊢ 72 ∈ ℂ ∧ P ⁢ R ∈ ℂ → 72 ⁢ P ⁢ R ∈ ℂ
46 43 44 45 sylancr ⊢ φ → 72 ⁢ P ⁢ R ∈ ℂ
47 40 46 addcld ⊢ φ → − 2 ⁢ P 3 - 27 ⁢ Q 2 + 72 ⁢ P ⁢ R ∈ ℂ
48 11 47 eqeltrd ⊢ φ → V ∈ ℂ
49 48 sqcld ⊢ φ → V 2 ∈ ℂ
50 4cn ⊢ 4 ∈ ℂ
51 expcl ⊢ U ∈ ℂ ∧ 3 ∈ ℕ 0 → U 3 ∈ ℂ
52 24 26 51 sylancl ⊢ φ → U 3 ∈ ℂ
53 mulcl ⊢ 4 ∈ ℂ ∧ U 3 ∈ ℂ → 4 ⁢ U 3 ∈ ℂ
54 50 52 53 sylancr ⊢ φ → 4 ⁢ U 3 ∈ ℂ
55 49 54 subcld ⊢ φ → V 2 − 4 ⁢ U 3 ∈ ℂ
56 55 sqrtcld ⊢ φ → V 2 − 4 ⁢ U 3 ∈ ℂ
57 12 56 eqeltrd ⊢ φ → W ∈ ℂ
58 24 48 57 3jca ⊢ φ → U ∈ ℂ ∧ V ∈ ℂ ∧ W ∈ ℂ