Metamath Proof Explorer


Theorem addsin

Description: Sum of sines. (Contributed by Paul Chapman, 12-Oct-2007)

Ref Expression
Assertion addsin ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( sin โ€˜ ๐ด ) + ( sin โ€˜ ๐ต ) ) = ( 2 ยท ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )

Proof

Step Hyp Ref Expression
1 addcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด + ๐ต ) โˆˆ โ„‚ )
2 1 halfcld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด + ๐ต ) / 2 ) โˆˆ โ„‚ )
3 2 sincld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) โˆˆ โ„‚ )
4 subcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ๐ด โˆ’ ๐ต ) โˆˆ โ„‚ )
5 4 halfcld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) โˆˆ โ„‚ )
6 5 coscld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) โˆˆ โ„‚ )
7 3 6 mulcld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) โˆˆ โ„‚ )
8 7 2timesd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( 2 ยท ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) = ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )
9 sinadd โŠข ( ( ( ( ๐ด + ๐ต ) / 2 ) โˆˆ โ„‚ โˆง ( ( ๐ด โˆ’ ๐ต ) / 2 ) โˆˆ โ„‚ ) โ†’ ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) + ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) = ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )
10 2 5 9 syl2anc โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) + ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) = ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )
11 sinsub โŠข ( ( ( ( ๐ด + ๐ต ) / 2 ) โˆˆ โ„‚ โˆง ( ( ๐ด โˆ’ ๐ต ) / 2 ) โˆˆ โ„‚ ) โ†’ ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) โˆ’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) = ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) โˆ’ ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )
12 2 5 11 syl2anc โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) โˆ’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) = ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) โˆ’ ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )
13 10 12 oveq12d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) + ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) โˆ’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) = ( ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) + ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) โˆ’ ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) ) )
14 2 coscld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) โˆˆ โ„‚ )
15 5 sincld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) โˆˆ โ„‚ )
16 14 15 mulcld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) โˆˆ โ„‚ )
17 7 16 7 ppncand โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) + ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) โˆ’ ( ( cos โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( sin โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) ) = ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )
18 13 17 eqtrd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) + ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) โˆ’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) = ( ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )
19 halfaddsub โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ( ( ๐ด + ๐ต ) / 2 ) + ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) = ๐ด โˆง ( ( ( ๐ด + ๐ต ) / 2 ) โˆ’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) = ๐ต ) )
20 19 simpld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด + ๐ต ) / 2 ) + ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) = ๐ด )
21 20 fveq2d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) + ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) = ( sin โ€˜ ๐ด ) )
22 19 simprd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( ( ๐ด + ๐ต ) / 2 ) โˆ’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) = ๐ต )
23 22 fveq2d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) โˆ’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) = ( sin โ€˜ ๐ต ) )
24 21 23 oveq12d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) + ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) + ( sin โ€˜ ( ( ( ๐ด + ๐ต ) / 2 ) โˆ’ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) = ( ( sin โ€˜ ๐ด ) + ( sin โ€˜ ๐ต ) ) )
25 8 18 24 3eqtr2rd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ต โˆˆ โ„‚ ) โ†’ ( ( sin โ€˜ ๐ด ) + ( sin โ€˜ ๐ต ) ) = ( 2 ยท ( ( sin โ€˜ ( ( ๐ด + ๐ต ) / 2 ) ) ยท ( cos โ€˜ ( ( ๐ด โˆ’ ๐ต ) / 2 ) ) ) ) )