Proof of Theorem efival
| Step | Hyp | Ref
 | Expression | 
| 1 |   | ax-icn 7974 | 
. . . . . 6
⊢ i ∈
ℂ | 
| 2 |   | mulcl 8006 | 
. . . . . 6
⊢ ((i
∈ ℂ ∧ 𝐴
∈ ℂ) → (i · 𝐴) ∈ ℂ) | 
| 3 | 1, 2 | mpan 424 | 
. . . . 5
⊢ (𝐴 ∈ ℂ → (i
· 𝐴) ∈
ℂ) | 
| 4 |   | efcl 11829 | 
. . . . 5
⊢ ((i
· 𝐴) ∈ ℂ
→ (exp‘(i · 𝐴)) ∈ ℂ) | 
| 5 | 3, 4 | syl 14 | 
. . . 4
⊢ (𝐴 ∈ ℂ →
(exp‘(i · 𝐴))
∈ ℂ) | 
| 6 |   | negicn 8227 | 
. . . . . 6
⊢ -i ∈
ℂ | 
| 7 |   | mulcl 8006 | 
. . . . . 6
⊢ ((-i
∈ ℂ ∧ 𝐴
∈ ℂ) → (-i · 𝐴) ∈ ℂ) | 
| 8 | 6, 7 | mpan 424 | 
. . . . 5
⊢ (𝐴 ∈ ℂ → (-i
· 𝐴) ∈
ℂ) | 
| 9 |   | efcl 11829 | 
. . . . 5
⊢ ((-i
· 𝐴) ∈ ℂ
→ (exp‘(-i · 𝐴)) ∈ ℂ) | 
| 10 | 8, 9 | syl 14 | 
. . . 4
⊢ (𝐴 ∈ ℂ →
(exp‘(-i · 𝐴))
∈ ℂ) | 
| 11 | 5, 10 | addcld 8046 | 
. . 3
⊢ (𝐴 ∈ ℂ →
((exp‘(i · 𝐴))
+ (exp‘(-i · 𝐴))) ∈ ℂ) | 
| 12 | 5, 10 | subcld 8337 | 
. . 3
⊢ (𝐴 ∈ ℂ →
((exp‘(i · 𝐴))
− (exp‘(-i · 𝐴))) ∈ ℂ) | 
| 13 |   | 2cn 9061 | 
. . . . 5
⊢ 2 ∈
ℂ | 
| 14 |   | 2ap0 9083 | 
. . . . 5
⊢ 2 #
0 | 
| 15 | 13, 14 | pm3.2i 272 | 
. . . 4
⊢ (2 ∈
ℂ ∧ 2 # 0) | 
| 16 |   | divdirap 8724 | 
. . . 4
⊢
((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) ∈ ℂ ∧
((exp‘(i · 𝐴))
− (exp‘(-i · 𝐴))) ∈ ℂ ∧ (2 ∈ ℂ
∧ 2 # 0)) → ((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) + ((exp‘(i ·
𝐴)) − (exp‘(-i
· 𝐴)))) / 2) =
((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) / 2) + (((exp‘(i
· 𝐴)) −
(exp‘(-i · 𝐴))) / 2))) | 
| 17 | 15, 16 | mp3an3 1337 | 
. . 3
⊢
((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) ∈ ℂ ∧
((exp‘(i · 𝐴))
− (exp‘(-i · 𝐴))) ∈ ℂ) → ((((exp‘(i
· 𝐴)) +
(exp‘(-i · 𝐴))) + ((exp‘(i · 𝐴)) − (exp‘(-i
· 𝐴)))) / 2) =
((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) / 2) + (((exp‘(i
· 𝐴)) −
(exp‘(-i · 𝐴))) / 2))) | 
| 18 | 11, 12, 17 | syl2anc 411 | 
. 2
⊢ (𝐴 ∈ ℂ →
((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) + ((exp‘(i ·
𝐴)) − (exp‘(-i
· 𝐴)))) / 2) =
((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) / 2) + (((exp‘(i
· 𝐴)) −
(exp‘(-i · 𝐴))) / 2))) | 
| 19 | 10, 5 | pncan3d 8340 | 
. . . . . 6
⊢ (𝐴 ∈ ℂ →
((exp‘(-i · 𝐴)) + ((exp‘(i · 𝐴)) − (exp‘(-i
· 𝐴)))) =
(exp‘(i · 𝐴))) | 
| 20 | 19 | oveq2d 5938 | 
. . . . 5
⊢ (𝐴 ∈ ℂ →
((exp‘(i · 𝐴))
+ ((exp‘(-i · 𝐴)) + ((exp‘(i · 𝐴)) − (exp‘(-i
· 𝐴))))) =
((exp‘(i · 𝐴))
+ (exp‘(i · 𝐴)))) | 
| 21 | 5, 10, 12 | addassd 8049 | 
. . . . 5
⊢ (𝐴 ∈ ℂ →
(((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) + ((exp‘(i ·
𝐴)) − (exp‘(-i
· 𝐴)))) =
((exp‘(i · 𝐴))
+ ((exp‘(-i · 𝐴)) + ((exp‘(i · 𝐴)) − (exp‘(-i
· 𝐴)))))) | 
| 22 | 5 | 2timesd 9234 | 
. . . . 5
⊢ (𝐴 ∈ ℂ → (2
· (exp‘(i · 𝐴))) = ((exp‘(i · 𝐴)) + (exp‘(i ·
𝐴)))) | 
| 23 | 20, 21, 22 | 3eqtr4d 2239 | 
. . . 4
⊢ (𝐴 ∈ ℂ →
(((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) + ((exp‘(i ·
𝐴)) − (exp‘(-i
· 𝐴)))) = (2
· (exp‘(i · 𝐴)))) | 
| 24 | 23 | oveq1d 5937 | 
. . 3
⊢ (𝐴 ∈ ℂ →
((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) + ((exp‘(i ·
𝐴)) − (exp‘(-i
· 𝐴)))) / 2) = ((2
· (exp‘(i · 𝐴))) / 2)) | 
| 25 |   | divcanap3 8725 | 
. . . . 5
⊢
(((exp‘(i · 𝐴)) ∈ ℂ ∧ 2 ∈ ℂ
∧ 2 # 0) → ((2 · (exp‘(i · 𝐴))) / 2) = (exp‘(i · 𝐴))) | 
| 26 | 13, 14, 25 | mp3an23 1340 | 
. . . 4
⊢
((exp‘(i · 𝐴)) ∈ ℂ → ((2 ·
(exp‘(i · 𝐴)))
/ 2) = (exp‘(i · 𝐴))) | 
| 27 | 5, 26 | syl 14 | 
. . 3
⊢ (𝐴 ∈ ℂ → ((2
· (exp‘(i · 𝐴))) / 2) = (exp‘(i · 𝐴))) | 
| 28 | 24, 27 | eqtr2d 2230 | 
. 2
⊢ (𝐴 ∈ ℂ →
(exp‘(i · 𝐴))
= ((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) + ((exp‘(i ·
𝐴)) − (exp‘(-i
· 𝐴)))) /
2)) | 
| 29 |   | cosval 11868 | 
. . 3
⊢ (𝐴 ∈ ℂ →
(cos‘𝐴) =
(((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) / 2)) | 
| 30 |   | 2mulicn 9213 | 
. . . . . . 7
⊢ (2
· i) ∈ ℂ | 
| 31 |   | 2muliap0 9215 | 
. . . . . . 7
⊢ (2
· i) # 0 | 
| 32 | 30, 31 | pm3.2i 272 | 
. . . . . 6
⊢ ((2
· i) ∈ ℂ ∧ (2 · i) # 0) | 
| 33 |   | div12ap 8721 | 
. . . . . 6
⊢ ((i
∈ ℂ ∧ ((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) ∈ ℂ ∧ ((2
· i) ∈ ℂ ∧ (2 · i) # 0)) → (i ·
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / (2 · i))) =
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) · (i / (2 ·
i)))) | 
| 34 | 1, 32, 33 | mp3an13 1339 | 
. . . . 5
⊢
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) ∈ ℂ → (i
· (((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / (2 · i))) =
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) · (i / (2 ·
i)))) | 
| 35 | 12, 34 | syl 14 | 
. . . 4
⊢ (𝐴 ∈ ℂ → (i
· (((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / (2 · i))) =
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) · (i / (2 ·
i)))) | 
| 36 |   | sinval 11867 | 
. . . . 5
⊢ (𝐴 ∈ ℂ →
(sin‘𝐴) =
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / (2 ·
i))) | 
| 37 | 36 | oveq2d 5938 | 
. . . 4
⊢ (𝐴 ∈ ℂ → (i
· (sin‘𝐴)) =
(i · (((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / (2 ·
i)))) | 
| 38 |   | divrecap 8715 | 
. . . . . . 7
⊢
((((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) ∈ ℂ ∧ 2
∈ ℂ ∧ 2 # 0) → (((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / 2) = (((exp‘(i
· 𝐴)) −
(exp‘(-i · 𝐴))) · (1 / 2))) | 
| 39 | 13, 14, 38 | mp3an23 1340 | 
. . . . . 6
⊢
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) ∈ ℂ →
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / 2) = (((exp‘(i
· 𝐴)) −
(exp‘(-i · 𝐴))) · (1 / 2))) | 
| 40 | 12, 39 | syl 14 | 
. . . . 5
⊢ (𝐴 ∈ ℂ →
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / 2) = (((exp‘(i
· 𝐴)) −
(exp‘(-i · 𝐴))) · (1 / 2))) | 
| 41 | 1 | mullidi 8029 | 
. . . . . . . 8
⊢ (1
· i) = i | 
| 42 | 41 | oveq1i 5932 | 
. . . . . . 7
⊢ ((1
· i) / (2 · i)) = (i / (2 · i)) | 
| 43 |   | iap0 9214 | 
. . . . . . . . . . 11
⊢ i #
0 | 
| 44 | 1, 43 | dividapi 8772 | 
. . . . . . . . . 10
⊢ (i / i) =
1 | 
| 45 | 44 | oveq2i 5933 | 
. . . . . . . . 9
⊢ ((1 / 2)
· (i / i)) = ((1 / 2) · 1) | 
| 46 |   | ax-1cn 7972 | 
. . . . . . . . . 10
⊢ 1 ∈
ℂ | 
| 47 | 46, 13, 1, 1, 14, 43 | divmuldivapi 8799 | 
. . . . . . . . 9
⊢ ((1 / 2)
· (i / i)) = ((1 · i) / (2 · i)) | 
| 48 | 45, 47 | eqtr3i 2219 | 
. . . . . . . 8
⊢ ((1 / 2)
· 1) = ((1 · i) / (2 · i)) | 
| 49 |   | halfcn 9205 | 
. . . . . . . . 9
⊢ (1 / 2)
∈ ℂ | 
| 50 | 49 | mulridi 8028 | 
. . . . . . . 8
⊢ ((1 / 2)
· 1) = (1 / 2) | 
| 51 | 48, 50 | eqtr3i 2219 | 
. . . . . . 7
⊢ ((1
· i) / (2 · i)) = (1 / 2) | 
| 52 | 42, 51 | eqtr3i 2219 | 
. . . . . 6
⊢ (i / (2
· i)) = (1 / 2) | 
| 53 | 52 | oveq2i 5933 | 
. . . . 5
⊢
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) · (i / (2 ·
i))) = (((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) · (1 /
2)) | 
| 54 | 40, 53 | eqtr4di 2247 | 
. . . 4
⊢ (𝐴 ∈ ℂ →
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / 2) = (((exp‘(i
· 𝐴)) −
(exp‘(-i · 𝐴))) · (i / (2 ·
i)))) | 
| 55 | 35, 37, 54 | 3eqtr4d 2239 | 
. . 3
⊢ (𝐴 ∈ ℂ → (i
· (sin‘𝐴)) =
(((exp‘(i · 𝐴)) − (exp‘(-i · 𝐴))) / 2)) | 
| 56 | 29, 55 | oveq12d 5940 | 
. 2
⊢ (𝐴 ∈ ℂ →
((cos‘𝐴) + (i
· (sin‘𝐴))) =
((((exp‘(i · 𝐴)) + (exp‘(-i · 𝐴))) / 2) + (((exp‘(i
· 𝐴)) −
(exp‘(-i · 𝐴))) / 2))) | 
| 57 | 18, 28, 56 | 3eqtr4d 2239 | 
1
⊢ (𝐴 ∈ ℂ →
(exp‘(i · 𝐴))
= ((cos‘𝐴) + (i
· (sin‘𝐴)))) |