Proof of Theorem dquartlem2
Step | Hyp | Ref
| Expression |
1 | | dquart.m |
. . . . . . 7
⊢ (𝜑 → 𝑀 = ((2 · 𝑆)↑2)) |
2 | | 2cn 12048 |
. . . . . . . . 9
⊢ 2 ∈
ℂ |
3 | | dquart.s |
. . . . . . . . 9
⊢ (𝜑 → 𝑆 ∈ ℂ) |
4 | | mulcl 10955 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 𝑆
∈ ℂ) → (2 · 𝑆) ∈ ℂ) |
5 | 2, 3, 4 | sylancr 587 |
. . . . . . . 8
⊢ (𝜑 → (2 · 𝑆) ∈
ℂ) |
6 | 5 | sqcld 13862 |
. . . . . . 7
⊢ (𝜑 → ((2 · 𝑆)↑2) ∈
ℂ) |
7 | 1, 6 | eqeltrd 2839 |
. . . . . 6
⊢ (𝜑 → 𝑀 ∈ ℂ) |
8 | | dquart.b |
. . . . . 6
⊢ (𝜑 → 𝐵 ∈ ℂ) |
9 | 7, 8 | addcld 10994 |
. . . . 5
⊢ (𝜑 → (𝑀 + 𝐵) ∈ ℂ) |
10 | 2 | a1i 11 |
. . . . 5
⊢ (𝜑 → 2 ∈
ℂ) |
11 | | 2ne0 12077 |
. . . . . 6
⊢ 2 ≠
0 |
12 | 11 | a1i 11 |
. . . . 5
⊢ (𝜑 → 2 ≠ 0) |
13 | 9, 10, 12 | sqdivd 13877 |
. . . 4
⊢ (𝜑 → (((𝑀 + 𝐵) / 2)↑2) = (((𝑀 + 𝐵)↑2) / (2↑2))) |
14 | | sq2 13914 |
. . . . 5
⊢
(2↑2) = 4 |
15 | 14 | oveq2i 7286 |
. . . 4
⊢ (((𝑀 + 𝐵)↑2) / (2↑2)) = (((𝑀 + 𝐵)↑2) / 4) |
16 | 13, 15 | eqtrdi 2794 |
. . 3
⊢ (𝜑 → (((𝑀 + 𝐵) / 2)↑2) = (((𝑀 + 𝐵)↑2) / 4)) |
17 | 16 | oveq1d 7290 |
. 2
⊢ (𝜑 → ((((𝑀 + 𝐵) / 2)↑2) − (((𝐶↑2) / 4) / 𝑀)) = ((((𝑀 + 𝐵)↑2) / 4) − (((𝐶↑2) / 4) / 𝑀))) |
18 | 9 | sqcld 13862 |
. . . . 5
⊢ (𝜑 → ((𝑀 + 𝐵)↑2) ∈ ℂ) |
19 | | 4cn 12058 |
. . . . . 6
⊢ 4 ∈
ℂ |
20 | 19 | a1i 11 |
. . . . 5
⊢ (𝜑 → 4 ∈
ℂ) |
21 | | 4ne0 12081 |
. . . . . 6
⊢ 4 ≠
0 |
22 | 21 | a1i 11 |
. . . . 5
⊢ (𝜑 → 4 ≠ 0) |
23 | 18, 20, 22 | divcld 11751 |
. . . 4
⊢ (𝜑 → (((𝑀 + 𝐵)↑2) / 4) ∈
ℂ) |
24 | | dquart.c |
. . . . . . 7
⊢ (𝜑 → 𝐶 ∈ ℂ) |
25 | 24 | sqcld 13862 |
. . . . . 6
⊢ (𝜑 → (𝐶↑2) ∈ ℂ) |
26 | 25, 20, 22 | divcld 11751 |
. . . . 5
⊢ (𝜑 → ((𝐶↑2) / 4) ∈
ℂ) |
27 | | dquart.m0 |
. . . . 5
⊢ (𝜑 → 𝑀 ≠ 0) |
28 | 26, 7, 27 | divcld 11751 |
. . . 4
⊢ (𝜑 → (((𝐶↑2) / 4) / 𝑀) ∈ ℂ) |
29 | 23, 28 | subcld 11332 |
. . 3
⊢ (𝜑 → ((((𝑀 + 𝐵)↑2) / 4) − (((𝐶↑2) / 4) / 𝑀)) ∈ ℂ) |
30 | | dquart.d |
. . 3
⊢ (𝜑 → 𝐷 ∈ ℂ) |
31 | 23, 28, 7 | subdird 11432 |
. . . 4
⊢ (𝜑 → (((((𝑀 + 𝐵)↑2) / 4) − (((𝐶↑2) / 4) / 𝑀)) · 𝑀) = (((((𝑀 + 𝐵)↑2) / 4) · 𝑀) − ((((𝐶↑2) / 4) / 𝑀) · 𝑀))) |
32 | 18, 7, 20, 22 | div23d 11788 |
. . . . . 6
⊢ (𝜑 → ((((𝑀 + 𝐵)↑2) · 𝑀) / 4) = ((((𝑀 + 𝐵)↑2) / 4) · 𝑀)) |
33 | 32 | eqcomd 2744 |
. . . . 5
⊢ (𝜑 → ((((𝑀 + 𝐵)↑2) / 4) · 𝑀) = ((((𝑀 + 𝐵)↑2) · 𝑀) / 4)) |
34 | 26, 7, 27 | divcan1d 11752 |
. . . . 5
⊢ (𝜑 → ((((𝐶↑2) / 4) / 𝑀) · 𝑀) = ((𝐶↑2) / 4)) |
35 | 33, 34 | oveq12d 7293 |
. . . 4
⊢ (𝜑 → (((((𝑀 + 𝐵)↑2) / 4) · 𝑀) − ((((𝐶↑2) / 4) / 𝑀) · 𝑀)) = (((((𝑀 + 𝐵)↑2) · 𝑀) / 4) − ((𝐶↑2) / 4))) |
36 | | binom2 13933 |
. . . . . . . . . . . . 13
⊢ ((𝑀 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((𝑀 + 𝐵)↑2) = (((𝑀↑2) + (2 · (𝑀 · 𝐵))) + (𝐵↑2))) |
37 | 7, 8, 36 | syl2anc 584 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((𝑀 + 𝐵)↑2) = (((𝑀↑2) + (2 · (𝑀 · 𝐵))) + (𝐵↑2))) |
38 | 37 | oveq1d 7290 |
. . . . . . . . . . 11
⊢ (𝜑 → (((𝑀 + 𝐵)↑2) · 𝑀) = ((((𝑀↑2) + (2 · (𝑀 · 𝐵))) + (𝐵↑2)) · 𝑀)) |
39 | 7 | sqcld 13862 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑀↑2) ∈ ℂ) |
40 | 7, 8 | mulcld 10995 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑀 · 𝐵) ∈ ℂ) |
41 | | mulcl 10955 |
. . . . . . . . . . . . . 14
⊢ ((2
∈ ℂ ∧ (𝑀
· 𝐵) ∈ ℂ)
→ (2 · (𝑀
· 𝐵)) ∈
ℂ) |
42 | 2, 40, 41 | sylancr 587 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (2 · (𝑀 · 𝐵)) ∈ ℂ) |
43 | 39, 42 | addcld 10994 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((𝑀↑2) + (2 · (𝑀 · 𝐵))) ∈ ℂ) |
44 | 8 | sqcld 13862 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝐵↑2) ∈ ℂ) |
45 | 43, 44, 7 | adddird 11000 |
. . . . . . . . . . 11
⊢ (𝜑 → ((((𝑀↑2) + (2 · (𝑀 · 𝐵))) + (𝐵↑2)) · 𝑀) = ((((𝑀↑2) + (2 · (𝑀 · 𝐵))) · 𝑀) + ((𝐵↑2) · 𝑀))) |
46 | 39, 42, 7 | adddird 11000 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (((𝑀↑2) + (2 · (𝑀 · 𝐵))) · 𝑀) = (((𝑀↑2) · 𝑀) + ((2 · (𝑀 · 𝐵)) · 𝑀))) |
47 | | df-3 12037 |
. . . . . . . . . . . . . . . 16
⊢ 3 = (2 +
1) |
48 | 47 | oveq2i 7286 |
. . . . . . . . . . . . . . 15
⊢ (𝑀↑3) = (𝑀↑(2 + 1)) |
49 | | 2nn0 12250 |
. . . . . . . . . . . . . . . 16
⊢ 2 ∈
ℕ0 |
50 | | expp1 13789 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑀 ∈ ℂ ∧ 2 ∈
ℕ0) → (𝑀↑(2 + 1)) = ((𝑀↑2) · 𝑀)) |
51 | 7, 49, 50 | sylancl 586 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝑀↑(2 + 1)) = ((𝑀↑2) · 𝑀)) |
52 | 48, 51 | eqtr2id 2791 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ((𝑀↑2) · 𝑀) = (𝑀↑3)) |
53 | | mulcl 10955 |
. . . . . . . . . . . . . . . . 17
⊢ ((2
∈ ℂ ∧ 𝐵
∈ ℂ) → (2 · 𝐵) ∈ ℂ) |
54 | 2, 8, 53 | sylancr 587 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (2 · 𝐵) ∈
ℂ) |
55 | 54, 7, 7 | mulassd 10998 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (((2 · 𝐵) · 𝑀) · 𝑀) = ((2 · 𝐵) · (𝑀 · 𝑀))) |
56 | 10, 7, 8 | mulassd 10998 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → ((2 · 𝑀) · 𝐵) = (2 · (𝑀 · 𝐵))) |
57 | 10, 7, 8 | mul32d 11185 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → ((2 · 𝑀) · 𝐵) = ((2 · 𝐵) · 𝑀)) |
58 | 56, 57 | eqtr3d 2780 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (2 · (𝑀 · 𝐵)) = ((2 · 𝐵) · 𝑀)) |
59 | 58 | oveq1d 7290 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((2 · (𝑀 · 𝐵)) · 𝑀) = (((2 · 𝐵) · 𝑀) · 𝑀)) |
60 | 7 | sqvald 13861 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (𝑀↑2) = (𝑀 · 𝑀)) |
61 | 60 | oveq2d 7291 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((2 · 𝐵) · (𝑀↑2)) = ((2 · 𝐵) · (𝑀 · 𝑀))) |
62 | 55, 59, 61 | 3eqtr4d 2788 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ((2 · (𝑀 · 𝐵)) · 𝑀) = ((2 · 𝐵) · (𝑀↑2))) |
63 | 52, 62 | oveq12d 7293 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (((𝑀↑2) · 𝑀) + ((2 · (𝑀 · 𝐵)) · 𝑀)) = ((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2)))) |
64 | 46, 63 | eqtrd 2778 |
. . . . . . . . . . . 12
⊢ (𝜑 → (((𝑀↑2) + (2 · (𝑀 · 𝐵))) · 𝑀) = ((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2)))) |
65 | 64 | oveq1d 7290 |
. . . . . . . . . . 11
⊢ (𝜑 → ((((𝑀↑2) + (2 · (𝑀 · 𝐵))) · 𝑀) + ((𝐵↑2) · 𝑀)) = (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + ((𝐵↑2) · 𝑀))) |
66 | 38, 45, 65 | 3eqtrd 2782 |
. . . . . . . . . 10
⊢ (𝜑 → (((𝑀 + 𝐵)↑2) · 𝑀) = (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + ((𝐵↑2) · 𝑀))) |
67 | 66 | oveq1d 7290 |
. . . . . . . . 9
⊢ (𝜑 → ((((𝑀 + 𝐵)↑2) · 𝑀) − ((4 · 𝐷) · 𝑀)) = ((((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + ((𝐵↑2) · 𝑀)) − ((4 · 𝐷) · 𝑀))) |
68 | | 3nn0 12251 |
. . . . . . . . . . . . 13
⊢ 3 ∈
ℕ0 |
69 | | expcl 13800 |
. . . . . . . . . . . . 13
⊢ ((𝑀 ∈ ℂ ∧ 3 ∈
ℕ0) → (𝑀↑3) ∈ ℂ) |
70 | 7, 68, 69 | sylancl 586 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑀↑3) ∈ ℂ) |
71 | 54, 39 | mulcld 10995 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((2 · 𝐵) · (𝑀↑2)) ∈ ℂ) |
72 | 70, 71 | addcld 10994 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) ∈ ℂ) |
73 | 44, 7 | mulcld 10995 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝐵↑2) · 𝑀) ∈ ℂ) |
74 | | mulcl 10955 |
. . . . . . . . . . . . 13
⊢ ((4
∈ ℂ ∧ 𝐷
∈ ℂ) → (4 · 𝐷) ∈ ℂ) |
75 | 19, 30, 74 | sylancr 587 |
. . . . . . . . . . . 12
⊢ (𝜑 → (4 · 𝐷) ∈
ℂ) |
76 | 75, 7 | mulcld 10995 |
. . . . . . . . . . 11
⊢ (𝜑 → ((4 · 𝐷) · 𝑀) ∈ ℂ) |
77 | 72, 73, 76 | addsubassd 11352 |
. . . . . . . . . 10
⊢ (𝜑 → ((((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + ((𝐵↑2) · 𝑀)) − ((4 · 𝐷) · 𝑀)) = (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) · 𝑀) − ((4 · 𝐷) · 𝑀)))) |
78 | 44, 75, 7 | subdird 11432 |
. . . . . . . . . . 11
⊢ (𝜑 → (((𝐵↑2) − (4 · 𝐷)) · 𝑀) = (((𝐵↑2) · 𝑀) − ((4 · 𝐷) · 𝑀))) |
79 | 78 | oveq2d 7291 |
. . . . . . . . . 10
⊢ (𝜑 → (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) − (4 · 𝐷)) · 𝑀)) = (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) · 𝑀) − ((4 · 𝐷) · 𝑀)))) |
80 | 77, 79 | eqtr4d 2781 |
. . . . . . . . 9
⊢ (𝜑 → ((((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + ((𝐵↑2) · 𝑀)) − ((4 · 𝐷) · 𝑀)) = (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) − (4 · 𝐷)) · 𝑀))) |
81 | 44, 75 | subcld 11332 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((𝐵↑2) − (4 · 𝐷)) ∈
ℂ) |
82 | 81, 7 | mulcld 10995 |
. . . . . . . . . . 11
⊢ (𝜑 → (((𝐵↑2) − (4 · 𝐷)) · 𝑀) ∈ ℂ) |
83 | 72, 82 | addcld 10994 |
. . . . . . . . . 10
⊢ (𝜑 → (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) − (4 · 𝐷)) · 𝑀)) ∈ ℂ) |
84 | 25 | negcld 11319 |
. . . . . . . . . . . 12
⊢ (𝜑 → -(𝐶↑2) ∈ ℂ) |
85 | 72, 82, 84 | addassd 10997 |
. . . . . . . . . . 11
⊢ (𝜑 → ((((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) − (4 · 𝐷)) · 𝑀)) + -(𝐶↑2)) = (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + ((((𝐵↑2) − (4 · 𝐷)) · 𝑀) + -(𝐶↑2)))) |
86 | 83, 25 | negsubd 11338 |
. . . . . . . . . . 11
⊢ (𝜑 → ((((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) − (4 · 𝐷)) · 𝑀)) + -(𝐶↑2)) = ((((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) − (4 · 𝐷)) · 𝑀)) − (𝐶↑2))) |
87 | | dquart.3 |
. . . . . . . . . . 11
⊢ (𝜑 → (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + ((((𝐵↑2) − (4 · 𝐷)) · 𝑀) + -(𝐶↑2))) = 0) |
88 | 85, 86, 87 | 3eqtr3d 2786 |
. . . . . . . . . 10
⊢ (𝜑 → ((((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) − (4 · 𝐷)) · 𝑀)) − (𝐶↑2)) = 0) |
89 | 83, 25, 88 | subeq0d 11340 |
. . . . . . . . 9
⊢ (𝜑 → (((𝑀↑3) + ((2 · 𝐵) · (𝑀↑2))) + (((𝐵↑2) − (4 · 𝐷)) · 𝑀)) = (𝐶↑2)) |
90 | 67, 80, 89 | 3eqtrd 2782 |
. . . . . . . 8
⊢ (𝜑 → ((((𝑀 + 𝐵)↑2) · 𝑀) − ((4 · 𝐷) · 𝑀)) = (𝐶↑2)) |
91 | 18, 7 | mulcld 10995 |
. . . . . . . . 9
⊢ (𝜑 → (((𝑀 + 𝐵)↑2) · 𝑀) ∈ ℂ) |
92 | | subsub23 11226 |
. . . . . . . . 9
⊢
(((((𝑀 + 𝐵)↑2) · 𝑀) ∈ ℂ ∧ ((4
· 𝐷) · 𝑀) ∈ ℂ ∧ (𝐶↑2) ∈ ℂ) →
(((((𝑀 + 𝐵)↑2) · 𝑀) − ((4 · 𝐷) · 𝑀)) = (𝐶↑2) ↔ ((((𝑀 + 𝐵)↑2) · 𝑀) − (𝐶↑2)) = ((4 · 𝐷) · 𝑀))) |
93 | 91, 76, 25, 92 | syl3anc 1370 |
. . . . . . . 8
⊢ (𝜑 → (((((𝑀 + 𝐵)↑2) · 𝑀) − ((4 · 𝐷) · 𝑀)) = (𝐶↑2) ↔ ((((𝑀 + 𝐵)↑2) · 𝑀) − (𝐶↑2)) = ((4 · 𝐷) · 𝑀))) |
94 | 90, 93 | mpbid 231 |
. . . . . . 7
⊢ (𝜑 → ((((𝑀 + 𝐵)↑2) · 𝑀) − (𝐶↑2)) = ((4 · 𝐷) · 𝑀)) |
95 | 20, 30, 7 | mulassd 10998 |
. . . . . . 7
⊢ (𝜑 → ((4 · 𝐷) · 𝑀) = (4 · (𝐷 · 𝑀))) |
96 | 94, 95 | eqtrd 2778 |
. . . . . 6
⊢ (𝜑 → ((((𝑀 + 𝐵)↑2) · 𝑀) − (𝐶↑2)) = (4 · (𝐷 · 𝑀))) |
97 | 96 | oveq1d 7290 |
. . . . 5
⊢ (𝜑 → (((((𝑀 + 𝐵)↑2) · 𝑀) − (𝐶↑2)) / 4) = ((4 · (𝐷 · 𝑀)) / 4)) |
98 | 91, 25, 20, 22 | divsubdird 11790 |
. . . . 5
⊢ (𝜑 → (((((𝑀 + 𝐵)↑2) · 𝑀) − (𝐶↑2)) / 4) = (((((𝑀 + 𝐵)↑2) · 𝑀) / 4) − ((𝐶↑2) / 4))) |
99 | 30, 7 | mulcld 10995 |
. . . . . 6
⊢ (𝜑 → (𝐷 · 𝑀) ∈ ℂ) |
100 | 99, 20, 22 | divcan3d 11756 |
. . . . 5
⊢ (𝜑 → ((4 · (𝐷 · 𝑀)) / 4) = (𝐷 · 𝑀)) |
101 | 97, 98, 100 | 3eqtr3d 2786 |
. . . 4
⊢ (𝜑 → (((((𝑀 + 𝐵)↑2) · 𝑀) / 4) − ((𝐶↑2) / 4)) = (𝐷 · 𝑀)) |
102 | 31, 35, 101 | 3eqtrd 2782 |
. . 3
⊢ (𝜑 → (((((𝑀 + 𝐵)↑2) / 4) − (((𝐶↑2) / 4) / 𝑀)) · 𝑀) = (𝐷 · 𝑀)) |
103 | 29, 30, 7, 27, 102 | mulcan2ad 11611 |
. 2
⊢ (𝜑 → ((((𝑀 + 𝐵)↑2) / 4) − (((𝐶↑2) / 4) / 𝑀)) = 𝐷) |
104 | 17, 103 | eqtrd 2778 |
1
⊢ (𝜑 → ((((𝑀 + 𝐵) / 2)↑2) − (((𝐶↑2) / 4) / 𝑀)) = 𝐷) |