Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fourierdlem83 Structured version   Visualization version   Unicode version

Theorem fourierdlem83 40406
Description: The fourier partial sum for  F rewritten as an integral. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem83.f  |-  ( ph  ->  F : RR --> RR )
fourierdlem83.c  |-  C  =  ( -u pi (,) pi )
fourierdlem83.fl1  |-  ( ph  ->  ( F  |`  C )  e.  L^1 )
fourierdlem83.a  |-  A  =  ( n  e.  NN0  |->  ( S. C ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) )
fourierdlem83.b  |-  B  =  ( n  e.  NN  |->  ( S. C ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi ) )
fourierdlem83.x  |-  ( ph  ->  X  e.  RR )
fourierdlem83.s  |-  S  =  ( m  e.  NN  |->  ( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  ( 1 ... m ) ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) ) )
fourierdlem83.d  |-  D  =  ( n  e.  NN  |->  ( s  e.  RR  |->  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  n )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
fourierdlem83.n  |-  ( ph  ->  N  e.  NN )
Assertion
Ref Expression
fourierdlem83  |-  ( ph  ->  ( S `  N
)  =  S. C
( ( F `  x )  x.  (
( D `  N
) `  ( x  -  X ) ) )  _d x )
Distinct variable groups:    A, m, n    B, m    x, C, n, s    x, D, s    n, F, x   
x, N    m, N, n    N, s    x, X   
m, X, n    X, s    ph, x, n    ph, m    ph, s
Allowed substitution hints:    A( x, s)    B( x, n, s)    C( m)    D( m, n)    S( x, m, n, s)    F( m, s)

Proof of Theorem fourierdlem83
Dummy variables  k 
b  c  y  w  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem83.s . . . 4  |-  S  =  ( m  e.  NN  |->  ( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  ( 1 ... m ) ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) ) )
21a1i 11 . . 3  |-  ( ph  ->  S  =  ( m  e.  NN  |->  ( ( ( A `  0
)  /  2 )  +  sum_ n  e.  ( 1 ... m ) ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) ) ) )
3 oveq2 6658 . . . . . 6  |-  ( m  =  N  ->  (
1 ... m )  =  ( 1 ... N
) )
43sumeq1d 14431 . . . . 5  |-  ( m  =  N  ->  sum_ n  e.  ( 1 ... m
) ( ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) )  =  sum_ n  e.  ( 1 ... N ) ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )
54oveq2d 6666 . . . 4  |-  ( m  =  N  ->  (
( ( A ` 
0 )  /  2
)  +  sum_ n  e.  ( 1 ... m
) ( ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )  =  ( ( ( A `  0
)  /  2 )  +  sum_ n  e.  ( 1 ... N ) ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) ) )
65adantl 482 . . 3  |-  ( (
ph  /\  m  =  N )  ->  (
( ( A ` 
0 )  /  2
)  +  sum_ n  e.  ( 1 ... m
) ( ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )  =  ( ( ( A `  0
)  /  2 )  +  sum_ n  e.  ( 1 ... N ) ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) ) )
7 fourierdlem83.n . . 3  |-  ( ph  ->  N  e.  NN )
8 id 22 . . . . . 6  |-  ( ph  ->  ph )
9 0nn0 11307 . . . . . . 7  |-  0  e.  NN0
109a1i 11 . . . . . 6  |-  ( ph  ->  0  e.  NN0 )
119elexi 3213 . . . . . . 7  |-  0  e.  _V
12 eleq1 2689 . . . . . . . . 9  |-  ( n  =  0  ->  (
n  e.  NN0  <->  0  e.  NN0 ) )
1312anbi2d 740 . . . . . . . 8  |-  ( n  =  0  ->  (
( ph  /\  n  e.  NN0 )  <->  ( ph  /\  0  e.  NN0 )
) )
14 fveq2 6191 . . . . . . . . 9  |-  ( n  =  0  ->  ( A `  n )  =  ( A ` 
0 ) )
1514eleq1d 2686 . . . . . . . 8  |-  ( n  =  0  ->  (
( A `  n
)  e.  RR  <->  ( A `  0 )  e.  RR ) )
1613, 15imbi12d 334 . . . . . . 7  |-  ( n  =  0  ->  (
( ( ph  /\  n  e.  NN0 )  -> 
( A `  n
)  e.  RR )  <-> 
( ( ph  /\  0  e.  NN0 )  -> 
( A `  0
)  e.  RR ) ) )
17 fourierdlem83.f . . . . . . . . . 10  |-  ( ph  ->  F : RR --> RR )
18 fourierdlem83.c . . . . . . . . . 10  |-  C  =  ( -u pi (,) pi )
19 fourierdlem83.fl1 . . . . . . . . . 10  |-  ( ph  ->  ( F  |`  C )  e.  L^1 )
20 fourierdlem83.a . . . . . . . . . 10  |-  A  =  ( n  e.  NN0  |->  ( S. C ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) )
21 fourierdlem83.b . . . . . . . . . 10  |-  B  =  ( n  e.  NN  |->  ( S. C ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi ) )
2217, 18, 19, 20, 21fourierdlem22 40346 . . . . . . . . 9  |-  ( ph  ->  ( ( n  e. 
NN0  ->  ( A `  n )  e.  RR )  /\  ( n  e.  NN  ->  ( B `  n )  e.  RR ) ) )
2322simpld 475 . . . . . . . 8  |-  ( ph  ->  ( n  e.  NN0  ->  ( A `  n
)  e.  RR ) )
2423imp 445 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( A `  n )  e.  RR )
2511, 16, 24vtocl 3259 . . . . . 6  |-  ( (
ph  /\  0  e.  NN0 )  ->  ( A `  0 )  e.  RR )
268, 10, 25syl2anc 693 . . . . 5  |-  ( ph  ->  ( A `  0
)  e.  RR )
2726rehalfcld 11279 . . . 4  |-  ( ph  ->  ( ( A ` 
0 )  /  2
)  e.  RR )
28 fzfid 12772 . . . . 5  |-  ( ph  ->  ( 1 ... N
)  e.  Fin )
29 eleq1 2689 . . . . . . . . . . . . . 14  |-  ( k  =  n  ->  (
k  e.  NN0  <->  n  e.  NN0 ) )
3029anbi2d 740 . . . . . . . . . . . . 13  |-  ( k  =  n  ->  (
( ph  /\  k  e.  NN0 )  <->  ( ph  /\  n  e.  NN0 )
) )
31 simpl 473 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  =  n  /\  x  e.  C )  ->  k  =  n )
3231oveq1d 6665 . . . . . . . . . . . . . . . . 17  |-  ( ( k  =  n  /\  x  e.  C )  ->  ( k  x.  x
)  =  ( n  x.  x ) )
3332fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( ( k  =  n  /\  x  e.  C )  ->  ( cos `  (
k  x.  x ) )  =  ( cos `  ( n  x.  x
) ) )
3433oveq2d 6666 . . . . . . . . . . . . . . 15  |-  ( ( k  =  n  /\  x  e.  C )  ->  ( ( F `  x )  x.  ( cos `  ( k  x.  x ) ) )  =  ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) ) )
3534itgeq2dv 23548 . . . . . . . . . . . . . 14  |-  ( k  =  n  ->  S. C ( ( F `
 x )  x.  ( cos `  (
k  x.  x ) ) )  _d x  =  S. C ( ( F `  x
)  x.  ( cos `  ( n  x.  x
) ) )  _d x )
3635eleq1d 2686 . . . . . . . . . . . . 13  |-  ( k  =  n  ->  ( S. C ( ( F `
 x )  x.  ( cos `  (
k  x.  x ) ) )  _d x  e.  RR  <->  S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x  e.  RR ) )
3730, 36imbi12d 334 . . . . . . . . . . . 12  |-  ( k  =  n  ->  (
( ( ph  /\  k  e.  NN0 )  ->  S. C ( ( F `
 x )  x.  ( cos `  (
k  x.  x ) ) )  _d x  e.  RR )  <->  ( ( ph  /\  n  e.  NN0 )  ->  S. C ( ( F `  x
)  x.  ( cos `  ( n  x.  x
) ) )  _d x  e.  RR ) ) )
3817adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  NN0 )  ->  F : RR
--> RR )
3919adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( F  |`  C )  e.  L^1 )
40 simpr 477 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  NN0 )  ->  k  e.  NN0 )
4138, 18, 39, 20, 40fourierdlem16 40340 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( (
( A `  k
)  e.  RR  /\  ( x  e.  C  |->  ( F `  x
) )  e.  L^1 )  /\  S. C
( ( F `  x )  x.  ( cos `  ( k  x.  x ) ) )  _d x  e.  RR ) )
4241simprd 479 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  NN0 )  ->  S. C
( ( F `  x )  x.  ( cos `  ( k  x.  x ) ) )  _d x  e.  RR )
4337, 42chvarv 2263 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN0 )  ->  S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x  e.  RR )
44 pire 24210 . . . . . . . . . . . 12  |-  pi  e.  RR
4544a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN0 )  ->  pi  e.  RR )
46 0re 10040 . . . . . . . . . . . . 13  |-  0  e.  RR
47 pipos 24212 . . . . . . . . . . . . 13  |-  0  <  pi
4846, 47gtneii 10149 . . . . . . . . . . . 12  |-  pi  =/=  0
4948a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN0 )  ->  pi  =/=  0 )
5043, 45, 49redivcld 10853 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi )  e.  RR )
5150, 20fmptd 6385 . . . . . . . . 9  |-  ( ph  ->  A : NN0 --> RR )
5251adantr 481 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  A : NN0 --> RR )
53 elfznn 12370 . . . . . . . . . 10  |-  ( n  e.  ( 1 ... N )  ->  n  e.  NN )
5453nnnn0d 11351 . . . . . . . . 9  |-  ( n  e.  ( 1 ... N )  ->  n  e.  NN0 )
5554adantl 482 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  n  e.  NN0 )
5652, 55ffvelrnd 6360 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( A `  n )  e.  RR )
5755nn0red 11352 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  n  e.  RR )
58 fourierdlem83.x . . . . . . . . . 10  |-  ( ph  ->  X  e.  RR )
5958adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  X  e.  RR )
6057, 59remulcld 10070 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
n  x.  X )  e.  RR )
6160recoscld 14874 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( cos `  ( n  x.  X ) )  e.  RR )
6256, 61remulcld 10070 . . . . . 6  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  e.  RR )
63 eleq1 2689 . . . . . . . . . . . . . 14  |-  ( k  =  n  ->  (
k  e.  NN  <->  n  e.  NN ) )
6463anbi2d 740 . . . . . . . . . . . . 13  |-  ( k  =  n  ->  (
( ph  /\  k  e.  NN )  <->  ( ph  /\  n  e.  NN ) ) )
65 oveq1 6657 . . . . . . . . . . . . . . . . . 18  |-  ( k  =  n  ->  (
k  x.  x )  =  ( n  x.  x ) )
6665fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( k  =  n  ->  ( sin `  ( k  x.  x ) )  =  ( sin `  (
n  x.  x ) ) )
6766oveq2d 6666 . . . . . . . . . . . . . . . 16  |-  ( k  =  n  ->  (
( F `  x
)  x.  ( sin `  ( k  x.  x
) ) )  =  ( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) ) )
6867adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( k  =  n  /\  x  e.  C )  ->  ( ( F `  x )  x.  ( sin `  ( k  x.  x ) ) )  =  ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) ) )
6968itgeq2dv 23548 . . . . . . . . . . . . . 14  |-  ( k  =  n  ->  S. C ( ( F `
 x )  x.  ( sin `  (
k  x.  x ) ) )  _d x  =  S. C ( ( F `  x
)  x.  ( sin `  ( n  x.  x
) ) )  _d x )
7069eleq1d 2686 . . . . . . . . . . . . 13  |-  ( k  =  n  ->  ( S. C ( ( F `
 x )  x.  ( sin `  (
k  x.  x ) ) )  _d x  e.  RR  <->  S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x  e.  RR ) )
7164, 70imbi12d 334 . . . . . . . . . . . 12  |-  ( k  =  n  ->  (
( ( ph  /\  k  e.  NN )  ->  S. C ( ( F `  x )  x.  ( sin `  (
k  x.  x ) ) )  _d x  e.  RR )  <->  ( ( ph  /\  n  e.  NN )  ->  S. C ( ( F `  x
)  x.  ( sin `  ( n  x.  x
) ) )  _d x  e.  RR ) ) )
7217adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  NN )  ->  F : RR
--> RR )
7319adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  NN )  ->  ( F  |`  C )  e.  L^1 )
74 simpr 477 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  NN )  ->  k  e.  NN )
7572, 18, 73, 21, 74fourierdlem21 40345 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( ( B `  k
)  e.  RR  /\  ( x  e.  C  |->  ( ( F `  x )  x.  ( sin `  ( k  x.  x ) ) ) )  e.  L^1 )  /\  S. C
( ( F `  x )  x.  ( sin `  ( k  x.  x ) ) )  _d x  e.  RR ) )
7675simprd 479 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  NN )  ->  S. C
( ( F `  x )  x.  ( sin `  ( k  x.  x ) ) )  _d x  e.  RR )
7771, 76chvarv 2263 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x  e.  RR )
7844a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  pi  e.  RR )
7948a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  pi  =/=  0 )
8077, 78, 79redivcld 10853 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  ( S. C ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi )  e.  RR )
8180, 21fmptd 6385 . . . . . . . . 9  |-  ( ph  ->  B : NN --> RR )
8281adantr 481 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  B : NN --> RR )
8353adantl 482 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  n  e.  NN )
8482, 83ffvelrnd 6360 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( B `  n )  e.  RR )
8560resincld 14873 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( sin `  ( n  x.  X ) )  e.  RR )
8684, 85remulcld 10070 . . . . . 6  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( B `  n
)  x.  ( sin `  ( n  x.  X
) ) )  e.  RR )
8762, 86readdcld 10069 . . . . 5  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  e.  RR )
8828, 87fsumrecl 14465 . . . 4  |-  ( ph  -> 
sum_ n  e.  (
1 ... N ) ( ( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  e.  RR )
8927, 88readdcld 10069 . . 3  |-  ( ph  ->  ( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  ( 1 ... N ) ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) )  e.  RR )
902, 6, 7, 89fvmptd 6288 . 2  |-  ( ph  ->  ( S `  N
)  =  ( ( ( A `  0
)  /  2 )  +  sum_ n  e.  ( 1 ... N ) ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) ) )
9120a1i 11 . . . . . . 7  |-  ( ph  ->  A  =  ( n  e.  NN0  |->  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) ) )
92 oveq1 6657 . . . . . . . . . . . . 13  |-  ( n  =  0  ->  (
n  x.  x )  =  ( 0  x.  x ) )
9392fveq2d 6195 . . . . . . . . . . . 12  |-  ( n  =  0  ->  ( cos `  ( n  x.  x ) )  =  ( cos `  (
0  x.  x ) ) )
9493oveq2d 6666 . . . . . . . . . . 11  |-  ( n  =  0  ->  (
( F `  x
)  x.  ( cos `  ( n  x.  x
) ) )  =  ( ( F `  x )  x.  ( cos `  ( 0  x.  x ) ) ) )
9594adantr 481 . . . . . . . . . 10  |-  ( ( n  =  0  /\  x  e.  C )  ->  ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  =  ( ( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) ) )
9695itgeq2dv 23548 . . . . . . . . 9  |-  ( n  =  0  ->  S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  =  S. C ( ( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  _d x )
9796adantl 482 . . . . . . . 8  |-  ( (
ph  /\  n  = 
0 )  ->  S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  =  S. C ( ( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  _d x )
9897oveq1d 6665 . . . . . . 7  |-  ( (
ph  /\  n  = 
0 )  ->  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi )  =  ( S. C ( ( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  _d x  /  pi ) )
9917, 18, 19, 20, 10fourierdlem16 40340 . . . . . . . . 9  |-  ( ph  ->  ( ( ( A `
 0 )  e.  RR  /\  ( x  e.  C  |->  ( F `
 x ) )  e.  L^1 )  /\  S. C ( ( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  _d x  e.  RR ) )
10099simprd 479 . . . . . . . 8  |-  ( ph  ->  S. C ( ( F `  x )  x.  ( cos `  (
0  x.  x ) ) )  _d x  e.  RR )
10144a1i 11 . . . . . . . 8  |-  ( ph  ->  pi  e.  RR )
10248a1i 11 . . . . . . . 8  |-  ( ph  ->  pi  =/=  0 )
103100, 101, 102redivcld 10853 . . . . . . 7  |-  ( ph  ->  ( S. C ( ( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  _d x  /  pi )  e.  RR )
10491, 98, 10, 103fvmptd 6288 . . . . . 6  |-  ( ph  ->  ( A `  0
)  =  ( S. C ( ( F `
 x )  x.  ( cos `  (
0  x.  x ) ) )  _d x  /  pi ) )
105 ioosscn 39716 . . . . . . . . . . . . . . 15  |-  ( -u pi (,) pi )  C_  CC
106 id 22 . . . . . . . . . . . . . . . 16  |-  ( x  e.  C  ->  x  e.  C )
107106, 18syl6eleq 2711 . . . . . . . . . . . . . . 15  |-  ( x  e.  C  ->  x  e.  ( -u pi (,) pi ) )
108105, 107sseldi 3601 . . . . . . . . . . . . . 14  |-  ( x  e.  C  ->  x  e.  CC )
109108mul02d 10234 . . . . . . . . . . . . 13  |-  ( x  e.  C  ->  (
0  x.  x )  =  0 )
110109fveq2d 6195 . . . . . . . . . . . 12  |-  ( x  e.  C  ->  ( cos `  ( 0  x.  x ) )  =  ( cos `  0
) )
111 cos0 14880 . . . . . . . . . . . 12  |-  ( cos `  0 )  =  1
112110, 111syl6eq 2672 . . . . . . . . . . 11  |-  ( x  e.  C  ->  ( cos `  ( 0  x.  x ) )  =  1 )
113112oveq2d 6666 . . . . . . . . . 10  |-  ( x  e.  C  ->  (
( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  =  ( ( F `  x )  x.  1 ) )
114113adantl 482 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  =  ( ( F `  x )  x.  1 ) )
11517adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  C )  ->  F : RR --> RR )
116 ioossre 12235 . . . . . . . . . . . . . 14  |-  ( -u pi (,) pi )  C_  RR
117116, 107sseldi 3601 . . . . . . . . . . . . 13  |-  ( x  e.  C  ->  x  e.  RR )
118117adantl 482 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  C )  ->  x  e.  RR )
119115, 118ffvelrnd 6360 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  C )  ->  ( F `  x )  e.  RR )
120119recnd 10068 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  C )  ->  ( F `  x )  e.  CC )
121120mulid1d 10057 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  1 )  =  ( F `  x ) )
122114, 121eqtrd 2656 . . . . . . . 8  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  =  ( F `  x
) )
123122itgeq2dv 23548 . . . . . . 7  |-  ( ph  ->  S. C ( ( F `  x )  x.  ( cos `  (
0  x.  x ) ) )  _d x  =  S. C ( F `  x )  _d x )
124123oveq1d 6665 . . . . . 6  |-  ( ph  ->  ( S. C ( ( F `  x
)  x.  ( cos `  ( 0  x.  x
) ) )  _d x  /  pi )  =  ( S. C
( F `  x
)  _d x  /  pi ) )
125104, 124eqtrd 2656 . . . . 5  |-  ( ph  ->  ( A `  0
)  =  ( S. C ( F `  x )  _d x  /  pi ) )
126125oveq1d 6665 . . . 4  |-  ( ph  ->  ( ( A ` 
0 )  /  2
)  =  ( ( S. C ( F `
 x )  _d x  /  pi )  /  2 ) )
12717feqmptd 6249 . . . . . . . . 9  |-  ( ph  ->  F  =  ( x  e.  RR  |->  ( F `
 x ) ) )
128127reseq1d 5395 . . . . . . . 8  |-  ( ph  ->  ( F  |`  C )  =  ( ( x  e.  RR  |->  ( F `
 x ) )  |`  C ) )
12944a1i 11 . . . . . . . . . . . 12  |-  ( x  e.  C  ->  pi  e.  RR )
130129renegcld 10457 . . . . . . . . . . 11  |-  ( x  e.  C  ->  -u pi  e.  RR )
131 ioossicc 12259 . . . . . . . . . . . . 13  |-  ( -u pi (,) pi )  C_  ( -u pi [,] pi )
13218, 131eqsstri 3635 . . . . . . . . . . . 12  |-  C  C_  ( -u pi [,] pi )
133132sseli 3599 . . . . . . . . . . 11  |-  ( x  e.  C  ->  x  e.  ( -u pi [,] pi ) )
134 eliccre 39728 . . . . . . . . . . 11  |-  ( (
-u pi  e.  RR  /\  pi  e.  RR  /\  x  e.  ( -u pi [,] pi ) )  ->  x  e.  RR )
135130, 129, 133, 134syl3anc 1326 . . . . . . . . . 10  |-  ( x  e.  C  ->  x  e.  RR )
136135ssriv 3607 . . . . . . . . 9  |-  C  C_  RR
137 resmpt 5449 . . . . . . . . 9  |-  ( C 
C_  RR  ->  ( ( x  e.  RR  |->  ( F `  x ) )  |`  C )  =  ( x  e.  C  |->  ( F `  x ) ) )
138136, 137mp1i 13 . . . . . . . 8  |-  ( ph  ->  ( ( x  e.  RR  |->  ( F `  x ) )  |`  C )  =  ( x  e.  C  |->  ( F `  x ) ) )
139128, 138eqtr2d 2657 . . . . . . 7  |-  ( ph  ->  ( x  e.  C  |->  ( F `  x
) )  =  ( F  |`  C )
)
140139, 19eqeltrd 2701 . . . . . 6  |-  ( ph  ->  ( x  e.  C  |->  ( F `  x
) )  e.  L^1 )
141119, 140itgcl 23550 . . . . 5  |-  ( ph  ->  S. C ( F `
 x )  _d x  e.  CC )
142101recnd 10068 . . . . 5  |-  ( ph  ->  pi  e.  CC )
143 2cnd 11093 . . . . 5  |-  ( ph  ->  2  e.  CC )
144 2ne0 11113 . . . . . 6  |-  2  =/=  0
145144a1i 11 . . . . 5  |-  ( ph  ->  2  =/=  0 )
146141, 142, 143, 102, 145divdiv32d 10826 . . . 4  |-  ( ph  ->  ( ( S. C
( F `  x
)  _d x  /  pi )  /  2
)  =  ( ( S. C ( F `
 x )  _d x  /  2 )  /  pi ) )
147141, 143, 145divrecd 10804 . . . . . 6  |-  ( ph  ->  ( S. C ( F `  x )  _d x  /  2
)  =  ( S. C ( F `  x )  _d x  x.  ( 1  / 
2 ) ) )
148143, 145reccld 10794 . . . . . . 7  |-  ( ph  ->  ( 1  /  2
)  e.  CC )
149141, 148mulcomd 10061 . . . . . 6  |-  ( ph  ->  ( S. C ( F `  x )  _d x  x.  (
1  /  2 ) )  =  ( ( 1  /  2 )  x.  S. C ( F `  x )  _d x ) )
150148, 119, 140itgmulc2 23600 . . . . . 6  |-  ( ph  ->  ( ( 1  / 
2 )  x.  S. C ( F `  x )  _d x )  =  S. C
( ( 1  / 
2 )  x.  ( F `  x )
)  _d x )
151147, 149, 1503eqtrd 2660 . . . . 5  |-  ( ph  ->  ( S. C ( F `  x )  _d x  /  2
)  =  S. C
( ( 1  / 
2 )  x.  ( F `  x )
)  _d x )
152151oveq1d 6665 . . . 4  |-  ( ph  ->  ( ( S. C
( F `  x
)  _d x  / 
2 )  /  pi )  =  ( S. C ( ( 1  /  2 )  x.  ( F `  x
) )  _d x  /  pi ) )
153126, 146, 1523eqtrd 2660 . . 3  |-  ( ph  ->  ( ( A ` 
0 )  /  2
)  =  ( S. C ( ( 1  /  2 )  x.  ( F `  x
) )  _d x  /  pi ) )
15455, 50syldan 487 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi )  e.  RR )
15520fvmpt2 6291 . . . . . . . . . 10  |-  ( ( n  e.  NN0  /\  ( S. C ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi )  e.  RR )  ->  ( A `  n )  =  ( S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x  /  pi ) )
15655, 154, 155syl2anc 693 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( A `  n )  =  ( S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x  /  pi ) )
157156oveq1d 6665 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  =  ( ( S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x  /  pi )  x.  ( cos `  ( n  x.  X
) ) ) )
158154recnd 10068 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi )  e.  CC )
15961recnd 10068 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( cos `  ( n  x.  X ) )  e.  CC )
160158, 159mulcomd 10061 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( S. C ( ( F `  x
)  x.  ( cos `  ( n  x.  x
) ) )  _d x  /  pi )  x.  ( cos `  (
n  x.  X ) ) )  =  ( ( cos `  (
n  x.  X ) )  x.  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) ) )
16155, 43syldan 487 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  e.  RR )
162161recnd 10068 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  e.  CC )
163142adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  pi  e.  CC )
16448a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  pi  =/=  0 )
165159, 162, 163, 164divassd 10836 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( ( cos `  (
n  x.  X ) )  x.  S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x )  /  pi )  =  (
( cos `  (
n  x.  X ) )  x.  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) ) )
16617ad2antrr 762 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  F : RR --> RR )
167117adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  x  e.  RR )
168166, 167ffvelrnd 6360 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  ( F `  x )  e.  RR )
169 nn0re 11301 . . . . . . . . . . . . . . . . 17  |-  ( n  e.  NN0  ->  n  e.  RR )
170169ad2antlr 763 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  n  e.  RR )
171170, 167remulcld 10070 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  (
n  x.  x )  e.  RR )
172171recoscld 14874 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  ( cos `  ( n  x.  x ) )  e.  RR )
173168, 172remulcld 10070 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( cos `  ( n  x.  x
) ) )  e.  RR )
17454, 173sylanl2 683 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( cos `  ( n  x.  x
) ) )  e.  RR )
175 ioombl 23333 . . . . . . . . . . . . . . . . . . 19  |-  ( -u pi (,) pi )  e. 
dom  vol
17618, 175eqeltri 2697 . . . . . . . . . . . . . . . . . 18  |-  C  e. 
dom  vol
177176elexi 3213 . . . . . . . . . . . . . . . . 17  |-  C  e. 
_V
178177a1i 11 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  NN0 )  ->  C  e.  _V )
179 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) )  =  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) )
180 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( F `
 x ) )  =  ( x  e.  C  |->  ( F `  x ) ) )
181178, 172, 168, 179, 180offval2 6914 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( (
x  e.  C  |->  ( cos `  ( n  x.  x ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x
) ) )  =  ( x  e.  C  |->  ( ( cos `  (
n  x.  x ) )  x.  ( F `
 x ) ) ) )
182172recnd 10068 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  ( cos `  ( n  x.  x ) )  e.  CC )
183120adantlr 751 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  ( F `  x )  e.  CC )
184182, 183mulcomd 10061 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  NN0 )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  x ) )  x.  ( F `
 x ) )  =  ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) ) )
185184mpteq2dva 4744 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( ( cos `  ( n  x.  x ) )  x.  ( F `  x ) ) )  =  ( x  e.  C  |->  ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) ) ) )
186181, 185eqtr2d 2657 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) ) )  =  ( ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x ) ) ) )
187 coscn 24199 . . . . . . . . . . . . . . . . . 18  |-  cos  e.  ( CC -cn-> CC )
188187a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  NN0 )  ->  cos  e.  ( CC -cn-> CC ) )
189 ax-resscn 9993 . . . . . . . . . . . . . . . . . . . . 21  |-  RR  C_  CC
190136, 189sstri 3612 . . . . . . . . . . . . . . . . . . . 20  |-  C  C_  CC
191190a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  NN0 )  ->  C  C_  CC )
192169recnd 10068 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  NN0  ->  n  e.  CC )
193192adantl 482 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  NN0 )  ->  n  e.  CC )
194 ssid 3624 . . . . . . . . . . . . . . . . . . . 20  |-  CC  C_  CC
195194a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  n  e.  NN0 )  ->  CC  C_  CC )
196191, 193, 195constcncfg 40084 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  n )  e.  ( C -cn-> CC ) )
197191, 195idcncfg 40085 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  x )  e.  ( C -cn-> CC ) )
198196, 197mulcncf 23215 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( n  x.  x ) )  e.  ( C -cn-> CC ) )
199188, 198cncfmpt1f 22716 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) )  e.  ( C -cn-> CC ) )
200 cnmbf 23426 . . . . . . . . . . . . . . . 16  |-  ( ( C  e.  dom  vol  /\  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) )  e.  ( C -cn-> CC ) )  -> 
( x  e.  C  |->  ( cos `  (
n  x.  x ) ) )  e. MblFn )
201176, 199, 200sylancr 695 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) )  e. MblFn
)
202140adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( F `
 x ) )  e.  L^1 )
203 1re 10039 . . . . . . . . . . . . . . . . 17  |-  1  e.  RR
204 simpr 477 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  NN0  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) ) )  ->  y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) )
205169adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  e.  NN0  /\  x  e.  C )  ->  n  e.  RR )
206117adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  e.  NN0  /\  x  e.  C )  ->  x  e.  RR )
207205, 206remulcld 10070 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  e.  NN0  /\  x  e.  C )  ->  ( n  x.  x
)  e.  RR )
208207recoscld 14874 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( n  e.  NN0  /\  x  e.  C )  ->  ( cos `  (
n  x.  x ) )  e.  RR )
209208ralrimiva 2966 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  e.  NN0  ->  A. x  e.  C  ( cos `  ( n  x.  x
) )  e.  RR )
210209adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( n  e.  NN0  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) ) )  ->  A. x  e.  C  ( cos `  ( n  x.  x ) )  e.  RR )
211 dmmptg 5632 . . . . . . . . . . . . . . . . . . . . 21  |-  ( A. x  e.  C  ( cos `  ( n  x.  x ) )  e.  RR  ->  dom  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) )  =  C )
212210, 211syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  NN0  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) ) )  ->  dom  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) )  =  C )
213204, 212eleqtrd 2703 . . . . . . . . . . . . . . . . . . 19  |-  ( ( n  e.  NN0  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) ) )  ->  y  e.  C
)
214 eqidd 2623 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) )  =  ( x  e.  C  |->  ( cos `  ( n  x.  x ) ) ) )
215 oveq2 6658 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( x  =  y  ->  (
n  x.  x )  =  ( n  x.  y ) )
216215fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( x  =  y  ->  ( cos `  ( n  x.  x ) )  =  ( cos `  (
n  x.  y ) ) )
217216adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( n  e.  NN0  /\  y  e.  C )  /\  x  =  y )  ->  ( cos `  ( n  x.  x
) )  =  ( cos `  ( n  x.  y ) ) )
218 simpr 477 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  y  e.  C )
219169adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  n  e.  RR )
220136, 218sseldi 3601 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  y  e.  RR )
221219, 220remulcld 10070 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  ( n  x.  y
)  e.  RR )
222221recoscld 14874 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  ( cos `  (
n  x.  y ) )  e.  RR )
223214, 217, 218, 222fvmptd 6288 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  ( ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
)  =  ( cos `  ( n  x.  y
) ) )
224223fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  =  ( abs `  ( cos `  ( n  x.  y
) ) ) )
225 abscosbd 39490 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( n  x.  y )  e.  RR  ->  ( abs `  ( cos `  (
n  x.  y ) ) )  <_  1
)
226221, 225syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  ( abs `  ( cos `  ( n  x.  y ) ) )  <_  1 )
227224, 226eqbrtrd 4675 . . . . . . . . . . . . . . . . . . 19  |-  ( ( n  e.  NN0  /\  y  e.  C )  ->  ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  1
)
228213, 227syldan 487 . . . . . . . . . . . . . . . . . 18  |-  ( ( n  e.  NN0  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  ( n  x.  x
) ) ) )  ->  ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  1
)
229228ralrimiva 2966 . . . . . . . . . . . . . . . . 17  |-  ( n  e.  NN0  ->  A. y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  1
)
230 breq2 4657 . . . . . . . . . . . . . . . . . . 19  |-  ( b  =  1  ->  (
( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  b  <->  ( abs `  ( ( x  e.  C  |->  ( cos `  ( n  x.  x ) ) ) `  y ) )  <_  1 ) )
231230ralbidv 2986 . . . . . . . . . . . . . . . . . 18  |-  ( b  =  1  ->  ( A. y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  b  <->  A. y  e.  dom  (
x  e.  C  |->  ( cos `  ( n  x.  x ) ) ) ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  1
) )
232231rspcev 3309 . . . . . . . . . . . . . . . . 17  |-  ( ( 1  e.  RR  /\  A. y  e.  dom  (
x  e.  C  |->  ( cos `  ( n  x.  x ) ) ) ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  1
)  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  b
)
233203, 229, 232sylancr 695 . . . . . . . . . . . . . . . 16  |-  ( n  e.  NN0  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  b
)
234233adantl 482 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN0 )  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  b
)
235 bddmulibl 23605 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  C  |->  ( cos `  (
n  x.  x ) ) )  e. MblFn  /\  (
x  e.  C  |->  ( F `  x ) )  e.  L^1 
/\  E. b  e.  RR  A. y  e.  dom  (
x  e.  C  |->  ( cos `  ( n  x.  x ) ) ) ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  x ) ) ) `  y
) )  <_  b
)  ->  ( (
x  e.  C  |->  ( cos `  ( n  x.  x ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x
) ) )  e.  L^1 )
236201, 202, 234, 235syl3anc 1326 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( (
x  e.  C  |->  ( cos `  ( n  x.  x ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x
) ) )  e.  L^1 )
237186, 236eqeltrd 2701 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( x  e.  C  |->  ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) ) )  e.  L^1 )
23855, 237syldan 487 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( F `  x
)  x.  ( cos `  ( n  x.  x
) ) ) )  e.  L^1 )
239159, 174, 238itgmulc2 23600 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( cos `  (
n  x.  X ) )  x.  S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x )  =  S. C ( ( cos `  ( n  x.  X ) )  x.  ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) ) )  _d x )
240159adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( n  x.  X ) )  e.  CC )
241120adantlr 751 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( F `  x )  e.  CC )
24254, 182sylanl2 683 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( n  x.  x ) )  e.  CC )
243240, 241, 242mul12d 10245 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  X ) )  x.  ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) ) )  =  ( ( F `  x )  x.  (
( cos `  (
n  x.  X ) )  x.  ( cos `  ( n  x.  x
) ) ) ) )
244240, 242mulcomd 10061 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  X ) )  x.  ( cos `  ( n  x.  x
) ) )  =  ( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )
245244oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( cos `  ( n  x.  X ) )  x.  ( cos `  (
n  x.  x ) ) ) )  =  ( ( F `  x )  x.  (
( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) ) )
246243, 245eqtrd 2656 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  X ) )  x.  ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) ) )  =  ( ( F `  x )  x.  (
( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) ) )
247246itgeq2dv 23548 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( cos `  ( n  x.  X
) )  x.  (
( F `  x
)  x.  ( cos `  ( n  x.  x
) ) ) )  _d x  =  S. C ( ( F `
 x )  x.  ( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  _d x )
248239, 247eqtrd 2656 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( cos `  (
n  x.  X ) )  x.  S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x )  =  S. C ( ( F `  x )  x.  ( ( cos `  ( n  x.  x
) )  x.  ( cos `  ( n  x.  X ) ) ) )  _d x )
249248oveq1d 6665 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( ( cos `  (
n  x.  X ) )  x.  S. C
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  _d x )  /  pi )  =  ( S. C ( ( F `
 x )  x.  ( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  _d x  /  pi ) )
250165, 249eqtr3d 2658 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( cos `  (
n  x.  X ) )  x.  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) )  =  ( S. C
( ( F `  x )  x.  (
( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  _d x  /  pi ) )
251157, 160, 2503eqtrd 2660 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  =  ( S. C ( ( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) )  _d x  /  pi ) )
25283, 80syldan 487 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( S. C ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi )  e.  RR )
25321fvmpt2 6291 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  ( S. C ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi )  e.  RR )  ->  ( B `  n )  =  ( S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x  /  pi ) )
25483, 252, 253syl2anc 693 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( B `  n )  =  ( S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x  /  pi ) )
255254oveq1d 6665 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( B `  n
)  x.  ( sin `  ( n  x.  X
) ) )  =  ( ( S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x  /  pi )  x.  ( sin `  ( n  x.  X
) ) ) )
256252recnd 10068 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( S. C ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi )  e.  CC )
25785recnd 10068 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( sin `  ( n  x.  X ) )  e.  CC )
258256, 257mulcomd 10061 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( S. C ( ( F `  x
)  x.  ( sin `  ( n  x.  x
) ) )  _d x  /  pi )  x.  ( sin `  (
n  x.  X ) ) )  =  ( ( sin `  (
n  x.  X ) )  x.  ( S. C ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi ) ) )
25983, 77syldan 487 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  e.  RR )
260259recnd 10068 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  e.  CC )
261257, 260, 163, 164divassd 10836 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( ( sin `  (
n  x.  X ) )  x.  S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x )  /  pi )  =  (
( sin `  (
n  x.  X ) )  x.  ( S. C ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi ) ) )
262119adantlr 751 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  NN )  /\  x  e.  C )  ->  ( F `  x )  e.  RR )
263 nnre 11027 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  NN  ->  n  e.  RR )
264263adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( n  e.  NN  /\  x  e.  C )  ->  n  e.  RR )
265117adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( n  e.  NN  /\  x  e.  C )  ->  x  e.  RR )
266264, 265remulcld 10070 . . . . . . . . . . . . . . . 16  |-  ( ( n  e.  NN  /\  x  e.  C )  ->  ( n  x.  x
)  e.  RR )
267266resincld 14873 . . . . . . . . . . . . . . 15  |-  ( ( n  e.  NN  /\  x  e.  C )  ->  ( sin `  (
n  x.  x ) )  e.  RR )
268267adantll 750 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  NN )  /\  x  e.  C )  ->  ( sin `  ( n  x.  x ) )  e.  RR )
269262, 268remulcld 10070 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  NN )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( sin `  ( n  x.  x
) ) )  e.  RR )
27053, 269sylanl2 683 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( sin `  ( n  x.  x
) ) )  e.  RR )
271177a1i 11 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  NN )  ->  C  e. 
_V )
272 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) )  =  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) )
273 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( F `
 x ) )  =  ( x  e.  C  |->  ( F `  x ) ) )
274271, 268, 262, 272, 273offval2 6914 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( x  e.  C  |->  ( sin `  ( n  x.  x ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x
) ) )  =  ( x  e.  C  |->  ( ( sin `  (
n  x.  x ) )  x.  ( F `
 x ) ) ) )
275268recnd 10068 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  n  e.  NN )  /\  x  e.  C )  ->  ( sin `  ( n  x.  x ) )  e.  CC )
276120adantlr 751 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  n  e.  NN )  /\  x  e.  C )  ->  ( F `  x )  e.  CC )
277275, 276mulcomd 10061 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  NN )  /\  x  e.  C )  ->  (
( sin `  (
n  x.  x ) )  x.  ( F `
 x ) )  =  ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) ) )
278277mpteq2dva 4744 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( ( sin `  ( n  x.  x ) )  x.  ( F `  x ) ) )  =  ( x  e.  C  |->  ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) ) ) )
279274, 278eqtr2d 2657 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) ) )  =  ( ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x ) ) ) )
280 sincn 24198 . . . . . . . . . . . . . . . . . 18  |-  sin  e.  ( CC -cn-> CC )
281280a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  NN )  ->  sin  e.  ( CC -cn-> CC ) )
282190a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  NN  ->  C  C_  CC )
283263recnd 10068 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  NN  ->  n  e.  CC )
284194a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  NN  ->  CC  C_  CC )
285282, 283, 284constcncfg 40084 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  NN  ->  (
x  e.  C  |->  n )  e.  ( C
-cn-> CC ) )
286282, 284idcncfg 40085 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  NN  ->  (
x  e.  C  |->  x )  e.  ( C
-cn-> CC ) )
287285, 286mulcncf 23215 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  NN  ->  (
x  e.  C  |->  ( n  x.  x ) )  e.  ( C
-cn-> CC ) )
288287adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( n  x.  x ) )  e.  ( C -cn-> CC ) )
289281, 288cncfmpt1f 22716 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) )  e.  ( C -cn-> CC ) )
290 cnmbf 23426 . . . . . . . . . . . . . . . 16  |-  ( ( C  e.  dom  vol  /\  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) )  e.  ( C -cn-> CC ) )  -> 
( x  e.  C  |->  ( sin `  (
n  x.  x ) ) )  e. MblFn )
291176, 289, 290sylancr 695 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) )  e. MblFn
)
292140adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( F `
 x ) )  e.  L^1 )
293 simpr 477 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  NN  /\  y  e.  dom  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) ) )  ->  y  e.  dom  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) )
294267ralrimiva 2966 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  e.  NN  ->  A. x  e.  C  ( sin `  ( n  x.  x
) )  e.  RR )
295 dmmptg 5632 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( A. x  e.  C  ( sin `  ( n  x.  x ) )  e.  RR  ->  dom  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) )  =  C )
296294, 295syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  e.  NN  ->  dom  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) )  =  C )
297296adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  NN  /\  y  e.  dom  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) ) )  ->  dom  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) )  =  C )
298293, 297eleqtrd 2703 . . . . . . . . . . . . . . . . . . 19  |-  ( ( n  e.  NN  /\  y  e.  dom  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) ) )  ->  y  e.  C
)
299 eqidd 2623 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) )  =  ( x  e.  C  |->  ( sin `  ( n  x.  x ) ) ) )
300215fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( x  =  y  ->  ( sin `  ( n  x.  x ) )  =  ( sin `  (
n  x.  y ) ) )
301300adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( n  e.  NN  /\  y  e.  C )  /\  x  =  y )  ->  ( sin `  ( n  x.  x
) )  =  ( sin `  ( n  x.  y ) ) )
302 simpr 477 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  y  e.  C )
303263adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  n  e.  RR )
304136, 302sseldi 3601 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  y  e.  RR )
305303, 304remulcld 10070 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  ( n  x.  y
)  e.  RR )
306305resincld 14873 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  ( sin `  (
n  x.  y ) )  e.  RR )
307299, 301, 302, 306fvmptd 6288 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  ( ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
)  =  ( sin `  ( n  x.  y
) ) )
308307fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  ( abs `  (
( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  =  ( abs `  ( sin `  ( n  x.  y
) ) ) )
309 abssinbd 39509 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( n  x.  y )  e.  RR  ->  ( abs `  ( sin `  (
n  x.  y ) ) )  <_  1
)
310305, 309syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  ( abs `  ( sin `  ( n  x.  y ) ) )  <_  1 )
311308, 310eqbrtrd 4675 . . . . . . . . . . . . . . . . . . 19  |-  ( ( n  e.  NN  /\  y  e.  C )  ->  ( abs `  (
( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  1
)
312298, 311syldan 487 . . . . . . . . . . . . . . . . . 18  |-  ( ( n  e.  NN  /\  y  e.  dom  ( x  e.  C  |->  ( sin `  ( n  x.  x
) ) ) )  ->  ( abs `  (
( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  1
)
313312ralrimiva 2966 . . . . . . . . . . . . . . . . 17  |-  ( n  e.  NN  ->  A. y  e.  dom  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  1
)
314 breq2 4657 . . . . . . . . . . . . . . . . . . 19  |-  ( b  =  1  ->  (
( abs `  (
( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  b  <->  ( abs `  ( ( x  e.  C  |->  ( sin `  ( n  x.  x ) ) ) `  y ) )  <_  1 ) )
315314ralbidv 2986 . . . . . . . . . . . . . . . . . 18  |-  ( b  =  1  ->  ( A. y  e.  dom  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  b  <->  A. y  e.  dom  (
x  e.  C  |->  ( sin `  ( n  x.  x ) ) ) ( abs `  (
( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  1
) )
316315rspcev 3309 . . . . . . . . . . . . . . . . 17  |-  ( ( 1  e.  RR  /\  A. y  e.  dom  (
x  e.  C  |->  ( sin `  ( n  x.  x ) ) ) ( abs `  (
( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  1
)  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  b
)
317203, 313, 316sylancr 695 . . . . . . . . . . . . . . . 16  |-  ( n  e.  NN  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  b
)
318317adantl 482 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN )  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) ( abs `  ( ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  b
)
319 bddmulibl 23605 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  C  |->  ( sin `  (
n  x.  x ) ) )  e. MblFn  /\  (
x  e.  C  |->  ( F `  x ) )  e.  L^1 
/\  E. b  e.  RR  A. y  e.  dom  (
x  e.  C  |->  ( sin `  ( n  x.  x ) ) ) ( abs `  (
( x  e.  C  |->  ( sin `  (
n  x.  x ) ) ) `  y
) )  <_  b
)  ->  ( (
x  e.  C  |->  ( sin `  ( n  x.  x ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x
) ) )  e.  L^1 )
320291, 292, 318, 319syl3anc 1326 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( x  e.  C  |->  ( sin `  ( n  x.  x ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x
) ) )  e.  L^1 )
321279, 320eqeltrd 2701 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  NN )  ->  ( x  e.  C  |->  ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) ) )  e.  L^1 )
32283, 321syldan 487 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( F `  x
)  x.  ( sin `  ( n  x.  x
) ) ) )  e.  L^1 )
323257, 270, 322itgmulc2 23600 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( sin `  (
n  x.  X ) )  x.  S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x )  =  S. C ( ( sin `  ( n  x.  X ) )  x.  ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) ) )  _d x )
324257adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( sin `  ( n  x.  X ) )  e.  CC )
32553, 275sylanl2 683 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( sin `  ( n  x.  x ) )  e.  CC )
326324, 241, 325mul12d 10245 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( sin `  (
n  x.  X ) )  x.  ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) ) )  =  ( ( F `  x )  x.  (
( sin `  (
n  x.  X ) )  x.  ( sin `  ( n  x.  x
) ) ) ) )
327324, 325mulcomd 10061 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( sin `  (
n  x.  X ) )  x.  ( sin `  ( n  x.  x
) ) )  =  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )
328327oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( sin `  ( n  x.  X ) )  x.  ( sin `  (
n  x.  x ) ) ) )  =  ( ( F `  x )  x.  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) ) )
329326, 328eqtrd 2656 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( sin `  (
n  x.  X ) )  x.  ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) ) )  =  ( ( F `  x )  x.  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) ) )
330329itgeq2dv 23548 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( sin `  ( n  x.  X
) )  x.  (
( F `  x
)  x.  ( sin `  ( n  x.  x
) ) ) )  _d x  =  S. C ( ( F `
 x )  x.  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x )
331323, 330eqtrd 2656 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( sin `  (
n  x.  X ) )  x.  S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x )  =  S. C ( ( F `  x )  x.  ( ( sin `  ( n  x.  x
) )  x.  ( sin `  ( n  x.  X ) ) ) )  _d x )
332331oveq1d 6665 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( ( sin `  (
n  x.  X ) )  x.  S. C
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  _d x )  /  pi )  =  ( S. C ( ( F `
 x )  x.  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x  /  pi ) )
333261, 332eqtr3d 2658 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( sin `  (
n  x.  X ) )  x.  ( S. C ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi ) )  =  ( S. C
( ( F `  x )  x.  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x  /  pi ) )
334255, 258, 3333eqtrd 2660 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( B `  n
)  x.  ( sin `  ( n  x.  X
) ) )  =  ( S. C ( ( F `  x
)  x.  ( ( sin `  ( n  x.  x ) )  x.  ( sin `  (
n  x.  X ) ) ) )  _d x  /  pi ) )
335251, 334oveq12d 6668 . . . . . 6  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  =  ( ( S. C
( ( F `  x )  x.  (
( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  _d x  /  pi )  +  ( S. C ( ( F `
 x )  x.  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x  /  pi ) ) )
33654, 168sylanl2 683 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( F `  x )  e.  RR )
33755, 208sylan 488 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( n  x.  x ) )  e.  RR )
33861adantr 481 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( n  x.  X ) )  e.  RR )
339337, 338remulcld 10070 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) )  e.  RR )
340336, 339remulcld 10070 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) )  e.  RR )
341241, 242, 240mul13d 39491 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) )  =  ( ( cos `  (
n  x.  X ) )  x.  ( ( cos `  ( n  x.  x ) )  x.  ( F `  x ) ) ) )
342242, 241mulcomd 10061 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  x ) )  x.  ( F `
 x ) )  =  ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) ) )
343342oveq2d 6666 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  X ) )  x.  ( ( cos `  ( n  x.  x ) )  x.  ( F `  x ) ) )  =  ( ( cos `  ( n  x.  X
) )  x.  (
( F `  x
)  x.  ( cos `  ( n  x.  x
) ) ) ) )
344341, 343eqtrd 2656 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) )  =  ( ( cos `  (
n  x.  X ) )  x.  ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) ) ) )
345344mpteq2dva 4744 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) ) )  =  ( x  e.  C  |->  ( ( cos `  ( n  x.  X
) )  x.  (
( F `  x
)  x.  ( cos `  ( n  x.  x
) ) ) ) ) )
346159, 174, 238iblmulc2 23597 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( cos `  (
n  x.  X ) )  x.  ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) ) ) )  e.  L^1 )
347345, 346eqeltrd 2701 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) ) )  e.  L^1 )
348340, 347itgcl 23550 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( F `
 x )  x.  ( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  _d x  e.  CC )
34983, 267sylan 488 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( sin `  ( n  x.  x ) )  e.  RR )
35085adantr 481 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( sin `  ( n  x.  X ) )  e.  RR )
351349, 350remulcld 10070 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) )  e.  RR )
352336, 351remulcld 10070 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( sin `  ( n  x.  x ) )  x.  ( sin `  (
n  x.  X ) ) ) )  e.  RR )
353241, 325, 324mul13d 39491 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( sin `  ( n  x.  x ) )  x.  ( sin `  (
n  x.  X ) ) ) )  =  ( ( sin `  (
n  x.  X ) )  x.  ( ( sin `  ( n  x.  x ) )  x.  ( F `  x ) ) ) )
354325, 241mulcomd 10061 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( sin `  (
n  x.  x ) )  x.  ( F `
 x ) )  =  ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) ) )
355354oveq2d 6666 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( sin `  (
n  x.  X ) )  x.  ( ( sin `  ( n  x.  x ) )  x.  ( F `  x ) ) )  =  ( ( sin `  ( n  x.  X
) )  x.  (
( F `  x
)  x.  ( sin `  ( n  x.  x
) ) ) ) )
356353, 355eqtrd 2656 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( sin `  ( n  x.  x ) )  x.  ( sin `  (
n  x.  X ) ) ) )  =  ( ( sin `  (
n  x.  X ) )  x.  ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) ) ) )
357356mpteq2dva 4744 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( F `  x
)  x.  ( ( sin `  ( n  x.  x ) )  x.  ( sin `  (
n  x.  X ) ) ) ) )  =  ( x  e.  C  |->  ( ( sin `  ( n  x.  X
) )  x.  (
( F `  x
)  x.  ( sin `  ( n  x.  x
) ) ) ) ) )
358257, 270, 322iblmulc2 23597 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( sin `  (
n  x.  X ) )  x.  ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) ) ) )  e.  L^1 )
359357, 358eqeltrd 2701 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( F `  x
)  x.  ( ( sin `  ( n  x.  x ) )  x.  ( sin `  (
n  x.  X ) ) ) ) )  e.  L^1 )
360352, 359itgcl 23550 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( F `
 x )  x.  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x  e.  CC )
361348, 360, 163, 164divdird 10839 . . . . . 6  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( S. C ( ( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) )  _d x  +  S. C
( ( F `  x )  x.  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x )  /  pi )  =  (
( S. C ( ( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) )  _d x  /  pi )  +  ( S. C
( ( F `  x )  x.  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x  /  pi ) ) )
36253nncnd 11036 . . . . . . . . . . . . . . 15  |-  ( n  e.  ( 1 ... N )  ->  n  e.  CC )
363362ad2antlr 763 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  n  e.  CC )
364108adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  x  e.  CC )
36558recnd 10068 . . . . . . . . . . . . . . 15  |-  ( ph  ->  X  e.  CC )
366365ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  X  e.  CC )
367363, 364, 366subdid 10486 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
n  x.  ( x  -  X ) )  =  ( ( n  x.  x )  -  ( n  x.  X
) ) )
368367fveq2d 6195 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( n  x.  ( x  -  X
) ) )  =  ( cos `  (
( n  x.  x
)  -  ( n  x.  X ) ) ) )
369363, 364mulcld 10060 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
n  x.  x )  e.  CC )
370363, 366mulcld 10060 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
n  x.  X )  e.  CC )
371 cossub 14899 . . . . . . . . . . . . 13  |-  ( ( ( n  x.  x
)  e.  CC  /\  ( n  x.  X
)  e.  CC )  ->  ( cos `  (
( n  x.  x
)  -  ( n  x.  X ) ) )  =  ( ( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) ) )
372369, 370, 371syl2anc 693 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( ( n  x.  x )  -  ( n  x.  X
) ) )  =  ( ( ( cos `  ( n  x.  x
) )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( sin `  ( n  x.  x
) )  x.  ( sin `  ( n  x.  X ) ) ) ) )
373368, 372eqtrd 2656 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( n  x.  ( x  -  X
) ) )  =  ( ( ( cos `  ( n  x.  x
) )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( sin `  ( n  x.  x
) )  x.  ( sin `  ( n  x.  X ) ) ) ) )
374373oveq2d 6666 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( cos `  ( n  x.  (
x  -  X ) ) ) )  =  ( ( F `  x )  x.  (
( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) ) ) )
375339recnd 10068 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) )  e.  CC )
376351recnd 10068 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) )  e.  CC )
377241, 375, 376adddid 10064 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) ) )  =  ( ( ( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) )  +  ( ( F `  x )  x.  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) ) ) )
378374, 377eqtrd 2656 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( cos `  ( n  x.  (
x  -  X ) ) ) )  =  ( ( ( F `
 x )  x.  ( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  +  ( ( F `
 x )  x.  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) ) ) )
379378itgeq2dv 23548 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  =  S. C ( ( ( F `  x )  x.  (
( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  +  ( ( F `
 x )  x.  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) ) )  _d x )
380340, 347, 352, 359itgadd 23591 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( ( F `  x )  x.  ( ( cos `  ( n  x.  x
) )  x.  ( cos `  ( n  x.  X ) ) ) )  +  ( ( F `  x )  x.  ( ( sin `  ( n  x.  x
) )  x.  ( sin `  ( n  x.  X ) ) ) ) )  _d x  =  ( S. C
( ( F `  x )  x.  (
( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  _d x  +  S. C ( ( F `
 x )  x.  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x ) )
381379, 380eqtr2d 2657 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  ( S. C ( ( F `
 x )  x.  ( ( cos `  (
n  x.  x ) )  x.  ( cos `  ( n  x.  X
) ) ) )  _d x  +  S. C ( ( F `
 x )  x.  ( ( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x )  =  S. C ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x )
382381oveq1d 6665 . . . . . 6  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( S. C ( ( F `  x
)  x.  ( ( cos `  ( n  x.  x ) )  x.  ( cos `  (
n  x.  X ) ) ) )  _d x  +  S. C
( ( F `  x )  x.  (
( sin `  (
n  x.  x ) )  x.  ( sin `  ( n  x.  X
) ) ) )  _d x )  /  pi )  =  ( S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  /  pi ) )
383335, 361, 3823eqtr2d 2662 . . . . 5  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  =  ( S. C ( ( F `  x
)  x.  ( cos `  ( n  x.  (
x  -  X ) ) ) )  _d x  /  pi ) )
384383sumeq2dv 14433 . . . 4  |-  ( ph  -> 
sum_ n  e.  (
1 ... N ) ( ( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  = 
sum_ n  e.  (
1 ... N ) ( S. C ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  /  pi ) )
38557adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  n  e.  RR )
386117adantl 482 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  x  e.  RR )
38758ad2antrr 762 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  X  e.  RR )
388386, 387resubcld 10458 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
x  -  X )  e.  RR )
389385, 388remulcld 10070 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
n  x.  ( x  -  X ) )  e.  RR )
390389recoscld 14874 . . . . . . 7  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( n  x.  ( x  -  X
) ) )  e.  RR )
391336, 390remulcld 10070 . . . . . 6  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( cos `  ( n  x.  (
x  -  X ) ) ) )  e.  RR )
392177a1i 11 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  C  e.  _V )
393 eqidd 2623 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) )  =  ( x  e.  C  |->  ( cos `  ( n  x.  (
x  -  X ) ) ) ) )
394 eqidd 2623 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( F `  x ) )  =  ( x  e.  C  |->  ( F `
 x ) ) )
395392, 390, 336, 393, 394offval2 6914 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x ) ) )  =  ( x  e.  C  |->  ( ( cos `  ( n  x.  (
x  -  X ) ) )  x.  ( F `  x )
) ) )
396390recnd 10068 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  ( cos `  ( n  x.  ( x  -  X
) ) )  e.  CC )
397396, 241mulcomd 10061 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  ->  (
( cos `  (
n  x.  ( x  -  X ) ) )  x.  ( F `
 x ) )  =  ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) ) )
398397mpteq2dva 4744 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( cos `  (
n  x.  ( x  -  X ) ) )  x.  ( F `
 x ) ) )  =  ( x  e.  C  |->  ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) ) ) )
399395, 398eqtr2d 2657 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( F `  x
)  x.  ( cos `  ( n  x.  (
x  -  X ) ) ) ) )  =  ( ( x  e.  C  |->  ( cos `  ( n  x.  (
x  -  X ) ) ) )  oF  x.  ( x  e.  C  |->  ( F `
 x ) ) ) )
400187a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  cos  e.  ( CC -cn-> CC ) )
40183, 285syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  n )  e.  ( C
-cn-> CC ) )
40283, 286syl 17 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  x )  e.  ( C
-cn-> CC ) )
403190a1i 11 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  C  C_  CC )
404365adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  X  e.  CC )
405194a1i 11 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  CC  C_  CC )
406403, 404, 405constcncfg 40084 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  X )  e.  ( C
-cn-> CC ) )
407402, 406subcncf 40082 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( x  -  X ) )  e.  ( C
-cn-> CC ) )
408401, 407mulcncf 23215 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( n  x.  ( x  -  X ) ) )  e.  ( C
-cn-> CC ) )
409400, 408cncfmpt1f 22716 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) )  e.  ( C
-cn-> CC ) )
410 cnmbf 23426 . . . . . . . . 9  |-  ( ( C  e.  dom  vol  /\  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) )  e.  ( C -cn-> CC ) )  -> 
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) )  e. MblFn )
411176, 409, 410sylancr 695 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) )  e. MblFn )
412140adantr 481 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( F `  x ) )  e.  L^1 )
413 simpr 477 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) )  -> 
y  e.  dom  (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) ) )
414390ralrimiva 2966 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  A. x  e.  C  ( cos `  ( n  x.  (
x  -  X ) ) )  e.  RR )
415 dmmptg 5632 . . . . . . . . . . . . . 14  |-  ( A. x  e.  C  ( cos `  ( n  x.  ( x  -  X
) ) )  e.  RR  ->  dom  ( x  e.  C  |->  ( cos `  ( n  x.  (
x  -  X ) ) ) )  =  C )
416414, 415syl 17 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) )  =  C )
417416adantr 481 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) )  ->  dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) )  =  C )
418413, 417eleqtrd 2703 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) )  -> 
y  e.  C )
419 eqidd 2623 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) )  =  ( x  e.  C  |->  ( cos `  ( n  x.  (
x  -  X ) ) ) ) )
420 oveq1 6657 . . . . . . . . . . . . . . . . 17  |-  ( x  =  y  ->  (
x  -  X )  =  ( y  -  X ) )
421420oveq2d 6666 . . . . . . . . . . . . . . . 16  |-  ( x  =  y  ->  (
n  x.  ( x  -  X ) )  =  ( n  x.  ( y  -  X
) ) )
422421fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( x  =  y  ->  ( cos `  ( n  x.  ( x  -  X
) ) )  =  ( cos `  (
n  x.  ( y  -  X ) ) ) )
423422adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  n  e.  ( 1 ... N ) )  /\  y  e.  C
)  /\  x  =  y )  ->  ( cos `  ( n  x.  ( x  -  X
) ) )  =  ( cos `  (
n  x.  ( y  -  X ) ) ) )
424 simpr 477 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  y  e.  C )
42557adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  n  e.  RR )
42655, 220sylan 488 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  y  e.  RR )
42758ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  X  e.  RR )
428426, 427resubcld 10458 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  (
y  -  X )  e.  RR )
429425, 428remulcld 10070 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  (
n  x.  ( y  -  X ) )  e.  RR )
430429recoscld 14874 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  ( cos `  ( n  x.  ( y  -  X
) ) )  e.  RR )
431419, 423, 424, 430fvmptd 6288 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  (
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
)  =  ( cos `  ( n  x.  (
y  -  X ) ) ) )
432431fveq2d 6195 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  ( abs `  ( ( x  e.  C  |->  ( cos `  ( n  x.  (
x  -  X ) ) ) ) `  y ) )  =  ( abs `  ( cos `  ( n  x.  ( y  -  X
) ) ) ) )
433 abscosbd 39490 . . . . . . . . . . . . 13  |-  ( ( n  x.  ( y  -  X ) )  e.  RR  ->  ( abs `  ( cos `  (
n  x.  ( y  -  X ) ) ) )  <_  1
)
434429, 433syl 17 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  ( abs `  ( cos `  (
n  x.  ( y  -  X ) ) ) )  <_  1
)
435432, 434eqbrtrd 4675 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  C )  ->  ( abs `  ( ( x  e.  C  |->  ( cos `  ( n  x.  (
x  -  X ) ) ) ) `  y ) )  <_ 
1 )
436418, 435syldan 487 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) )  -> 
( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  1
)
437436ralrimiva 2966 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  A. y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  1
)
438 breq2 4657 . . . . . . . . . . 11  |-  ( b  =  1  ->  (
( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  b  <->  ( abs `  ( ( x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) ) `  y ) )  <_  1 ) )
439438ralbidv 2986 . . . . . . . . . 10  |-  ( b  =  1  ->  ( A. y  e.  dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  b  <->  A. y  e.  dom  (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) ) ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  1
) )
440439rspcev 3309 . . . . . . . . 9  |-  ( ( 1  e.  RR  /\  A. y  e.  dom  (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) ) ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  1
)  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  b
)
441203, 437, 440sylancr 695 . . . . . . . 8  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) ( abs `  ( ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  b
)
442 bddmulibl 23605 . . . . . . . 8  |-  ( ( ( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) )  e. MblFn  /\  (
x  e.  C  |->  ( F `  x ) )  e.  L^1 
/\  E. b  e.  RR  A. y  e.  dom  (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) ) ( abs `  (
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) ) `  y
) )  <_  b
)  ->  ( (
x  e.  C  |->  ( cos `  ( n  x.  ( x  -  X ) ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x
) ) )  e.  L^1 )
443411, 412, 441, 442syl3anc 1326 . . . . . . 7  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
( x  e.  C  |->  ( cos `  (
n  x.  ( x  -  X ) ) ) )  oF  x.  ( x  e.  C  |->  ( F `  x ) ) )  e.  L^1 )
444399, 443eqeltrd 2701 . . . . . 6  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
x  e.  C  |->  ( ( F `  x
)  x.  ( cos `  ( n  x.  (
x  -  X ) ) ) ) )  e.  L^1 )
445391, 444itgcl 23550 . . . . 5  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  e.  CC )
44628, 142, 445, 102fsumdivc 14518 . . . 4  |-  ( ph  ->  ( sum_ n  e.  ( 1 ... N ) S. C ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  /  pi )  = 
sum_ n  e.  (
1 ... N ) ( S. C ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  /  pi ) )
447176a1i 11 . . . . . . . 8  |-  ( ph  ->  C  e.  dom  vol )
448 anass 681 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  <->  ( ph  /\  ( n  e.  ( 1 ... N )  /\  x  e.  C
) ) )
449 ancom 466 . . . . . . . . . . 11  |-  ( ( n  e.  ( 1 ... N )  /\  x  e.  C )  <->  ( x  e.  C  /\  n  e.  ( 1 ... N ) ) )
450449anbi2i 730 . . . . . . . . . 10  |-  ( (
ph  /\  ( n  e.  ( 1 ... N
)  /\  x  e.  C ) )  <->  ( ph  /\  ( x  e.  C  /\  n  e.  (
1 ... N ) ) ) )
451448, 450bitri 264 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  x  e.  C )  <->  ( ph  /\  ( x  e.  C  /\  n  e.  (
1 ... N ) ) ) )
452451, 391sylbir 225 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  C  /\  n  e.  ( 1 ... N
) ) )  -> 
( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) )  e.  RR )
453447, 28, 452, 444itgfsum 23593 . . . . . . 7  |-  ( ph  ->  ( ( x  e.  C  |->  sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) ) )  e.  L^1 
/\  S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  =  sum_ n  e.  ( 1 ... N ) S. C ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x ) )
454453simprd 479 . . . . . 6  |-  ( ph  ->  S. C sum_ n  e.  ( 1 ... N
) ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  =  sum_ n  e.  ( 1 ... N ) S. C ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x )
455454eqcomd 2628 . . . . 5  |-  ( ph  -> 
sum_ n  e.  (
1 ... N ) S. C ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  =  S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x )
456455oveq1d 6665 . . . 4  |-  ( ph  ->  ( sum_ n  e.  ( 1 ... N ) S. C ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  /  pi )  =  ( S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  /  pi ) )
457384, 446, 4563eqtr2d 2662 . . 3  |-  ( ph  -> 
sum_ n  e.  (
1 ... N ) ( ( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  =  ( S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  /  pi ) )
458153, 457oveq12d 6668 . 2  |-  ( ph  ->  ( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  ( 1 ... N ) ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) )  =  ( ( S. C ( ( 1  /  2
)  x.  ( F `
 x ) )  _d x  /  pi )  +  ( S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) )  _d x  /  pi ) ) )
459 fourierdlem83.d . . . . . . . . . . 11  |-  D  =  ( n  e.  NN  |->  ( s  e.  RR  |->  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  n )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
4607adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  C )  ->  N  e.  NN )
461 eqid 2622 . . . . . . . . . . 11  |-  ( D `
 N )  =  ( D `  N
)
462 eqid 2622 . . . . . . . . . . 11  |-  ( s  e.  RR  |->  ( ( ( 1  /  2
)  +  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  s ) ) )  /  pi ) )  =  ( s  e.  RR  |->  ( ( ( 1  / 
2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  ( n  x.  s
) ) )  /  pi ) )
463459, 460, 461, 462dirkertrigeq 40318 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  C )  ->  ( D `  N )  =  ( s  e.  RR  |->  ( ( ( 1  /  2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  (
n  x.  s ) ) )  /  pi ) ) )
464 oveq2 6658 . . . . . . . . . . . . . . 15  |-  ( s  =  ( x  -  X )  ->  (
n  x.  s )  =  ( n  x.  ( x  -  X
) ) )
465464fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( s  =  ( x  -  X )  ->  ( cos `  ( n  x.  s ) )  =  ( cos `  (
n  x.  ( x  -  X ) ) ) )
466465sumeq2sdv 14435 . . . . . . . . . . . . 13  |-  ( s  =  ( x  -  X )  ->  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  s ) )  =  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) )
467466oveq2d 6666 . . . . . . . . . . . 12  |-  ( s  =  ( x  -  X )  ->  (
( 1  /  2
)  +  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  s ) ) )  =  ( ( 1  /  2
)  +  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) ) )
468467oveq1d 6665 . . . . . . . . . . 11  |-  ( s  =  ( x  -  X )  ->  (
( ( 1  / 
2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  ( n  x.  s
) ) )  /  pi )  =  (
( ( 1  / 
2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  ( n  x.  (
x  -  X ) ) ) )  /  pi ) )
469468adantl 482 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  C )  /\  s  =  ( x  -  X ) )  -> 
( ( ( 1  /  2 )  + 
sum_ n  e.  (
1 ... N ) ( cos `  ( n  x.  s ) ) )  /  pi )  =  ( ( ( 1  /  2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  (
n  x.  ( x  -  X ) ) ) )  /  pi ) )
47058adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  C )  ->  X  e.  RR )
471118, 470resubcld 10458 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  C )  ->  (
x  -  X )  e.  RR )
472 halfre 11246 . . . . . . . . . . . . 13  |-  ( 1  /  2 )  e.  RR
473472a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  C )  ->  (
1  /  2 )  e.  RR )
474 fzfid 12772 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  C )  ->  (
1 ... N )  e. 
Fin )
475390an32s 846 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  C )  /\  n  e.  ( 1 ... N
) )  ->  ( cos `  ( n  x.  ( x  -  X
) ) )  e.  RR )
476474, 475fsumrecl 14465 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  C )  ->  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) )  e.  RR )
477473, 476readdcld 10069 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  C )  ->  (
( 1  /  2
)  +  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) )  e.  RR )
47844a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  C )  ->  pi  e.  RR )
47948a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  C )  ->  pi  =/=  0 )
480477, 478, 479redivcld 10853 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  C )  ->  (
( ( 1  / 
2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  ( n  x.  (
x  -  X ) ) ) )  /  pi )  e.  RR )
481463, 469, 471, 480fvmptd 6288 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  C )  ->  (
( D `  N
) `  ( x  -  X ) )  =  ( ( ( 1  /  2 )  + 
sum_ n  e.  (
1 ... N ) ( cos `  ( n  x.  ( x  -  X ) ) ) )  /  pi ) )
482481, 480eqeltrd 2701 . . . . . . . 8  |-  ( (
ph  /\  x  e.  C )  ->  (
( D `  N
) `  ( x  -  X ) )  e.  RR )
483119, 482remulcld 10070 . . . . . . 7  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( D `  N ) `
 ( x  -  X ) ) )  e.  RR )
484177a1i 11 . . . . . . . . . 10  |-  ( ph  ->  C  e.  _V )
485 eqidd 2623 . . . . . . . . . 10  |-  ( ph  ->  ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) )  =  ( x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) )
486 eqidd 2623 . . . . . . . . . 10  |-  ( ph  ->  ( x  e.  C  |->  ( F `  x
) )  =  ( x  e.  C  |->  ( F `  x ) ) )
487484, 482, 119, 485, 486offval2 6914 . . . . . . . . 9  |-  ( ph  ->  ( ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) )  oF  x.  ( x  e.  C  |->  ( F `
 x ) ) )  =  ( x  e.  C  |->  ( ( ( D `  N
) `  ( x  -  X ) )  x.  ( F `  x
) ) ) )
488482recnd 10068 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  C )  ->  (
( D `  N
) `  ( x  -  X ) )  e.  CC )
489488, 120mulcomd 10061 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  C )  ->  (
( ( D `  N ) `  (
x  -  X ) )  x.  ( F `
 x ) )  =  ( ( F `
 x )  x.  ( ( D `  N ) `  (
x  -  X ) ) ) )
490489mpteq2dva 4744 . . . . . . . . 9  |-  ( ph  ->  ( x  e.  C  |->  ( ( ( D `
 N ) `  ( x  -  X
) )  x.  ( F `  x )
) )  =  ( x  e.  C  |->  ( ( F `  x
)  x.  ( ( D `  N ) `
 ( x  -  X ) ) ) ) )
491487, 490eqtr2d 2657 . . . . . . . 8  |-  ( ph  ->  ( x  e.  C  |->  ( ( F `  x )  x.  (
( D `  N
) `  ( x  -  X ) ) ) )  =  ( ( x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) )  oF  x.  (
x  e.  C  |->  ( F `  x ) ) ) )
492 eqid 2622 . . . . . . . . . . 11  |-  ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) )  =  ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) )
493 eqid 2622 . . . . . . . . . . . 12  |-  ( x  e.  RR  |->  ( ( D `  N ) `
 ( x  -  X ) ) )  =  ( x  e.  RR  |->  ( ( D `
 N ) `  ( x  -  X
) ) )
494194a1i 11 . . . . . . . . . . . . . 14  |-  ( ph  ->  CC  C_  CC )
495 cncfss 22702 . . . . . . . . . . . . . 14  |-  ( ( RR  C_  CC  /\  CC  C_  CC )  ->  ( RR -cn-> RR )  C_  ( RR -cn-> CC ) )
496189, 494, 495sylancr 695 . . . . . . . . . . . . 13  |-  ( ph  ->  ( RR -cn-> RR ) 
C_  ( RR -cn-> CC ) )
497 simpr 477 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  x  e.  RR )  ->  x  e.  RR )
49858adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  x  e.  RR )  ->  X  e.  RR )
499497, 498resubcld 10458 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  x  e.  RR )  ->  ( x  -  X )  e.  RR )
500 eqid 2622 . . . . . . . . . . . . . . . 16  |-  ( x  e.  RR  |->  ( x  -  X ) )  =  ( x  e.  RR  |->  ( x  -  X ) )
501499, 500fmptd 6385 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( x  e.  RR  |->  ( x  -  X
) ) : RR --> RR )
502189a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  RR  C_  CC )
503502, 494idcncfg 40085 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( x  e.  RR  |->  x )  e.  ( RR -cn-> CC ) )
504502, 365, 494constcncfg 40084 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( x  e.  RR  |->  X )  e.  ( RR -cn-> CC ) )
505503, 504subcncf 40082 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( x  e.  RR  |->  ( x  -  X
) )  e.  ( RR -cn-> CC ) )
506 cncffvrn 22701 . . . . . . . . . . . . . . . 16  |-  ( ( RR  C_  CC  /\  (
x  e.  RR  |->  ( x  -  X ) )  e.  ( RR
-cn-> CC ) )  -> 
( ( x  e.  RR  |->  ( x  -  X ) )  e.  ( RR -cn-> RR )  <-> 
( x  e.  RR  |->  ( x  -  X
) ) : RR --> RR ) )
507189, 505, 506sylancr 695 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( x  e.  RR  |->  ( x  -  X ) )  e.  ( RR -cn-> RR )  <-> 
( x  e.  RR  |->  ( x  -  X
) ) : RR --> RR ) )
508501, 507mpbird 247 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( x  e.  RR  |->  ( x  -  X
) )  e.  ( RR -cn-> RR ) )
509459dirkercncf 40324 . . . . . . . . . . . . . . 15  |-  ( N  e.  NN  ->  ( D `  N )  e.  ( RR -cn-> RR ) )
5107, 509syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( D `  N
)  e.  ( RR
-cn-> RR ) )
511508, 510cncfcompt 40096 . . . . . . . . . . . . 13  |-  ( ph  ->  ( x  e.  RR  |->  ( ( D `  N ) `  (
x  -  X ) ) )  e.  ( RR -cn-> RR ) )
512496, 511sseldd 3604 . . . . . . . . . . . 12  |-  ( ph  ->  ( x  e.  RR  |->  ( ( D `  N ) `  (
x  -  X ) ) )  e.  ( RR -cn-> CC ) )
51344renegcli 10342 . . . . . . . . . . . . . 14  |-  -u pi  e.  RR
514 iccssre 12255 . . . . . . . . . . . . . 14  |-  ( (
-u pi  e.  RR  /\  pi  e.  RR )  ->  ( -u pi [,] pi )  C_  RR )
515513, 44, 514mp2an 708 . . . . . . . . . . . . 13  |-  ( -u pi [,] pi )  C_  RR
516515a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  ( -u pi [,] pi )  C_  RR )
517459dirkerf 40314 . . . . . . . . . . . . . . . 16  |-  ( N  e.  NN  ->  ( D `  N ) : RR --> RR )
5187, 517syl 17 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( D `  N
) : RR --> RR )
519518adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  ( D `  N ) : RR --> RR )
520516sselda 3603 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  x  e.  RR )
52158adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  X  e.  RR )
522520, 521resubcld 10458 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  (
x  -  X )  e.  RR )
523519, 522ffvelrnd 6360 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  (
( D `  N
) `  ( x  -  X ) )  e.  RR )
524523recnd 10068 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  (
( D `  N
) `  ( x  -  X ) )  e.  CC )
525493, 512, 516, 494, 524cncfmptssg 40083 . . . . . . . . . . 11  |-  ( ph  ->  ( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) )  e.  ( ( -u pi [,] pi ) -cn-> CC ) )
526132a1i 11 . . . . . . . . . . 11  |-  ( ph  ->  C  C_  ( -u pi [,] pi ) )
527492, 525, 526, 494, 488cncfmptssg 40083 . . . . . . . . . 10  |-  ( ph  ->  ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) )  e.  ( C -cn-> CC ) )
528 cnmbf 23426 . . . . . . . . . 10  |-  ( ( C  e.  dom  vol  /\  ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) )  e.  ( C -cn-> CC ) )  -> 
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) )  e. MblFn )
529176, 527, 528sylancr 695 . . . . . . . . 9  |-  ( ph  ->  ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) )  e. MblFn )
530513a1i 11 . . . . . . . . . . . . 13  |-  ( ph  -> 
-u pi  e.  RR )
531 0red 10041 . . . . . . . . . . . . . . 15  |-  ( ph  ->  0  e.  RR )
532 negpilt0 39492 . . . . . . . . . . . . . . . 16  |-  -u pi  <  0
533532a1i 11 . . . . . . . . . . . . . . 15  |-  ( ph  -> 
-u pi  <  0
)
53447a1i 11 . . . . . . . . . . . . . . 15  |-  ( ph  ->  0  <  pi )
535530, 531, 101, 533, 534lttrd 10198 . . . . . . . . . . . . . 14  |-  ( ph  -> 
-u pi  <  pi )
536530, 101, 535ltled 10185 . . . . . . . . . . . . 13  |-  ( ph  -> 
-u pi  <_  pi )
537493, 512, 516, 502, 523cncfmptssg 40083 . . . . . . . . . . . . 13  |-  ( ph  ->  ( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) )  e.  ( ( -u pi [,] pi ) -cn-> RR ) )
538530, 101, 536, 537evthiccabs 39718 . . . . . . . . . . . 12  |-  ( ph  ->  ( E. c  e.  ( -u pi [,] pi ) A. y  e.  ( -u pi [,] pi ) ( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y ) )  <_ 
( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  c ) )  /\  E. z  e.  ( -u pi [,] pi ) A. w  e.  ( -u pi [,] pi ) ( abs `  ( ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) `
 z ) )  <_  ( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  w ) ) ) )
539538simpld 475 . . . . . . . . . . 11  |-  ( ph  ->  E. c  e.  (
-u pi [,] pi ) A. y  e.  (
-u pi [,] pi ) ( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y ) )  <_ 
( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  c ) ) )
540 eqidd 2623 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  (
x  e.  ( -u pi [,] pi )  |->  ( ( D `  N
) `  ( x  -  X ) ) )  =  ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) )
541420fveq2d 6195 . . . . . . . . . . . . . . . . . 18  |-  ( x  =  y  ->  (
( D `  N
) `  ( x  -  X ) )  =  ( ( D `  N ) `  (
y  -  X ) ) )
542541adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  y  e.  ( -u pi [,] pi ) )  /\  x  =  y )  -> 
( ( D `  N ) `  (
x  -  X ) )  =  ( ( D `  N ) `
 ( y  -  X ) ) )
543 simpr 477 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  y  e.  ( -u pi [,] pi ) )
544518adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  ( D `  N ) : RR --> RR )
545515, 543sseldi 3601 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  y  e.  RR )
54658adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  X  e.  RR )
547545, 546resubcld 10458 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  (
y  -  X )  e.  RR )
548544, 547ffvelrnd 6360 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  (
( D `  N
) `  ( y  -  X ) )  e.  RR )
549540, 542, 543, 548fvmptd 6288 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y )  =  ( ( D `  N
) `  ( y  -  X ) ) )
550549fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  y  e.  ( -u pi [,] pi ) )  ->  ( abs `  ( ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) `
 y ) )  =  ( abs `  (
( D `  N
) `  ( y  -  X ) ) ) )
551550adantlr 751 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  c  e.  ( -u pi [,] pi ) )  /\  y  e.  ( -u pi [,] pi ) )  ->  ( abs `  ( ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) `
 y ) )  =  ( abs `  (
( D `  N
) `  ( y  -  X ) ) ) )
552 eqidd 2623 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  (
x  e.  ( -u pi [,] pi )  |->  ( ( D `  N
) `  ( x  -  X ) ) )  =  ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) )
553 oveq1 6657 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  c  ->  (
x  -  X )  =  ( c  -  X ) )
554553fveq2d 6195 . . . . . . . . . . . . . . . . . 18  |-  ( x  =  c  ->  (
( D `  N
) `  ( x  -  X ) )  =  ( ( D `  N ) `  (
c  -  X ) ) )
555554adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  c  e.  ( -u pi [,] pi ) )  /\  x  =  c )  -> 
( ( D `  N ) `  (
x  -  X ) )  =  ( ( D `  N ) `
 ( c  -  X ) ) )
556 simpr 477 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  c  e.  ( -u pi [,] pi ) )
557518adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  ( D `  N ) : RR --> RR )
558515, 556sseldi 3601 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  c  e.  RR )
55958adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  X  e.  RR )
560558, 559resubcld 10458 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  (
c  -  X )  e.  RR )
561557, 560ffvelrnd 6360 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  (
( D `  N
) `  ( c  -  X ) )  e.  RR )
562552, 555, 556, 561fvmptd 6288 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  c )  =  ( ( D `  N
) `  ( c  -  X ) ) )
563562fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  ( abs `  ( ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) `
 c ) )  =  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
564563adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  c  e.  ( -u pi [,] pi ) )  /\  y  e.  ( -u pi [,] pi ) )  ->  ( abs `  ( ( x  e.  ( -u pi [,] pi )  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) `
 c ) )  =  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
565551, 564breq12d 4666 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  c  e.  ( -u pi [,] pi ) )  /\  y  e.  ( -u pi [,] pi ) )  ->  (
( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y ) )  <_ 
( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  c ) )  <->  ( abs `  ( ( D `  N ) `  (
y  -  X ) ) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) ) )
566565ralbidva 2985 . . . . . . . . . . . 12  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  ( A. y  e.  ( -u pi [,] pi ) ( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y ) )  <_ 
( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  c ) )  <->  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) ) )
567566rexbidva 3049 . . . . . . . . . . 11  |-  ( ph  ->  ( E. c  e.  ( -u pi [,] pi ) A. y  e.  ( -u pi [,] pi ) ( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y ) )  <_ 
( abs `  (
( x  e.  (
-u pi [,] pi )  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  c ) )  <->  E. c  e.  ( -u pi [,] pi ) A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) ) )
568539, 567mpbid 222 . . . . . . . . . 10  |-  ( ph  ->  E. c  e.  (
-u pi [,] pi ) A. y  e.  (
-u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
569561recnd 10068 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  (
( D `  N
) `  ( c  -  X ) )  e.  CC )
570569abscld 14175 . . . . . . . . . . . . 13  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi ) )  ->  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) )  e.  RR )
5715703adant3 1081 . . . . . . . . . . . 12  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi )  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )  ->  ( abs `  ( ( D `  N ) `  (
c  -  X ) ) )  e.  RR )
572 nfv 1843 . . . . . . . . . . . . . 14  |-  F/ y
ph
573 nfv 1843 . . . . . . . . . . . . . 14  |-  F/ y  c  e.  ( -u pi [,] pi )
574 nfra1 2941 . . . . . . . . . . . . . 14  |-  F/ y A. y  e.  (
-u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) )
575572, 573, 574nf3an 1831 . . . . . . . . . . . . 13  |-  F/ y ( ph  /\  c  e.  ( -u pi [,] pi )  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
576 simpr 477 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  dom  ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) )  -> 
y  e.  dom  (
x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) )
577482ralrimiva 2966 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  A. x  e.  C  ( ( D `  N ) `  (
x  -  X ) )  e.  RR )
578 dmmptg 5632 . . . . . . . . . . . . . . . . . . 19  |-  ( A. x  e.  C  (
( D `  N
) `  ( x  -  X ) )  e.  RR  ->  dom  ( x  e.  C  |->  ( ( D `  N ) `
 ( x  -  X ) ) )  =  C )
579577, 578syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  dom  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) )  =  C )
580579adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  dom  ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) )  ->  dom  ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) )  =  C )
581576, 580eleqtrd 2703 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  dom  ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) )  -> 
y  e.  C )
5825813ad2antl1 1223 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  c  e.  ( -u pi [,] pi )  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )  /\  y  e. 
dom  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) )  ->  y  e.  C
)
583 eqidd 2623 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  y  e.  C )  ->  (
x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) )  =  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) )
584541adantl 482 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  y  e.  C )  /\  x  =  y )  -> 
( ( D `  N ) `  (
x  -  X ) )  =  ( ( D `  N ) `
 ( y  -  X ) ) )
585 simpr 477 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  y  e.  C )  ->  y  e.  C )
586518adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  y  e.  C )  ->  ( D `  N ) : RR --> RR )
587136, 585sseldi 3601 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  y  e.  C )  ->  y  e.  RR )
58858adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  y  e.  C )  ->  X  e.  RR )
589587, 588resubcld 10458 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  y  e.  C )  ->  (
y  -  X )  e.  RR )
590586, 589ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  y  e.  C )  ->  (
( D `  N
) `  ( y  -  X ) )  e.  RR )
591583, 584, 585, 590fvmptd 6288 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  y  e.  C )  ->  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
)  =  ( ( D `  N ) `
 ( y  -  X ) ) )
592591fveq2d 6195 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  C )  ->  ( abs `  ( ( x  e.  C  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) `
 y ) )  =  ( abs `  (
( D `  N
) `  ( y  -  X ) ) ) )
593592adantlr 751 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  ( ( D `  N ) `  (
y  -  X ) ) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) )  /\  y  e.  C
)  ->  ( abs `  ( ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y ) )  =  ( abs `  (
( D `  N
) `  ( y  -  X ) ) ) )
594 simplr 792 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  ( ( D `  N ) `  (
y  -  X ) ) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) )  /\  y  e.  C
)  ->  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
595132sseli 3599 . . . . . . . . . . . . . . . . . . 19  |-  ( y  e.  C  ->  y  e.  ( -u pi [,] pi ) )
596595adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  ( ( D `  N ) `  (
y  -  X ) ) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) )  /\  y  e.  C
)  ->  y  e.  ( -u pi [,] pi ) )
597 rspa 2930 . . . . . . . . . . . . . . . . . 18  |-  ( ( A. y  e.  (
-u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) )  /\  y  e.  (
-u pi [,] pi ) )  ->  ( abs `  ( ( D `
 N ) `  ( y  -  X
) ) )  <_ 
( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
598594, 596, 597syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  ( ( D `  N ) `  (
y  -  X ) ) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) )  /\  y  e.  C
)  ->  ( abs `  ( ( D `  N ) `  (
y  -  X ) ) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) )
599593, 598eqbrtrd 4675 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  ( ( D `  N ) `  (
y  -  X ) ) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) )  /\  y  e.  C
)  ->  ( abs `  ( ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y ) )  <_ 
( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
6005993adantl2 1218 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  c  e.  ( -u pi [,] pi )  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )  /\  y  e.  C )  ->  ( abs `  ( ( x  e.  C  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) `
 y ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
601582, 600syldan 487 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  c  e.  ( -u pi [,] pi )  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )  /\  y  e. 
dom  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) )  ->  ( abs `  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) )
602601ex 450 . . . . . . . . . . . . 13  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi )  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )  ->  ( y  e.  dom  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) )  -> 
( abs `  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) ) )
603575, 602ralrimi 2957 . . . . . . . . . . . 12  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi )  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )  ->  A. y  e.  dom  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) ( abs `  ( ( x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) `
 y ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )
604 breq2 4657 . . . . . . . . . . . . . 14  |-  ( b  =  ( abs `  (
( D `  N
) `  ( c  -  X ) ) )  ->  ( ( abs `  ( ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) `  y ) )  <_ 
b  <->  ( abs `  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) ) )
605604ralbidv 2986 . . . . . . . . . . . . 13  |-  ( b  =  ( abs `  (
( D `  N
) `  ( c  -  X ) ) )  ->  ( A. y  e.  dom  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) ( abs `  ( ( x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) `
 y ) )  <_  b  <->  A. y  e.  dom  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) ( abs `  ( ( x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) `
 y ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) ) )
606605rspcev 3309 . . . . . . . . . . . 12  |-  ( ( ( abs `  (
( D `  N
) `  ( c  -  X ) ) )  e.  RR  /\  A. y  e.  dom  ( x  e.  C  |->  ( ( D `  N ) `
 ( x  -  X ) ) ) ( abs `  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
) )  <_  ( abs `  ( ( D `
 N ) `  ( c  -  X
) ) ) )  ->  E. b  e.  RR  A. y  e.  dom  (
x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) ( abs `  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
) )  <_  b
)
607571, 603, 606syl2anc 693 . . . . . . . . . . 11  |-  ( (
ph  /\  c  e.  ( -u pi [,] pi )  /\  A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) ) )  ->  E. b  e.  RR  A. y  e. 
dom  ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) ) ( abs `  ( ( x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) `
 y ) )  <_  b )
608607rexlimdv3a 3033 . . . . . . . . . 10  |-  ( ph  ->  ( E. c  e.  ( -u pi [,] pi ) A. y  e.  ( -u pi [,] pi ) ( abs `  (
( D `  N
) `  ( y  -  X ) ) )  <_  ( abs `  (
( D `  N
) `  ( c  -  X ) ) )  ->  E. b  e.  RR  A. y  e.  dom  (
x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) ( abs `  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
) )  <_  b
) )
609568, 608mpd 15 . . . . . . . . 9  |-  ( ph  ->  E. b  e.  RR  A. y  e.  dom  (
x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) ( abs `  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
) )  <_  b
)
610 bddmulibl 23605 . . . . . . . . 9  |-  ( ( ( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) )  e. MblFn  /\  (
x  e.  C  |->  ( F `  x ) )  e.  L^1 
/\  E. b  e.  RR  A. y  e.  dom  (
x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) ) ( abs `  (
( x  e.  C  |->  ( ( D `  N ) `  (
x  -  X ) ) ) `  y
) )  <_  b
)  ->  ( (
x  e.  C  |->  ( ( D `  N
) `  ( x  -  X ) ) )  oF  x.  (
x  e.  C  |->  ( F `  x ) ) )  e.  L^1 )
611529, 140, 609, 610syl3anc 1326 . . . . . . . 8  |-  ( ph  ->  ( ( x  e.  C  |->  ( ( D `
 N ) `  ( x  -  X
) ) )  oF  x.  ( x  e.  C  |->  ( F `
 x ) ) )  e.  L^1 )
612491, 611eqeltrd 2701 . . . . . . 7  |-  ( ph  ->  ( x  e.  C  |->  ( ( F `  x )  x.  (
( D `  N
) `  ( x  -  X ) ) ) )  e.  L^1 )
613142, 483, 612itgmulc2 23600 . . . . . 6  |-  ( ph  ->  ( pi  x.  S. C ( ( F `
 x )  x.  ( ( D `  N ) `  (
x  -  X ) ) )  _d x )  =  S. C
( pi  x.  (
( F `  x
)  x.  ( ( D `  N ) `
 ( x  -  X ) ) ) )  _d x )
614142adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  C )  ->  pi  e.  CC )
615120, 488, 614mul13d 39491 . . . . . . . 8  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( ( D `  N
) `  ( x  -  X ) )  x.  pi ) )  =  ( pi  x.  (
( ( D `  N ) `  (
x  -  X ) )  x.  ( F `
 x ) ) ) )
616489oveq2d 6666 . . . . . . . 8  |-  ( (
ph  /\  x  e.  C )  ->  (
pi  x.  ( (
( D `  N
) `  ( x  -  X ) )  x.  ( F `  x
) ) )  =  ( pi  x.  (
( F `  x
)  x.  ( ( D `  N ) `
 ( x  -  X ) ) ) ) )
617615, 616eqtrd 2656 . . . . . . 7  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( ( D `  N
) `  ( x  -  X ) )  x.  pi ) )  =  ( pi  x.  (
( F `  x
)  x.  ( ( D `  N ) `
 ( x  -  X ) ) ) ) )
618617itgeq2dv 23548 . . . . . 6  |-  ( ph  ->  S. C ( ( F `  x )  x.  ( ( ( D `  N ) `
 ( x  -  X ) )  x.  pi ) )  _d x  =  S. C
( pi  x.  (
( F `  x
)  x.  ( ( D `  N ) `
 ( x  -  X ) ) ) )  _d x )
619613, 618eqtr4d 2659 . . . . 5  |-  ( ph  ->  ( pi  x.  S. C ( ( F `
 x )  x.  ( ( D `  N ) `  (
x  -  X ) ) )  _d x )  =  S. C
( ( F `  x )  x.  (
( ( D `  N ) `  (
x  -  X ) )  x.  pi ) )  _d x )
620148adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  C )  ->  (
1  /  2 )  e.  CC )
621620, 120mulcomd 10061 . . . . . . . 8  |-  ( (
ph  /\  x  e.  C )  ->  (
( 1  /  2
)  x.  ( F `
 x ) )  =  ( ( F `
 x )  x.  ( 1  /  2
) ) )
622396an32s 846 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  C )  /\  n  e.  ( 1 ... N
) )  ->  ( cos `  ( n  x.  ( x  -  X
) ) )  e.  CC )
623474, 120, 622fsummulc2 14516 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) )  =  sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) ) )
624623eqcomd 2628 . . . . . . . 8  |-  ( (
ph  /\  x  e.  C )  ->  sum_ n  e.  ( 1 ... N
) ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  =  ( ( F `  x
)  x.  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) ) )
625621, 624oveq12d 6668 . . . . . . 7  |-  ( (
ph  /\  x  e.  C )  ->  (
( ( 1  / 
2 )  x.  ( F `  x )
)  +  sum_ n  e.  ( 1 ... N
) ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) ) )  =  ( ( ( F `
 x )  x.  ( 1  /  2
) )  +  ( ( F `  x
)  x.  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) ) ) )
626474, 622fsumcl 14464 . . . . . . . 8  |-  ( (
ph  /\  x  e.  C )  ->  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) )  e.  CC )
627120, 620, 626adddid 10064 . . . . . . 7  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( 1  /  2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  (
n  x.  ( x  -  X ) ) ) ) )  =  ( ( ( F `
 x )  x.  ( 1  /  2
) )  +  ( ( F `  x
)  x.  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) ) ) )
628481oveq1d 6665 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  C )  ->  (
( ( D `  N ) `  (
x  -  X ) )  x.  pi )  =  ( ( ( ( 1  /  2
)  +  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) )  /  pi )  x.  pi )
)
629620, 626addcld 10059 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  C )  ->  (
( 1  /  2
)  +  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) )  e.  CC )
630629, 614, 479divcan1d 10802 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  C )  ->  (
( ( ( 1  /  2 )  + 
sum_ n  e.  (
1 ... N ) ( cos `  ( n  x.  ( x  -  X ) ) ) )  /  pi )  x.  pi )  =  ( ( 1  / 
2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  ( n  x.  (
x  -  X ) ) ) ) )
631628, 630eqtr2d 2657 . . . . . . . 8  |-  ( (
ph  /\  x  e.  C )  ->  (
( 1  /  2
)  +  sum_ n  e.  ( 1 ... N
) ( cos `  (
n  x.  ( x  -  X ) ) ) )  =  ( ( ( D `  N ) `  (
x  -  X ) )  x.  pi ) )
632631oveq2d 6666 . . . . . . 7  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( 1  /  2 )  +  sum_ n  e.  ( 1 ... N ) ( cos `  (
n  x.  ( x  -  X ) ) ) ) )  =  ( ( F `  x )  x.  (
( ( D `  N ) `  (
x  -  X ) )  x.  pi ) ) )
633625, 627, 6323eqtr2rd 2663 . . . . . 6  |-  ( (
ph  /\  x  e.  C )  ->  (
( F `  x
)  x.  ( ( ( D `  N
) `  ( x  -  X ) )  x.  pi ) )  =  ( ( ( 1  /  2 )  x.  ( F `  x
) )  +  sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) ) ) )
634633itgeq2dv 23548 . . . . 5  |-  ( ph  ->  S. C ( ( F `  x )  x.  ( ( ( D `  N ) `
 ( x  -  X ) )  x.  pi ) )  _d x  =  S. C
( ( ( 1  /  2 )  x.  ( F `  x
) )  +  sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) ) )  _d x )
635 remulcl 10021 . . . . . . 7  |-  ( ( ( 1  /  2
)  e.  RR  /\  ( F `  x )  e.  RR )  -> 
( ( 1  / 
2 )  x.  ( F `  x )
)  e.  RR )
636472, 119, 635sylancr 695 . . . . . 6  |-  ( (
ph  /\  x  e.  C )  ->  (
( 1  /  2
)  x.  ( F `
 x ) )  e.  RR )
637148, 119, 140iblmulc2 23597 . . . . . 6  |-  ( ph  ->  ( x  e.  C  |->  ( ( 1  / 
2 )  x.  ( F `  x )
) )  e.  L^1 )
638391an32s 846 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  C )  /\  n  e.  ( 1 ... N
) )  ->  (
( F `  x
)  x.  ( cos `  ( n  x.  (
x  -  X ) ) ) )  e.  RR )
639474, 638fsumrecl 14465 . . . . . 6  |-  ( (
ph  /\  x  e.  C )  ->  sum_ n  e.  ( 1 ... N
) ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  e.  RR )
640453simpld 475 . . . . . 6  |-  ( ph  ->  ( x  e.  C  |-> 
sum_ n  e.  (
1 ... N ) ( ( F `  x
)  x.  ( cos `  ( n  x.  (
x  -  X ) ) ) ) )  e.  L^1 )
641636, 637, 639, 640itgadd 23591 . . . . 5  |-  ( ph  ->  S. C ( ( ( 1  /  2
)  x.  ( F `
 x ) )  +  sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) ) )  _d x  =  ( S. C ( ( 1  /  2
)  x.  ( F `
 x ) )  _d x  +  S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) )  _d x ) )
642619, 634, 6413eqtrrd 2661 . . . 4  |-  ( ph  ->  ( S. C ( ( 1  /  2
)  x.  ( F `
 x ) )  _d x  +  S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) )  _d x )  =  ( pi  x.  S. C ( ( F `
 x )  x.  ( ( D `  N ) `  (
x  -  X ) ) )  _d x ) )
643642oveq1d 6665 . . 3  |-  ( ph  ->  ( ( S. C
( ( 1  / 
2 )  x.  ( F `  x )
)  _d x  +  S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) )  _d x )  /  pi )  =  (
( pi  x.  S. C ( ( F `
 x )  x.  ( ( D `  N ) `  (
x  -  X ) ) )  _d x )  /  pi ) )
644636, 637itgcl 23550 . . . 4  |-  ( ph  ->  S. C ( ( 1  /  2 )  x.  ( F `  x ) )  _d x  e.  CC )
645639, 640itgcl 23550 . . . 4  |-  ( ph  ->  S. C sum_ n  e.  ( 1 ... N
) ( ( F `
 x )  x.  ( cos `  (
n  x.  ( x  -  X ) ) ) )  _d x  e.  CC )
646644, 645, 142, 102divdird 10839 . . 3  |-  ( ph  ->  ( ( S. C
( ( 1  / 
2 )  x.  ( F `  x )
)  _d x  +  S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) )  _d x )  /  pi )  =  (
( S. C ( ( 1  /  2
)  x.  ( F `
 x ) )  _d x  /  pi )  +  ( S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) )  _d x  /  pi ) ) )
647483, 612itgcl 23550 . . . 4  |-  ( ph  ->  S. C ( ( F `  x )  x.  ( ( D `
 N ) `  ( x  -  X
) ) )  _d x  e.  CC )
648647, 142, 102divcan3d 10806 . . 3  |-  ( ph  ->  ( ( pi  x.  S. C ( ( F `
 x )  x.  ( ( D `  N ) `  (
x  -  X ) ) )  _d x )  /  pi )  =  S. C ( ( F `  x
)  x.  ( ( D `  N ) `
 ( x  -  X ) ) )  _d x )
649643, 646, 6483eqtr3d 2664 . 2  |-  ( ph  ->  ( ( S. C
( ( 1  / 
2 )  x.  ( F `  x )
)  _d x  /  pi )  +  ( S. C sum_ n  e.  ( 1 ... N ) ( ( F `  x )  x.  ( cos `  ( n  x.  ( x  -  X
) ) ) )  _d x  /  pi ) )  =  S. C ( ( F `
 x )  x.  ( ( D `  N ) `  (
x  -  X ) ) )  _d x )
65090, 458, 6493eqtrd 2660 1  |-  ( ph  ->  ( S `  N
)  =  S. C
( ( F `  x )  x.  (
( D `  N
) `  ( x  -  X ) ) )  _d x )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990    =/= wne 2794   A.wral 2912   E.wrex 2913   _Vcvv 3200    C_ wss 3574   ifcif 4086   class class class wbr 4653    |-> cmpt 4729   dom cdm 5114    |` cres 5116   -->wf 5884   ` cfv 5888  (class class class)co 6650    oFcof 6895   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941    < clt 10074    <_ cle 10075    - cmin 10266   -ucneg 10267    / cdiv 10684   NNcn 11020   2c2 11070   NN0cn0 11292   (,)cioo 12175   [,]cicc 12178   ...cfz 12326    mod cmo 12668   abscabs 13974   sum_csu 14416   sincsin 14794   cosccos 14795   picpi 14797   -cn->ccncf 22679   volcvol 23232  MblFncmbf 23383   L^1cibl 23386   S.citg 23387
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-cc 9257  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-disj 4621  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-ofr 6898  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-omul 7565  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-acn 8768  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-mod 12669  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-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-t1 21118  df-haus 21119  df-cmp 21190  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-ovol 23233  df-vol 23234  df-mbf 23388  df-itg1 23389  df-itg2 23390  df-ibl 23391  df-itg 23392  df-0p 23437  df-limc 23630  df-dv 23631
This theorem is referenced by:  fourierdlem111  40434
  Copyright terms: Public domain W3C validator