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

Theorem cosadd 7394
Description: Addition formula for cosine. Equation 15 of [Gleason] p. 310.
Hypotheses
Ref Expression
sinadd.1 |- A e. CC
sinadd.2 |- B e. CC
Assertion
Ref Expression
cosadd |- (cos` (A + B)) = (((cos`
A) x. (cos` B)) - ((sin` A) x. (sin` B)))

Proof of Theorem cosadd
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 cosvalt 7372 . . 3 |- ((A + B) e. CC -> (cos` (A + B)) = (((exp` (i x. (A + B))) + (exp` (-ui x. (A + B)))) / 2))
53, 4ax-mp 7 . 2 |- (cos` (A + B)) = (((exp`
(i x. (A + B))) + (exp` (-ui x. (A + B)))) / 2)
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
23 ppncant 5453 . . . . 5 |- (((((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) e. CC /\ (((cos` A) x. (i x. (sin` B))) + ((cos` B) x. (i x. (sin`
A)))) e. CC /\ (((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) e. CC) -> (((((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. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin` A)))) + (((cos` A) x. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A))))))
2419, 22, 19, 23mp3an 913 . . . 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. (cos` B)) + ((i x. (sin` B)) x. (i x. (sin`
A)))) + (((cos` A) x. (cos` B)) + ((i x. (sin`
B)) x. (i x. (sin` A)))))
2511, 1, 2adddi 5298 . . . . . . 7 |- (i x. (A + B)) = ((i x. A) + (i x. B))
2625fveq2i 3712 . . . . . 6 |- (exp` (i x. (A + B))) = (exp` ((i x. A) + (i x. B)))
2711, 1mulcl 5293 . . . . . . 7 |- (i x. A) e. CC
2811, 2mulcl 5293 . . . . . . 7 |- (i x. B) e. CC
2927, 28efadd 7308 . . . . . 6 |- (exp` ((i x. A) + (i x. B))) = ((exp` (i x. A)) x. (exp` (i x. B)))
30 efivalt 7389 . . . . . . . . 9 |- (A e. CC -> (exp` (i x. A)) = ((cos`
A) + (i x. (sin` A))))
311, 30ax-mp 7 . . . . . . . 8 |- (exp` (i x. A)) = ((cos` A) + (i x. (sin`
A)))
32 efivalt 7389 . . . . . . . . 9 |- (B e. CC -> (exp` (i x. B)) = ((cos`
B) + (i x. (sin` B))))
332, 32ax-mp 7 . . . . . . . 8 |- (exp` (i x. B)) = ((cos` B) + (i x. (sin`
B)))
3431, 33opreq12i 3958 . . . . . . 7 |- ((exp` (i x. A)) x. (exp`
(i x. B))) = (((cos` A) + (i x. (sin` A))) x. ((cos` B) + (i x. (sin`
B))))
357, 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)))))
3634, 35eqtr 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)))))
3726, 29, 363eqtr 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)))))
3811negcl 5341 . . . . . . . 8 |- -ui e. CC
3938, 1, 2adddi 5298 . . . . . . 7 |- (-ui x. (A + B)) = ((-ui x. A) + (-ui x. B))
4039fveq2i 3712 . . . . . 6 |- (exp` (-ui x. (A + B))) = (exp` ((-ui x. A) + (-ui x. B)))
4138, 1mulcl 5293 . . . . . . 7 |- (-ui x. A) e. CC
4238, 2mulcl 5293 . . . . . . 7 |- (-ui x. B) e. CC
4341, 42efadd 7308 . . . . . 6 |- (exp` ((-ui x. A) + (-ui x. B))) = ((exp`
(-ui x. A)) x. (exp` (-ui x. B)))
44 efmivalt 7390 . . . . . . . . 9 |- (A e. CC -> (exp` (-ui x. A)) = ((cos` A) - (i x. (sin` A))))
451, 44ax-mp 7 . . . . . . . 8 |- (exp` (-ui x. A)) = ((cos` A) - (i x. (sin`
A)))
46 efmivalt 7390 . . . . . . . . 9 |- (B e. CC -> (exp` (-ui x. B)) = ((cos` B) - (i x. (sin` B))))
472, 46ax-mp 7 . . . . . . . 8 |- (exp` (-ui x. B)) = ((cos` B) - (i x. (sin`
B)))
4845, 47opreq12i 3958 . . . . . . 7 |- ((exp` (-ui x. A)) x. (exp` (-ui x. B))) = (((cos` A) - (i x. (sin`
A))) x. ((cos` B) - (i x. (sin` B))))
497, 17pm3.2i 285 . . . . . . . 8 |- ((cos` A) e. CC /\ (i x. (sin` A)) e. CC)
509, 14pm3.2i 285 . . . . . . . 8 |- ((cos` B) e. CC /\ (i x. (sin` B)) e. CC)
51 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