Proof of Theorem crre
Step | Hyp | Ref
| Expression |
1 | | recn 7896 |
. . . 4
⊢ (𝐴 ∈ ℝ → 𝐴 ∈
ℂ) |
2 | | ax-icn 7858 |
. . . . 5
⊢ i ∈
ℂ |
3 | | recn 7896 |
. . . . 5
⊢ (𝐵 ∈ ℝ → 𝐵 ∈
ℂ) |
4 | | mulcl 7890 |
. . . . 5
⊢ ((i
∈ ℂ ∧ 𝐵
∈ ℂ) → (i · 𝐵) ∈ ℂ) |
5 | 2, 3, 4 | sylancr 412 |
. . . 4
⊢ (𝐵 ∈ ℝ → (i
· 𝐵) ∈
ℂ) |
6 | | addcl 7888 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ (i
· 𝐵) ∈ ℂ)
→ (𝐴 + (i ·
𝐵)) ∈
ℂ) |
7 | 1, 5, 6 | syl2an 287 |
. . 3
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐴 + (i · 𝐵)) ∈ ℂ) |
8 | | reval 10802 |
. . 3
⊢ ((𝐴 + (i · 𝐵)) ∈ ℂ →
(ℜ‘(𝐴 + (i
· 𝐵))) = (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2)) |
9 | 7, 8 | syl 14 |
. 2
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
(ℜ‘(𝐴 + (i
· 𝐵))) = (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2)) |
10 | | cjcl 10801 |
. . . . . 6
⊢ ((𝐴 + (i · 𝐵)) ∈ ℂ →
(∗‘(𝐴 + (i
· 𝐵))) ∈
ℂ) |
11 | 7, 10 | syl 14 |
. . . . 5
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
(∗‘(𝐴 + (i
· 𝐵))) ∈
ℂ) |
12 | 7, 11 | addcld 7928 |
. . . 4
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) ∈ ℂ) |
13 | 12 | halfcld 9111 |
. . 3
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) ∈ ℂ) |
14 | 1 | adantr 274 |
. . 3
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 𝐴 ∈
ℂ) |
15 | | recl 10806 |
. . . . . . 7
⊢ ((𝐴 + (i · 𝐵)) ∈ ℂ →
(ℜ‘(𝐴 + (i
· 𝐵))) ∈
ℝ) |
16 | 7, 15 | syl 14 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
(ℜ‘(𝐴 + (i
· 𝐵))) ∈
ℝ) |
17 | 9, 16 | eqeltrrd 2248 |
. . . . 5
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) ∈ ℝ) |
18 | | simpl 108 |
. . . . 5
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 𝐴 ∈
ℝ) |
19 | 17, 18 | resubcld 8289 |
. . . 4
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) − 𝐴) ∈ ℝ) |
20 | 2 | a1i 9 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → i ∈
ℂ) |
21 | 3 | adantl 275 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 𝐵 ∈
ℂ) |
22 | 2, 21, 4 | sylancr 412 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (i
· 𝐵) ∈
ℂ) |
23 | 7, 11 | subcld 8219 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵)))) ∈ ℂ) |
24 | 23 | halfcld 9111 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵)))) / 2) ∈ ℂ) |
25 | 20, 22, 24 | subdid 8322 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (i
· ((i · 𝐵)
− (((𝐴 + (i ·
𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) / 2))) = ((i
· (i · 𝐵))
− (i · (((𝐴 +
(i · 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) /
2)))) |
26 | 14, 22, 14 | pnpcand 8256 |
. . . . . . . . . . . . . 14
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝐴 + (i · 𝐵)) − (𝐴 + 𝐴)) = ((i · 𝐵) − 𝐴)) |
27 | 22, 14, 22 | pnpcan2d 8257 |
. . . . . . . . . . . . . 14
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((i
· 𝐵) + (i ·
𝐵)) − (𝐴 + (i · 𝐵))) = ((i · 𝐵) − 𝐴)) |
28 | 26, 27 | eqtr4d 2206 |
. . . . . . . . . . . . 13
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝐴 + (i · 𝐵)) − (𝐴 + 𝐴)) = (((i · 𝐵) + (i · 𝐵)) − (𝐴 + (i · 𝐵)))) |
29 | 28 | oveq1d 5866 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) − (𝐴 + 𝐴)) + (∗‘(𝐴 + (i · 𝐵)))) = ((((i · 𝐵) + (i · 𝐵)) − (𝐴 + (i · 𝐵))) + (∗‘(𝐴 + (i · 𝐵))))) |
30 | 14, 14 | addcld 7928 |
. . . . . . . . . . . . 13
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐴 + 𝐴) ∈ ℂ) |
31 | 7, 11, 30 | addsubd 8240 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) − (𝐴 + 𝐴)) = (((𝐴 + (i · 𝐵)) − (𝐴 + 𝐴)) + (∗‘(𝐴 + (i · 𝐵))))) |
32 | 22, 22 | addcld 7928 |
. . . . . . . . . . . . 13
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((i
· 𝐵) + (i ·
𝐵)) ∈
ℂ) |
33 | 32, 7, 11 | subsubd 8247 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((i
· 𝐵) + (i ·
𝐵)) − ((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵))))) = ((((i · 𝐵) + (i · 𝐵)) − (𝐴 + (i · 𝐵))) + (∗‘(𝐴 + (i · 𝐵))))) |
34 | 29, 31, 33 | 3eqtr4d 2213 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) − (𝐴 + 𝐴)) = (((i · 𝐵) + (i · 𝐵)) − ((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵)))))) |
35 | 14 | 2timesd 9109 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (2
· 𝐴) = (𝐴 + 𝐴)) |
36 | 35 | oveq2d 5867 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) − (2 · 𝐴)) = (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) − (𝐴 + 𝐴))) |
37 | 22 | 2timesd 9109 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (2
· (i · 𝐵)) =
((i · 𝐵) + (i
· 𝐵))) |
38 | 37 | oveq1d 5866 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((2
· (i · 𝐵))
− ((𝐴 + (i ·
𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) = (((i
· 𝐵) + (i ·
𝐵)) − ((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵)))))) |
39 | 34, 36, 38 | 3eqtr4d 2213 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) − (2 · 𝐴)) = ((2 · (i · 𝐵)) − ((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵)))))) |
40 | 39 | oveq1d 5866 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) − (2 · 𝐴)) / 2) = (((2 · (i · 𝐵)) − ((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵))))) / 2)) |
41 | | 2cn 8938 |
. . . . . . . . . . 11
⊢ 2 ∈
ℂ |
42 | | mulcl 7890 |
. . . . . . . . . . 11
⊢ ((2
∈ ℂ ∧ 𝐴
∈ ℂ) → (2 · 𝐴) ∈ ℂ) |
43 | 41, 14, 42 | sylancr 412 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (2
· 𝐴) ∈
ℂ) |
44 | 41 | a1i 9 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 2 ∈
ℂ) |
45 | | 2ap0 8960 |
. . . . . . . . . . 11
⊢ 2 #
0 |
46 | 45 | a1i 9 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 2 #
0) |
47 | 12, 43, 44, 46 | divsubdirapd 8736 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) − (2 · 𝐴)) / 2) = ((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) − ((2 · 𝐴) / 2))) |
48 | | mulcl 7890 |
. . . . . . . . . . 11
⊢ ((2
∈ ℂ ∧ (i · 𝐵) ∈ ℂ) → (2 · (i
· 𝐵)) ∈
ℂ) |
49 | 41, 22, 48 | sylancr 412 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (2
· (i · 𝐵))
∈ ℂ) |
50 | 49, 23, 44, 46 | divsubdirapd 8736 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((2
· (i · 𝐵))
− ((𝐴 + (i ·
𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) / 2) = (((2
· (i · 𝐵)) /
2) − (((𝐴 + (i
· 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) /
2))) |
51 | 40, 47, 50 | 3eqtr3d 2211 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) − ((2 · 𝐴) / 2)) = (((2 · (i
· 𝐵)) / 2) −
(((𝐴 + (i · 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) /
2))) |
52 | 14, 44, 46 | divcanap3d 8701 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((2
· 𝐴) / 2) = 𝐴) |
53 | 52 | oveq2d 5867 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) − ((2 · 𝐴) / 2)) = ((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) − 𝐴)) |
54 | 22, 44, 46 | divcanap3d 8701 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((2
· (i · 𝐵)) /
2) = (i · 𝐵)) |
55 | 54 | oveq1d 5866 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((2
· (i · 𝐵)) /
2) − (((𝐴 + (i
· 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) / 2)) = ((i
· 𝐵) −
(((𝐴 + (i · 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) /
2))) |
56 | 51, 53, 55 | 3eqtr3d 2211 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) − 𝐴) = ((i · 𝐵) − (((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵)))) / 2))) |
57 | 56 | oveq2d 5867 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (i
· ((((𝐴 + (i
· 𝐵)) +
(∗‘(𝐴 + (i
· 𝐵)))) / 2) −
𝐴)) = (i · ((i
· 𝐵) −
(((𝐴 + (i · 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) /
2)))) |
58 | 20, 20, 21 | mulassd 7932 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((i
· i) · 𝐵) =
(i · (i · 𝐵))) |
59 | 20, 23, 44, 46 | divassapd 8732 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((i
· ((𝐴 + (i ·
𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) / 2) = (i
· (((𝐴 + (i ·
𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) /
2))) |
60 | 58, 59 | oveq12d 5869 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((i
· i) · 𝐵)
− ((i · ((𝐴 +
(i · 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) / 2)) = ((i
· (i · 𝐵))
− (i · (((𝐴 +
(i · 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵)))) /
2)))) |
61 | 25, 57, 60 | 3eqtr4d 2213 |
. . . . 5
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (i
· ((((𝐴 + (i
· 𝐵)) +
(∗‘(𝐴 + (i
· 𝐵)))) / 2) −
𝐴)) = (((i · i)
· 𝐵) − ((i
· ((𝐴 + (i ·
𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) /
2))) |
62 | | ixi 8491 |
. . . . . . . 8
⊢ (i
· i) = -1 |
63 | | neg1rr 8973 |
. . . . . . . 8
⊢ -1 ∈
ℝ |
64 | 62, 63 | eqeltri 2243 |
. . . . . . 7
⊢ (i
· i) ∈ ℝ |
65 | | simpr 109 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 𝐵 ∈
ℝ) |
66 | | remulcl 7891 |
. . . . . . 7
⊢ (((i
· i) ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((i · i)
· 𝐵) ∈
ℝ) |
67 | 64, 65, 66 | sylancr 412 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((i
· i) · 𝐵)
∈ ℝ) |
68 | | cjth 10799 |
. . . . . . . . 9
⊢ ((𝐴 + (i · 𝐵)) ∈ ℂ → (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) ∈ ℝ ∧ (i ·
((𝐴 + (i · 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) ∈
ℝ)) |
69 | 68 | simprd 113 |
. . . . . . . 8
⊢ ((𝐴 + (i · 𝐵)) ∈ ℂ → (i · ((𝐴 + (i · 𝐵)) − (∗‘(𝐴 + (i · 𝐵))))) ∈ ℝ) |
70 | 7, 69 | syl 14 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (i
· ((𝐴 + (i ·
𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) ∈
ℝ) |
71 | 70 | rehalfcld 9113 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((i
· ((𝐴 + (i ·
𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) / 2) ∈
ℝ) |
72 | 67, 71 | resubcld 8289 |
. . . . 5
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((i
· i) · 𝐵)
− ((i · ((𝐴 +
(i · 𝐵)) −
(∗‘(𝐴 + (i
· 𝐵))))) / 2))
∈ ℝ) |
73 | 61, 72 | eqeltrd 2247 |
. . . 4
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (i
· ((((𝐴 + (i
· 𝐵)) +
(∗‘(𝐴 + (i
· 𝐵)))) / 2) −
𝐴)) ∈
ℝ) |
74 | | rimul 8493 |
. . . 4
⊢
((((((𝐴 + (i
· 𝐵)) +
(∗‘(𝐴 + (i
· 𝐵)))) / 2) −
𝐴) ∈ ℝ ∧ (i
· ((((𝐴 + (i
· 𝐵)) +
(∗‘(𝐴 + (i
· 𝐵)))) / 2) −
𝐴)) ∈ ℝ) →
((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) − 𝐴) = 0) |
75 | 19, 73, 74 | syl2anc 409 |
. . 3
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
((((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) − 𝐴) = 0) |
76 | 13, 14, 75 | subeq0d 8227 |
. 2
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (((𝐴 + (i · 𝐵)) + (∗‘(𝐴 + (i · 𝐵)))) / 2) = 𝐴) |
77 | 9, 76 | eqtrd 2203 |
1
⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) →
(ℜ‘(𝐴 + (i
· 𝐵))) = 𝐴) |