Metamath Proof Explorer


Theorem sinadd

Description: Addition formula for sine. Equation 14 of Gleason p. 310. (Contributed by Steve Rodriguez, 10-Nov-2006) (Revised by Mario Carneiro, 30-Apr-2014)

Ref Expression
Assertion sinadd ABsinA+B=sinAcosB+cosAsinB

Proof

Step Hyp Ref Expression
1 addcl ABA+B
2 sinval A+BsinA+B=eiA+BeiA+B2i
3 1 2 syl ABsinA+B=eiA+BeiA+B2i
4 2cn 2
5 4 a1i AB2
6 ax-icn i
7 6 a1i ABi
8 coscl AcosA
9 8 adantr ABcosA
10 sincl BsinB
11 10 adantl ABsinB
12 9 11 mulcld ABcosAsinB
13 sincl AsinA
14 13 adantr ABsinA
15 coscl BcosB
16 15 adantl ABcosB
17 14 16 mulcld ABsinAcosB
18 12 17 addcld ABcosAsinB+sinAcosB
19 5 7 18 mulassd AB2icosAsinB+sinAcosB=2icosAsinB+sinAcosB
20 7 12 17 adddid ABicosAsinB+sinAcosB=icosAsinB+isinAcosB
21 7 9 11 mul12d ABicosAsinB=cosAisinB
22 14 16 mulcomd ABsinAcosB=cosBsinA
23 22 oveq2d ABisinAcosB=icosBsinA
24 7 16 14 mul12d ABicosBsinA=cosBisinA
25 23 24 eqtrd ABisinAcosB=cosBisinA
26 21 25 oveq12d ABicosAsinB+isinAcosB=cosAisinB+cosBisinA
27 20 26 eqtrd ABicosAsinB+sinAcosB=cosAisinB+cosBisinA
28 27 oveq2d AB2icosAsinB+sinAcosB=2cosAisinB+cosBisinA
29 19 28 eqtrd AB2icosAsinB+sinAcosB=2cosAisinB+cosBisinA
30 mulcl isinBisinB
31 6 11 30 sylancr ABisinB
32 9 31 mulcld ABcosAisinB
33 mulcl isinAisinA
34 6 14 33 sylancr ABisinA
35 16 34 mulcld ABcosBisinA
36 32 35 addcld ABcosAisinB+cosBisinA
37 mulcl 2cosAisinB+cosBisinA2cosAisinB+cosBisinA
38 4 36 37 sylancr AB2cosAisinB+cosBisinA
39 2mulicn 2i
40 39 a1i AB2i
41 2muline0 2i0
42 41 a1i AB2i0
43 38 40 18 42 divmuld AB2cosAisinB+cosBisinA2i=cosAsinB+sinAcosB2icosAsinB+sinAcosB=2cosAisinB+cosBisinA
44 29 43 mpbird AB2cosAisinB+cosBisinA2i=cosAsinB+sinAcosB
45 9 16 mulcld ABcosAcosB
46 31 34 mulcld ABisinBisinA
47 45 46 addcld ABcosAcosB+isinBisinA
48 47 36 36 pnncand ABcosAcosB+isinBisinA+cosAisinB+cosBisinA-cosAcosB+isinBisinA-cosAisinB+cosBisinA=cosAisinB+cosBisinA+cosAisinB+cosBisinA
49 adddi iABiA+B=iA+iB
50 6 49 mp3an1 ABiA+B=iA+iB
51 50 fveq2d ABeiA+B=eiA+iB
52 simpl ABA
53 mulcl iAiA
54 6 52 53 sylancr ABiA
55 simpr ABB
56 mulcl iBiB
57 6 55 56 sylancr ABiB
58 efadd iAiBeiA+iB=eiAeiB
59 54 57 58 syl2anc ABeiA+iB=eiAeiB
60 efival AeiA=cosA+isinA
61 efival BeiB=cosB+isinB
62 60 61 oveqan12d ABeiAeiB=cosA+isinAcosB+isinB
63 9 34 16 31 muladdd ABcosA+isinAcosB+isinB=cosAcosB+isinBisinA+cosAisinB+cosBisinA
64 62 63 eqtrd ABeiAeiB=cosAcosB+isinBisinA+cosAisinB+cosBisinA
65 51 59 64 3eqtrd ABeiA+B=cosAcosB+isinBisinA+cosAisinB+cosBisinA
66 negicn i
67 adddi iABiA+B=iA+iB
68 66 67 mp3an1 ABiA+B=iA+iB
69 68 fveq2d ABeiA+B=eiA+iB
70 mulcl iAiA
71 66 52 70 sylancr ABiA
72 mulcl iBiB
73 66 55 72 sylancr ABiB
74 efadd iAiBeiA+iB=eiAeiB
75 71 73 74 syl2anc ABeiA+iB=eiAeiB
76 efmival AeiA=cosAisinA
77 efmival BeiB=cosBisinB
78 76 77 oveqan12d ABeiAeiB=cosAisinAcosBisinB
79 9 34 16 31 mulsubd ABcosAisinAcosBisinB=cosAcosB+isinBisinA-cosAisinB+cosBisinA
80 78 79 eqtrd ABeiAeiB=cosAcosB+isinBisinA-cosAisinB+cosBisinA
81 69 75 80 3eqtrd ABeiA+B=cosAcosB+isinBisinA-cosAisinB+cosBisinA
82 65 81 oveq12d ABeiA+BeiA+B=cosAcosB+isinBisinA+cosAisinB+cosBisinA-cosAcosB+isinBisinA-cosAisinB+cosBisinA
83 36 2timesd AB2cosAisinB+cosBisinA=cosAisinB+cosBisinA+cosAisinB+cosBisinA
84 48 82 83 3eqtr4d ABeiA+BeiA+B=2cosAisinB+cosBisinA
85 84 oveq1d ABeiA+BeiA+B2i=2cosAisinB+cosBisinA2i
86 17 12 addcomd ABsinAcosB+cosAsinB=cosAsinB+sinAcosB
87 44 85 86 3eqtr4d ABeiA+BeiA+B2i=sinAcosB+cosAsinB
88 3 87 eqtrd ABsinA+B=sinAcosB+cosAsinB