Metamath Proof Explorer


Theorem demoivre

Description: De Moivre's Formula. Proof by induction given at http://en.wikipedia.org/wiki/De_Moivre's_formula , but restricted to nonnegative integer powers. See also demoivreALT for an alternate longer proof not using the exponential function. (Contributed by NM, 24-Jul-2007)

Ref Expression
Assertion demoivre ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( cos โ€˜ ๐ด ) + ( i ยท ( sin โ€˜ ๐ด ) ) ) โ†‘ ๐‘ ) = ( ( cos โ€˜ ( ๐‘ ยท ๐ด ) ) + ( i ยท ( sin โ€˜ ( ๐‘ ยท ๐ด ) ) ) ) )

Proof

Step Hyp Ref Expression
1 ax-icn โŠข i โˆˆ โ„‚
2 mulcl โŠข ( ( i โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( i ยท ๐ด ) โˆˆ โ„‚ )
3 1 2 mpan โŠข ( ๐ด โˆˆ โ„‚ โ†’ ( i ยท ๐ด ) โˆˆ โ„‚ )
4 efexp โŠข ( ( ( i ยท ๐ด ) โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( exp โ€˜ ( ๐‘ ยท ( i ยท ๐ด ) ) ) = ( ( exp โ€˜ ( i ยท ๐ด ) ) โ†‘ ๐‘ ) )
5 3 4 sylan โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( exp โ€˜ ( ๐‘ ยท ( i ยท ๐ด ) ) ) = ( ( exp โ€˜ ( i ยท ๐ด ) ) โ†‘ ๐‘ ) )
6 zcn โŠข ( ๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„‚ )
7 mul12 โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง i โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( ๐‘ ยท ( i ยท ๐ด ) ) = ( i ยท ( ๐‘ ยท ๐ด ) ) )
8 1 7 mp3an2 โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( ๐‘ ยท ( i ยท ๐ด ) ) = ( i ยท ( ๐‘ ยท ๐ด ) ) )
9 8 fveq2d โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( exp โ€˜ ( ๐‘ ยท ( i ยท ๐ด ) ) ) = ( exp โ€˜ ( i ยท ( ๐‘ ยท ๐ด ) ) ) )
10 mulcl โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( ๐‘ ยท ๐ด ) โˆˆ โ„‚ )
11 efival โŠข ( ( ๐‘ ยท ๐ด ) โˆˆ โ„‚ โ†’ ( exp โ€˜ ( i ยท ( ๐‘ ยท ๐ด ) ) ) = ( ( cos โ€˜ ( ๐‘ ยท ๐ด ) ) + ( i ยท ( sin โ€˜ ( ๐‘ ยท ๐ด ) ) ) ) )
12 10 11 syl โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( exp โ€˜ ( i ยท ( ๐‘ ยท ๐ด ) ) ) = ( ( cos โ€˜ ( ๐‘ ยท ๐ด ) ) + ( i ยท ( sin โ€˜ ( ๐‘ ยท ๐ด ) ) ) ) )
13 9 12 eqtrd โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( exp โ€˜ ( ๐‘ ยท ( i ยท ๐ด ) ) ) = ( ( cos โ€˜ ( ๐‘ ยท ๐ด ) ) + ( i ยท ( sin โ€˜ ( ๐‘ ยท ๐ด ) ) ) ) )
14 13 ancoms โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ ) โ†’ ( exp โ€˜ ( ๐‘ ยท ( i ยท ๐ด ) ) ) = ( ( cos โ€˜ ( ๐‘ ยท ๐ด ) ) + ( i ยท ( sin โ€˜ ( ๐‘ ยท ๐ด ) ) ) ) )
15 6 14 sylan2 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( exp โ€˜ ( ๐‘ ยท ( i ยท ๐ด ) ) ) = ( ( cos โ€˜ ( ๐‘ ยท ๐ด ) ) + ( i ยท ( sin โ€˜ ( ๐‘ ยท ๐ด ) ) ) ) )
16 efival โŠข ( ๐ด โˆˆ โ„‚ โ†’ ( exp โ€˜ ( i ยท ๐ด ) ) = ( ( cos โ€˜ ๐ด ) + ( i ยท ( sin โ€˜ ๐ด ) ) ) )
17 16 oveq1d โŠข ( ๐ด โˆˆ โ„‚ โ†’ ( ( exp โ€˜ ( i ยท ๐ด ) ) โ†‘ ๐‘ ) = ( ( ( cos โ€˜ ๐ด ) + ( i ยท ( sin โ€˜ ๐ด ) ) ) โ†‘ ๐‘ ) )
18 17 adantr โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( exp โ€˜ ( i ยท ๐ด ) ) โ†‘ ๐‘ ) = ( ( ( cos โ€˜ ๐ด ) + ( i ยท ( sin โ€˜ ๐ด ) ) ) โ†‘ ๐‘ ) )
19 5 15 18 3eqtr3rd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( cos โ€˜ ๐ด ) + ( i ยท ( sin โ€˜ ๐ด ) ) ) โ†‘ ๐‘ ) = ( ( cos โ€˜ ( ๐‘ ยท ๐ด ) ) + ( i ยท ( sin โ€˜ ( ๐‘ ยท ๐ด ) ) ) ) )