Step | Hyp | Ref
| Expression |
1 | | cnelprrecn 10973 |
. . . . . 6
⊢ ℂ
∈ {ℝ, ℂ} |
2 | 1 | a1i 11 |
. . . . 5
⊢ (⊤
→ ℂ ∈ {ℝ, ℂ}) |
3 | | ax-icn 10939 |
. . . . . . . . . 10
⊢ i ∈
ℂ |
4 | 3 | a1i 11 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → i ∈ ℂ) |
5 | | simpr 485 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → 𝑥
∈ ℂ) |
6 | 4, 5 | mulcld 11004 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (i · 𝑥) ∈ ℂ) |
7 | | efcl 15801 |
. . . . . . . 8
⊢ ((i
· 𝑥) ∈ ℂ
→ (exp‘(i · 𝑥)) ∈ ℂ) |
8 | 6, 7 | syl 17 |
. . . . . . 7
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (exp‘(i · 𝑥)) ∈ ℂ) |
9 | | ine0 11419 |
. . . . . . . 8
⊢ i ≠
0 |
10 | 9 | a1i 11 |
. . . . . . 7
⊢
((⊤ ∧ 𝑥
∈ ℂ) → i ≠ 0) |
11 | 8, 4, 10 | divcld 11760 |
. . . . . 6
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((exp‘(i · 𝑥)) / i) ∈ ℂ) |
12 | | negicn 11231 |
. . . . . . . . . 10
⊢ -i ∈
ℂ |
13 | | mulcl 10964 |
. . . . . . . . . 10
⊢ ((-i
∈ ℂ ∧ 𝑥
∈ ℂ) → (-i · 𝑥) ∈ ℂ) |
14 | 12, 5, 13 | sylancr 587 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (-i · 𝑥) ∈ ℂ) |
15 | | efcl 15801 |
. . . . . . . . 9
⊢ ((-i
· 𝑥) ∈ ℂ
→ (exp‘(-i · 𝑥)) ∈ ℂ) |
16 | 14, 15 | syl 17 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (exp‘(-i · 𝑥)) ∈ ℂ) |
17 | 16, 4, 10 | divcld 11760 |
. . . . . . 7
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((exp‘(-i · 𝑥)) / i) ∈ ℂ) |
18 | 17 | negcld 11328 |
. . . . . 6
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -((exp‘(-i · 𝑥)) / i) ∈ ℂ) |
19 | 11, 18 | addcld 11003 |
. . . . 5
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) / i) + -((exp‘(-i · 𝑥)) / i)) ∈
ℂ) |
20 | 8, 16 | addcld 11003 |
. . . . 5
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((exp‘(i · 𝑥)) + (exp‘(-i · 𝑥))) ∈
ℂ) |
21 | 8, 4 | mulcld 11004 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((exp‘(i · 𝑥)) · i) ∈
ℂ) |
22 | | efcl 15801 |
. . . . . . . . . 10
⊢ (𝑦 ∈ ℂ →
(exp‘𝑦) ∈
ℂ) |
23 | 22 | adantl 482 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑦
∈ ℂ) → (exp‘𝑦) ∈ ℂ) |
24 | | 1cnd 10979 |
. . . . . . . . . . 11
⊢
((⊤ ∧ 𝑥
∈ ℂ) → 1 ∈ ℂ) |
25 | 2 | dvmptid 25130 |
. . . . . . . . . . 11
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ 𝑥)) =
(𝑥 ∈ ℂ ↦
1)) |
26 | 3 | a1i 11 |
. . . . . . . . . . 11
⊢ (⊤
→ i ∈ ℂ) |
27 | 2, 5, 24, 25, 26 | dvmptcmul 25137 |
. . . . . . . . . 10
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ (i · 𝑥))) = (𝑥 ∈ ℂ ↦ (i ·
1))) |
28 | 3 | mulid1i 10988 |
. . . . . . . . . . 11
⊢ (i
· 1) = i |
29 | 28 | mpteq2i 5180 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℂ ↦ (i
· 1)) = (𝑥 ∈
ℂ ↦ i) |
30 | 27, 29 | eqtrdi 2795 |
. . . . . . . . 9
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ (i · 𝑥))) = (𝑥 ∈ ℂ ↦ i)) |
31 | | eff 15800 |
. . . . . . . . . . . . 13
⊢
exp:ℂ⟶ℂ |
32 | 31 | a1i 11 |
. . . . . . . . . . . 12
⊢ (⊤
→ exp:ℂ⟶ℂ) |
33 | 32 | feqmptd 6846 |
. . . . . . . . . . 11
⊢ (⊤
→ exp = (𝑦 ∈
ℂ ↦ (exp‘𝑦))) |
34 | 33 | oveq2d 7300 |
. . . . . . . . . 10
⊢ (⊤
→ (ℂ D exp) = (ℂ D (𝑦 ∈ ℂ ↦ (exp‘𝑦)))) |
35 | | dvef 25153 |
. . . . . . . . . . 11
⊢ (ℂ
D exp) = exp |
36 | 35, 33 | eqtrid 2791 |
. . . . . . . . . 10
⊢ (⊤
→ (ℂ D exp) = (𝑦
∈ ℂ ↦ (exp‘𝑦))) |
37 | 34, 36 | eqtr3d 2781 |
. . . . . . . . 9
⊢ (⊤
→ (ℂ D (𝑦 ∈
ℂ ↦ (exp‘𝑦))) = (𝑦 ∈ ℂ ↦ (exp‘𝑦))) |
38 | | fveq2 6783 |
. . . . . . . . 9
⊢ (𝑦 = (i · 𝑥) → (exp‘𝑦) = (exp‘(i · 𝑥))) |
39 | 2, 2, 6, 4, 23, 23, 30, 37, 38, 38 | dvmptco 25145 |
. . . . . . . 8
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ (exp‘(i · 𝑥)))) = (𝑥 ∈ ℂ ↦ ((exp‘(i
· 𝑥)) ·
i))) |
40 | 9 | a1i 11 |
. . . . . . . 8
⊢ (⊤
→ i ≠ 0) |
41 | 2, 8, 21, 39, 26, 40 | dvmptdivc 25138 |
. . . . . . 7
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ ((exp‘(i · 𝑥)) / i))) = (𝑥 ∈ ℂ ↦ (((exp‘(i
· 𝑥)) · i) /
i))) |
42 | 8, 4, 10 | divcan4d 11766 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) · i) / i) = (exp‘(i ·
𝑥))) |
43 | 42 | mpteq2dva 5175 |
. . . . . . 7
⊢ (⊤
→ (𝑥 ∈ ℂ
↦ (((exp‘(i · 𝑥)) · i) / i)) = (𝑥 ∈ ℂ ↦ (exp‘(i
· 𝑥)))) |
44 | 41, 43 | eqtrd 2779 |
. . . . . 6
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ ((exp‘(i · 𝑥)) / i))) = (𝑥 ∈ ℂ ↦ (exp‘(i
· 𝑥)))) |
45 | | mulcl 10964 |
. . . . . . . . . 10
⊢
(((exp‘(-i · 𝑥)) ∈ ℂ ∧ -i ∈ ℂ)
→ ((exp‘(-i · 𝑥)) · -i) ∈
ℂ) |
46 | 16, 12, 45 | sylancl 586 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((exp‘(-i · 𝑥)) · -i) ∈
ℂ) |
47 | 46, 4, 10 | divcld 11760 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(-i · 𝑥)) · -i) / i) ∈
ℂ) |
48 | 12 | a1i 11 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -i ∈ ℂ) |
49 | 12 | a1i 11 |
. . . . . . . . . . . 12
⊢ (⊤
→ -i ∈ ℂ) |
50 | 2, 5, 24, 25, 49 | dvmptcmul 25137 |
. . . . . . . . . . 11
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ (-i · 𝑥))) = (𝑥 ∈ ℂ ↦ (-i ·
1))) |
51 | 12 | mulid1i 10988 |
. . . . . . . . . . . 12
⊢ (-i
· 1) = -i |
52 | 51 | mpteq2i 5180 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ ℂ ↦ (-i
· 1)) = (𝑥 ∈
ℂ ↦ -i) |
53 | 50, 52 | eqtrdi 2795 |
. . . . . . . . . 10
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ (-i · 𝑥))) = (𝑥 ∈ ℂ ↦ -i)) |
54 | | fveq2 6783 |
. . . . . . . . . 10
⊢ (𝑦 = (-i · 𝑥) → (exp‘𝑦) = (exp‘(-i ·
𝑥))) |
55 | 2, 2, 14, 48, 23, 23, 53, 37, 54, 54 | dvmptco 25145 |
. . . . . . . . 9
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ (exp‘(-i · 𝑥)))) = (𝑥 ∈ ℂ ↦ ((exp‘(-i
· 𝑥)) ·
-i))) |
56 | 2, 16, 46, 55, 26, 40 | dvmptdivc 25138 |
. . . . . . . 8
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ ((exp‘(-i · 𝑥)) / i))) = (𝑥 ∈ ℂ ↦ (((exp‘(-i
· 𝑥)) · -i) /
i))) |
57 | 2, 17, 47, 56 | dvmptneg 25139 |
. . . . . . 7
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ -((exp‘(-i · 𝑥)) / i))) = (𝑥 ∈ ℂ ↦ -(((exp‘(-i
· 𝑥)) · -i) /
i))) |
58 | 46, 4, 10 | divneg2d 11774 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -(((exp‘(-i · 𝑥)) · -i) / i) = (((exp‘(-i
· 𝑥)) · -i) /
-i)) |
59 | 3, 9 | negne0i 11305 |
. . . . . . . . . . 11
⊢ -i ≠
0 |
60 | 59 | a1i 11 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -i ≠ 0) |
61 | 16, 48, 60 | divcan4d 11766 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(-i · 𝑥)) · -i) / -i) = (exp‘(-i
· 𝑥))) |
62 | 58, 61 | eqtrd 2779 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -(((exp‘(-i · 𝑥)) · -i) / i) = (exp‘(-i
· 𝑥))) |
63 | 62 | mpteq2dva 5175 |
. . . . . . 7
⊢ (⊤
→ (𝑥 ∈ ℂ
↦ -(((exp‘(-i · 𝑥)) · -i) / i)) = (𝑥 ∈ ℂ ↦ (exp‘(-i
· 𝑥)))) |
64 | 57, 63 | eqtrd 2779 |
. . . . . 6
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ -((exp‘(-i · 𝑥)) / i))) = (𝑥 ∈ ℂ ↦ (exp‘(-i
· 𝑥)))) |
65 | 2, 11, 8, 44, 18, 16, 64 | dvmptadd 25133 |
. . . . 5
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ (((exp‘(i · 𝑥)) / i) + -((exp‘(-i · 𝑥)) / i)))) = (𝑥 ∈ ℂ ↦ ((exp‘(i
· 𝑥)) +
(exp‘(-i · 𝑥))))) |
66 | | 2cnd 12060 |
. . . . 5
⊢ (⊤
→ 2 ∈ ℂ) |
67 | | 2ne0 12086 |
. . . . . 6
⊢ 2 ≠
0 |
68 | 67 | a1i 11 |
. . . . 5
⊢ (⊤
→ 2 ≠ 0) |
69 | 2, 19, 20, 65, 66, 68 | dvmptdivc 25138 |
. . . 4
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ ((((exp‘(i · 𝑥)) / i) + -((exp‘(-i · 𝑥)) / i)) / 2))) = (𝑥 ∈ ℂ ↦
(((exp‘(i · 𝑥)) + (exp‘(-i · 𝑥))) / 2))) |
70 | | df-sin 15788 |
. . . . . 6
⊢ sin =
(𝑥 ∈ ℂ ↦
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / (2 ·
i))) |
71 | 8, 16 | subcld 11341 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) ∈
ℂ) |
72 | | 2cnd 12060 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → 2 ∈ ℂ) |
73 | 67 | a1i 11 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → 2 ≠ 0) |
74 | 71, 4, 72, 10, 73 | divdiv1d 11791 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) / 2) = (((exp‘(i
· 𝑥)) −
(exp‘(-i · 𝑥))) / (i · 2))) |
75 | | 2cn 12057 |
. . . . . . . . . . 11
⊢ 2 ∈
ℂ |
76 | 3, 75 | mulcomi 10992 |
. . . . . . . . . 10
⊢ (i
· 2) = (2 · i) |
77 | 76 | oveq2i 7295 |
. . . . . . . . 9
⊢
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / (i · 2)) =
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / (2 ·
i)) |
78 | 74, 77 | eqtrdi 2795 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) / 2) = (((exp‘(i
· 𝑥)) −
(exp‘(-i · 𝑥))) / (2 · i))) |
79 | 8, 16, 4, 10 | divsubdird 11799 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) = (((exp‘(i
· 𝑥)) / i) −
((exp‘(-i · 𝑥)) / i))) |
80 | 11, 17 | negsubd 11347 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) / i) + -((exp‘(-i · 𝑥)) / i)) = (((exp‘(i
· 𝑥)) / i) −
((exp‘(-i · 𝑥)) / i))) |
81 | 79, 80 | eqtr4d 2782 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) = (((exp‘(i
· 𝑥)) / i) +
-((exp‘(-i · 𝑥)) / i))) |
82 | 81 | oveq1d 7299 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) / 2) = ((((exp‘(i
· 𝑥)) / i) +
-((exp‘(-i · 𝑥)) / i)) / 2)) |
83 | 78, 82 | eqtr3d 2781 |
. . . . . . 7
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / (2 · i)) =
((((exp‘(i · 𝑥)) / i) + -((exp‘(-i · 𝑥)) / i)) / 2)) |
84 | 83 | mpteq2dva 5175 |
. . . . . 6
⊢ (⊤
→ (𝑥 ∈ ℂ
↦ (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / (2 · i))) = (𝑥 ∈ ℂ ↦
((((exp‘(i · 𝑥)) / i) + -((exp‘(-i · 𝑥)) / i)) / 2))) |
85 | 70, 84 | eqtrid 2791 |
. . . . 5
⊢ (⊤
→ sin = (𝑥 ∈
ℂ ↦ ((((exp‘(i · 𝑥)) / i) + -((exp‘(-i · 𝑥)) / i)) / 2))) |
86 | 85 | oveq2d 7300 |
. . . 4
⊢ (⊤
→ (ℂ D sin) = (ℂ D (𝑥 ∈ ℂ ↦ ((((exp‘(i
· 𝑥)) / i) +
-((exp‘(-i · 𝑥)) / i)) / 2)))) |
87 | | df-cos 15789 |
. . . . 5
⊢ cos =
(𝑥 ∈ ℂ ↦
(((exp‘(i · 𝑥)) + (exp‘(-i · 𝑥))) / 2)) |
88 | 87 | a1i 11 |
. . . 4
⊢ (⊤
→ cos = (𝑥 ∈
ℂ ↦ (((exp‘(i · 𝑥)) + (exp‘(-i · 𝑥))) / 2))) |
89 | 69, 86, 88 | 3eqtr4d 2789 |
. . 3
⊢ (⊤
→ (ℂ D sin) = cos) |
90 | 21, 46 | addcld 11003 |
. . . . 5
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) · i) + ((exp‘(-i ·
𝑥)) · -i)) ∈
ℂ) |
91 | 2, 8, 21, 39, 16, 46, 55 | dvmptadd 25133 |
. . . . 5
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ ((exp‘(i · 𝑥)) + (exp‘(-i · 𝑥))))) = (𝑥 ∈ ℂ ↦ (((exp‘(i
· 𝑥)) · i) +
((exp‘(-i · 𝑥)) · -i)))) |
92 | 2, 20, 90, 91, 66, 68 | dvmptdivc 25138 |
. . . 4
⊢ (⊤
→ (ℂ D (𝑥 ∈
ℂ ↦ (((exp‘(i · 𝑥)) + (exp‘(-i · 𝑥))) / 2))) = (𝑥 ∈ ℂ ↦ ((((exp‘(i
· 𝑥)) · i) +
((exp‘(-i · 𝑥)) · -i)) / 2))) |
93 | 88 | oveq2d 7300 |
. . . 4
⊢ (⊤
→ (ℂ D cos) = (ℂ D (𝑥 ∈ ℂ ↦ (((exp‘(i
· 𝑥)) +
(exp‘(-i · 𝑥))) / 2)))) |
94 | 71, 4, 10 | divcld 11760 |
. . . . . . 7
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) ∈
ℂ) |
95 | 94, 72, 73 | divnegd 11773 |
. . . . . 6
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -((((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) / 2) =
(-(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) / 2)) |
96 | | sinval 15840 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℂ →
(sin‘𝑥) =
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / (2 ·
i))) |
97 | 96 | adantl 482 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (sin‘𝑥) = (((exp‘(i · 𝑥)) − (exp‘(-i
· 𝑥))) / (2 ·
i))) |
98 | 97, 78 | eqtr4d 2782 |
. . . . . . 7
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (sin‘𝑥) = ((((exp‘(i · 𝑥)) − (exp‘(-i
· 𝑥))) / i) /
2)) |
99 | 98 | negeqd 11224 |
. . . . . 6
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -(sin‘𝑥) = -((((exp‘(i · 𝑥)) − (exp‘(-i
· 𝑥))) / i) /
2)) |
100 | 3 | negnegi 11300 |
. . . . . . . . . 10
⊢ --i =
i |
101 | 100 | oveq2i 7295 |
. . . . . . . . 9
⊢
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) · --i) =
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) · i) |
102 | | mulneg2 11421 |
. . . . . . . . . 10
⊢
((((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) ∈ ℂ ∧ -i
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) · --i) =
-(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) ·
-i)) |
103 | 71, 12, 102 | sylancl 586 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) · --i) =
-(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) ·
-i)) |
104 | 101, 103 | eqtr3id 2793 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) · i) =
-(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) ·
-i)) |
105 | | mulcl 10964 |
. . . . . . . . . . 11
⊢
(((exp‘(-i · 𝑥)) ∈ ℂ ∧ i ∈ ℂ)
→ ((exp‘(-i · 𝑥)) · i) ∈
ℂ) |
106 | 16, 3, 105 | sylancl 586 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((exp‘(-i · 𝑥)) · i) ∈
ℂ) |
107 | 21, 106 | negsubd 11347 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) · i) + -((exp‘(-i ·
𝑥)) · i)) =
(((exp‘(i · 𝑥)) · i) − ((exp‘(-i
· 𝑥)) ·
i))) |
108 | | mulneg2 11421 |
. . . . . . . . . . 11
⊢
(((exp‘(-i · 𝑥)) ∈ ℂ ∧ i ∈ ℂ)
→ ((exp‘(-i · 𝑥)) · -i) = -((exp‘(-i ·
𝑥)) ·
i)) |
109 | 16, 3, 108 | sylancl 586 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((exp‘(-i · 𝑥)) · -i) = -((exp‘(-i ·
𝑥)) ·
i)) |
110 | 109 | oveq2d 7300 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) · i) + ((exp‘(-i ·
𝑥)) · -i)) =
(((exp‘(i · 𝑥)) · i) + -((exp‘(-i ·
𝑥)) ·
i))) |
111 | 8, 16, 4 | subdird 11441 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) · i) =
(((exp‘(i · 𝑥)) · i) − ((exp‘(-i
· 𝑥)) ·
i))) |
112 | 107, 110,
111 | 3eqtr4d 2789 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) · i) + ((exp‘(-i ·
𝑥)) · -i)) =
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) ·
i)) |
113 | 71, 4, 10 | divrecd 11763 |
. . . . . . . . . 10
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) = (((exp‘(i
· 𝑥)) −
(exp‘(-i · 𝑥))) · (1 / i))) |
114 | | irec 13927 |
. . . . . . . . . . 11
⊢ (1 / i) =
-i |
115 | 114 | oveq2i 7295 |
. . . . . . . . . 10
⊢
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) · (1 / i)) =
(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) ·
-i) |
116 | 113, 115 | eqtrdi 2795 |
. . . . . . . . 9
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) = (((exp‘(i
· 𝑥)) −
(exp‘(-i · 𝑥))) · -i)) |
117 | 116 | negeqd 11224 |
. . . . . . . 8
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) = -(((exp‘(i
· 𝑥)) −
(exp‘(-i · 𝑥))) · -i)) |
118 | 104, 112,
117 | 3eqtr4d 2789 |
. . . . . . 7
⊢
((⊤ ∧ 𝑥
∈ ℂ) → (((exp‘(i · 𝑥)) · i) + ((exp‘(-i ·
𝑥)) · -i)) =
-(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i)) |
119 | 118 | oveq1d 7299 |
. . . . . 6
⊢
((⊤ ∧ 𝑥
∈ ℂ) → ((((exp‘(i · 𝑥)) · i) + ((exp‘(-i ·
𝑥)) · -i)) / 2) =
(-(((exp‘(i · 𝑥)) − (exp‘(-i · 𝑥))) / i) / 2)) |
120 | 95, 99, 119 | 3eqtr4d 2789 |
. . . . 5
⊢
((⊤ ∧ 𝑥
∈ ℂ) → -(sin‘𝑥) = ((((exp‘(i · 𝑥)) · i) + ((exp‘(-i
· 𝑥)) · -i))
/ 2)) |
121 | 120 | mpteq2dva 5175 |
. . . 4
⊢ (⊤
→ (𝑥 ∈ ℂ
↦ -(sin‘𝑥)) =
(𝑥 ∈ ℂ ↦
((((exp‘(i · 𝑥)) · i) + ((exp‘(-i ·
𝑥)) · -i)) /
2))) |
122 | 92, 93, 121 | 3eqtr4d 2789 |
. . 3
⊢ (⊤
→ (ℂ D cos) = (𝑥
∈ ℂ ↦ -(sin‘𝑥))) |
123 | 89, 122 | jca 512 |
. 2
⊢ (⊤
→ ((ℂ D sin) = cos ∧ (ℂ D cos) = (𝑥 ∈ ℂ ↦ -(sin‘𝑥)))) |
124 | 123 | mptru 1546 |
1
⊢ ((ℂ
D sin) = cos ∧ (ℂ D cos) = (𝑥 ∈ ℂ ↦ -(sin‘𝑥))) |