HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem sinadd 7393
Description: Sine addition formula for complex arguments. Equation 14 of [Gleason] p. 310.
Hypotheses
Ref Expression
sinadd.1 |- A e. CC
sinadd.2 |- B e. CC
Assertion
Ref Expression
sinadd |- (sin` (A + B)) = (((sin`
A) x. (cos` B)) + ((cos` A) x. (sin` B)))

Proof of Theorem sinadd
StepHypRef Expression
1 sinadd.1 . . . 4 |- A e. CC
2 sinadd.2 . . . 4 |- B e. CC
31, 2addcl 5292 . . 3 |- (A + B) e. CC
4 sinvalt 7371 . . 3 |- ((A + B) e. CC -> (sin` (A + B)) = (((exp` (i x. (A + B))) - (exp` (-ui x. (A + B)))) / (2 x. i)))
53, 4ax-mp 7 . 2 |- (sin` (A + B)) = (((exp`
(i x. (A + B))) - (exp` (-ui x. (A + B)))) / (2 x. i))
6 cosclt 7374 . . . . . . . 8 |- (A e. CC -> (cos` A) e. CC)
71, 6ax-mp 7 . . . . . . 7 |- (cos` A) e. CC
8 cosclt 7374 . . . . . . . 8 |- (B e. CC -> (cos` B) e. CC)
92, 8ax-mp 7 . . . . . . 7 |- (cos` B) e. CC
107, 9mulcl 5293 . . . . . 6 |- ((cos` A) x. (cos` B)) e. CC
11 axicn 5242 . . . . . . . 8 |- i e. CC
12 sinclt 7373 . . . . . . . . 9 |- (B e. CC -> (sin` B) e. CC)
132, 12ax-mp 7 . . . . . . . 8 |- (sin` B) e. CC
1411, 13mulcl 5293 . . . . . . 7 |- (i x. (sin`
B)) e. CC
15 sinclt 7373 . . . . . . . . 9 |- (A e. CC -> (sin` A) e. CC)
161, 15ax-mp 7 . . . . . . . 8 |- (sin` A) e. CC
1711, 16mulcl 5293 . . . . . . 7 |- (i x. (sin`
A)) e. CC
1814, 17mulcl 5293 . . . . . 6 |- ((i x. (sin` B)) x. (i x. (sin` A))) e. CC
1910, 18addcl 5292 . . . . 5 |- (((cos` A) x. (cos` B)) + ((i x. (sin`
B)) x. (i x. (sin` A)))) e. CC
207, 14mulcl 5293 . . . . . 6 |- ((cos` A) x. (i x. (sin` B))) e. CC
219, 17mulcl 5293 . . . . . 6 |- ((cos` B) x. (i x. (sin` A))) e. CC
2220, 21addcl 5292 . . . . 5 |- (((cos` A) x. (i x. (sin`
B))) + ((cos` B) x. (i x. (sin` A)))) e. CC
2319, 22, 22pnncan 5454 . . . 4 |- (((((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) + (((cos` A) x. (i x. (sin`
B))) + ((cos` B) x. (i x. (sin` A))))) - ((((cos` A) x. (cos` B)) + ((i x. (sin`
B)) x. (i x. (sin` A)))) - (((cos` A) x. (i x. (sin` B))) + ((cos` B) x. (i x. (sin`
A)))))) = ((((cos` A) x. (i x. (sin` B))) + ((cos`
B) x. (i x. (sin` A)))) + (((cos`
A) x. (i x. (sin` B))) + ((cos` B) x. (i x. (sin` A)))))
2411, 1, 2adddi 5298 . . . . . . 7 |- (i x. (A + B)) = ((i x. A) + (i x. B))
2524fveq2i 3712 . . . . . 6 |- (exp` (i x. (A + B))) = (exp` ((i x. A) + (i x. B)))
2611, 1mulcl 5293 . . . . . . 7 |- (i x. A) e. CC
2711, 2mulcl 5293 . . . . . . 7 |- (i x. B) e. CC
2826, 27efadd 7308 . . . . . 6 |- (exp` ((i x. A) + (i x. B))) = ((exp` (i x. A)) x. (exp` (i x. B)))
29 efivalt 7389 . . . . . . . . 9 |- (A e. CC -> (exp` (i x. A)) = ((cos`
A) + (i x. (sin` A))))
301, 29ax-mp 7 . . . . . . . 8 |- (exp` (i x. A)) = ((cos` A) + (i x. (sin`
A)))
31 efivalt 7389 . . . . . . . . 9 |- (B e. CC -> (exp` (i x. B)) = ((cos`
B) + (i x. (sin` B))))
322, 31ax-mp 7 . . . . . . . 8 |- (exp` (i x. B)) = ((cos` B) + (i x. (sin`
B)))
3330, 32opreq12i 3958 . . . . . . 7 |- ((exp` (i x. A)) x. (exp`
(i x. B))) = (((cos` A) + (i x. (sin` A))) x. ((cos` B) + (i x. (sin`
B))))
347, 17, 9, 14muladd 5398 . . . . . . 7 |- (((cos` A) + (i x. (sin`
A))) x. ((cos` B) + (i x. (sin` B)))) = ((((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) + (((cos` A) x. (i x. (sin`
B))) + ((cos` B) x. (i x. (sin` A)))))
3533, 34eqtr 1487 . . . . . 6 |- ((exp` (i x. A)) x. (exp`
(i x. B))) = ((((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) + (((cos` A) x. (i x. (sin`
B))) + ((cos` B) x. (i x. (sin` A)))))
3625, 28, 353eqtr 1491 . . . . 5 |- (exp` (i x. (A + B))) = ((((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) + (((cos` A) x. (i x. (sin`
B))) + ((cos` B) x. (i x. (sin` A)))))
3711negcl 5341 . . . . . . . 8 |- -ui e. CC
3837, 1, 2adddi 5298 . . . . . . 7 |- (-ui x. (A + B)) = ((-ui x. A) + (-ui x. B))
3938fveq2i 3712 . . . . . 6 |- (exp` (-ui x. (A + B))) = (exp` ((-ui x. A) + (-ui x. B)))
4037, 1mulcl 5293 . . . . . . 7 |- (-ui x. A) e. CC
4137, 2mulcl 5293 . . . . . . 7 |- (-ui x. B) e. CC
4240, 41efadd 7308 . . . . . 6 |- (exp` ((-ui x. A) + (-ui x. B))) = ((exp`
(-ui x. A)) x. (exp` (-ui x. B)))
43 efmivalt 7390 . . . . . . . . 9 |- (A e. CC -> (exp` (-ui x. A)) = ((cos` A) - (i x. (sin` A))))
441, 43ax-mp 7 . . . . . . . 8 |- (exp` (-ui x. A)) = ((cos` A) - (i x. (sin`
A)))
45 efmivalt 7390 . . . . . . . . 9 |- (B e. CC -> (exp` (-ui x. B)) = ((cos` B) - (i x. (sin` B))))
462, 45ax-mp 7 . . . . . . . 8 |- (exp` (-ui x. B)) = ((cos` B) - (i x. (sin`
B)))
4744, 46opreq12i 3958 . . . . . . 7 |- ((exp` (-ui x. A)) x. (exp` (-ui x. B))) = (((cos` A) - (i x. (sin`
A))) x. ((cos` B) - (i x. (sin` B))))
487, 17pm3.2i 285 . . . . . . . 8 |- ((cos` A) e. CC /\ (i x. (sin` A)) e. CC)
499, 14pm3.2i 285 . . . . . . . 8 |- ((cos` B) e. CC /\ (i x. (sin` B)) e. CC)
50 mulsubt 5449 . . . . . . . 8 |- ((((cos`
A) e. CC /\ (i x. (sin` A)) e. CC) /\ ((cos` B) e. CC /\ (i x. (sin` B)) e. CC)) -> (((cos` A) - (i x. (sin` A))) x. ((cos`
B) - (i x. (sin` B)))) = ((((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) - (((cos` A) x. (i x. (sin`
B))) + ((cos` B) x. (i x. (sin` A))))))
5148, 49, 50mp2an 695 . . . . . . 7 |- (((cos` A) - (i x. (sin`
A))) x. ((cos` B) - (i x. (sin` B)))) = ((((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) - (((cos` A) x. (i x. (sin`
B))) + ((cos` B) x. (i x. (sin` A)))))
5247, 51eqtr 1487 . . . . . 6 |- ((exp` (-ui x. A)) x. (exp` (-ui x. B))) = ((((cos`
A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin` A)))) - (((cos` A) x. (i x. (sin` B))) + ((cos`
B) x. (i x. (sin` A)))))
5339, 42, 523eqtr 1491 . . . . 5 |- (exp` (-ui x. (A + B))) = ((((cos` A) x.