MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  basellem3 Structured version   Visualization version   Unicode version

Theorem basellem3 24809
Description: Lemma for basel 24816. Using the binomial theorem and de Moivre's formula, we have the identity  _e ^ _i N x  /  ( sin x
) ^ n  =  sum_ m  e.  ( 0 ... N
) ( N  _C  m ) ( _i
^ m ) ( cot x ) ^
( N  -  m
), so taking imaginary parts yields  sin ( N x )  /  ( sin x
) ^ N  =  sum_ j  e.  ( 0 ... M
) ( N  _C  2 j ) (
-u 1 ) ^
( M  -  j
)  ( cot x
) ^ ( -u
2 j )  =  P ( ( cot x ) ^ 2 ), where  N  =  2 M  +  1. (Contributed by Mario Carneiro, 30-Jul-2014.)
Hypotheses
Ref Expression
basel.n  |-  N  =  ( ( 2  x.  M )  +  1 )
basel.p  |-  P  =  ( t  e.  CC  |->  sum_ j  e.  ( 0 ... M ) ( ( ( N  _C  ( 2  x.  j
) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( t ^ j ) ) )
Assertion
Ref Expression
basellem3  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( P `  ( ( tan `  A
) ^ -u 2
) )  =  ( ( sin `  ( N  x.  A )
)  /  ( ( sin `  A ) ^ N ) ) )
Distinct variable groups:    t, j, A    j, M, t    j, N, t
Allowed substitution hints:    P( t, j)

Proof of Theorem basellem3
Dummy variables  k  m are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 tanrpcl 24256 . . . . . . . 8  |-  ( A  e.  ( 0 (,) ( pi  /  2
) )  ->  ( tan `  A )  e.  RR+ )
21adantl 482 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( tan `  A
)  e.  RR+ )
32rpreccld 11882 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 1  / 
( tan `  A
) )  e.  RR+ )
43rpcnd 11874 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 1  / 
( tan `  A
) )  e.  CC )
5 ax-icn 9995 . . . . . 6  |-  _i  e.  CC
65a1i 11 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  _i  e.  CC )
7 basel.n . . . . . . 7  |-  N  =  ( ( 2  x.  M )  +  1 )
8 2nn 11185 . . . . . . . . 9  |-  2  e.  NN
9 simpl 473 . . . . . . . . 9  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  M  e.  NN )
10 nnmulcl 11043 . . . . . . . . 9  |-  ( ( 2  e.  NN  /\  M  e.  NN )  ->  ( 2  x.  M
)  e.  NN )
118, 9, 10sylancr 695 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 2  x.  M )  e.  NN )
1211peano2nnd 11037 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( 2  x.  M )  +  1 )  e.  NN )
137, 12syl5eqel 2705 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  N  e.  NN )
1413nnnn0d 11351 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  N  e.  NN0 )
15 binom 14562 . . . . 5  |-  ( ( ( 1  /  ( tan `  A ) )  e.  CC  /\  _i  e.  CC  /\  N  e. 
NN0 )  ->  (
( ( 1  / 
( tan `  A
) )  +  _i ) ^ N )  = 
sum_ m  e.  (
0 ... N ) ( ( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) ) )
164, 6, 14, 15syl3anc 1326 . . . 4  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( 1  /  ( tan `  A ) )  +  _i ) ^ N
)  =  sum_ m  e.  ( 0 ... N
) ( ( N  _C  m )  x.  ( ( ( 1  /  ( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) ) )
17 elioore 12205 . . . . . . . . . . 11  |-  ( A  e.  ( 0 (,) ( pi  /  2
) )  ->  A  e.  RR )
1817adantl 482 . . . . . . . . . 10  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  A  e.  RR )
1918recoscld 14874 . . . . . . . . 9  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( cos `  A
)  e.  RR )
2019recnd 10068 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( cos `  A
)  e.  CC )
2118resincld 14873 . . . . . . . . . 10  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( sin `  A
)  e.  RR )
2221recnd 10068 . . . . . . . . 9  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( sin `  A
)  e.  CC )
23 mulcl 10020 . . . . . . . . 9  |-  ( ( _i  e.  CC  /\  ( sin `  A )  e.  CC )  -> 
( _i  x.  ( sin `  A ) )  e.  CC )
245, 22, 23sylancr 695 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( _i  x.  ( sin `  A ) )  e.  CC )
2520, 24addcld 10059 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( cos `  A )  +  ( _i  x.  ( sin `  A ) ) )  e.  CC )
26 sincosq1sgn 24250 . . . . . . . . . 10  |-  ( A  e.  ( 0 (,) ( pi  /  2
) )  ->  (
0  <  ( sin `  A )  /\  0  <  ( cos `  A
) ) )
2726adantl 482 . . . . . . . . 9  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 0  < 
( sin `  A
)  /\  0  <  ( cos `  A ) ) )
2827simpld 475 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  0  <  ( sin `  A ) )
2928gt0ne0d 10592 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( sin `  A
)  =/=  0 )
3025, 22, 29, 14expdivd 13022 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( ( cos `  A
)  +  ( _i  x.  ( sin `  A
) ) )  / 
( sin `  A
) ) ^ N
)  =  ( ( ( ( cos `  A
)  +  ( _i  x.  ( sin `  A
) ) ) ^ N )  /  (
( sin `  A
) ^ N ) ) )
3120, 24, 22, 29divdird 10839 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( cos `  A )  +  ( _i  x.  ( sin `  A ) ) )  /  ( sin `  A ) )  =  ( ( ( cos `  A )  /  ( sin `  A
) )  +  ( ( _i  x.  ( sin `  A ) )  /  ( sin `  A
) ) ) )
3218recnd 10068 . . . . . . . . . . . 12  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  A  e.  CC )
3327simprd 479 . . . . . . . . . . . . 13  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  0  <  ( cos `  A ) )
3433gt0ne0d 10592 . . . . . . . . . . . 12  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( cos `  A
)  =/=  0 )
35 tanval 14858 . . . . . . . . . . . 12  |-  ( ( A  e.  CC  /\  ( cos `  A )  =/=  0 )  -> 
( tan `  A
)  =  ( ( sin `  A )  /  ( cos `  A
) ) )
3632, 34, 35syl2anc 693 . . . . . . . . . . 11  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( tan `  A
)  =  ( ( sin `  A )  /  ( cos `  A
) ) )
3736oveq2d 6666 . . . . . . . . . 10  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 1  / 
( tan `  A
) )  =  ( 1  /  ( ( sin `  A )  /  ( cos `  A
) ) ) )
3822, 20, 29, 34recdivd 10818 . . . . . . . . . 10  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 1  / 
( ( sin `  A
)  /  ( cos `  A ) ) )  =  ( ( cos `  A )  /  ( sin `  A ) ) )
3937, 38eqtr2d 2657 . . . . . . . . 9  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( cos `  A )  /  ( sin `  A ) )  =  ( 1  / 
( tan `  A
) ) )
406, 22, 29divcan4d 10807 . . . . . . . . 9  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( _i  x.  ( sin `  A
) )  /  ( sin `  A ) )  =  _i )
4139, 40oveq12d 6668 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( cos `  A )  /  ( sin `  A
) )  +  ( ( _i  x.  ( sin `  A ) )  /  ( sin `  A
) ) )  =  ( ( 1  / 
( tan `  A
) )  +  _i ) )
4231, 41eqtrd 2656 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( cos `  A )  +  ( _i  x.  ( sin `  A ) ) )  /  ( sin `  A ) )  =  ( ( 1  /  ( tan `  A
) )  +  _i ) )
4342oveq1d 6665 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( ( cos `  A
)  +  ( _i  x.  ( sin `  A
) ) )  / 
( sin `  A
) ) ^ N
)  =  ( ( ( 1  /  ( tan `  A ) )  +  _i ) ^ N ) )
4413nnzd 11481 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  N  e.  ZZ )
45 demoivre 14930 . . . . . . . 8  |-  ( ( A  e.  CC  /\  N  e.  ZZ )  ->  ( ( ( cos `  A )  +  ( _i  x.  ( sin `  A ) ) ) ^ N )  =  ( ( cos `  ( N  x.  A )
)  +  ( _i  x.  ( sin `  ( N  x.  A )
) ) ) )
4632, 44, 45syl2anc 693 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( cos `  A )  +  ( _i  x.  ( sin `  A ) ) ) ^ N
)  =  ( ( cos `  ( N  x.  A ) )  +  ( _i  x.  ( sin `  ( N  x.  A ) ) ) ) )
4746oveq1d 6665 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( ( cos `  A
)  +  ( _i  x.  ( sin `  A
) ) ) ^ N )  /  (
( sin `  A
) ^ N ) )  =  ( ( ( cos `  ( N  x.  A )
)  +  ( _i  x.  ( sin `  ( N  x.  A )
) ) )  / 
( ( sin `  A
) ^ N ) ) )
4830, 43, 473eqtr3d 2664 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( 1  /  ( tan `  A ) )  +  _i ) ^ N
)  =  ( ( ( cos `  ( N  x.  A )
)  +  ( _i  x.  ( sin `  ( N  x.  A )
) ) )  / 
( ( sin `  A
) ^ N ) ) )
4913nnred 11035 . . . . . . . . 9  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  N  e.  RR )
5049, 18remulcld 10070 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( N  x.  A )  e.  RR )
5150recoscld 14874 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( cos `  ( N  x.  A )
)  e.  RR )
5251recnd 10068 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( cos `  ( N  x.  A )
)  e.  CC )
5350resincld 14873 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( sin `  ( N  x.  A )
)  e.  RR )
5453recnd 10068 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( sin `  ( N  x.  A )
)  e.  CC )
55 mulcl 10020 . . . . . . 7  |-  ( ( _i  e.  CC  /\  ( sin `  ( N  x.  A ) )  e.  CC )  -> 
( _i  x.  ( sin `  ( N  x.  A ) ) )  e.  CC )
565, 54, 55sylancr 695 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( _i  x.  ( sin `  ( N  x.  A ) ) )  e.  CC )
5721, 28elrpd 11869 . . . . . . . 8  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( sin `  A
)  e.  RR+ )
5857, 44rpexpcld 13032 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( sin `  A ) ^ N
)  e.  RR+ )
5958rpcnd 11874 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( sin `  A ) ^ N
)  e.  CC )
6058rpne0d 11877 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( sin `  A ) ^ N
)  =/=  0 )
6152, 56, 59, 60divdird 10839 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( cos `  ( N  x.  A ) )  +  ( _i  x.  ( sin `  ( N  x.  A ) ) ) )  /  (
( sin `  A
) ^ N ) )  =  ( ( ( cos `  ( N  x.  A )
)  /  ( ( sin `  A ) ^ N ) )  +  ( ( _i  x.  ( sin `  ( N  x.  A )
) )  /  (
( sin `  A
) ^ N ) ) ) )
626, 54, 59, 60divassd 10836 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( _i  x.  ( sin `  ( N  x.  A )
) )  /  (
( sin `  A
) ^ N ) )  =  ( _i  x.  ( ( sin `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) ) ) )
6362oveq2d 6666 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( cos `  ( N  x.  A ) )  /  ( ( sin `  A ) ^ N
) )  +  ( ( _i  x.  ( sin `  ( N  x.  A ) ) )  /  ( ( sin `  A ) ^ N
) ) )  =  ( ( ( cos `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) )  +  ( _i  x.  ( ( sin `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) ) ) ) )
6448, 61, 633eqtrd 2660 . . . 4  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( ( 1  /  ( tan `  A ) )  +  _i ) ^ N
)  =  ( ( ( cos `  ( N  x.  A )
)  /  ( ( sin `  A ) ^ N ) )  +  ( _i  x.  ( ( sin `  ( N  x.  A )
)  /  ( ( sin `  A ) ^ N ) ) ) ) )
6516, 64eqtr3d 2658 . . 3  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  sum_ m  e.  ( 0 ... N ) ( ( N  _C  m )  x.  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) )  =  ( ( ( cos `  ( N  x.  A )
)  /  ( ( sin `  A ) ^ N ) )  +  ( _i  x.  ( ( sin `  ( N  x.  A )
)  /  ( ( sin `  A ) ^ N ) ) ) ) )
6665fveq2d 6195 . 2  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( Im `  sum_ m  e.  ( 0 ... N ) ( ( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) ) )  =  ( Im `  ( ( ( cos `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) )  +  ( _i  x.  ( ( sin `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) ) ) ) ) )
67 oveq2 6658 . . . . . . 7  |-  ( m  =  ( N  -  ( 2  x.  j
) )  ->  ( N  _C  m )  =  ( N  _C  ( N  -  ( 2  x.  j ) ) ) )
68 oveq2 6658 . . . . . . . . 9  |-  ( m  =  ( N  -  ( 2  x.  j
) )  ->  ( N  -  m )  =  ( N  -  ( N  -  (
2  x.  j ) ) ) )
6968oveq2d 6666 . . . . . . . 8  |-  ( m  =  ( N  -  ( 2  x.  j
) )  ->  (
( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  =  ( ( 1  / 
( tan `  A
) ) ^ ( N  -  ( N  -  ( 2  x.  j ) ) ) ) )
70 oveq2 6658 . . . . . . . 8  |-  ( m  =  ( N  -  ( 2  x.  j
) )  ->  (
_i ^ m )  =  ( _i ^
( N  -  (
2  x.  j ) ) ) )
7169, 70oveq12d 6668 . . . . . . 7  |-  ( m  =  ( N  -  ( 2  x.  j
) )  ->  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) )  =  ( ( ( 1  /  ( tan `  A ) ) ^
( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  (
_i ^ ( N  -  ( 2  x.  j ) ) ) ) )
7267, 71oveq12d 6668 . . . . . 6  |-  ( m  =  ( N  -  ( 2  x.  j
) )  ->  (
( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) )  =  ( ( N  _C  ( N  -  (
2  x.  j ) ) )  x.  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  ( _i
^ ( N  -  ( 2  x.  j
) ) ) ) ) )
7372fveq2d 6195 . . . . 5  |-  ( m  =  ( N  -  ( 2  x.  j
) )  ->  (
Im `  ( ( N  _C  m )  x.  ( ( ( 1  /  ( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) ) )  =  ( Im `  ( ( N  _C  ( N  -  ( 2  x.  j ) ) )  x.  ( ( ( 1  /  ( tan `  A ) ) ^
( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  (
_i ^ ( N  -  ( 2  x.  j ) ) ) ) ) ) )
74 fzfid 12772 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 0 ... M )  e.  Fin )
75 2nn0 11309 . . . . . . . . . . . . 13  |-  2  e.  NN0
76 elfznn0 12433 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... M )  ->  k  e.  NN0 )
7776adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  k  e.  NN0 )
78 nn0mulcl 11329 . . . . . . . . . . . . 13  |-  ( ( 2  e.  NN0  /\  k  e.  NN0 )  -> 
( 2  x.  k
)  e.  NN0 )
7975, 77, 78sylancr 695 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  k )  e. 
NN0 )
8079nn0red 11352 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  k )  e.  RR )
8111nnred 11035 . . . . . . . . . . . 12  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 2  x.  M )  e.  RR )
8281adantr 481 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  M )  e.  RR )
8349adantr 481 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  N  e.  RR )
84 elfzle2 12345 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... M )  ->  k  <_  M )
8584adantl 482 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  k  <_  M )
8677nn0red 11352 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  k  e.  RR )
87 nnre 11027 . . . . . . . . . . . . . 14  |-  ( M  e.  NN  ->  M  e.  RR )
8887ad2antrr 762 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  M  e.  RR )
89 2re 11090 . . . . . . . . . . . . . . 15  |-  2  e.  RR
90 2pos 11112 . . . . . . . . . . . . . . 15  |-  0  <  2
9189, 90pm3.2i 471 . . . . . . . . . . . . . 14  |-  ( 2  e.  RR  /\  0  <  2 )
9291a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  e.  RR  /\  0  <  2 ) )
93 lemul2 10876 . . . . . . . . . . . . 13  |-  ( ( k  e.  RR  /\  M  e.  RR  /\  (
2  e.  RR  /\  0  <  2 ) )  ->  ( k  <_  M 
<->  ( 2  x.  k
)  <_  ( 2  x.  M ) ) )
9486, 88, 92, 93syl3anc 1326 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( k  <_  M  <->  ( 2  x.  k )  <_  (
2  x.  M ) ) )
9585, 94mpbid 222 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  k )  <_ 
( 2  x.  M
) )
9682lep1d 10955 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  M )  <_ 
( ( 2  x.  M )  +  1 ) )
9796, 7syl6breqr 4695 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  M )  <_  N )
9880, 82, 83, 95, 97letrd 10194 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  k )  <_  N )
99 nn0uz 11722 . . . . . . . . . . . 12  |-  NN0  =  ( ZZ>= `  0 )
10079, 99syl6eleq 2711 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  k )  e.  ( ZZ>= `  0 )
)
10144adantr 481 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  N  e.  ZZ )
102 elfz5 12334 . . . . . . . . . . 11  |-  ( ( ( 2  x.  k
)  e.  ( ZZ>= ` 
0 )  /\  N  e.  ZZ )  ->  (
( 2  x.  k
)  e.  ( 0 ... N )  <->  ( 2  x.  k )  <_  N ) )
103100, 101, 102syl2anc 693 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( (
2  x.  k )  e.  ( 0 ... N )  <->  ( 2  x.  k )  <_  N ) )
10498, 103mpbird 247 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( 2  x.  k )  e.  ( 0 ... N
) )
105 fznn0sub2 12446 . . . . . . . . 9  |-  ( ( 2  x.  k )  e.  ( 0 ... N )  ->  ( N  -  ( 2  x.  k ) )  e.  ( 0 ... N ) )
106104, 105syl 17 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  k  e.  ( 0 ... M ) )  ->  ( N  -  ( 2  x.  k ) )  e.  ( 0 ... N
) )
107106ex 450 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( k  e.  ( 0 ... M
)  ->  ( N  -  ( 2  x.  k ) )  e.  ( 0 ... N
) ) )
10813nncnd 11036 . . . . . . . . . . 11  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  N  e.  CC )
109108adantr 481 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  ->  N  e.  CC )
110 2cn 11091 . . . . . . . . . . 11  |-  2  e.  CC
111 elfzelz 12342 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... M )  ->  k  e.  ZZ )
112111zcnd 11483 . . . . . . . . . . . 12  |-  ( k  e.  ( 0 ... M )  ->  k  e.  CC )
113112ad2antrl 764 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  -> 
k  e.  CC )
114 mulcl 10020 . . . . . . . . . . 11  |-  ( ( 2  e.  CC  /\  k  e.  CC )  ->  ( 2  x.  k
)  e.  CC )
115110, 113, 114sylancr 695 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  -> 
( 2  x.  k
)  e.  CC )
116112ssriv 3607 . . . . . . . . . . . 12  |-  ( 0 ... M )  C_  CC
117 simprr 796 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  ->  m  e.  ( 0 ... M ) )
118116, 117sseldi 3601 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  ->  m  e.  CC )
119 mulcl 10020 . . . . . . . . . . 11  |-  ( ( 2  e.  CC  /\  m  e.  CC )  ->  ( 2  x.  m
)  e.  CC )
120110, 118, 119sylancr 695 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  -> 
( 2  x.  m
)  e.  CC )
121109, 115, 120subcanad 10435 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  -> 
( ( N  -  ( 2  x.  k
) )  =  ( N  -  ( 2  x.  m ) )  <-> 
( 2  x.  k
)  =  ( 2  x.  m ) ) )
122 2cnne0 11242 . . . . . . . . . . 11  |-  ( 2  e.  CC  /\  2  =/=  0 )
123122a1i 11 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  -> 
( 2  e.  CC  /\  2  =/=  0 ) )
124 mulcan 10664 . . . . . . . . . 10  |-  ( ( k  e.  CC  /\  m  e.  CC  /\  (
2  e.  CC  /\  2  =/=  0 ) )  ->  ( ( 2  x.  k )  =  ( 2  x.  m
)  <->  k  =  m ) )
125113, 118, 123, 124syl3anc 1326 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  -> 
( ( 2  x.  k )  =  ( 2  x.  m )  <-> 
k  =  m ) )
126121, 125bitrd 268 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( k  e.  ( 0 ... M
)  /\  m  e.  ( 0 ... M
) ) )  -> 
( ( N  -  ( 2  x.  k
) )  =  ( N  -  ( 2  x.  m ) )  <-> 
k  =  m ) )
127126ex 450 . . . . . . 7  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( k  e.  ( 0 ... M )  /\  m  e.  ( 0 ... M
) )  ->  (
( N  -  (
2  x.  k ) )  =  ( N  -  ( 2  x.  m ) )  <->  k  =  m ) ) )
128107, 127dom2lem 7995 . . . . . 6  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) : ( 0 ... M
) -1-1-> ( 0 ... N ) )
129 f1f1orn 6148 . . . . . 6  |-  ( ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) : ( 0 ... M ) -1-1-> ( 0 ... N )  ->  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) : ( 0 ... M
)
-1-1-onto-> ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )
130128, 129syl 17 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) : ( 0 ... M
)
-1-1-onto-> ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )
131 oveq2 6658 . . . . . . . 8  |-  ( k  =  j  ->  (
2  x.  k )  =  ( 2  x.  j ) )
132131oveq2d 6666 . . . . . . 7  |-  ( k  =  j  ->  ( N  -  ( 2  x.  k ) )  =  ( N  -  ( 2  x.  j
) ) )
133 eqid 2622 . . . . . . 7  |-  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) )  =  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) )
134 ovex 6678 . . . . . . 7  |-  ( N  -  ( 2  x.  j ) )  e. 
_V
135132, 133, 134fvmpt 6282 . . . . . 6  |-  ( j  e.  ( 0 ... M )  ->  (
( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) `  j
)  =  ( N  -  ( 2  x.  j ) ) )
136135adantl 482 . . . . 5  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) `  j )  =  ( N  -  ( 2  x.  j
) ) )
137 f1f 6101 . . . . . . . . . . 11  |-  ( ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) : ( 0 ... M ) -1-1-> ( 0 ... N )  ->  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) : ( 0 ... M
) --> ( 0 ... N ) )
138128, 137syl 17 . . . . . . . . . 10  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) : ( 0 ... M
) --> ( 0 ... N ) )
139 frn 6053 . . . . . . . . . 10  |-  ( ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) : ( 0 ... M ) --> ( 0 ... N )  ->  ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) )  C_  ( 0 ... N
) )
140138, 139syl 17 . . . . . . . . 9  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) )  C_  ( 0 ... N
) )
141140sselda 3603 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )  ->  m  e.  ( 0 ... N ) )
142 bccl2 13110 . . . . . . . . . . 11  |-  ( m  e.  ( 0 ... N )  ->  ( N  _C  m )  e.  NN )
143142adantl 482 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( N  _C  m )  e.  NN )
144143nncnd 11036 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( N  _C  m )  e.  CC )
1452rprecred 11883 . . . . . . . . . . . 12  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 1  / 
( tan `  A
) )  e.  RR )
146 fznn0sub 12373 . . . . . . . . . . . 12  |-  ( m  e.  ( 0 ... N )  ->  ( N  -  m )  e.  NN0 )
147 reexpcl 12877 . . . . . . . . . . . 12  |-  ( ( ( 1  /  ( tan `  A ) )  e.  RR  /\  ( N  -  m )  e.  NN0 )  ->  (
( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  e.  RR )
148145, 146, 147syl2an 494 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( (
1  /  ( tan `  A ) ) ^
( N  -  m
) )  e.  RR )
149148recnd 10068 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( (
1  /  ( tan `  A ) ) ^
( N  -  m
) )  e.  CC )
150 elfznn0 12433 . . . . . . . . . . . 12  |-  ( m  e.  ( 0 ... N )  ->  m  e.  NN0 )
151150adantl 482 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  m  e.  NN0 )
152 expcl 12878 . . . . . . . . . . 11  |-  ( ( _i  e.  CC  /\  m  e.  NN0 )  -> 
( _i ^ m
)  e.  CC )
1535, 151, 152sylancr 695 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( _i ^ m )  e.  CC )
154149, 153mulcld 10060 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( (
( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) )  e.  CC )
155144, 154mulcld 10060 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( ( N  _C  m )  x.  ( ( ( 1  /  ( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) )  e.  CC )
156141, 155syldan 487 . . . . . . 7  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )  -> 
( ( N  _C  m )  x.  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) )  e.  CC )
157156imcld 13935 . . . . . 6  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )  -> 
( Im `  (
( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) ) )  e.  RR )
158157recnd 10068 . . . . 5  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )  -> 
( Im `  (
( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) ) )  e.  CC )
15973, 74, 130, 136, 158fsumf1o 14454 . . . 4  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  sum_ m  e.  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) ( Im
`  ( ( N  _C  m )  x.  ( ( ( 1  /  ( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) ) )  =  sum_ j  e.  ( 0 ... M ) ( Im `  ( ( N  _C  ( N  -  ( 2  x.  j ) ) )  x.  ( ( ( 1  /  ( tan `  A ) ) ^
( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  (
_i ^ ( N  -  ( 2  x.  j ) ) ) ) ) ) )
160 eldifi 3732 . . . . . . . 8  |-  ( m  e.  ( ( 0 ... N )  \  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )  ->  m  e.  ( 0 ... N ) )
161143nnred 11035 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( N  _C  m )  e.  RR )
162160, 161sylan2 491 . . . . . . 7  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( ( 0 ... N
)  \  ran  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) ) )  ->  ( N  _C  m )  e.  RR )
163160, 148sylan2 491 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( ( 0 ... N
)  \  ran  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) ) )  ->  (
( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  e.  RR )
164 eldif 3584 . . . . . . . . 9  |-  ( m  e.  ( ( 0 ... N )  \  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )  <->  ( m  e.  ( 0 ... N
)  /\  -.  m  e.  ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) ) )
165 elfzelz 12342 . . . . . . . . . . . . . . 15  |-  ( m  e.  ( 0 ... N )  ->  m  e.  ZZ )
166165adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  m  e.  ZZ )
167 zeo 11463 . . . . . . . . . . . . . 14  |-  ( m  e.  ZZ  ->  (
( m  /  2
)  e.  ZZ  \/  ( ( m  + 
1 )  /  2
)  e.  ZZ ) )
168166, 167syl 17 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( (
m  /  2 )  e.  ZZ  \/  (
( m  +  1 )  /  2 )  e.  ZZ ) )
169 i2 12965 . . . . . . . . . . . . . . . . . 18  |-  ( _i
^ 2 )  = 
-u 1
170169oveq1i 6660 . . . . . . . . . . . . . . . . 17  |-  ( ( _i ^ 2 ) ^ ( m  / 
2 ) )  =  ( -u 1 ^ ( m  /  2
) )
171 simprr 796 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( m  /  2
)  e.  ZZ )
172150ad2antrl 764 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  ->  m  e.  NN0 )
173 nn0re 11301 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( m  e.  NN0  ->  m  e.  RR )
174 nn0ge0 11318 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( m  e.  NN0  ->  0  <_  m )
175 divge0 10892 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( m  e.  RR  /\  0  <_  m )  /\  ( 2  e.  RR  /\  0  <  2 ) )  ->  0  <_  ( m  /  2 ) )
17689, 90, 175mpanr12 721 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( m  e.  RR  /\  0  <_  m )  -> 
0  <_  ( m  /  2 ) )
177173, 174, 176syl2anc 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( m  e.  NN0  ->  0  <_ 
( m  /  2
) )
178172, 177syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
0  <_  ( m  /  2 ) )
179 elnn0z 11390 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( m  /  2 )  e.  NN0  <->  ( ( m  /  2 )  e.  ZZ  /\  0  <_ 
( m  /  2
) ) )
180171, 178, 179sylanbrc 698 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( m  /  2
)  e.  NN0 )
181 expmul 12905 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( _i  e.  CC  /\  2  e.  NN0  /\  (
m  /  2 )  e.  NN0 )  -> 
( _i ^ (
2  x.  ( m  /  2 ) ) )  =  ( ( _i ^ 2 ) ^ ( m  / 
2 ) ) )
1825, 75, 181mp3an12 1414 . . . . . . . . . . . . . . . . . . 19  |-  ( ( m  /  2 )  e.  NN0  ->  ( _i
^ ( 2  x.  ( m  /  2
) ) )  =  ( ( _i ^
2 ) ^ (
m  /  2 ) ) )
183180, 182syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( _i ^ (
2  x.  ( m  /  2 ) ) )  =  ( ( _i ^ 2 ) ^ ( m  / 
2 ) ) )
184172nn0cnd 11353 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  ->  m  e.  CC )
185 2ne0 11113 . . . . . . . . . . . . . . . . . . . . 21  |-  2  =/=  0
186 divcan2 10693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( m  e.  CC  /\  2  e.  CC  /\  2  =/=  0 )  ->  (
2  x.  ( m  /  2 ) )  =  m )
187110, 185, 186mp3an23 1416 . . . . . . . . . . . . . . . . . . . 20  |-  ( m  e.  CC  ->  (
2  x.  ( m  /  2 ) )  =  m )
188184, 187syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( 2  x.  (
m  /  2 ) )  =  m )
189188oveq2d 6666 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( _i ^ (
2  x.  ( m  /  2 ) ) )  =  ( _i
^ m ) )
190183, 189eqtr3d 2658 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( ( _i ^
2 ) ^ (
m  /  2 ) )  =  ( _i
^ m ) )
191170, 190syl5eqr 2670 . . . . . . . . . . . . . . . 16  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( -u 1 ^ (
m  /  2 ) )  =  ( _i
^ m ) )
192 neg1rr 11125 . . . . . . . . . . . . . . . . 17  |-  -u 1  e.  RR
193 reexpcl 12877 . . . . . . . . . . . . . . . . 17  |-  ( (
-u 1  e.  RR  /\  ( m  /  2
)  e.  NN0 )  ->  ( -u 1 ^ ( m  /  2
) )  e.  RR )
194192, 180, 193sylancr 695 . . . . . . . . . . . . . . . 16  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( -u 1 ^ (
m  /  2 ) )  e.  RR )
195191, 194eqeltrrd 2702 . . . . . . . . . . . . . . 15  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( m  /  2 )  e.  ZZ ) )  -> 
( _i ^ m
)  e.  RR )
196195expr 643 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( (
m  /  2 )  e.  ZZ  ->  (
_i ^ m )  e.  RR ) )
197146ad2antrl 764 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  m
)  e.  NN0 )
198 nn0re 11301 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( N  -  m )  e.  NN0  ->  ( N  -  m )  e.  RR )
199 nn0ge0 11318 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( N  -  m )  e.  NN0  ->  0  <_ 
( N  -  m
) )
200 divge0 10892 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( N  -  m )  e.  RR  /\  0  <_  ( N  -  m ) )  /\  ( 2  e.  RR  /\  0  <  2 ) )  ->  0  <_  ( ( N  -  m
)  /  2 ) )
20189, 90, 200mpanr12 721 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( N  -  m
)  e.  RR  /\  0  <_  ( N  -  m ) )  -> 
0  <_  ( ( N  -  m )  /  2 ) )
202198, 199, 201syl2anc 693 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( N  -  m )  e.  NN0  ->  0  <_ 
( ( N  -  m )  /  2
) )
203197, 202syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
0  <_  ( ( N  -  m )  /  2 ) )
204197nn0red 11352 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  m
)  e.  RR )
20549adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  N  e.  RR )
206 peano2re 10209 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( N  e.  RR  ->  ( N  +  1 )  e.  RR )
207205, 206syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  +  1 )  e.  RR )
208150ad2antrl 764 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  m  e.  NN0 )
209208, 174syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
0  <_  m )
210208nn0red 11352 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  m  e.  RR )
211205, 210subge02d 10619 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( 0  <_  m  <->  ( N  -  m )  <_  N ) )
212209, 211mpbid 222 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  m
)  <_  N )
213205ltp1d 10954 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  N  <  ( N  + 
1 ) )
214204, 205, 207, 212, 213lelttrd 10195 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  m
)  <  ( N  +  1 ) )
215 2t1e2 11176 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( 2  x.  1 )  =  2
216 df-2 11079 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  2  =  ( 1  +  1 )
217215, 216eqtr2i 2645 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( 1  +  1 )  =  ( 2  x.  1 )
218217oveq2i 6661 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( 2  x.  M )  +  ( 1  +  1 ) )  =  ( ( 2  x.  M )  +  ( 2  x.  1 ) )
2197oveq1i 6660 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( N  +  1 )  =  ( ( ( 2  x.  M )  +  1 )  +  1 )
22011nncnd 11036 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 2  x.  M )  e.  CC )
221220adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( 2  x.  M
)  e.  CC )
222 1cnd 10056 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
1  e.  CC )
223221, 222, 222addassd 10062 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( ( 2  x.  M )  +  1 )  +  1 )  =  ( ( 2  x.  M )  +  ( 1  +  1 ) ) )
224219, 223syl5eq 2668 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  +  1 )  =  ( ( 2  x.  M )  +  ( 1  +  1 ) ) )
225 2cnd 11093 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
2  e.  CC )
226 nncn 11028 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( M  e.  NN  ->  M  e.  CC )
227226ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  M  e.  CC )
228225, 227, 222adddid 10064 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( 2  x.  ( M  +  1 ) )  =  ( ( 2  x.  M )  +  ( 2  x.  1 ) ) )
229218, 224, 2283eqtr4a 2682 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  +  1 )  =  ( 2  x.  ( M  + 
1 ) ) )
230214, 229breqtrd 4679 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  m
)  <  ( 2  x.  ( M  + 
1 ) ) )
231 nnz 11399 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( M  e.  NN  ->  M  e.  ZZ )
232231ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  M  e.  ZZ )
233232peano2zd 11485 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( M  +  1 )  e.  ZZ )
234233zred 11482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( M  +  1 )  e.  RR )
23591a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( 2  e.  RR  /\  0  <  2 ) )
236 ltdivmul 10898 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( N  -  m
)  e.  RR  /\  ( M  +  1
)  e.  RR  /\  ( 2  e.  RR  /\  0  <  2 ) )  ->  ( (
( N  -  m
)  /  2 )  <  ( M  + 
1 )  <->  ( N  -  m )  <  (
2  x.  ( M  +  1 ) ) ) )
237204, 234, 235, 236syl3anc 1326 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( ( N  -  m )  / 
2 )  <  ( M  +  1 )  <-> 
( N  -  m
)  <  ( 2  x.  ( M  + 
1 ) ) ) )
238230, 237mpbird 247 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( N  -  m )  /  2
)  <  ( M  +  1 ) )
239108adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  N  e.  CC )
240208nn0cnd 11353 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  m  e.  CC )
241239, 240, 222pnpcan2d 10430 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( N  + 
1 )  -  (
m  +  1 ) )  =  ( N  -  m ) )
242229oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( N  + 
1 )  -  (
m  +  1 ) )  =  ( ( 2  x.  ( M  +  1 ) )  -  ( m  + 
1 ) ) )
243241, 242eqtr3d 2658 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  m
)  =  ( ( 2  x.  ( M  +  1 ) )  -  ( m  + 
1 ) ) )
244243oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( N  -  m )  /  2
)  =  ( ( ( 2  x.  ( M  +  1 ) )  -  ( m  +  1 ) )  /  2 ) )
245233zcnd 11483 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( M  +  1 )  e.  CC )
246 mulcl 10020 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( 2  e.  CC  /\  ( M  +  1
)  e.  CC )  ->  ( 2  x.  ( M  +  1 ) )  e.  CC )
247110, 245, 246sylancr 695 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( 2  x.  ( M  +  1 ) )  e.  CC )
248 peano2cn 10208 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( m  e.  CC  ->  (
m  +  1 )  e.  CC )
249240, 248syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( m  +  1 )  e.  CC )
250122a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( 2  e.  CC  /\  2  =/=  0 ) )
251 divsubdir 10721 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( 2  x.  ( M  +  1 ) )  e.  CC  /\  ( m  +  1
)  e.  CC  /\  ( 2  e.  CC  /\  2  =/=  0 ) )  ->  ( (
( 2  x.  ( M  +  1 ) )  -  ( m  +  1 ) )  /  2 )  =  ( ( ( 2  x.  ( M  + 
1 ) )  / 
2 )  -  (
( m  +  1 )  /  2 ) ) )
252247, 249, 250, 251syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( ( 2  x.  ( M  + 
1 ) )  -  ( m  +  1
) )  /  2
)  =  ( ( ( 2  x.  ( M  +  1 ) )  /  2 )  -  ( ( m  +  1 )  / 
2 ) ) )
253185a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
2  =/=  0 )
254245, 225, 253divcan3d 10806 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( 2  x.  ( M  +  1 ) )  /  2
)  =  ( M  +  1 ) )
255254oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( ( 2  x.  ( M  + 
1 ) )  / 
2 )  -  (
( m  +  1 )  /  2 ) )  =  ( ( M  +  1 )  -  ( ( m  +  1 )  / 
2 ) ) )
256244, 252, 2553eqtrd 2660 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( N  -  m )  /  2
)  =  ( ( M  +  1 )  -  ( ( m  +  1 )  / 
2 ) ) )
257 simprr 796 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( m  + 
1 )  /  2
)  e.  ZZ )
258233, 257zsubcld 11487 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( M  + 
1 )  -  (
( m  +  1 )  /  2 ) )  e.  ZZ )
259256, 258eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( N  -  m )  /  2
)  e.  ZZ )
260 zleltp1 11428 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( N  -  m )  /  2
)  e.  ZZ  /\  M  e.  ZZ )  ->  ( ( ( N  -  m )  / 
2 )  <_  M  <->  ( ( N  -  m
)  /  2 )  <  ( M  + 
1 ) ) )
261259, 232, 260syl2anc 693 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( ( N  -  m )  / 
2 )  <_  M  <->  ( ( N  -  m
)  /  2 )  <  ( M  + 
1 ) ) )
262238, 261mpbird 247 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( N  -  m )  /  2
)  <_  M )
263 0zd 11389 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
0  e.  ZZ )
264 elfz 12332 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( N  -  m )  /  2
)  e.  ZZ  /\  0  e.  ZZ  /\  M  e.  ZZ )  ->  (
( ( N  -  m )  /  2
)  e.  ( 0 ... M )  <->  ( 0  <_  ( ( N  -  m )  / 
2 )  /\  (
( N  -  m
)  /  2 )  <_  M ) ) )
265259, 263, 232, 264syl3anc 1326 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( ( N  -  m )  / 
2 )  e.  ( 0 ... M )  <-> 
( 0  <_  (
( N  -  m
)  /  2 )  /\  ( ( N  -  m )  / 
2 )  <_  M
) ) )
266203, 262, 265mpbir2and 957 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( N  -  m )  /  2
)  e.  ( 0 ... M ) )
267 oveq2 6658 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  =  ( ( N  -  m )  / 
2 )  ->  (
2  x.  k )  =  ( 2  x.  ( ( N  -  m )  /  2
) ) )
268267oveq2d 6666 . . . . . . . . . . . . . . . . . . 19  |-  ( k  =  ( ( N  -  m )  / 
2 )  ->  ( N  -  ( 2  x.  k ) )  =  ( N  -  ( 2  x.  (
( N  -  m
)  /  2 ) ) ) )
269 ovex 6678 . . . . . . . . . . . . . . . . . . 19  |-  ( N  -  ( 2  x.  ( ( N  -  m )  /  2
) ) )  e. 
_V
270268, 133, 269fvmpt 6282 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( N  -  m
)  /  2 )  e.  ( 0 ... M )  ->  (
( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) `  (
( N  -  m
)  /  2 ) )  =  ( N  -  ( 2  x.  ( ( N  -  m )  /  2
) ) ) )
271266, 270syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) `  ( ( N  -  m )  /  2
) )  =  ( N  -  ( 2  x.  ( ( N  -  m )  / 
2 ) ) ) )
272197nn0cnd 11353 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  m
)  e.  CC )
273272, 225, 253divcan2d 10803 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( 2  x.  (
( N  -  m
)  /  2 ) )  =  ( N  -  m ) )
274273oveq2d 6666 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  (
2  x.  ( ( N  -  m )  /  2 ) ) )  =  ( N  -  ( N  -  m ) ) )
275239, 240nncand 10397 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( N  -  ( N  -  m )
)  =  m )
276271, 274, 2753eqtrd 2660 . . . . . . . . . . . . . . . 16  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) `  ( ( N  -  m )  /  2
) )  =  m )
277 ffn 6045 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) : ( 0 ... M ) --> ( 0 ... N )  ->  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) )  Fn  ( 0 ... M
) )
278138, 277syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) )  Fn  ( 0 ... M
) )
279278adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) )  Fn  (
0 ... M ) )
280 fnfvelrn 6356 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) )  Fn  (
0 ... M )  /\  ( ( N  -  m )  /  2
)  e.  ( 0 ... M ) )  ->  ( ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) `
 ( ( N  -  m )  / 
2 ) )  e. 
ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) )
281279, 266, 280syl2anc 693 . . . . . . . . . . . . . . . 16  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  -> 
( ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) `  ( ( N  -  m )  /  2
) )  e.  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) )
282276, 281eqeltrrd 2702 . . . . . . . . . . . . . . 15  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  ( (
m  +  1 )  /  2 )  e.  ZZ ) )  ->  m  e.  ran  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) )
283282expr 643 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( (
( m  +  1 )  /  2 )  e.  ZZ  ->  m  e.  ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) ) )
284196, 283orim12d 883 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( (
( m  /  2
)  e.  ZZ  \/  ( ( m  + 
1 )  /  2
)  e.  ZZ )  ->  ( ( _i
^ m )  e.  RR  \/  m  e. 
ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) ) ) )
285168, 284mpd 15 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( (
_i ^ m )  e.  RR  \/  m  e.  ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) ) )
286285orcomd 403 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( m  e.  ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) )  \/  ( _i ^ m
)  e.  RR ) )
287286ord 392 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( 0 ... N ) )  ->  ( -.  m  e.  ran  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) )  ->  ( _i ^
m )  e.  RR ) )
288287impr 649 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  ( m  e.  ( 0 ... N
)  /\  -.  m  e.  ran  ( k  e.  ( 0 ... M
)  |->  ( N  -  ( 2  x.  k
) ) ) ) )  ->  ( _i ^ m )  e.  RR )
289164, 288sylan2b 492 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( ( 0 ... N
)  \  ran  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) ) )  ->  (
_i ^ m )  e.  RR )
290163, 289remulcld 10070 . . . . . . 7  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( ( 0 ... N
)  \  ran  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) ) )  ->  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) )  e.  RR )
291162, 290remulcld 10070 . . . . . 6  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( ( 0 ... N
)  \  ran  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) ) )  ->  (
( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) )  e.  RR )
292291reim0d 13965 . . . . 5  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  m  e.  ( ( 0 ... N
)  \  ran  ( k  e.  ( 0 ... M )  |->  ( N  -  ( 2  x.  k ) ) ) ) )  ->  (
Im `  ( ( N  _C  m )  x.  ( ( ( 1  /  ( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) ) )  =  0 )
293 fzfid 12772 . . . . 5  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( 0 ... N )  e.  Fin )
294140, 158, 292, 293fsumss 14456 . . . 4  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  sum_ m  e.  ran  ( k  e.  ( 0 ... M ) 
|->  ( N  -  (
2  x.  k ) ) ) ( Im
`  ( ( N  _C  m )  x.  ( ( ( 1  /  ( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) ) )  =  sum_ m  e.  ( 0 ... N ) ( Im
`  ( ( N  _C  m )  x.  ( ( ( 1  /  ( tan `  A
) ) ^ ( N  -  m )
)  x.  ( _i
^ m ) ) ) ) )
29514adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  N  e.  NN0 )
296 elfznn0 12433 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( 0 ... M )  ->  j  e.  NN0 )
297296adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  j  e.  NN0 )
298 nn0mulcl 11329 . . . . . . . . . . . . . . . . 17  |-  ( ( 2  e.  NN0  /\  j  e.  NN0 )  -> 
( 2  x.  j
)  e.  NN0 )
29975, 297, 298sylancr 695 . . . . . . . . . . . . . . . 16  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 2  x.  j )  e. 
NN0 )
300299nn0zd 11480 . . . . . . . . . . . . . . 15  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 2  x.  j )  e.  ZZ )
301 bccl 13109 . . . . . . . . . . . . . . 15  |-  ( ( N  e.  NN0  /\  ( 2  x.  j
)  e.  ZZ )  ->  ( N  _C  ( 2  x.  j
) )  e.  NN0 )
302295, 300, 301syl2anc 693 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( N  _C  ( 2  x.  j
) )  e.  NN0 )
303302nn0red 11352 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( N  _C  ( 2  x.  j
) )  e.  RR )
304 fznn0sub 12373 . . . . . . . . . . . . . . 15  |-  ( j  e.  ( 0 ... M )  ->  ( M  -  j )  e.  NN0 )
305304adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( M  -  j )  e. 
NN0 )
306 reexpcl 12877 . . . . . . . . . . . . . 14  |-  ( (
-u 1  e.  RR  /\  ( M  -  j
)  e.  NN0 )  ->  ( -u 1 ^ ( M  -  j
) )  e.  RR )
307192, 305, 306sylancr 695 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( -u 1 ^ ( M  -  j ) )  e.  RR )
308303, 307remulcld 10070 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  e.  RR )
309 2z 11409 . . . . . . . . . . . . . . . 16  |-  2  e.  ZZ
310 znegcl 11412 . . . . . . . . . . . . . . . 16  |-  ( 2  e.  ZZ  ->  -u 2  e.  ZZ )
311309, 310ax-mp 5 . . . . . . . . . . . . . . 15  |-  -u 2  e.  ZZ
312 rpexpcl 12879 . . . . . . . . . . . . . . 15  |-  ( ( ( tan `  A
)  e.  RR+  /\  -u 2  e.  ZZ )  ->  (
( tan `  A
) ^ -u 2
)  e.  RR+ )
3132, 311, 312sylancl 694 . . . . . . . . . . . . . 14  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( tan `  A ) ^ -u 2
)  e.  RR+ )
314313rpred 11872 . . . . . . . . . . . . 13  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( tan `  A ) ^ -u 2
)  e.  RR )
315 reexpcl 12877 . . . . . . . . . . . . 13  |-  ( ( ( ( tan `  A
) ^ -u 2
)  e.  RR  /\  j  e.  NN0 )  -> 
( ( ( tan `  A ) ^ -u 2
) ^ j )  e.  RR )
316314, 296, 315syl2an 494 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
( tan `  A
) ^ -u 2
) ^ j )  e.  RR )
317308, 316remulcld 10070 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
( N  _C  (
2  x.  j ) )  x.  ( -u
1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) )  e.  RR )
318317recnd 10068 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
( N  _C  (
2  x.  j ) )  x.  ( -u
1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) )  e.  CC )
319 mulcl 10020 . . . . . . . . . 10  |-  ( ( _i  e.  CC  /\  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) )  e.  CC )  ->  ( _i  x.  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) )  e.  CC )
3205, 318, 319sylancr 695 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i  x.  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) )  e.  CC )
321320addid2d 10237 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 0  +  ( _i  x.  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) ) )  =  ( _i  x.  (
( ( N  _C  ( 2  x.  j
) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) ) ) )
322302nn0cnd 11353 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( N  _C  ( 2  x.  j
) )  e.  CC )
323307recnd 10068 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( -u 1 ^ ( M  -  j ) )  e.  CC )
324316recnd 10068 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
( tan `  A
) ^ -u 2
) ^ j )  e.  CC )
325322, 323, 324mulassd 10063 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
( N  _C  (
2  x.  j ) )  x.  ( -u
1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) )  =  ( ( N  _C  ( 2  x.  j ) )  x.  ( ( -u
1 ^ ( M  -  j ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) ) ) )
326325oveq2d 6666 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i  x.  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) )  =  ( _i  x.  ( ( N  _C  ( 2  x.  j ) )  x.  ( ( -u
1 ^ ( M  -  j ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) ) ) ) )
3275a1i 11 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  _i  e.  CC )
328323, 324mulcld 10060 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( ( -u 1 ^ ( M  -  j ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) )  e.  CC )
329327, 322, 328mul12d 10245 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i  x.  ( ( N  _C  ( 2  x.  j
) )  x.  (
( -u 1 ^ ( M  -  j )
)  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) ) ) )  =  ( ( N  _C  ( 2  x.  j
) )  x.  (
_i  x.  ( ( -u 1 ^ ( M  -  j ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) ) ) ) )
330326, 329eqtrd 2656 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i  x.  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) )  =  ( ( N  _C  (
2  x.  j ) )  x.  ( _i  x.  ( ( -u
1 ^ ( M  -  j ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) ) ) ) )
331 bccmpl 13096 . . . . . . . . . 10  |-  ( ( N  e.  NN0  /\  ( 2  x.  j
)  e.  ZZ )  ->  ( N  _C  ( 2  x.  j
) )  =  ( N  _C  ( N  -  ( 2  x.  j ) ) ) )
332295, 300, 331syl2anc 693 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( N  _C  ( 2  x.  j
) )  =  ( N  _C  ( N  -  ( 2  x.  j ) ) ) )
333108adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  N  e.  CC )
334299nn0cnd 11353 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 2  x.  j )  e.  CC )
335333, 334nncand 10397 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( N  -  ( N  -  ( 2  x.  j
) ) )  =  ( 2  x.  j
) )
336335oveq2d 6666 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
1  /  ( tan `  A ) ) ^
( N  -  ( N  -  ( 2  x.  j ) ) ) )  =  ( ( 1  /  ( tan `  A ) ) ^ ( 2  x.  j ) ) )
3372adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( tan `  A )  e.  RR+ )
338337rpcnd 11874 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( tan `  A )  e.  CC )
339 expneg 12868 . . . . . . . . . . . . . 14  |-  ( ( ( tan `  A
)  e.  CC  /\  ( 2  x.  j
)  e.  NN0 )  ->  ( ( tan `  A
) ^ -u (
2  x.  j ) )  =  ( 1  /  ( ( tan `  A ) ^ (
2  x.  j ) ) ) )
340338, 299, 339syl2anc 693 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( ( tan `  A ) ^ -u ( 2  x.  j
) )  =  ( 1  /  ( ( tan `  A ) ^ ( 2  x.  j ) ) ) )
341297nn0cnd 11353 . . . . . . . . . . . . . . 15  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  j  e.  CC )
342 mulneg1 10466 . . . . . . . . . . . . . . 15  |-  ( ( 2  e.  CC  /\  j  e.  CC )  ->  ( -u 2  x.  j )  =  -u ( 2  x.  j
) )
343110, 341, 342sylancr 695 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( -u 2  x.  j )  =  -u ( 2  x.  j
) )
344343oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( ( tan `  A ) ^
( -u 2  x.  j
) )  =  ( ( tan `  A
) ^ -u (
2  x.  j ) ) )
345337rpne0d 11877 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( tan `  A )  =/=  0
)
346338, 345, 300exprecd 13016 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
1  /  ( tan `  A ) ) ^
( 2  x.  j
) )  =  ( 1  /  ( ( tan `  A ) ^ ( 2  x.  j ) ) ) )
347340, 344, 3463eqtr4d 2666 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( ( tan `  A ) ^
( -u 2  x.  j
) )  =  ( ( 1  /  ( tan `  A ) ) ^ ( 2  x.  j ) ) )
348311a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  -u 2  e.  ZZ )
349297nn0zd 11480 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  j  e.  ZZ )
350 expmulz 12906 . . . . . . . . . . . . 13  |-  ( ( ( ( tan `  A
)  e.  CC  /\  ( tan `  A )  =/=  0 )  /\  ( -u 2  e.  ZZ  /\  j  e.  ZZ ) )  ->  ( ( tan `  A ) ^
( -u 2  x.  j
) )  =  ( ( ( tan `  A
) ^ -u 2
) ^ j ) )
351338, 345, 348, 349, 350syl22anc 1327 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( ( tan `  A ) ^
( -u 2  x.  j
) )  =  ( ( ( tan `  A
) ^ -u 2
) ^ j ) )
352336, 347, 3513eqtr2d 2662 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
1  /  ( tan `  A ) ) ^
( N  -  ( N  -  ( 2  x.  j ) ) ) )  =  ( ( ( tan `  A
) ^ -u 2
) ^ j ) )
3537oveq1i 6660 . . . . . . . . . . . . . . 15  |-  ( N  -  ( 2  x.  j ) )  =  ( ( ( 2  x.  M )  +  1 )  -  (
2  x.  j ) )
35411adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 2  x.  M )  e.  NN )
355354nncnd 11036 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 2  x.  M )  e.  CC )
356 1cnd 10056 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  1  e.  CC )
357355, 356, 334addsubd 10413 . . . . . . . . . . . . . . . 16  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
( 2  x.  M
)  +  1 )  -  ( 2  x.  j ) )  =  ( ( ( 2  x.  M )  -  ( 2  x.  j
) )  +  1 ) )
358 2cnd 11093 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  2  e.  CC )
359226ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  M  e.  CC )
360358, 359, 341subdid 10486 . . . . . . . . . . . . . . . . 17  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 2  x.  ( M  -  j ) )  =  ( ( 2  x.  M )  -  (
2  x.  j ) ) )
361360oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
2  x.  ( M  -  j ) )  +  1 )  =  ( ( ( 2  x.  M )  -  ( 2  x.  j
) )  +  1 ) )
362357, 361eqtr4d 2659 . . . . . . . . . . . . . . 15  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
( 2  x.  M
)  +  1 )  -  ( 2  x.  j ) )  =  ( ( 2  x.  ( M  -  j
) )  +  1 ) )
363353, 362syl5eq 2668 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( N  -  ( 2  x.  j ) )  =  ( ( 2  x.  ( M  -  j
) )  +  1 ) )
364363oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i ^ ( N  -  ( 2  x.  j
) ) )  =  ( _i ^ (
( 2  x.  ( M  -  j )
)  +  1 ) ) )
365 nn0mulcl 11329 . . . . . . . . . . . . . . 15  |-  ( ( 2  e.  NN0  /\  ( M  -  j
)  e.  NN0 )  ->  ( 2  x.  ( M  -  j )
)  e.  NN0 )
36675, 305, 365sylancr 695 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 2  x.  ( M  -  j ) )  e. 
NN0 )
367 expp1 12867 . . . . . . . . . . . . . 14  |-  ( ( _i  e.  CC  /\  ( 2  x.  ( M  -  j )
)  e.  NN0 )  ->  ( _i ^ (
( 2  x.  ( M  -  j )
)  +  1 ) )  =  ( ( _i ^ ( 2  x.  ( M  -  j ) ) )  x.  _i ) )
3685, 366, 367sylancr 695 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i ^ ( ( 2  x.  ( M  -  j ) )  +  1 ) )  =  ( ( _i ^
( 2  x.  ( M  -  j )
) )  x.  _i ) )
36975a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  2  e.  NN0 )
370327, 305, 369expmuld 13011 . . . . . . . . . . . . . . 15  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i ^ ( 2  x.  ( M  -  j
) ) )  =  ( ( _i ^
2 ) ^ ( M  -  j )
) )
371169oveq1i 6660 . . . . . . . . . . . . . . 15  |-  ( ( _i ^ 2 ) ^ ( M  -  j ) )  =  ( -u 1 ^ ( M  -  j
) )
372370, 371syl6eq 2672 . . . . . . . . . . . . . 14  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i ^ ( 2  x.  ( M  -  j
) ) )  =  ( -u 1 ^ ( M  -  j
) ) )
373372oveq1d 6665 . . . . . . . . . . . . 13  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
_i ^ ( 2  x.  ( M  -  j ) ) )  x.  _i )  =  ( ( -u 1 ^ ( M  -  j ) )  x.  _i ) )
374364, 368, 3733eqtrd 2660 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i ^ ( N  -  ( 2  x.  j
) ) )  =  ( ( -u 1 ^ ( M  -  j ) )  x.  _i ) )
375 mulcom 10022 . . . . . . . . . . . . 13  |-  ( ( ( -u 1 ^ ( M  -  j
) )  e.  CC  /\  _i  e.  CC )  ->  ( ( -u
1 ^ ( M  -  j ) )  x.  _i )  =  ( _i  x.  ( -u 1 ^ ( M  -  j ) ) ) )
376323, 5, 375sylancl 694 . . . . . . . . . . . 12  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( ( -u 1 ^ ( M  -  j ) )  x.  _i )  =  ( _i  x.  ( -u 1 ^ ( M  -  j ) ) ) )
377374, 376eqtrd 2656 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i ^ ( N  -  ( 2  x.  j
) ) )  =  ( _i  x.  ( -u 1 ^ ( M  -  j ) ) ) )
378352, 377oveq12d 6668 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
( 1  /  ( tan `  A ) ) ^ ( N  -  ( N  -  (
2  x.  j ) ) ) )  x.  ( _i ^ ( N  -  ( 2  x.  j ) ) ) )  =  ( ( ( ( tan `  A ) ^ -u 2
) ^ j )  x.  ( _i  x.  ( -u 1 ^ ( M  -  j )
) ) ) )
379 mulcl 10020 . . . . . . . . . . . 12  |-  ( ( _i  e.  CC  /\  ( -u 1 ^ ( M  -  j )
)  e.  CC )  ->  ( _i  x.  ( -u 1 ^ ( M  -  j )
) )  e.  CC )
3805, 323, 379sylancr 695 . . . . . . . . . . 11  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i  x.  ( -u 1 ^ ( M  -  j
) ) )  e.  CC )
381380, 324mulcomd 10061 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
_i  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) )  =  ( ( ( ( tan `  A
) ^ -u 2
) ^ j )  x.  ( _i  x.  ( -u 1 ^ ( M  -  j )
) ) ) )
382327, 323, 324mulassd 10063 . . . . . . . . . 10  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( (
_i  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) )  =  ( _i  x.  ( ( -u 1 ^ ( M  -  j ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) ) )
383378, 381, 3823eqtr2rd 2663 . . . . . . . . 9  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( _i  x.  ( ( -u 1 ^ ( M  -  j ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) )  =  ( ( ( 1  / 
( tan `  A
) ) ^ ( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  ( _i
^ ( N  -  ( 2  x.  j
) ) ) ) )
384332, 383oveq12d 6668 . . . . . . . 8  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( ( N  _C  ( 2  x.  j ) )  x.  ( _i  x.  (
( -u 1 ^ ( M  -  j )
)  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) ) ) )  =  ( ( N  _C  ( N  -  (
2  x.  j ) ) )  x.  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  ( _i
^ ( N  -  ( 2  x.  j
) ) ) ) ) )
385321, 330, 3843eqtrd 2660 . . . . . . 7  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( 0  +  ( _i  x.  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) ) )  =  ( ( N  _C  ( N  -  (
2  x.  j ) ) )  x.  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  ( _i
^ ( N  -  ( 2  x.  j
) ) ) ) ) )
386385fveq2d 6195 . . . . . 6  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( Im `  ( 0  +  ( _i  x.  ( ( ( N  _C  (
2  x.  j ) )  x.  ( -u
1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) ) ) ) )  =  ( Im `  ( ( N  _C  ( N  -  (
2  x.  j ) ) )  x.  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  ( _i
^ ( N  -  ( 2  x.  j
) ) ) ) ) ) )
387 0re 10040 . . . . . . 7  |-  0  e.  RR
388 crim 13855 . . . . . . 7  |-  ( ( 0  e.  RR  /\  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) )  e.  RR )  ->  ( Im `  ( 0  +  ( _i  x.  ( ( ( N  _C  (
2  x.  j ) )  x.  ( -u
1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) ) ) ) )  =  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) ) )
389387, 317, 388sylancr 695 . . . . . 6  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( Im `  ( 0  +  ( _i  x.  ( ( ( N  _C  (
2  x.  j ) )  x.  ( -u
1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) ) ) ) )  =  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) ) )
390386, 389eqtr3d 2658 . . . . 5  |-  ( ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  /\  j  e.  ( 0 ... M ) )  ->  ( Im `  ( ( N  _C  ( N  -  (
2  x.  j ) ) )  x.  (
( ( 1  / 
( tan `  A
) ) ^ ( N  -  ( N  -  ( 2  x.  j ) ) ) )  x.  ( _i
^ ( N  -  ( 2  x.  j
) ) ) ) ) )  =  ( ( ( N  _C  ( 2  x.  j
) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) ) )
391390sumeq2dv 14433 . . . 4  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  sum_ j  e.  ( 0 ... M ) ( Im `  (
( N  _C  ( N  -  ( 2  x.  j ) ) )  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  ( N  -  (
2  x.  j ) ) ) )  x.  ( _i ^ ( N  -  ( 2  x.  j ) ) ) ) ) )  =  sum_ j  e.  ( 0 ... M ) ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) )
392159, 294, 3913eqtr3d 2664 . . 3  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  sum_ m  e.  ( 0 ... N ) ( Im `  (
( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) ) )  =  sum_ j  e.  ( 0 ... M ) ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) )
393293, 155fsumim 14541 . . 3  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( Im `  sum_ m  e.  ( 0 ... N ) ( ( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) ) )  =  sum_ m  e.  ( 0 ... N ) ( Im `  (
( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) ) ) )
394313rpcnd 11874 . . . 4  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( tan `  A ) ^ -u 2
)  e.  CC )
395 oveq1 6657 . . . . . . 7  |-  ( t  =  ( ( tan `  A ) ^ -u 2
)  ->  ( t ^ j )  =  ( ( ( tan `  A ) ^ -u 2
) ^ j ) )
396395oveq2d 6666 . . . . . 6  |-  ( t  =  ( ( tan `  A ) ^ -u 2
)  ->  ( (
( N  _C  (
2  x.  j ) )  x.  ( -u
1 ^ ( M  -  j ) ) )  x.  ( t ^ j ) )  =  ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) ) )
397396sumeq2sdv 14435 . . . . 5  |-  ( t  =  ( ( tan `  A ) ^ -u 2
)  ->  sum_ j  e.  ( 0 ... M
) ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( t ^
j ) )  = 
sum_ j  e.  ( 0 ... M ) ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j
) ) )  x.  ( ( ( tan `  A ) ^ -u 2
) ^ j ) ) )
398 basel.p . . . . 5  |-  P  =  ( t  e.  CC  |->  sum_ j  e.  ( 0 ... M ) ( ( ( N  _C  ( 2  x.  j
) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( t ^ j ) ) )
399 sumex 14418 . . . . 5  |-  sum_ j  e.  ( 0 ... M
) ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) )  e.  _V
400397, 398, 399fvmpt 6282 . . . 4  |-  ( ( ( tan `  A
) ^ -u 2
)  e.  CC  ->  ( P `  ( ( tan `  A ) ^ -u 2 ) )  =  sum_ j  e.  ( 0 ... M
) ( ( ( N  _C  ( 2  x.  j ) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A ) ^ -u 2 ) ^ j ) ) )
401394, 400syl 17 . . 3  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( P `  ( ( tan `  A
) ^ -u 2
) )  =  sum_ j  e.  ( 0 ... M ) ( ( ( N  _C  ( 2  x.  j
) )  x.  ( -u 1 ^ ( M  -  j ) ) )  x.  ( ( ( tan `  A
) ^ -u 2
) ^ j ) ) )
402392, 393, 4013eqtr4d 2666 . 2  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( Im `  sum_ m  e.  ( 0 ... N ) ( ( N  _C  m
)  x.  ( ( ( 1  /  ( tan `  A ) ) ^ ( N  -  m ) )  x.  ( _i ^ m
) ) ) )  =  ( P `  ( ( tan `  A
) ^ -u 2
) ) )
40351, 58rerpdivcld 11903 . . 3  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( cos `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) )  e.  RR )
40453, 58rerpdivcld 11903 . . 3  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( ( sin `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) )  e.  RR )
405403, 404crimd 13972 . 2  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( Im `  ( ( ( cos `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) )  +  ( _i  x.  ( ( sin `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) ) ) ) )  =  ( ( sin `  ( N  x.  A
) )  /  (
( sin `  A
) ^ N ) ) )
40666, 402, 4053eqtr3d 2664 1  |-  ( ( M  e.  NN  /\  A  e.  ( 0 (,) ( pi  / 
2 ) ) )  ->  ( P `  ( ( tan `  A
) ^ -u 2
) )  =  ( ( sin `  ( N  x.  A )
)  /  ( ( sin `  A ) ^ N ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    = wceq 1483    e. wcel 1990    =/= wne 2794    \ cdif 3571    C_ wss 3574   class class class wbr 4653    |-> cmpt 4729   ran crn 5115    Fn wfn 5883   -->wf 5884   -1-1->wf1 5885   -1-1-onto->wf1o 5887   ` cfv 5888  (class class class)co 6650   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937   _ici 9938    + caddc 9939    x. cmul 9941    < clt 10074    <_ cle 10075    - cmin 10266   -ucneg 10267    / cdiv 10684   NNcn 11020   2c2 11070   NN0cn0 11292   ZZcz 11377   ZZ>=cuz 11687   RR+crp 11832   (,)cioo 12175   ...cfz 12326   ^cexp 12860    _C cbc 13089   Imcim 13838   sum_csu 14416   sincsin 14794   cosccos 14795   tanctan 14796   picpi 14797
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014  ax-addf 10015  ax-mulf 10016
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-iin 4523  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-fi 8317  df-sup 8348  df-inf 8349  df-oi 8415  df-card 8765  df-cda 8990  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-4 11081  df-5 11082  df-6 11083  df-7 11084  df-8 11085  df-9 11086  df-n0 11293  df-z 11378  df-dec 11494  df-uz 11688  df-q 11789  df-rp 11833  df-xneg 11946  df-xadd 11947  df-xmul 11948  df-ioo 12179  df-ioc 12180  df-ico 12181  df-icc 12182  df-fz 12327  df-fzo 12466  df-fl 12593  df-seq 12802  df-exp 12861  df-fac 13061  df-bc 13090  df-hash 13118  df-shft 13807  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-limsup 14202  df-clim 14219  df-rlim 14220  df-sum 14417  df-ef 14798  df-sin 14800  df-cos 14801  df-tan 14802  df-pi 14803  df-struct 15859  df-ndx 15860  df-slot 15861  df-base 15863  df-sets 15864  df-ress 15865  df-plusg 15954  df-mulr 15955  df-starv 15956  df-sca 15957  df-vsca 15958  df-ip 15959  df-tset 15960  df-ple 15961  df-ds 15964  df-unif 15965  df-hom 15966  df-cco 15967  df-rest 16083  df-topn 16084  df-0g 16102  df-gsum 16103  df-topgen 16104  df-pt 16105  df-prds 16108  df-xrs 16162  df-qtop 16167  df-imas 16168  df-xps 16170  df-mre 16246  df-mrc 16247  df-acs 16249  df-mgm 17242  df-sgrp 17284  df-mnd 17295  df-submnd 17336  df-mulg 17541  df-cntz 17750  df-cmn 18195  df-psmet 19738  df-xmet 19739  df-met 19740  df-bl 19741  df-mopn 19742  df-fbas 19743  df-fg 19744  df-cnfld 19747  df-top 20699  df-topon 20716  df-topsp 20737  df-bases 20750  df-cld 20823  df-ntr 20824  df-cls 20825  df-nei 20902  df-lp 20940  df-perf 20941  df-cn 21031  df-cnp 21032  df-haus 21119  df-tx 21365  df-hmeo 21558  df-fil 21650  df-fm 21742  df-flim 21743  df-flf 21744  df-xms 22125  df-ms 22126  df-tms 22127  df-cncf 22681  df-limc 23630  df-dv 23631
This theorem is referenced by:  basellem4  24810
  Copyright terms: Public domain W3C validator