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

Theorem fourierdlem112 40435
Description: Here abbreviations (local definitions) are introduced to prove the fourier 40442 theorem.  ( Z `  m ) is the mth partial sum of the fourier series. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem112.f  |-  ( ph  ->  F : RR --> RR )
fourierdlem112.d  |-  D  =  ( m  e.  NN  |->  ( y  e.  RR  |->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( m  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) ) )
fourierdlem112.p  |-  P  =  ( n  e.  NN  |->  { p  e.  ( RR  ^m  ( 0 ... n ) )  |  ( ( ( p `
 0 )  = 
-u pi  /\  (
p `  n )  =  pi )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )
fourierdlem112.m  |-  ( ph  ->  M  e.  NN )
fourierdlem112.q  |-  ( ph  ->  Q  e.  ( P `
 M ) )
fourierdlem112.n  |-  N  =  ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 )
fourierdlem112.v  |-  V  =  ( iota f f 
Isom  <  ,  <  (
( 0 ... N
) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) ) )
fourierdlem112.x  |-  ( ph  ->  X  e.  RR )
fourierdlem112.xran  |-  ( ph  ->  X  e.  ran  V
)
fourierdlem112.t  |-  T  =  ( 2  x.  pi )
fourierdlem112.fper  |-  ( (
ph  /\  x  e.  RR )  ->  ( F `
 ( x  +  T ) )  =  ( F `  x
) )
fourierdlem112.fcn  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) -cn-> CC ) )
fourierdlem112.c  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  C  e.  ( ( F  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 i ) ) )
fourierdlem112.u  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  U  e.  ( ( F  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
fourierdlem112.fdvcn  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) -cn-> CC ) )
fourierdlem112.e  |-  ( ph  ->  E  e.  ( ( ( RR  _D  F
)  |`  ( -oo (,) X ) ) lim CC  X ) )
fourierdlem112.i  |-  ( ph  ->  I  e.  ( ( ( RR  _D  F
)  |`  ( X (,) +oo ) ) lim CC  X
) )
fourierdlem112.l  |-  ( ph  ->  L  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
fourierdlem112.r  |-  ( ph  ->  R  e.  ( ( F  |`  ( X (,) +oo ) ) lim CC  X ) )
fourierdlem112.a  |-  A  =  ( n  e.  NN0  |->  ( S. ( -u pi (,) pi ) ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) )
fourierdlem112.b  |-  B  =  ( n  e.  NN  |->  ( S. ( -u pi (,) pi ) ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi ) )
fourierdlem112.z  |-  Z  =  ( 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 ) ) ) ) ) )
fourierdlem112.23  |-  S  =  ( n  e.  NN  |->  ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )
fourierdlem112.fbd  |-  ( ph  ->  E. w  e.  RR  A. t  e.  RR  ( abs `  ( F `  t ) )  <_  w )
fourierdlem112.fdvbd  |-  ( ph  ->  E. z  e.  RR  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )
fourierdlem112.25  |-  ( ph  ->  X  e.  RR )
Assertion
Ref Expression
fourierdlem112  |-  ( ph  ->  (  seq 1 (  +  ,  S )  ~~>  ( ( ( L  +  R )  / 
2 )  -  (
( A `  0
)  /  2 ) )  /\  ( ( ( A `  0
)  /  2 )  +  sum_ n  e.  NN  ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )  =  ( ( L  +  R )  /  2 ) ) )
Distinct variable groups:    x, k    A, k, m, n    B, k, m, n    t, C, m    x, C, m    D, i, k, m, n, x, y    i, F, t, z    y, F, t, k, m    z,
k, m    n, F    w, F, i, t, z   
x, F    i, L, t, z, k, m    n, L    w, L    f, M, i, t, y, m    n, M, x    M, p, i, n, y    i, N, t, w, z    f, N, y, m    n, N, p    x, N, f    Q, f, i, t, y, k, m    Q, n, x    Q, p, k    R, i, t, z, k, m    R, n    w, R    T, f, t, y, i, k, m    T, n, x    T, p    t, U, m    x, U    i, V, t, w, z    f, V, k, m    n, V, p   
x, V    i, X, t, z    f, X, y, k, m    n, X, p    w, X    x, X    m, Z    ph, i, t, w, z    ph, f,
k, m, y    ph, n    w, m    ph, x
Allowed substitution hints:    ph( p)    A( x, y, z, w, t, f, i, p)    B( x, y, z, w, t, f, i, p)    C( y, z, w, f, i, k, n, p)    D( z, w, t, f, p)    P( x, y, z, w, t, f, i, k, m, n, p)    Q( z, w)    R( x, y, f, p)    S( x, y, z, w, t, f, i, k, m, n, p)    T( z, w)    U( y, z, w, f, i, k, n, p)    E( x, y, z, w, t, f, i, k, m, n, p)    F( f, p)    I( x, y, z, w, t, f, i, k, m, n, p)    L( x, y, f, p)    M( z, w, k)    N( k)    V( y)    Z( x, y, z, w, t, f, i, k, n, p)

Proof of Theorem fourierdlem112
Dummy variables  j 
l  a  s  b  e  g  c  u  q  r  v  h  d  o are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem112.23 . . . . 5  |-  S  =  ( n  e.  NN  |->  ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )
2 fveq2 6191 . . . . . . . 8  |-  ( n  =  j  ->  ( A `  n )  =  ( A `  j ) )
3 oveq1 6657 . . . . . . . . 9  |-  ( n  =  j  ->  (
n  x.  X )  =  ( j  x.  X ) )
43fveq2d 6195 . . . . . . . 8  |-  ( n  =  j  ->  ( cos `  ( n  x.  X ) )  =  ( cos `  (
j  x.  X ) ) )
52, 4oveq12d 6668 . . . . . . 7  |-  ( n  =  j  ->  (
( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  =  ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) ) )
6 fveq2 6191 . . . . . . . 8  |-  ( n  =  j  ->  ( B `  n )  =  ( B `  j ) )
73fveq2d 6195 . . . . . . . 8  |-  ( n  =  j  ->  ( sin `  ( n  x.  X ) )  =  ( sin `  (
j  x.  X ) ) )
86, 7oveq12d 6668 . . . . . . 7  |-  ( n  =  j  ->  (
( B `  n
)  x.  ( sin `  ( n  x.  X
) ) )  =  ( ( B `  j )  x.  ( sin `  ( j  x.  X ) ) ) )
95, 8oveq12d 6668 . . . . . 6  |-  ( n  =  j  ->  (
( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  =  ( ( ( A `
 j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) )
109cbvmptv 4750 . . . . 5  |-  ( n  e.  NN  |->  ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) )  =  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) )
111, 10eqtri 2644 . . . 4  |-  S  =  ( j  e.  NN  |->  ( ( ( A `
 j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) )
12 seqeq3 12806 . . . 4  |-  ( S  =  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) )  ->  seq 1
(  +  ,  S
)  =  seq 1
(  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) ) )
1311, 12mp1i 13 . . 3  |-  ( ph  ->  seq 1 (  +  ,  S )  =  seq 1 (  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) ) ) )
14 nnuz 11723 . . . . 5  |-  NN  =  ( ZZ>= `  1 )
15 1zzd 11408 . . . . 5  |-  ( ph  ->  1  e.  ZZ )
16 nfv 1843 . . . . . . 7  |-  F/ n ph
17 nfcv 2764 . . . . . . . 8  |-  F/_ n NN
18 nfcv 2764 . . . . . . . . 9  |-  F/_ n
( -u pi (,) 0
)
19 nfcv 2764 . . . . . . . . . 10  |-  F/_ n
( F `  ( X  +  s )
)
20 nfcv 2764 . . . . . . . . . 10  |-  F/_ n  x.
21 nfcv 2764 . . . . . . . . . 10  |-  F/_ n
( ( D `  m ) `  s
)
2219, 20, 21nfov 6676 . . . . . . . . 9  |-  F/_ n
( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)
2318, 22nfitg 23541 . . . . . . . 8  |-  F/_ n S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s
2417, 23nfmpt 4746 . . . . . . 7  |-  F/_ n
( m  e.  NN  |->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s )
25 nfcv 2764 . . . . . . . . 9  |-  F/_ n
( 0 (,) pi )
2625, 22nfitg 23541 . . . . . . . 8  |-  F/_ n S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s
2717, 26nfmpt 4746 . . . . . . 7  |-  F/_ n
( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s )
28 fourierdlem112.z . . . . . . . 8  |-  Z  =  ( 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 ) ) ) ) ) )
29 fourierdlem112.a . . . . . . . . . . . . 13  |-  A  =  ( n  e.  NN0  |->  ( S. ( -u pi (,) pi ) ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) )
30 nfmpt1 4747 . . . . . . . . . . . . 13  |-  F/_ n
( n  e.  NN0  |->  ( S. ( -u pi (,) pi ) ( ( F `  x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) )
3129, 30nfcxfr 2762 . . . . . . . . . . . 12  |-  F/_ n A
32 nfcv 2764 . . . . . . . . . . . 12  |-  F/_ n
0
3331, 32nffv 6198 . . . . . . . . . . 11  |-  F/_ n
( A `  0
)
34 nfcv 2764 . . . . . . . . . . 11  |-  F/_ n  /
35 nfcv 2764 . . . . . . . . . . 11  |-  F/_ n
2
3633, 34, 35nfov 6676 . . . . . . . . . 10  |-  F/_ n
( ( A ` 
0 )  /  2
)
37 nfcv 2764 . . . . . . . . . 10  |-  F/_ n  +
38 nfcv 2764 . . . . . . . . . . 11  |-  F/_ n
( 1 ... m
)
3938nfsum1 14420 . . . . . . . . . 10  |-  F/_ n sum_ n  e.  ( 1 ... m ) ( ( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )
4036, 37, 39nfov 6676 . . . . . . . . 9  |-  F/_ n
( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  ( 1 ... m ) ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) )
4117, 40nfmpt 4746 . . . . . . . 8  |-  F/_ n
( 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 ) ) ) ) ) )
4228, 41nfcxfr 2762 . . . . . . 7  |-  F/_ n Z
43 fourierdlem112.f . . . . . . . 8  |-  ( ph  ->  F : RR --> RR )
44 fourierdlem112.25 . . . . . . . 8  |-  ( ph  ->  X  e.  RR )
45 eqid 2622 . . . . . . . 8  |-  ( n  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  ( -u pi  +  X )  /\  (
p `  n )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )  =  ( n  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  ( -u pi  +  X )  /\  (
p `  n )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )
46 picn 24211 . . . . . . . . . . . . 13  |-  pi  e.  CC
47462timesi 11147 . . . . . . . . . . . 12  |-  ( 2  x.  pi )  =  ( pi  +  pi )
48 fourierdlem112.t . . . . . . . . . . . 12  |-  T  =  ( 2  x.  pi )
4946, 46subnegi 10360 . . . . . . . . . . . 12  |-  ( pi 
-  -u pi )  =  ( pi  +  pi )
5047, 48, 493eqtr4i 2654 . . . . . . . . . . 11  |-  T  =  ( pi  -  -u pi )
51 fourierdlem112.p . . . . . . . . . . 11  |-  P  =  ( n  e.  NN  |->  { p  e.  ( RR  ^m  ( 0 ... n ) )  |  ( ( ( p `
 0 )  = 
-u pi  /\  (
p `  n )  =  pi )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )
52 fourierdlem112.m . . . . . . . . . . 11  |-  ( ph  ->  M  e.  NN )
53 fourierdlem112.q . . . . . . . . . . 11  |-  ( ph  ->  Q  e.  ( P `
 M ) )
54 pire 24210 . . . . . . . . . . . . . 14  |-  pi  e.  RR
5554a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  pi  e.  RR )
5655renegcld 10457 . . . . . . . . . . . 12  |-  ( ph  -> 
-u pi  e.  RR )
5756, 44readdcld 10069 . . . . . . . . . . 11  |-  ( ph  ->  ( -u pi  +  X )  e.  RR )
5855, 44readdcld 10069 . . . . . . . . . . 11  |-  ( ph  ->  ( pi  +  X
)  e.  RR )
59 negpilt0 39492 . . . . . . . . . . . . . 14  |-  -u pi  <  0
60 pipos 24212 . . . . . . . . . . . . . 14  |-  0  <  pi
6154renegcli 10342 . . . . . . . . . . . . . . 15  |-  -u pi  e.  RR
62 0re 10040 . . . . . . . . . . . . . . 15  |-  0  e.  RR
6361, 62, 54lttri 10163 . . . . . . . . . . . . . 14  |-  ( (
-u pi  <  0  /\  0  <  pi )  ->  -u pi  <  pi )
6459, 60, 63mp2an 708 . . . . . . . . . . . . 13  |-  -u pi  <  pi
6564a1i 11 . . . . . . . . . . . 12  |-  ( ph  -> 
-u pi  <  pi )
6656, 55, 44, 65ltadd1dd 10638 . . . . . . . . . . 11  |-  ( ph  ->  ( -u pi  +  X )  <  (
pi  +  X ) )
67 oveq1 6657 . . . . . . . . . . . . . . 15  |-  ( y  =  x  ->  (
y  +  ( k  x.  T ) )  =  ( x  +  ( k  x.  T
) ) )
6867eleq1d 2686 . . . . . . . . . . . . . 14  |-  ( y  =  x  ->  (
( y  +  ( k  x.  T ) )  e.  ran  Q  <->  ( x  +  ( k  x.  T ) )  e.  ran  Q ) )
6968rexbidv 3052 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  ( E. k  e.  ZZ  ( y  +  ( k  x.  T ) )  e.  ran  Q  <->  E. k  e.  ZZ  (
x  +  ( k  x.  T ) )  e.  ran  Q ) )
7069cbvrabv 3199 . . . . . . . . . . . 12  |-  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }  =  { x  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  |  E. k  e.  ZZ  ( x  +  ( k  x.  T
) )  e.  ran  Q }
7170uneq2i 3764 . . . . . . . . . . 11  |-  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
)  =  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { x  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  |  E. k  e.  ZZ  ( x  +  ( k  x.  T
) )  e.  ran  Q } )
72 fourierdlem112.n . . . . . . . . . . 11  |-  N  =  ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 )
73 fourierdlem112.v . . . . . . . . . . 11  |-  V  =  ( iota f f 
Isom  <  ,  <  (
( 0 ... N
) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) ) )
7450, 51, 52, 53, 57, 58, 66, 45, 71, 72, 73fourierdlem54 40377 . . . . . . . . . 10  |-  ( ph  ->  ( ( N  e.  NN  /\  V  e.  ( ( n  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  ( -u pi  +  X )  /\  (
p `  n )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } ) `
 N ) )  /\  V  Isom  <  ,  <  ( ( 0 ... N ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) ) ) )
7574simpld 475 . . . . . . . . 9  |-  ( ph  ->  ( N  e.  NN  /\  V  e.  ( ( n  e.  NN  |->  { p  e.  ( RR 
^m  ( 0 ... n ) )  |  ( ( ( p `
 0 )  =  ( -u pi  +  X )  /\  (
p `  n )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } ) `
 N ) ) )
7675simpld 475 . . . . . . . 8  |-  ( ph  ->  N  e.  NN )
7775simprd 479 . . . . . . . 8  |-  ( ph  ->  V  e.  ( ( n  e.  NN  |->  { p  e.  ( RR 
^m  ( 0 ... n ) )  |  ( ( ( p `
 0 )  =  ( -u pi  +  X )  /\  (
p `  n )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } ) `
 N ) )
78 fourierdlem112.xran . . . . . . . 8  |-  ( ph  ->  X  e.  ran  V
)
7943adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  F : RR --> RR )
80 fveq2 6191 . . . . . . . . . . . . . . . 16  |-  ( i  =  j  ->  (
p `  i )  =  ( p `  j ) )
81 oveq1 6657 . . . . . . . . . . . . . . . . 17  |-  ( i  =  j  ->  (
i  +  1 )  =  ( j  +  1 ) )
8281fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( i  =  j  ->  (
p `  ( i  +  1 ) )  =  ( p `  ( j  +  1 ) ) )
8380, 82breq12d 4666 . . . . . . . . . . . . . . 15  |-  ( i  =  j  ->  (
( p `  i
)  <  ( p `  ( i  +  1 ) )  <->  ( p `  j )  <  (
p `  ( j  +  1 ) ) ) )
8483cbvralv 3171 . . . . . . . . . . . . . 14  |-  ( A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) )  <->  A. j  e.  ( 0..^ n ) ( p `  j )  <  ( p `  ( j  +  1 ) ) )
8584anbi2i 730 . . . . . . . . . . . . 13  |-  ( ( ( ( p ` 
0 )  =  -u pi  /\  ( p `  n )  =  pi )  /\  A. i  e.  ( 0..^ n ) ( p `  i
)  <  ( p `  ( i  +  1 ) ) )  <->  ( (
( p `  0
)  =  -u pi  /\  ( p `  n
)  =  pi )  /\  A. j  e.  ( 0..^ n ) ( p `  j
)  <  ( p `  ( j  +  1 ) ) ) )
8685a1i 11 . . . . . . . . . . . 12  |-  ( p  e.  ( RR  ^m  ( 0 ... n
) )  ->  (
( ( ( p `
 0 )  = 
-u pi  /\  (
p `  n )  =  pi )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) )  <->  ( (
( p `  0
)  =  -u pi  /\  ( p `  n
)  =  pi )  /\  A. j  e.  ( 0..^ n ) ( p `  j
)  <  ( p `  ( j  +  1 ) ) ) ) )
8786rabbiia 3185 . . . . . . . . . . 11  |-  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  -u pi  /\  (
p `  n )  =  pi )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) }  =  { p  e.  ( RR  ^m  ( 0 ... n ) )  |  ( ( ( p `
 0 )  = 
-u pi  /\  (
p `  n )  =  pi )  /\  A. j  e.  ( 0..^ n ) ( p `
 j )  < 
( p `  (
j  +  1 ) ) ) }
8887mpteq2i 4741 . . . . . . . . . 10  |-  ( n  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  -u pi  /\  (
p `  n )  =  pi )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )  =  ( n  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  -u pi  /\  (
p `  n )  =  pi )  /\  A. j  e.  ( 0..^ n ) ( p `
 j )  < 
( p `  (
j  +  1 ) ) ) } )
8951, 88eqtri 2644 . . . . . . . . 9  |-  P  =  ( n  e.  NN  |->  { p  e.  ( RR  ^m  ( 0 ... n ) )  |  ( ( ( p `
 0 )  = 
-u pi  /\  (
p `  n )  =  pi )  /\  A. j  e.  ( 0..^ n ) ( p `
 j )  < 
( p `  (
j  +  1 ) ) ) } )
9052adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  M  e.  NN )
9153adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  Q  e.  ( P `  M ) )
92 fourierdlem112.fper . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR )  ->  ( F `
 ( x  +  T ) )  =  ( F `  x
) )
9392adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  x  e.  RR )  ->  ( F `  ( x  +  T ) )  =  ( F `  x
) )
94 eleq1 2689 . . . . . . . . . . . . 13  |-  ( i  =  j  ->  (
i  e.  ( 0..^ M )  <->  j  e.  ( 0..^ M ) ) )
9594anbi2d 740 . . . . . . . . . . . 12  |-  ( i  =  j  ->  (
( ph  /\  i  e.  ( 0..^ M ) )  <->  ( ph  /\  j  e.  ( 0..^ M ) ) ) )
96 fveq2 6191 . . . . . . . . . . . . . . 15  |-  ( i  =  j  ->  ( Q `  i )  =  ( Q `  j ) )
9781fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( i  =  j  ->  ( Q `  ( i  +  1 ) )  =  ( Q `  ( j  +  1 ) ) )
9896, 97oveq12d 6668 . . . . . . . . . . . . . 14  |-  ( i  =  j  ->  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )  =  ( ( Q `
 j ) (,) ( Q `  (
j  +  1 ) ) ) )
9998reseq2d 5396 . . . . . . . . . . . . 13  |-  ( i  =  j  ->  ( F  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )  =  ( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) )
10098oveq1d 6665 . . . . . . . . . . . . 13  |-  ( i  =  j  ->  (
( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) -cn-> CC )  =  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) )
10199, 100eleq12d 2695 . . . . . . . . . . . 12  |-  ( i  =  j  ->  (
( F  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )
-cn-> CC )  <->  ( F  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) )  e.  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) ) )
10295, 101imbi12d 334 . . . . . . . . . . 11  |-  ( i  =  j  ->  (
( ( ph  /\  i  e.  ( 0..^ M ) )  -> 
( F  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )
-cn-> CC ) )  <->  ( ( ph  /\  j  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) )  e.  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) ) ) )
103 fourierdlem112.fcn . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) -cn-> CC ) )
104102, 103chvarv 2263 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) )  e.  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) )
105104adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  j  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) )  e.  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) )
10657adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( -u pi  +  X )  e.  RR )
10757rexrd 10089 . . . . . . . . . . 11  |-  ( ph  ->  ( -u pi  +  X )  e.  RR* )
108 pnfxr 10092 . . . . . . . . . . . 12  |- +oo  e.  RR*
109108a1i 11 . . . . . . . . . . 11  |-  ( ph  -> +oo  e.  RR* )
11058ltpnfd 11955 . . . . . . . . . . 11  |-  ( ph  ->  ( pi  +  X
)  < +oo )
111107, 109, 58, 66, 110eliood 39720 . . . . . . . . . 10  |-  ( ph  ->  ( pi  +  X
)  e.  ( (
-u pi  +  X
) (,) +oo )
)
112111adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( pi  +  X )  e.  ( ( -u pi  +  X ) (,) +oo ) )
113 id 22 . . . . . . . . . . 11  |-  ( i  e.  ( 0..^ N )  ->  i  e.  ( 0..^ N ) )
11472oveq2i 6661 . . . . . . . . . . 11  |-  ( 0..^ N )  =  ( 0..^ ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) )  - 
1 ) )
115113, 114syl6eleq 2711 . . . . . . . . . 10  |-  ( i  e.  ( 0..^ N )  ->  i  e.  ( 0..^ ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) )  - 
1 ) ) )
116115adantl 482 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  i  e.  ( 0..^ ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) )  - 
1 ) ) )
11772oveq2i 6661 . . . . . . . . . . . 12  |-  ( 0 ... N )  =  ( 0 ... (
( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 ) )
118 isoeq4 6570 . . . . . . . . . . . 12  |-  ( ( 0 ... N )  =  ( 0 ... ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 ) )  ->  (
f  Isom  <  ,  <  ( ( 0 ... N
) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  <->  f  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) )  - 
1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) ) ) )
119117, 118ax-mp 5 . . . . . . . . . . 11  |-  ( f 
Isom  <  ,  <  (
( 0 ... N
) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  <->  f  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) )  - 
1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) ) )
120119iotabii 5873 . . . . . . . . . 10  |-  ( iota f f  Isom  <  ,  <  ( ( 0 ... N ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) ) )  =  ( iota f
f  Isom  <  ,  <  ( ( 0 ... (
( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) ) )
12173, 120eqtri 2644 . . . . . . . . 9  |-  V  =  ( iota f f 
Isom  <  ,  <  (
( 0 ... (
( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) ) )
12279, 89, 50, 90, 91, 93, 105, 106, 112, 116, 121fourierdlem98 40421 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
123 fourierdlem112.fbd . . . . . . . . . 10  |-  ( ph  ->  E. w  e.  RR  A. t  e.  RR  ( abs `  ( F `  t ) )  <_  w )
124123adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  E. w  e.  RR  A. t  e.  RR  ( abs `  ( F `  t ) )  <_  w )
125 nfra1 2941 . . . . . . . . . . 11  |-  F/ t A. t  e.  RR  ( abs `  ( F `
 t ) )  <_  w
126 elioore 12205 . . . . . . . . . . . . 13  |-  ( t  e.  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) )  ->  t  e.  RR )
127 rspa 2930 . . . . . . . . . . . . 13  |-  ( ( A. t  e.  RR  ( abs `  ( F `
 t ) )  <_  w  /\  t  e.  RR )  ->  ( abs `  ( F `  t ) )  <_  w )
128126, 127sylan2 491 . . . . . . . . . . . 12  |-  ( ( A. t  e.  RR  ( abs `  ( F `
 t ) )  <_  w  /\  t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  ->  ( abs `  ( F `  t ) )  <_  w )
129128ex 450 . . . . . . . . . . 11  |-  ( A. t  e.  RR  ( abs `  ( F `  t ) )  <_  w  ->  ( t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) )  ->  ( abs `  ( F `  t
) )  <_  w
) )
130125, 129ralrimi 2957 . . . . . . . . . 10  |-  ( A. t  e.  RR  ( abs `  ( F `  t ) )  <_  w  ->  A. t  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )
131130reximi 3011 . . . . . . . . 9  |-  ( E. w  e.  RR  A. t  e.  RR  ( abs `  ( F `  t ) )  <_  w  ->  E. w  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( F `
 t ) )  <_  w )
132124, 131syl 17 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( F `
 t ) )  <_  w )
133 ssid 3624 . . . . . . . . . . . 12  |-  RR  C_  RR
134 dvfre 23714 . . . . . . . . . . . 12  |-  ( ( F : RR --> RR  /\  RR  C_  RR )  -> 
( RR  _D  F
) : dom  ( RR  _D  F ) --> RR )
13543, 133, 134sylancl 694 . . . . . . . . . . 11  |-  ( ph  ->  ( RR  _D  F
) : dom  ( RR  _D  F ) --> RR )
136135adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( RR  _D  F ) : dom  ( RR  _D  F
) --> RR )
137 eqid 2622 . . . . . . . . . . . . 13  |-  ( RR 
_D  F )  =  ( RR  _D  F
)
13854a1i 11 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  pi  e.  RR )
13961a1i 11 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  -u pi  e.  RR )
14098reseq2d 5396 . . . . . . . . . . . . . . . . 17  |-  ( i  =  j  ->  (
( RR  _D  F
)  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )  =  ( ( RR  _D  F )  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) )
141140, 100eleq12d 2695 . . . . . . . . . . . . . . . 16  |-  ( i  =  j  ->  (
( ( RR  _D  F )  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )
-cn-> CC )  <->  ( ( RR  _D  F )  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) )  e.  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) ) )
14295, 141imbi12d 334 . . . . . . . . . . . . . . 15  |-  ( i  =  j  ->  (
( ( ph  /\  i  e.  ( 0..^ M ) )  -> 
( ( RR  _D  F )  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )
-cn-> CC ) )  <->  ( ( ph  /\  j  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) )  e.  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) ) ) )
143 fourierdlem112.fdvcn . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) -cn-> CC ) )
144142, 143chvarv 2263 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) )  e.  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) )
145144adantlr 751 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  j  e.  ( 0..^ M ) )  ->  ( ( RR  _D  F )  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) )  e.  ( ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) -cn-> CC ) )
146 fourierdlem112.x . . . . . . . . . . . . . . 15  |-  ( ph  ->  X  e.  RR )
14756, 146readdcld 10069 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( -u pi  +  X )  e.  RR )
148147adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( -u pi  +  X )  e.  RR )
149147rexrd 10089 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( -u pi  +  X )  e.  RR* )
15055, 146readdcld 10069 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( pi  +  X
)  e.  RR )
15156, 55, 146, 65ltadd1dd 10638 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( -u pi  +  X )  <  (
pi  +  X ) )
152150ltpnfd 11955 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( pi  +  X
)  < +oo )
153149, 109, 150, 151, 152eliood 39720 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( pi  +  X
)  e.  ( (
-u pi  +  X
) (,) +oo )
)
154153adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( pi  +  X )  e.  ( ( -u pi  +  X ) (,) +oo ) )
155 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  =  h  ->  (
k  x.  T )  =  ( h  x.  T ) )
156155oveq2d 6666 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  =  h  ->  (
y  +  ( k  x.  T ) )  =  ( y  +  ( h  x.  T
) ) )
157156eleq1d 2686 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  =  h  ->  (
( y  +  ( k  x.  T ) )  e.  ran  Q  <->  ( y  +  ( h  x.  T ) )  e.  ran  Q ) )
158157cbvrexv 3172 . . . . . . . . . . . . . . . . . . 19  |-  ( E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q  <->  E. h  e.  ZZ  ( y  +  ( h  x.  T
) )  e.  ran  Q )
159158rgenw 2924 . . . . . . . . . . . . . . . . . 18  |-  A. y  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) ) ( E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q  <->  E. h  e.  ZZ  ( y  +  ( h  x.  T ) )  e.  ran  Q
)
160 rabbi 3120 . . . . . . . . . . . . . . . . . 18  |-  ( A. y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X ) ) ( E. k  e.  ZZ  ( y  +  ( k  x.  T ) )  e.  ran  Q  <->  E. h  e.  ZZ  (
y  +  ( h  x.  T ) )  e.  ran  Q )  <->  { y  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q }  =  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. h  e.  ZZ  (
y  +  ( h  x.  T ) )  e.  ran  Q }
)
161159, 160mpbi 220 . . . . . . . . . . . . . . . . 17  |-  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }  =  { y  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  |  E. h  e.  ZZ  ( y  +  ( h  x.  T
) )  e.  ran  Q }
162161uneq2i 3764 . . . . . . . . . . . . . . . 16  |-  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
)  =  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. h  e.  ZZ  (
y  +  ( h  x.  T ) )  e.  ran  Q }
)
163 isoeq5 6571 . . . . . . . . . . . . . . . 16  |-  ( ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
)  =  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. h  e.  ZZ  (
y  +  ( h  x.  T ) )  e.  ran  Q }
)  ->  ( f  Isom  <  ,  <  (
( 0 ... (
( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  <->  f  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) )  - 
1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. h  e.  ZZ  ( y  +  ( h  x.  T
) )  e.  ran  Q } ) ) ) )
164162, 163ax-mp 5 . . . . . . . . . . . . . . 15  |-  ( f 
Isom  <  ,  <  (
( 0 ... (
( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  <->  f  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) )  - 
1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. h  e.  ZZ  ( y  +  ( h  x.  T
) )  e.  ran  Q } ) ) )
165164iotabii 5873 . . . . . . . . . . . . . 14  |-  ( iota f f  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) )  - 
1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X
) }  u.  {
y  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  |  E. k  e.  ZZ  ( y  +  ( k  x.  T
) )  e.  ran  Q } ) ) )  =  ( iota f
f  Isom  <  ,  <  ( ( 0 ... (
( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. h  e.  ZZ  (
y  +  ( h  x.  T ) )  e.  ran  Q }
) ) )
166121, 165eqtri 2644 . . . . . . . . . . . . 13  |-  V  =  ( iota f f 
Isom  <  ,  <  (
( 0 ... (
( # `  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. k  e.  ZZ  (
y  +  ( k  x.  T ) )  e.  ran  Q }
) )  -  1 ) ) ,  ( { ( -u pi  +  X ) ,  ( pi  +  X ) }  u.  { y  e.  ( ( -u pi  +  X ) [,] ( pi  +  X
) )  |  E. h  e.  ZZ  (
y  +  ( h  x.  T ) )  e.  ran  Q }
) ) )
167 eleq1 2689 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  (
v  e.  dom  ( RR  _D  F )  <->  u  e.  dom  ( RR  _D  F
) ) )
168 fveq2 6191 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  (
( RR  _D  F
) `  v )  =  ( ( RR 
_D  F ) `  u ) )
169167, 168ifbieq1d 4109 . . . . . . . . . . . . . 14  |-  ( v  =  u  ->  if ( v  e.  dom  ( RR  _D  F
) ,  ( ( RR  _D  F ) `
 v ) ,  0 )  =  if ( u  e.  dom  ( RR  _D  F
) ,  ( ( RR  _D  F ) `
 u ) ,  0 ) )
170169cbvmptv 4750 . . . . . . . . . . . . 13  |-  ( v  e.  RR  |->  if ( v  e.  dom  ( RR  _D  F ) ,  ( ( RR  _D  F ) `  v
) ,  0 ) )  =  ( u  e.  RR  |->  if ( u  e.  dom  ( RR  _D  F ) ,  ( ( RR  _D  F ) `  u
) ,  0 ) )
17179, 137, 89, 138, 139, 50, 90, 91, 93, 145, 148, 154, 116, 166, 170fourierdlem97 40420 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
172 cncff 22696 . . . . . . . . . . . 12  |-  ( ( ( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) )  e.  ( ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) -cn-> CC )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> CC )
173 fdm 6051 . . . . . . . . . . . 12  |-  ( ( ( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> CC  ->  dom  ( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) )  =  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )
174171, 172, 1733syl 18 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  dom  ( ( RR  _D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  =  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) )
175 ssdmres 5420 . . . . . . . . . . 11  |-  ( ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) 
C_  dom  ( RR  _D  F )  <->  dom  ( ( RR  _D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  =  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) )
176174, 175sylibr 224 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) )  C_  dom  ( RR  _D  F
) )
177136, 176fssresd 6071 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> RR )
178 ax-resscn 9993 . . . . . . . . . . 11  |-  RR  C_  CC
179178a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  RR  C_  CC )
180 cncffvrn 22701 . . . . . . . . . 10  |-  ( ( RR  C_  CC  /\  (
( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) )  e.  ( ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) -cn-> CC ) )  ->  ( (
( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) )  e.  ( ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) -cn-> RR )  <-> 
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR ) )
181179, 171, 180syl2anc 693 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( ( ( RR  _D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> RR )  <->  ( ( RR  _D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> RR ) )
182177, 181mpbird 247 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> RR ) )
183 fourierdlem112.fdvbd . . . . . . . . . . 11  |-  ( ph  ->  E. z  e.  RR  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )
184183adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  E. z  e.  RR  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )
185 nfv 1843 . . . . . . . . . . . . . 14  |-  F/ t ( ph  /\  i  e.  ( 0..^ N ) )
186 nfra1 2941 . . . . . . . . . . . . . 14  |-  F/ t A. t  e.  dom  ( RR  _D  F
) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z
187185, 186nfan 1828 . . . . . . . . . . . . 13  |-  F/ t ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )
188 fvres 6207 . . . . . . . . . . . . . . . . . 18  |-  ( t  e.  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) )  ->  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t )  =  ( ( RR 
_D  F ) `  t ) )
189188adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  ->  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t )  =  ( ( RR 
_D  F ) `  t ) )
190189fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  ->  ( abs `  ( ( ( RR  _D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) `  t
) )  =  ( abs `  ( ( RR  _D  F ) `
 t ) ) )
191190adantlr 751 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )  /\  t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) )  -> 
( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  =  ( abs `  ( ( RR  _D  F ) `  t
) ) )
192 simplr 792 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )  /\  t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) )  ->  A. t  e.  dom  ( RR  _D  F
) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
193176sselda 3603 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  ->  t  e.  dom  ( RR  _D  F ) )
194193adantlr 751 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )  /\  t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) )  -> 
t  e.  dom  ( RR  _D  F ) )
195 rspa 2930 . . . . . . . . . . . . . . . 16  |-  ( ( A. t  e.  dom  ( RR  _D  F
) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z  /\  t  e.  dom  ( RR 
_D  F ) )  ->  ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
196192, 194, 195syl2anc 693 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )  /\  t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) )  -> 
( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
197191, 196eqbrtrd 4675 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )  /\  t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) )  -> 
( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z )
198197ex 450 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `  t
) )  <_  z
)  ->  ( t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) )  ->  ( abs `  ( ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) `  t
) )  <_  z
) )
199187, 198ralrimi 2957 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `  t
) )  <_  z
)  ->  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z )
200199ex 450 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( A. t  e.  dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `  t
) )  <_  z  ->  A. t  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z )
)
201200reximdv 3016 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( E. z  e.  RR  A. t  e. 
dom  ( RR  _D  F ) ( abs `  ( ( RR  _D  F ) `  t
) )  <_  z  ->  E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( ( ( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) `  t ) )  <_ 
z ) )
202184, 201mpd 15 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( ( ( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) `  t ) )  <_ 
z )
203 nfra1 2941 . . . . . . . . . . . 12  |-  F/ t A. t  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z
204188eqcomd 2628 . . . . . . . . . . . . . . . 16  |-  ( t  e.  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) )  ->  (
( RR  _D  F
) `  t )  =  ( ( ( RR  _D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) `  t
) )
205204fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( t  e.  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) )  ->  ( abs `  ( ( RR 
_D  F ) `  t ) )  =  ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) ) )
206205adantl 482 . . . . . . . . . . . . . 14  |-  ( ( A. t  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z  /\  t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) )  -> 
( abs `  (
( RR  _D  F
) `  t )
)  =  ( abs `  ( ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) `  t
) ) )
207 rspa 2930 . . . . . . . . . . . . . 14  |-  ( ( A. t  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z  /\  t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) )  -> 
( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z )
208206, 207eqbrtrd 4675 . . . . . . . . . . . . 13  |-  ( ( A. t  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z  /\  t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) )  -> 
( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
209208ex 450 . . . . . . . . . . . 12  |-  ( A. t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) ( abs `  ( ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) `  t
) )  <_  z  ->  ( t  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) )  ->  ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
)
210203, 209ralrimi 2957 . . . . . . . . . . 11  |-  ( A. t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) ( abs `  ( ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) `  t
) )  <_  z  ->  A. t  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
211210a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z  ->  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z ) )
212211reximdv 3016 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  ( E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) `  t ) )  <_  z  ->  E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) ( abs `  ( ( RR  _D  F ) `  t
) )  <_  z
) )
213202, 212mpd 15 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )
214 nfv 1843 . . . . . . . . . . . 12  |-  F/ i ( ph  /\  j  e.  ( 0..^ M ) )
215 nfcsb1v 3549 . . . . . . . . . . . . 13  |-  F/_ i [_ j  /  i ]_ C
216215nfel1 2779 . . . . . . . . . . . 12  |-  F/ i
[_ j  /  i ]_ C  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 j ) )
217214, 216nfim 1825 . . . . . . . . . . 11  |-  F/ i ( ( ph  /\  j  e.  ( 0..^ M ) )  ->  [_ j  /  i ]_ C  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 j ) ) )
218 csbeq1a 3542 . . . . . . . . . . . . 13  |-  ( i  =  j  ->  C  =  [_ j  /  i ]_ C )
21999, 96oveq12d 6668 . . . . . . . . . . . . 13  |-  ( i  =  j  ->  (
( F  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 i ) )  =  ( ( F  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) ) lim CC  ( Q `  j )
) )
220218, 219eleq12d 2695 . . . . . . . . . . . 12  |-  ( i  =  j  ->  ( C  e.  ( ( F  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) ) lim CC  ( Q `  i ) )  <->  [_ j  /  i ]_ C  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 j ) ) ) )
22195, 220imbi12d 334 . . . . . . . . . . 11  |-  ( i  =  j  ->  (
( ( ph  /\  i  e.  ( 0..^ M ) )  ->  C  e.  ( ( F  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) ) lim CC  ( Q `  i ) ) )  <->  ( ( ph  /\  j  e.  ( 0..^ M ) )  ->  [_ j  /  i ]_ C  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 j ) ) ) ) )
222 fourierdlem112.c . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  C  e.  ( ( F  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 i ) ) )
223217, 221, 222chvar 2262 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( 0..^ M ) )  ->  [_ j  /  i ]_ C  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 j ) ) )
224223adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  j  e.  ( 0..^ M ) )  ->  [_ j  / 
i ]_ C  e.  ( ( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 j ) ) )
22579, 89, 50, 90, 91, 93, 105, 224, 106, 112, 116, 121fourierdlem96 40419 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  if ( ( ( d  e.  (
-u pi (,] pi )  |->  if ( d  =  pi ,  -u pi ,  d )
) `  ( (
c  e.  RR  |->  ( c  +  ( ( |_ `  ( ( pi  -  c )  /  T ) )  x.  T ) ) ) `  ( V `
 i ) ) )  =  ( Q `
 ( ( y  e.  RR  |->  sup ( { f  e.  ( 0..^ M )  |  ( Q `  f
)  <_  ( (
d  e.  ( -u pi (,] pi )  |->  if ( d  =  pi ,  -u pi ,  d ) ) `  (
( c  e.  RR  |->  ( c  +  ( ( |_ `  (
( pi  -  c
)  /  T ) )  x.  T ) ) ) `  y
) ) } ,  RR ,  <  ) ) `
 ( V `  i ) ) ) ,  ( ( j  e.  ( 0..^ M )  |->  [_ j  /  i ]_ C ) `  (
( y  e.  RR  |->  sup ( { f  e.  ( 0..^ M )  |  ( Q `  f )  <_  (
( d  e.  (
-u pi (,] pi )  |->  if ( d  =  pi ,  -u pi ,  d )
) `  ( (
c  e.  RR  |->  ( c  +  ( ( |_ `  ( ( pi  -  c )  /  T ) )  x.  T ) ) ) `  y ) ) } ,  RR ,  <  ) ) `  ( V `  i ) ) ) ,  ( F `  ( ( d  e.  ( -u pi (,] pi )  |->  if ( d  =  pi ,  -u pi ,  d ) ) `  (
( c  e.  RR  |->  ( c  +  ( ( |_ `  (
( pi  -  c
)  /  T ) )  x.  T ) ) ) `  ( V `  i )
) ) ) )  e.  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  i )
) )
226 nfcsb1v 3549 . . . . . . . . . . . . 13  |-  F/_ i [_ j  /  i ]_ U
227226nfel1 2779 . . . . . . . . . . . 12  |-  F/ i
[_ j  /  i ]_ U  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 ( j  +  1 ) ) )
228214, 227nfim 1825 . . . . . . . . . . 11  |-  F/ i ( ( ph  /\  j  e.  ( 0..^ M ) )  ->  [_ j  /  i ]_ U  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 ( j  +  1 ) ) ) )
229 csbeq1a 3542 . . . . . . . . . . . . 13  |-  ( i  =  j  ->  U  =  [_ j  /  i ]_ U )
23099, 97oveq12d 6668 . . . . . . . . . . . . 13  |-  ( i  =  j  ->  (
( F  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 ( i  +  1 ) ) )  =  ( ( F  |`  ( ( Q `  j ) (,) ( Q `  ( j  +  1 ) ) ) ) lim CC  ( Q `  ( j  +  1 ) ) ) )
231229, 230eleq12d 2695 . . . . . . . . . . . 12  |-  ( i  =  j  ->  ( U  e.  ( ( F  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) ) lim CC  ( Q `  ( i  +  1 ) ) )  <->  [_ j  /  i ]_ U  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 ( j  +  1 ) ) ) ) )
23295, 231imbi12d 334 . . . . . . . . . . 11  |-  ( i  =  j  ->  (
( ( ph  /\  i  e.  ( 0..^ M ) )  ->  U  e.  ( ( F  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )  <->  ( ( ph  /\  j  e.  ( 0..^ M ) )  ->  [_ j  /  i ]_ U  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 ( j  +  1 ) ) ) ) ) )
233 fourierdlem112.u . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  U  e.  ( ( F  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
234228, 232, 233chvar 2262 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( 0..^ M ) )  ->  [_ j  /  i ]_ U  e.  (
( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 ( j  +  1 ) ) ) )
235234adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ N ) )  /\  j  e.  ( 0..^ M ) )  ->  [_ j  / 
i ]_ U  e.  ( ( F  |`  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) ) ) lim CC  ( Q `
 ( j  +  1 ) ) ) )
23679, 89, 50, 90, 91, 93, 105, 235, 148, 154, 116, 121fourierdlem99 40422 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ N ) )  ->  if ( ( ( e  e.  RR  |->  ( e  +  ( ( |_ `  (
( pi  -  e
)  /  T ) )  x.  T ) ) ) `  ( V `  ( i  +  1 ) ) )  =  ( Q `
 ( ( ( y  e.  RR  |->  sup ( { h  e.  ( 0..^ M )  |  ( Q `  h )  <_  (
( g  e.  (
-u pi (,] pi )  |->  if ( g  =  pi ,  -u pi ,  g )
) `  ( (
e  e.  RR  |->  ( e  +  ( ( |_ `  ( ( pi  -  e )  /  T ) )  x.  T ) ) ) `  y ) ) } ,  RR ,  <  ) ) `  ( V `  i ) )  +  1 ) ) ,  ( ( j  e.  ( 0..^ M )  |->  [_ j  /  i ]_ U
) `  ( (
y  e.  RR  |->  sup ( { h  e.  ( 0..^ M )  |  ( Q `  h )  <_  (
( g  e.  (
-u pi (,] pi )  |->  if ( g  =  pi ,  -u pi ,  g )
) `  ( (
e  e.  RR  |->  ( e  +  ( ( |_ `  ( ( pi  -  e )  /  T ) )  x.  T ) ) ) `  y ) ) } ,  RR ,  <  ) ) `  ( V `  i ) ) ) ,  ( F `  ( ( e  e.  RR  |->  ( e  +  ( ( |_ `  ( ( pi  -  e )  /  T ) )  x.  T ) ) ) `  ( V `
 ( i  +  1 ) ) ) ) )  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 ( i  +  1 ) ) ) )
237 eqeq1 2626 . . . . . . . . . 10  |-  ( g  =  s  ->  (
g  =  0  <->  s  =  0 ) )
238 oveq2 6658 . . . . . . . . . . . . 13  |-  ( g  =  s  ->  ( X  +  g )  =  ( X  +  s ) )
239238fveq2d 6195 . . . . . . . . . . . 12  |-  ( g  =  s  ->  ( F `  ( X  +  g ) )  =  ( F `  ( X  +  s
) ) )
240 breq2 4657 . . . . . . . . . . . . 13  |-  ( g  =  s  ->  (
0  <  g  <->  0  <  s ) )
241240ifbid 4108 . . . . . . . . . . . 12  |-  ( g  =  s  ->  if ( 0  <  g ,  R ,  L )  =  if ( 0  <  s ,  R ,  L ) )
242239, 241oveq12d 6668 . . . . . . . . . . 11  |-  ( g  =  s  ->  (
( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  =  ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  R ,  L ) ) )
243 id 22 . . . . . . . . . . 11  |-  ( g  =  s  ->  g  =  s )
244242, 243oveq12d 6668 . . . . . . . . . 10  |-  ( g  =  s  ->  (
( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g )  =  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  R ,  L ) )  / 
s ) )
245237, 244ifbieq2d 4111 . . . . . . . . 9  |-  ( g  =  s  ->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) )  =  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  R ,  L ) )  /  s ) ) )
246245cbvmptv 4750 . . . . . . . 8  |-  ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) )  =  ( s  e.  ( -u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  R ,  L ) )  /  s ) ) )
247 eqeq1 2626 . . . . . . . . . 10  |-  ( o  =  s  ->  (
o  =  0  <->  s  =  0 ) )
248 id 22 . . . . . . . . . . 11  |-  ( o  =  s  ->  o  =  s )
249 oveq1 6657 . . . . . . . . . . . . 13  |-  ( o  =  s  ->  (
o  /  2 )  =  ( s  / 
2 ) )
250249fveq2d 6195 . . . . . . . . . . . 12  |-  ( o  =  s  ->  ( sin `  ( o  / 
2 ) )  =  ( sin `  (
s  /  2 ) ) )
251250oveq2d 6666 . . . . . . . . . . 11  |-  ( o  =  s  ->  (
2  x.  ( sin `  ( o  /  2
) ) )  =  ( 2  x.  ( sin `  ( s  / 
2 ) ) ) )
252248, 251oveq12d 6668 . . . . . . . . . 10  |-  ( o  =  s  ->  (
o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) )  =  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) )
253247, 252ifbieq2d 4111 . . . . . . . . 9  |-  ( o  =  s  ->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) )  =  if ( s  =  0 ,  1 ,  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
254253cbvmptv 4750 . . . . . . . 8  |-  ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) )  =  ( s  e.  ( -u pi [,] pi )  |->  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
255 fveq2 6191 . . . . . . . . . 10  |-  ( r  =  s  ->  (
( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  =  ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  s
) )
256 fveq2 6191 . . . . . . . . . 10  |-  ( r  =  s  ->  (
( o  e.  (
-u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  / 
( 2  x.  ( sin `  ( o  / 
2 ) ) ) ) ) ) `  r )  =  ( ( o  e.  (
-u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  / 
( 2  x.  ( sin `  ( o  / 
2 ) ) ) ) ) ) `  s ) )
257255, 256oveq12d 6668 . . . . . . . . 9  |-  ( r  =  s  ->  (
( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) )  =  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 s )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  s ) ) )
258257cbvmptv 4750 . . . . . . . 8  |-  ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) )  =  ( s  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  s
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  s ) ) )
259 oveq2 6658 . . . . . . . . . 10  |-  ( d  =  s  ->  (
( k  +  ( 1  /  2 ) )  x.  d )  =  ( ( k  +  ( 1  / 
2 ) )  x.  s ) )
260259fveq2d 6195 . . . . . . . . 9  |-  ( d  =  s  ->  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  d ) )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
261260cbvmptv 4750 . . . . . . . 8  |-  ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  d
) ) )  =  ( s  e.  (
-u pi [,] pi )  |->  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
262 fveq2 6191 . . . . . . . . . 10  |-  ( z  =  s  ->  (
( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  =  ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
) )
263 fveq2 6191 . . . . . . . . . 10  |-  ( z  =  s  ->  (
( d  e.  (
-u pi [,] pi )  |->  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z
)  =  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  s ) )
264262, 263oveq12d 6668 . . . . . . . . 9  |-  ( z  =  s  ->  (
( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) )  =  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  s ) ) )
265264cbvmptv 4750 . . . . . . . 8  |-  ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) )  =  ( s  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  s ) ) )
266 fveq2 6191 . . . . . . . . . . . . 13  |-  ( m  =  n  ->  ( D `  m )  =  ( D `  n ) )
267266fveq1d 6193 . . . . . . . . . . . 12  |-  ( m  =  n  ->  (
( D `  m
) `  s )  =  ( ( D `
 n ) `  s ) )
268267oveq2d 6666 . . . . . . . . . . 11  |-  ( m  =  n  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  m ) `
 s ) )  =  ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) ) )
269268adantr 481 . . . . . . . . . 10  |-  ( ( m  =  n  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  =  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )
270269itgeq2dv 23548 . . . . . . . . 9  |-  ( m  =  n  ->  S. ( -u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s  =  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s )
271270cbvmptv 4750 . . . . . . . 8  |-  ( m  e.  NN  |->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s )  =  ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) )  _d s )
272 oveq1 6657 . . . . . . . . . . . . . . . . . . 19  |-  ( c  =  k  ->  (
c  +  ( 1  /  2 ) )  =  ( k  +  ( 1  /  2
) ) )
273272oveq1d 6665 . . . . . . . . . . . . . . . . . 18  |-  ( c  =  k  ->  (
( c  +  ( 1  /  2 ) )  x.  d )  =  ( ( k  +  ( 1  / 
2 ) )  x.  d ) )
274273fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( c  =  k  ->  ( sin `  ( ( c  +  ( 1  / 
2 ) )  x.  d ) )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  d ) ) )
275274mpteq2dv 4745 . . . . . . . . . . . . . . . 16  |-  ( c  =  k  ->  (
d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) )  =  ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  d
) ) ) )
276275fveq1d 6193 . . . . . . . . . . . . . . 15  |-  ( c  =  k  ->  (
( d  e.  (
-u pi [,] pi )  |->  ( sin `  (
( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z
)  =  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) )
277276oveq2d 6666 . . . . . . . . . . . . . 14  |-  ( c  =  k  ->  (
( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) )  =  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) )
278277mpteq2dv 4745 . . . . . . . . . . . . 13  |-  ( c  =  k  ->  (
z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) )  =  ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) )
279278fveq1d 6193 . . . . . . . . . . . 12  |-  ( c  =  k  ->  (
( z  e.  (
-u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  =  ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
) )
280279adantr 481 . . . . . . . . . . 11  |-  ( ( c  =  k  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  =  ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
) )
281280itgeq2dv 23548 . . . . . . . . . 10  |-  ( c  =  k  ->  S. ( -u pi (,) 0
) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  =  S. ( -u pi (,) 0 ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s )
282281oveq1d 6665 . . . . . . . . 9  |-  ( c  =  k  ->  ( S. ( -u pi (,) 0 ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  /  pi )  =  ( S. ( -u pi (,) 0 ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  /  pi ) )
283282cbvmptv 4750 . . . . . . . 8  |-  ( c  e.  NN  |->  ( S. ( -u pi (,) 0 ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  /  pi ) )  =  ( k  e.  NN  |->  ( S. ( -u pi (,) 0 ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  /  pi ) )
284 fourierdlem112.r . . . . . . . 8  |-  ( ph  ->  R  e.  ( ( F  |`  ( X (,) +oo ) ) lim CC  X ) )
285 fourierdlem112.l . . . . . . . 8  |-  ( ph  ->  L  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
286 fourierdlem112.e . . . . . . . 8  |-  ( ph  ->  E  e.  ( ( ( RR  _D  F
)  |`  ( -oo (,) X ) ) lim CC  X ) )
287 fourierdlem112.i . . . . . . . 8  |-  ( ph  ->  I  e.  ( ( ( RR  _D  F
)  |`  ( X (,) +oo ) ) lim CC  X
) )
288 fourierdlem112.d . . . . . . . . 9  |-  D  =  ( m  e.  NN  |->  ( y  e.  RR  |->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( m  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) ) )
289 oveq1 6657 . . . . . . . . . . . . . 14  |-  ( y  =  s  ->  (
y  mod  ( 2  x.  pi ) )  =  ( s  mod  ( 2  x.  pi ) ) )
290289eqeq1d 2624 . . . . . . . . . . . . 13  |-  ( y  =  s  ->  (
( y  mod  (
2  x.  pi ) )  =  0  <->  (
s  mod  ( 2  x.  pi ) )  =  0 ) )
291 oveq2 6658 . . . . . . . . . . . . . . 15  |-  ( y  =  s  ->  (
( m  +  ( 1  /  2 ) )  x.  y )  =  ( ( m  +  ( 1  / 
2 ) )  x.  s ) )
292291fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( y  =  s  ->  ( sin `  ( ( m  +  ( 1  / 
2 ) )  x.  y ) )  =  ( sin `  (
( m  +  ( 1  /  2 ) )  x.  s ) ) )
293 oveq1 6657 . . . . . . . . . . . . . . . 16  |-  ( y  =  s  ->  (
y  /  2 )  =  ( s  / 
2 ) )
294293fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( y  =  s  ->  ( sin `  ( y  / 
2 ) )  =  ( sin `  (
s  /  2 ) ) )
295294oveq2d 6666 . . . . . . . . . . . . . 14  |-  ( y  =  s  ->  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( s  / 
2 ) ) ) )
296292, 295oveq12d 6668 . . . . . . . . . . . . 13  |-  ( y  =  s  ->  (
( sin `  (
( m  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )  =  ( ( sin `  (
( m  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) )
297290, 296ifbieq2d 4111 . . . . . . . . . . . 12  |-  ( y  =  s  ->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( m  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  =  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( sin `  ( ( m  +  ( 1  /  2
) )  x.  s
) )  /  (
( 2  x.  pi )  x.  ( sin `  ( s  /  2
) ) ) ) ) )
298297cbvmptv 4750 . . . . . . . . . . 11  |-  ( y  e.  RR  |->  if ( ( y  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( m  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) )  =  ( s  e.  RR  |->  if ( ( s  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( m  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
299 simpl 473 . . . . . . . . . . . . . . . 16  |-  ( ( m  =  k  /\  s  e.  RR )  ->  m  =  k )
300299oveq2d 6666 . . . . . . . . . . . . . . 15  |-  ( ( m  =  k  /\  s  e.  RR )  ->  ( 2  x.  m
)  =  ( 2  x.  k ) )
301300oveq1d 6665 . . . . . . . . . . . . . 14  |-  ( ( m  =  k  /\  s  e.  RR )  ->  ( ( 2  x.  m )  +  1 )  =  ( ( 2  x.  k )  +  1 ) )
302301oveq1d 6665 . . . . . . . . . . . . 13  |-  ( ( m  =  k  /\  s  e.  RR )  ->  ( ( ( 2  x.  m )  +  1 )  /  (
2  x.  pi ) )  =  ( ( ( 2  x.  k
)  +  1 )  /  ( 2  x.  pi ) ) )
303299oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( ( m  =  k  /\  s  e.  RR )  ->  ( m  +  ( 1  /  2 ) )  =  ( k  +  ( 1  / 
2 ) ) )
304303oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( ( m  =  k  /\  s  e.  RR )  ->  ( ( m  +  ( 1  /  2
) )  x.  s
)  =  ( ( k  +  ( 1  /  2 ) )  x.  s ) )
305304fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( ( m  =  k  /\  s  e.  RR )  ->  ( sin `  (
( m  +  ( 1  /  2 ) )  x.  s ) )  =  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )
306305oveq1d 6665 . . . . . . . . . . . . 13  |-  ( ( m  =  k  /\  s  e.  RR )  ->  ( ( sin `  (
( m  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) )  =  ( ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) )
307302, 306ifeq12d 4106 . . . . . . . . . . . 12  |-  ( ( m  =  k  /\  s  e.  RR )  ->  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m
)  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( sin `  (
( m  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  k )  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) )  /  (
( 2  x.  pi )  x.  ( sin `  ( s  /  2
) ) ) ) ) )
308307mpteq2dva 4744 . . . . . . . . . . 11  |-  ( m  =  k  ->  (
s  e.  RR  |->  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( m  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  =  ( s  e.  RR  |->  if ( ( s  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  k )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
309298, 308syl5eq 2668 . . . . . . . . . 10  |-  ( m  =  k  ->  (
y  e.  RR  |->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( m  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) )  =  ( s  e.  RR  |->  if ( ( s  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  k )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
310309cbvmptv 4750 . . . . . . . . 9  |-  ( m  e.  NN  |->  ( y  e.  RR  |->  if ( ( y  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  m )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( m  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) ) )  =  ( k  e.  NN  |->  ( s  e.  RR  |->  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  k )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
311288, 310eqtri 2644 . . . . . . . 8  |-  D  =  ( k  e.  NN  |->  ( s  e.  RR  |->  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  k )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
312 eqid 2622 . . . . . . . 8  |-  ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) )  |`  ( -u pi [,] l ) )  =  ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) )  |`  ( -u pi [,] l ) )
313 eqid 2622 . . . . . . . 8  |-  ( {
-u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) )  =  ( { -u pi , 
l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) )
314 eqid 2622 . . . . . . . 8  |-  ( (
# `  ( { -u pi ,  l }  u.  ( ran  (
j  e.  ( 0 ... N )  |->  ( ( V `  j
)  -  X ) )  i^i  ( -u pi (,) l ) ) ) )  -  1 )  =  ( (
# `  ( { -u pi ,  l }  u.  ( ran  (
j  e.  ( 0 ... N )  |->  ( ( V `  j
)  -  X ) )  i^i  ( -u pi (,) l ) ) ) )  -  1 )
315 isoeq1 6567 . . . . . . . . 9  |-  ( u  =  w  ->  (
u  Isom  <  ,  <  ( ( 0 ... (
( # `  ( {
-u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) ) )  - 
1 ) ) ,  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( -u pi (,) l ) ) ) )  <->  w  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) ) )  - 
1 ) ) ,  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( -u pi (,) l ) ) ) ) ) )
316315cbviotav 5857 . . . . . . . 8  |-  ( iota
u u  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( -u pi (,) l ) ) ) )  -  1 ) ) ,  ( {
-u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) ) ) )  =  ( iota w w  Isom  <  ,  <  ( ( 0 ... (
( # `  ( {
-u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) ) )  - 
1 ) ) ,  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( -u pi (,) l ) ) ) ) )
317 fveq2 6191 . . . . . . . . . 10  |-  ( j  =  i  ->  ( V `  j )  =  ( V `  i ) )
318317oveq1d 6665 . . . . . . . . 9  |-  ( j  =  i  ->  (
( V `  j
)  -  X )  =  ( ( V `
 i )  -  X ) )
319318cbvmptv 4750 . . . . . . . 8  |-  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  =  ( i  e.  ( 0 ... N
)  |->  ( ( V `
 i )  -  X ) )
320 eqid 2622 . . . . . . . 8  |-  ( iota_ m  e.  ( 0..^ N ) ( ( ( iota u u  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( -u pi (,) l ) ) ) )  -  1 ) ) ,  ( {
-u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) ) ) ) `
 b ) (,) ( ( iota u u  Isom  <  ,  <  ( ( 0 ... (
( # `  ( {
-u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) ) )  - 
1 ) ) ,  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( -u pi (,) l ) ) ) ) ) `  (
b  +  1 ) ) )  C_  (
( ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) ) `  m ) (,) (
( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) ) `  (
m  +  1 ) ) ) )  =  ( iota_ m  e.  ( 0..^ N ) ( ( ( iota u u  Isom  <  ,  <  ( ( 0 ... (
( # `  ( {
-u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) ) )  - 
1 ) ) ,  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( -u pi (,) l ) ) ) ) ) `  b
) (,) ( ( iota u u  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { -u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( -u pi (,) l ) ) ) )  -  1 ) ) ,  ( {
-u pi ,  l }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  ( -u pi (,) l ) ) ) ) ) `
 ( b  +  1 ) ) ) 
C_  ( ( ( j  e.  ( 0 ... N )  |->  ( ( V `  j
)  -  X ) ) `  m ) (,) ( ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) ) `
 ( m  + 
1 ) ) ) )
321 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( a  =  s  ->  (
( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  =  ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
) )
322 oveq2 6658 . . . . . . . . . . . . . . 15  |-  ( a  =  s  ->  (
( b  +  ( 1  /  2 ) )  x.  a )  =  ( ( b  +  ( 1  / 
2 ) )  x.  s ) )
323322fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( a  =  s  ->  ( sin `  ( ( b  +  ( 1  / 
2 ) )  x.  a ) )  =  ( sin `  (
( b  +  ( 1  /  2 ) )  x.  s ) ) )
324321, 323oveq12d 6668 . . . . . . . . . . . . 13  |-  ( a  =  s  ->  (
( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  =  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) ) )
325324cbvitgv 23543 . . . . . . . . . . . 12  |-  S. ( l (,) 0 ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a  =  S. ( l (,) 0 ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s
326325fveq2i 6194 . . . . . . . . . . 11  |-  ( abs `  S. ( l (,) 0 ) ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  =  ( abs `  S. ( l (,) 0 ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
327326breq1i 4660 . . . . . . . . . 10  |-  ( ( abs `  S. ( l (,) 0 ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
i  /  2 )  <-> 
( abs `  S. ( l (,) 0
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
i  /  2 ) )
328327anbi2i 730 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  i  e.  RR+ )  /\  l  e.  ( -u pi (,) 0 ) )  /\  b  e.  NN )  /\  ( abs `  S. ( l (,) 0 ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
i  /  2 ) )  <->  ( ( ( ( ph  /\  i  e.  RR+ )  /\  l  e.  ( -u pi (,) 0 ) )  /\  b  e.  NN )  /\  ( abs `  S. ( l (,) 0
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
i  /  2 ) ) )
329324cbvitgv 23543 . . . . . . . . . . 11  |-  S. (
-u pi (,) l
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a  =  S. (
-u pi (,) l
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s
330329fveq2i 6194 . . . . . . . . . 10  |-  ( abs `  S. ( -u pi (,) l ) ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  =  ( abs `  S. (
-u pi (,) l
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
331330breq1i 4660 . . . . . . . . 9  |-  ( ( abs `  S. (
-u pi (,) l
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
i  /  2 )  <-> 
( abs `  S. ( -u pi (,) l
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
i  /  2 ) )
332328, 331anbi12i 733 . . . . . . . 8  |-  ( ( ( ( ( (
ph  /\  i  e.  RR+ )  /\  l  e.  ( -u pi (,) 0 ) )  /\  b  e.  NN )  /\  ( abs `  S. ( l (,) 0
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
i  /  2 ) )  /\  ( abs `  S. ( -u pi (,) l ) ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
i  /  2 ) )  <->  ( ( ( ( ( ph  /\  i  e.  RR+ )  /\  l  e.  ( -u pi (,) 0 ) )  /\  b  e.  NN )  /\  ( abs `  S. ( l (,) 0
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
i  /  2 ) )  /\  ( abs `  S. ( -u pi (,) l ) ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
i  /  2 ) ) )
33343, 44, 45, 76, 77, 78, 122, 132, 182, 213, 225, 236, 246, 254, 258, 261, 265, 271, 283, 284, 285, 286, 287, 311, 312, 313, 314, 316, 319, 320, 332fourierdlem103 40426 . . . . . . 7  |-  ( ph  ->  ( m  e.  NN  |->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s )  ~~>  ( L  /  2 ) )
334 nnex 11026 . . . . . . . . . 10  |-  NN  e.  _V
335334mptex 6486 . . . . . . . . 9  |-  ( 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
) ) ) ) ) )  e.  _V
33628, 335eqeltri 2697 . . . . . . . 8  |-  Z  e. 
_V
337336a1i 11 . . . . . . 7  |-  ( ph  ->  Z  e.  _V )
338268adantr 481 . . . . . . . . . 10  |-  ( ( m  =  n  /\  s  e.  ( 0 (,) pi ) )  ->  ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  =  ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) ) )
339338itgeq2dv 23548 . . . . . . . . 9  |-  ( m  =  n  ->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s  =  S. ( 0 (,) pi ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s )
340339cbvmptv 4750 . . . . . . . 8  |-  ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  _d s )  =  ( n  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s )
341279adantr 481 . . . . . . . . . . 11  |-  ( ( c  =  k  /\  s  e.  ( 0 (,) pi ) )  ->  ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  =  ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
) )
342341itgeq2dv 23548 . . . . . . . . . 10  |-  ( c  =  k  ->  S. ( 0 (,) pi ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  =  S. ( 0 (,) pi ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s )
343342oveq1d 6665 . . . . . . . . 9  |-  ( c  =  k  ->  ( S. ( 0 (,) pi ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  /  pi )  =  ( S. ( 0 (,) pi ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  /  pi ) )
344343cbvmptv 4750 . . . . . . . 8  |-  ( c  e.  NN  |->  ( S. ( 0 (,) pi ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( c  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  /  pi ) )  =  ( k  e.  NN  |->  ( S. ( 0 (,) pi ) ( ( z  e.  ( -u pi [,] pi )  |->  ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  z
)  x.  ( ( d  e.  ( -u pi [,] pi )  |->  ( sin `  ( ( k  +  ( 1  /  2 ) )  x.  d ) ) ) `  z ) ) ) `  s
)  _d s  /  pi ) )
345 eqid 2622 . . . . . . . 8  |-  ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) )  |`  (
e [,] pi ) )  =  ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) )  |`  (
e [,] pi ) )
346 eqid 2622 . . . . . . . 8  |-  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) )  =  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) )  i^i  ( e (,) pi ) ) )
347 eqid 2622 . . . . . . . 8  |-  ( (
# `  ( {
e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) )  -  1 )  =  ( ( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) )  - 
1 )
348 isoeq1 6567 . . . . . . . . 9  |-  ( u  =  v  ->  (
u  Isom  <  ,  <  ( ( 0 ... (
( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) )  -  1 ) ) ,  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) )  <->  v  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) )  - 
1 ) ) ,  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) ) ) )
349348cbviotav 5857 . . . . . . . 8  |-  ( iota
u u  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) )  - 
1 ) ) ,  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) ) )  =  ( iota v
v  Isom  <  ,  <  ( ( 0 ... (
( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) )  -  1 ) ) ,  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) ) )
350 eqid 2622 . . . . . . . 8  |-  ( iota_ a  e.  ( 0..^ N ) ( ( ( iota u u  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) )  - 
1 ) ) ,  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) ) ) `
 b ) (,) ( ( iota u u  Isom  <  ,  <  ( ( 0 ... (
( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) )  -  1 ) ) ,  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) ) ) `  (
b  +  1 ) ) )  C_  (
( ( j  e.  ( 0 ... N
)  |->  ( ( V `
 j )  -  X ) ) `  a ) (,) (
( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) ) `  (
a  +  1 ) ) ) )  =  ( iota_ a  e.  ( 0..^ N ) ( ( ( iota u u  Isom  <  ,  <  ( ( 0 ... (
( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) )  -  1 ) ) ,  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) )  i^i  ( e (,) pi ) ) ) ) ) `  b
) (,) ( ( iota u u  Isom  <  ,  <  ( ( 0 ... ( ( # `  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) )  - 
1 ) ) ,  ( { e ,  pi }  u.  ( ran  ( j  e.  ( 0 ... N ) 
|->  ( ( V `  j )  -  X
) )  i^i  (
e (,) pi ) ) ) ) ) `
 ( b  +  1 ) ) ) 
C_  ( ( ( j  e.  ( 0 ... N )  |->  ( ( V `  j
)  -  X ) ) `  a ) (,) ( ( j  e.  ( 0 ... N )  |->  ( ( V `  j )  -  X ) ) `
 ( a  +  1 ) ) ) )
351324cbvitgv 23543 . . . . . . . . . . . 12  |-  S. ( 0 (,) e ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a  =  S. ( 0 (,) e ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s
352351fveq2i 6194 . . . . . . . . . . 11  |-  ( abs `  S. ( 0 (,) e ) ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  =  ( abs `  S. ( 0 (,) e ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
353352breq1i 4660 . . . . . . . . . 10  |-  ( ( abs `  S. ( 0 (,) e ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
q  /  2 )  <-> 
( abs `  S. ( 0 (,) e
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
q  /  2 ) )
354353anbi2i 730 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  q  e.  RR+ )  /\  e  e.  (
0 (,) pi ) )  /\  b  e.  NN )  /\  ( abs `  S. ( 0 (,) e ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
q  /  2 ) )  <->  ( ( ( ( ph  /\  q  e.  RR+ )  /\  e  e.  ( 0 (,) pi ) )  /\  b  e.  NN )  /\  ( abs `  S. ( 0 (,) e ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
q  /  2 ) ) )
355324cbvitgv 23543 . . . . . . . . . . 11  |-  S. ( e (,) pi ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a  =  S. ( e (,) pi ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s
356355fveq2i 6194 . . . . . . . . . 10  |-  ( abs `  S. ( e (,) pi ) ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  =  ( abs `  S. ( e (,) pi ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
357356breq1i 4660 . . . . . . . . 9  |-  ( ( abs `  S. ( e (,) pi ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
q  /  2 )  <-> 
( abs `  S. ( e (,) pi ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
q  /  2 ) )
358354, 357anbi12i 733 . . . . . . . 8  |-  ( ( ( ( ( (
ph  /\  q  e.  RR+ )  /\  e  e.  ( 0 (,) pi ) )  /\  b  e.  NN )  /\  ( abs `  S. ( 0 (,) e ) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  (
-u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g ) )  -  if ( 0  <  g ,  R ,  L ) )  / 
g ) ) ) `
 r )  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
q  /  2 ) )  /\  ( abs `  S. ( e (,) pi ) ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  a
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  a
) ) )  _d a )  <  (
q  /  2 ) )  <->  ( ( ( ( ( ph  /\  q  e.  RR+ )  /\  e  e.  ( 0 (,) pi ) )  /\  b  e.  NN )  /\  ( abs `  S. ( 0 (,) e
) ( ( ( r  e.  ( -u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g )
)  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
q  /  2 ) )  /\  ( abs `  S. ( e (,) pi ) ( ( ( r  e.  (
-u pi [,] pi )  |->  ( ( ( g  e.  ( -u pi [,] pi )  |->  if ( g  =  0 ,  0 ,  ( ( ( F `  ( X  +  g
) )  -  if ( 0  <  g ,  R ,  L ) )  /  g ) ) ) `  r
)  x.  ( ( o  e.  ( -u pi [,] pi )  |->  if ( o  =  0 ,  1 ,  ( o  /  ( 2  x.  ( sin `  (
o  /  2 ) ) ) ) ) ) `  r ) ) ) `  s
)  x.  ( sin `  ( ( b  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
q  /  2 ) ) )
35943, 44, 45, 76, 77, 78, 122, 132, 182, 213, 225, 236, 246, 254, 258, 261, 265, 340, 344, 284, 285, 286, 287, 311, 345, 346, 347, 349, 319, 350, 358fourierdlem104 40427 . . . . . . 7  |-  ( ph  ->  ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s )  ~~>  ( R  / 
2 ) )
360 eqidd 2623 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  ( m  e.  NN  |->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s )  =  ( m  e.  NN  |->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s ) )
361270adantl 482 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  m  =  n )  ->  S. ( -u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s  =  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s )
362 simpr 477 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  n  e.  NN )
363 elioore 12205 . . . . . . . . . . 11  |-  ( s  e.  ( -u pi (,) 0 )  ->  s  e.  RR )
36443adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  s  e.  RR )  ->  F : RR
--> RR )
36544adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  s  e.  RR )  ->  X  e.  RR )
366 simpr 477 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  s  e.  RR )  ->  s  e.  RR )
367365, 366readdcld 10069 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  s  e.  RR )  ->  ( X  +  s )  e.  RR )
368364, 367ffvelrnd 6360 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  e.  RR )  ->  ( F `
 ( X  +  s ) )  e.  RR )
369368adantlr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  RR )  ->  ( F `  ( X  +  s ) )  e.  RR )
370288dirkerre 40312 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  s  e.  RR )  ->  ( ( D `  n ) `  s
)  e.  RR )
371370adantll 750 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  RR )  ->  (
( D `  n
) `  s )  e.  RR )
372369, 371remulcld 10070 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  RR )  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  e.  RR )
373363, 372sylan2 491 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  e.  RR )
374 ioossicc 12259 . . . . . . . . . . . . 13  |-  ( -u pi (,) 0 )  C_  ( -u pi [,] 0
)
37561leidi 10562 . . . . . . . . . . . . . 14  |-  -u pi  <_ 
-u pi
37662, 54, 60ltleii 10160 . . . . . . . . . . . . . 14  |-  0  <_  pi
377 iccss 12241 . . . . . . . . . . . . . 14  |-  ( ( ( -u pi  e.  RR  /\  pi  e.  RR )  /\  ( -u pi  <_ 
-u pi  /\  0  <_  pi ) )  -> 
( -u pi [,] 0
)  C_  ( -u pi [,] pi ) )
37861, 54, 375, 376, 377mp4an 709 . . . . . . . . . . . . 13  |-  ( -u pi [,] 0 )  C_  ( -u pi [,] pi )
379374, 378sstri 3612 . . . . . . . . . . . 12  |-  ( -u pi (,) 0 )  C_  ( -u pi [,] pi )
380379a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  ( -u pi (,) 0 )  C_  ( -u pi [,] pi ) )
381 ioombl 23333 . . . . . . . . . . . 12  |-  ( -u pi (,) 0 )  e. 
dom  vol
382381a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  ( -u pi (,) 0 )  e. 
dom  vol )
38343adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  F : RR --> RR )
38444adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  X  e.  RR )
38556, 55iccssred 39727 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( -u pi [,] pi )  C_  RR )
386385sselda 3603 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  s  e.  RR )
387384, 386readdcld 10069 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  ( X  +  s )  e.  RR )
388383, 387ffvelrnd 6360 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
389388adantlr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
390 iccssre 12255 . . . . . . . . . . . . . . . 16  |-  ( (
-u pi  e.  RR  /\  pi  e.  RR )  ->  ( -u pi [,] pi )  C_  RR )
39161, 54, 390mp2an 708 . . . . . . . . . . . . . . 15  |-  ( -u pi [,] pi )  C_  RR
392391sseli 3599 . . . . . . . . . . . . . 14  |-  ( s  e.  ( -u pi [,] pi )  ->  s  e.  RR )
393392, 370sylan2 491 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( ( D `  n ) `  s
)  e.  RR )
394393adantll 750 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( D `  n
) `  s )  e.  RR )
395389, 394remulcld 10070 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  e.  RR )
39661a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  -u pi  e.  RR )
39754a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  pi  e.  RR )
39843adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  F : RR
--> RR )
39944adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  X  e.  RR )
40076adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  N  e.  NN )
40177adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  V  e.  ( ( n  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  ( -u pi  +  X )  /\  (
p `  n )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } ) `
 N ) )
402122adantlr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ N ) )  ->  ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
403225adantlr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ N ) )  ->  if (
( ( d  e.  ( -u pi (,] pi )  |->  if ( d  =  pi ,  -u pi ,  d ) ) `  ( ( c  e.  RR  |->  ( c  +  ( ( |_ `  ( ( pi  -  c )  /  T ) )  x.  T ) ) ) `  ( V `
 i ) ) )  =  ( Q `
 ( ( y  e.  RR  |->  sup ( { f  e.  ( 0..^ M )  |  ( Q `  f
)  <_  ( (
d  e.  ( -u pi (,] pi )  |->  if ( d  =  pi ,  -u pi ,  d ) ) `  (
( c  e.  RR  |->  ( c  +  ( ( |_ `  (
( pi  -  c
)  /  T ) )  x.  T ) ) ) `  y
) ) } ,  RR ,  <  ) ) `
 ( V `  i ) ) ) ,  ( ( j  e.  ( 0..^ M )  |->  [_ j  /  i ]_ C ) `  (
( y  e.  RR  |->  sup ( { f  e.  ( 0..^ M )  |  ( Q `  f )  <_  (
( d  e.  (
-u pi (,] pi )  |->  if ( d  =  pi ,  -u pi ,  d )
) `  ( (
c  e.  RR  |->  ( c  +  ( ( |_ `  ( ( pi  -  c )  /  T ) )  x.  T ) ) ) `  y ) ) } ,  RR ,  <  ) ) `  ( V `  i ) ) ) ,  ( F `  ( ( d  e.  ( -u pi (,] pi )  |->  if ( d  =  pi ,  -u pi ,  d ) ) `  (
( c  e.  RR  |->  ( c  +  ( ( |_ `  (
( pi  -  c
)  /  T ) )  x.  T ) ) ) `  ( V `  i )
) ) ) )  e.  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  i )
) )
404236adantlr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ N ) )  ->  if (
( ( e  e.  RR  |->  ( e  +  ( ( |_ `  ( ( pi  -  e )  /  T
) )  x.  T
) ) ) `  ( V `  ( i  +  1 ) ) )  =  ( Q `
 ( ( ( y  e.  RR  |->  sup ( { h  e.  ( 0..^ M )  |  ( Q `  h )  <_  (
( g  e.  (
-u pi (,] pi )  |->  if ( g  =  pi ,  -u pi ,  g )
) `  ( (
e  e.  RR  |->  ( e  +  ( ( |_ `  ( ( pi  -  e )  /  T ) )  x.  T ) ) ) `  y ) ) } ,  RR ,  <  ) ) `  ( V `  i ) )  +  1 ) ) ,  ( ( j  e.  ( 0..^ M )  |->  [_ j  /  i ]_ U
) `  ( (
y  e.  RR  |->  sup ( { h  e.  ( 0..^ M )  |  ( Q `  h )  <_  (
( g  e.  (
-u pi (,] pi )  |->  if ( g  =  pi ,  -u pi ,  g )
) `  ( (
e  e.  RR  |->  ( e  +  ( ( |_ `  ( ( pi  -  e )  /  T ) )  x.  T ) ) ) `  y ) ) } ,  RR ,  <  ) ) `  ( V `  i ) ) ) ,  ( F `  ( ( e  e.  RR  |->  ( e  +  ( ( |_ `  ( ( pi  -  e )  /  T ) )  x.  T ) ) ) `  ( V `
 ( i  +  1 ) ) ) ) )  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 ( i  +  1 ) ) ) )
405288dirkercncf 40324 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  ( D `  n )  e.  ( RR -cn-> RR ) )
406405adantl 482 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  ( D `
 n )  e.  ( RR -cn-> RR ) )
407 eqid 2622 . . . . . . . . . . . 12  |-  ( s  e.  ( -u pi [,] pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  =  ( s  e.  ( -u pi [,] pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )
408396, 397, 398, 399, 45, 400, 401, 402, 403, 404, 319, 51, 406, 407fourierdlem84 40407 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  e.  L^1 )
409380, 382, 395, 408iblss 23571 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi (,) 0 )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  e.  L^1 )
410373, 409itgcl 23550 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) )  _d s  e.  CC )
411360, 361, 362, 410fvmptd 6288 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( m  e.  NN  |->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s ) `  n
)  =  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) )  _d s )
412411, 410eqeltrd 2701 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( m  e.  NN  |->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s ) `  n
)  e.  CC )
413 eqidd 2623 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  _d s )  =  ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  m ) `
 s ) )  _d s ) )
414339adantl 482 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  m  =  n )  ->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s  =  S. ( 0 (,) pi ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s )
41543adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  F : RR --> RR )
41644adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  X  e.  RR )
417 elioore 12205 . . . . . . . . . . . . . . 15  |-  ( s  e.  ( 0 (,) pi )  ->  s  e.  RR )
418417adantl 482 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  RR )
419416, 418readdcld 10069 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  ( X  +  s )  e.  RR )
420415, 419ffvelrnd 6360 . . . . . . . . . . . 12  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
421420adantlr 751 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
422417, 370sylan2 491 . . . . . . . . . . . 12  |-  ( ( n  e.  NN  /\  s  e.  ( 0 (,) pi ) )  ->  ( ( D `
 n ) `  s )  e.  RR )
423422adantll 750 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  (
( D `  n
) `  s )  e.  RR )
424421, 423remulcld 10070 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  e.  RR )
425 ioossicc 12259 . . . . . . . . . . . . 13  |-  ( 0 (,) pi )  C_  ( 0 [,] pi )
42661, 62, 59ltleii 10160 . . . . . . . . . . . . . 14  |-  -u pi  <_  0
42754leidi 10562 . . . . . . . . . . . . . 14  |-  pi  <_  pi
428 iccss 12241 . . . . . . . . . . . . . 14  |-  ( ( ( -u pi  e.  RR  /\  pi  e.  RR )  /\  ( -u pi  <_  0  /\  pi  <_  pi ) )  ->  (
0 [,] pi ) 
C_  ( -u pi [,] pi ) )
42961, 54, 426, 427, 428mp4an 709 . . . . . . . . . . . . 13  |-  ( 0 [,] pi )  C_  ( -u pi [,] pi )
430425, 429sstri 3612 . . . . . . . . . . . 12  |-  ( 0 (,) pi )  C_  ( -u pi [,] pi )
431430a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  ( 0 (,) pi )  C_  ( -u pi [,] pi ) )
432 ioombl 23333 . . . . . . . . . . . 12  |-  ( 0 (,) pi )  e. 
dom  vol
433432a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  ( 0 (,) pi )  e. 
dom  vol )
434431, 433, 395, 408iblss 23571 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( 0 (,) pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  e.  L^1 )
435424, 434itgcl 23550 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  _d s  e.  CC )
436413, 414, 362, 435fvmptd 6288 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s ) `  n )  =  S. ( 0 (,) pi ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s )
437436, 435eqeltrd 2701 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s ) `  n )  e.  CC )
438 eleq1 2689 . . . . . . . . . . 11  |-  ( m  =  n  ->  (
m  e.  NN  <->  n  e.  NN ) )
439438anbi2d 740 . . . . . . . . . 10  |-  ( m  =  n  ->  (
( ph  /\  m  e.  NN )  <->  ( ph  /\  n  e.  NN ) ) )
440 fveq2 6191 . . . . . . . . . . 11  |-  ( m  =  n  ->  ( Z `  m )  =  ( Z `  n ) )
441270, 339oveq12d 6668 . . . . . . . . . . 11  |-  ( m  =  n  ->  ( S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s  +  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  _d s )  =  ( S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) )  _d s  +  S. ( 0 (,) pi ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s ) )
442440, 441eqeq12d 2637 . . . . . . . . . 10  |-  ( m  =  n  ->  (
( Z `  m
)  =  ( S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s  +  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  _d s )  <-> 
( Z `  n
)  =  ( S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s  +  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  _d s ) ) )
443439, 442imbi12d 334 . . . . . . . . 9  |-  ( m  =  n  ->  (
( ( ph  /\  m  e.  NN )  ->  ( Z `  m
)  =  ( S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s  +  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  _d s ) )  <->  ( ( ph  /\  n  e.  NN )  ->  ( Z `  n )  =  ( S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s  +  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  _d s ) ) ) )
444 oveq1 6657 . . . . . . . . . . . . . . . . 17  |-  ( n  =  m  ->  (
n  x.  x )  =  ( m  x.  x ) )
445444fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( n  =  m  ->  ( cos `  ( n  x.  x ) )  =  ( cos `  (
m  x.  x ) ) )
446445oveq2d 6666 . . . . . . . . . . . . . . 15  |-  ( n  =  m  ->  (
( F `  x
)  x.  ( cos `  ( n  x.  x
) ) )  =  ( ( F `  x )  x.  ( cos `  ( m  x.  x ) ) ) )
447446adantr 481 . . . . . . . . . . . . . 14  |-  ( ( n  =  m  /\  x  e.  ( -u pi (,) pi ) )  -> 
( ( F `  x )  x.  ( cos `  ( n  x.  x ) ) )  =  ( ( F `
 x )  x.  ( cos `  (
m  x.  x ) ) ) )
448447itgeq2dv 23548 . . . . . . . . . . . . 13  |-  ( n  =  m  ->  S. ( -u pi (,) pi ) ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  =  S. ( -u pi (,) pi ) ( ( F `  x
)  x.  ( cos `  ( m  x.  x
) ) )  _d x )
449448oveq1d 6665 . . . . . . . . . . . 12  |-  ( n  =  m  ->  ( S. ( -u pi (,) pi ) ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi )  =  ( S. ( -u pi (,) pi ) ( ( F `  x
)  x.  ( cos `  ( m  x.  x
) ) )  _d x  /  pi ) )
450449cbvmptv 4750 . . . . . . . . . . 11  |-  ( n  e.  NN0  |->  ( S. ( -u pi (,) pi ) ( ( F `
 x )  x.  ( cos `  (
n  x.  x ) ) )  _d x  /  pi ) )  =  ( m  e. 
NN0  |->  ( S. (
-u pi (,) pi ) ( ( F `
 x )  x.  ( cos `  (
m  x.  x ) ) )  _d x  /  pi ) )
45129, 450eqtri 2644 . . . . . . . . . 10  |-  A  =  ( m  e.  NN0  |->  ( S. ( -u pi (,) pi ) ( ( F `  x )  x.  ( cos `  (
m  x.  x ) ) )  _d x  /  pi ) )
452 fourierdlem112.b . . . . . . . . . . 11  |-  B  =  ( n  e.  NN  |->  ( S. ( -u pi (,) pi ) ( ( F `  x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi ) )
453444fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( n  =  m  ->  ( sin `  ( n  x.  x ) )  =  ( sin `  (
m  x.  x ) ) )
454453oveq2d 6666 . . . . . . . . . . . . . . 15  |-  ( n  =  m  ->  (
( F `  x
)  x.  ( sin `  ( n  x.  x
) ) )  =  ( ( F `  x )  x.  ( sin `  ( m  x.  x ) ) ) )
455454adantr 481 . . . . . . . . . . . . . 14  |-  ( ( n  =  m  /\  x  e.  ( -u pi (,) pi ) )  -> 
( ( F `  x )  x.  ( sin `  ( n  x.  x ) ) )  =  ( ( F `
 x )  x.  ( sin `  (
m  x.  x ) ) ) )
456455itgeq2dv 23548 . . . . . . . . . . . . 13  |-  ( n  =  m  ->  S. ( -u pi (,) pi ) ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  =  S. ( -u pi (,) pi ) ( ( F `  x
)  x.  ( sin `  ( m  x.  x
) ) )  _d x )
457456oveq1d 6665 . . . . . . . . . . . 12  |-  ( n  =  m  ->  ( S. ( -u pi (,) pi ) ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi )  =  ( S. ( -u pi (,) pi ) ( ( F `  x
)  x.  ( sin `  ( m  x.  x
) ) )  _d x  /  pi ) )
458457cbvmptv 4750 . . . . . . . . . . 11  |-  ( n  e.  NN  |->  ( S. ( -u pi (,) pi ) ( ( F `
 x )  x.  ( sin `  (
n  x.  x ) ) )  _d x  /  pi ) )  =  ( m  e.  NN  |->  ( S. (
-u pi (,) pi ) ( ( F `
 x )  x.  ( sin `  (
m  x.  x ) ) )  _d x  /  pi ) )
459452, 458eqtri 2644 . . . . . . . . . 10  |-  B  =  ( m  e.  NN  |->  ( S. ( -u pi (,) pi ) ( ( F `  x )  x.  ( sin `  (
m  x.  x ) ) )  _d x  /  pi ) )
460 fveq2 6191 . . . . . . . . . . . . . . . 16  |-  ( n  =  k  ->  ( A `  n )  =  ( A `  k ) )
461 oveq1 6657 . . . . . . . . . . . . . . . . 17  |-  ( n  =  k  ->  (
n  x.  X )  =  ( k  x.  X ) )
462461fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( n  =  k  ->  ( cos `  ( n  x.  X ) )  =  ( cos `  (
k  x.  X ) ) )
463460, 462oveq12d 6668 . . . . . . . . . . . . . . 15  |-  ( n  =  k  ->  (
( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  =  ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) ) )
464 fveq2 6191 . . . . . . . . . . . . . . . 16  |-  ( n  =  k  ->  ( B `  n )  =  ( B `  k ) )
465461fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( n  =  k  ->  ( sin `  ( n  x.  X ) )  =  ( sin `  (
k  x.  X ) ) )
466464, 465oveq12d 6668 . . . . . . . . . . . . . . 15  |-  ( n  =  k  ->  (
( B `  n
)  x.  ( sin `  ( n  x.  X
) ) )  =  ( ( B `  k )  x.  ( sin `  ( k  x.  X ) ) ) )
467463, 466oveq12d 6668 . . . . . . . . . . . . . 14  |-  ( n  =  k  ->  (
( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  =  ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
468467cbvsumv 14426 . . . . . . . . . . . . 13  |-  sum_ n  e.  ( 1 ... m
) ( ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) )  =  sum_ k  e.  ( 1 ... m ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )
469468oveq2i 6661 . . . . . . . . . . . 12  |-  ( ( ( 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_ k  e.  ( 1 ... m ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
470469mpteq2i 4741 . . . . . . . . . . 11  |-  ( 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
) ) ) ) ) )  =  ( m  e.  NN  |->  ( ( ( A ` 
0 )  /  2
)  +  sum_ k  e.  ( 1 ... m
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) ) )
471 oveq2 6658 . . . . . . . . . . . . . . 15  |-  ( m  =  n  ->  (
1 ... m )  =  ( 1 ... n
) )
472471sumeq1d 14431 . . . . . . . . . . . . . 14  |-  ( m  =  n  ->  sum_ k  e.  ( 1 ... m
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  sum_ k  e.  ( 1 ... n ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
473472oveq2d 6666 . . . . . . . . . . . . 13  |-  ( m  =  n  ->  (
( ( A ` 
0 )  /  2
)  +  sum_ k  e.  ( 1 ... m
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )  =  ( ( ( A `  0
)  /  2 )  +  sum_ k  e.  ( 1 ... n ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) ) )
474473cbvmptv 4750 . . . . . . . . . . . 12  |-  ( m  e.  NN  |->  ( ( ( A `  0
)  /  2 )  +  sum_ k  e.  ( 1 ... m ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) ) )  =  ( n  e.  NN  |->  ( ( ( A ` 
0 )  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) ) )
475 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( k  =  m  ->  ( A `  k )  =  ( A `  m ) )
476 oveq1 6657 . . . . . . . . . . . . . . . . . 18  |-  ( k  =  m  ->  (
k  x.  X )  =  ( m  x.  X ) )
477476fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( k  =  m  ->  ( cos `  ( k  x.  X ) )  =  ( cos `  (
m  x.  X ) ) )
478475, 477oveq12d 6668 . . . . . . . . . . . . . . . 16  |-  ( k  =  m  ->  (
( A `  k
)  x.  ( cos `  ( k  x.  X
) ) )  =  ( ( A `  m )  x.  ( cos `  ( m  x.  X ) ) ) )
479 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( k  =  m  ->  ( B `  k )  =  ( B `  m ) )
480476fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( k  =  m  ->  ( sin `  ( k  x.  X ) )  =  ( sin `  (
m  x.  X ) ) )
481479, 480oveq12d 6668 . . . . . . . . . . . . . . . 16  |-  ( k  =  m  ->  (
( B `  k
)  x.  ( sin `  ( k  x.  X
) ) )  =  ( ( B `  m )  x.  ( sin `  ( m  x.  X ) ) ) )
482478, 481oveq12d 6668 . . . . . . . . . . . . . . 15  |-  ( k  =  m  ->  (
( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) )  =  ( ( ( A `
 m )  x.  ( cos `  (
m  x.  X ) ) )  +  ( ( B `  m
)  x.  ( sin `  ( m  x.  X
) ) ) ) )
483482cbvsumv 14426 . . . . . . . . . . . . . 14  |-  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  sum_ m  e.  ( 1 ... n ) ( ( ( A `
 m )  x.  ( cos `  (
m  x.  X ) ) )  +  ( ( B `  m
)  x.  ( sin `  ( m  x.  X
) ) ) )
484483oveq2i 6661 . . . . . . . . . . . . 13  |-  ( ( ( A `  0
)  /  2 )  +  sum_ k  e.  ( 1 ... n ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )  =  ( ( ( A `  0
)  /  2 )  +  sum_ m  e.  ( 1 ... n ) ( ( ( A `
 m )  x.  ( cos `  (
m  x.  X ) ) )  +  ( ( B `  m
)  x.  ( sin `  ( m  x.  X
) ) ) ) )
485484mpteq2i 4741 . . . . . . . . . . . 12  |-  ( n  e.  NN  |->  ( ( ( A `  0
)  /  2 )  +  sum_ k  e.  ( 1 ... n ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) ) )  =  ( n  e.  NN  |->  ( ( ( A ` 
0 )  /  2
)  +  sum_ m  e.  ( 1 ... n
) ( ( ( A `  m )  x.  ( cos `  (
m  x.  X ) ) )  +  ( ( B `  m
)  x.  ( sin `  ( m  x.  X
) ) ) ) ) )
486474, 485eqtri 2644 . . . . . . . . . . 11  |-  ( m  e.  NN  |->  ( ( ( A `  0
)  /  2 )  +  sum_ k  e.  ( 1 ... m ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) ) )  =  ( n  e.  NN  |->  ( ( ( A ` 
0 )  /  2
)  +  sum_ m  e.  ( 1 ... n
) ( ( ( A `  m )  x.  ( cos `  (
m  x.  X ) ) )  +  ( ( B `  m
)  x.  ( sin `  ( m  x.  X
) ) ) ) ) )
48728, 470, 4863eqtri 2648 . . . . . . . . . 10  |-  Z  =  ( n  e.  NN  |->  ( ( ( A `
 0 )  / 
2 )  +  sum_ m  e.  ( 1 ... n ) ( ( ( A `  m
)  x.  ( cos `  ( m  x.  X
) ) )  +  ( ( B `  m )  x.  ( sin `  ( m  x.  X ) ) ) ) ) )
488 oveq2 6658 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  ( X  +  y )  =  ( X  +  x ) )
489488fveq2d 6195 . . . . . . . . . . . 12  |-  ( y  =  x  ->  ( F `  ( X  +  y ) )  =  ( F `  ( X  +  x
) ) )
490 fveq2 6191 . . . . . . . . . . . 12  |-  ( y  =  x  ->  (
( D `  m
) `  y )  =  ( ( D `
 m ) `  x ) )
491489, 490oveq12d 6668 . . . . . . . . . . 11  |-  ( y  =  x  ->  (
( F `  ( X  +  y )
)  x.  ( ( D `  m ) `
 y ) )  =  ( ( F `
 ( X  +  x ) )  x.  ( ( D `  m ) `  x
) ) )
492491cbvmptv 4750 . . . . . . . . . 10  |-  ( y  e.  RR  |->  ( ( F `  ( X  +  y ) )  x.  ( ( D `
 m ) `  y ) ) )  =  ( x  e.  RR  |->  ( ( F `
 ( X  +  x ) )  x.  ( ( D `  m ) `  x
) ) )
493 eqid 2622 . . . . . . . . . 10  |-  ( n  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  ( -u pi  -  X )  /\  (
p `  n )  =  ( pi  -  X ) )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )  =  ( n  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... n ) )  |  ( ( ( p `  0 )  =  ( -u pi  -  X )  /\  (
p `  n )  =  ( pi  -  X ) )  /\  A. i  e.  ( 0..^ n ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )
494 fveq2 6191 . . . . . . . . . . . 12  |-  ( j  =  i  ->  ( Q `  j )  =  ( Q `  i ) )
495494oveq1d 6665 . . . . . . . . . . 11  |-  ( j  =  i  ->  (
( Q `  j
)  -  X )  =  ( ( Q `
 i )  -  X ) )
496495cbvmptv 4750 . . . . . . . . . 10  |-  ( j  e.  ( 0 ... M )  |->  ( ( Q `  j )  -  X ) )  =  ( i  e.  ( 0 ... M
)  |->  ( ( Q `
 i )  -  X ) )
497451, 459, 487, 288, 51, 52, 53, 146, 43, 92, 492, 103, 222, 233, 48, 493, 496fourierdlem111 40434 . . . . . . . . 9  |-  ( (
ph  /\  m  e.  NN )  ->  ( Z `
 m )  =  ( S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  m ) `
 s ) )  _d s  +  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s ) )
498443, 497chvarv 2263 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  ( Z `
 n )  =  ( S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s  +  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) )  _d s ) )
499411, 436oveq12d 6668 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( ( m  e.  NN  |->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s ) `  n
)  +  ( ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s ) `  n ) )  =  ( S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s  +  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  _d s ) )
500498, 499eqtr4d 2659 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( Z `
 n )  =  ( ( ( m  e.  NN  |->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s ) `  n )  +  ( ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  _d s ) `
 n ) ) )
50116, 24, 27, 42, 14, 15, 333, 337, 359, 412, 437, 500climaddf 39847 . . . . . 6  |-  ( ph  ->  Z  ~~>  ( ( L  /  2 )  +  ( R  /  2
) ) )
502 limccl 23639 . . . . . . . 8  |-  ( ( F  |`  ( -oo (,) X ) ) lim CC  X )  C_  CC
503502, 285sseldi 3601 . . . . . . 7  |-  ( ph  ->  L  e.  CC )
504 limccl 23639 . . . . . . . 8  |-  ( ( F  |`  ( X (,) +oo ) ) lim CC  X )  C_  CC
505504, 284sseldi 3601 . . . . . . 7  |-  ( ph  ->  R  e.  CC )
506 2cnd 11093 . . . . . . 7  |-  ( ph  ->  2  e.  CC )
507 2pos 11112 . . . . . . . . 9  |-  0  <  2
508507a1i 11 . . . . . . . 8  |-  ( ph  ->  0  <  2 )
509508gt0ne0d 10592 . . . . . . 7  |-  ( ph  ->  2  =/=  0 )
510503, 505, 506, 509divdird 10839 . . . . . 6  |-  ( ph  ->  ( ( L  +  R )  /  2
)  =  ( ( L  /  2 )  +  ( R  / 
2 ) ) )
511501, 510breqtrrd 4681 . . . . 5  |-  ( ph  ->  Z  ~~>  ( ( L  +  R )  / 
2 ) )
512 0nn0 11307 . . . . . . . 8  |-  0  e.  NN0
51343adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  0  e.  NN0 )  ->  F : RR
--> RR )
514 eqid 2622 . . . . . . . . . 10  |-  ( -u pi (,) pi )  =  ( -u pi (,) pi )
515 ioossre 12235 . . . . . . . . . . . . . 14  |-  ( -u pi (,) pi )  C_  RR
516515a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  ( -u pi (,) pi )  C_  RR )
51743, 516feqresmpt 6250 . . . . . . . . . . . 12  |-  ( ph  ->  ( F  |`  ( -u pi (,) pi ) )  =  ( x  e.  ( -u pi (,) pi )  |->  ( F `
 x ) ) )
518 ioossicc 12259 . . . . . . . . . . . . . 14  |-  ( -u pi (,) pi )  C_  ( -u pi [,] pi )
519518a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  ( -u pi (,) pi )  C_  ( -u pi [,] pi ) )
520 ioombl 23333 . . . . . . . . . . . . . 14  |-  ( -u pi (,) pi )  e. 
dom  vol
521520a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  ( -u pi (,) pi )  e.  dom  vol )
52243adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  F : RR --> RR )
523385sselda 3603 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  x  e.  RR )
524522, 523ffvelrnd 6360 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( -u pi [,] pi ) )  ->  ( F `  x )  e.  RR )
52543, 385feqresmpt 6250 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( F  |`  ( -u pi [,] pi ) )  =  ( x  e.  ( -u pi [,] pi )  |->  ( F `
 x ) ) )
526178a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  RR  C_  CC )
52743, 526fssd 6057 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  F : RR --> CC )
528527, 385fssresd 6071 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( F  |`  ( -u pi [,] pi ) ) : ( -u pi [,] pi ) --> CC )
529 ioossicc 12259 . . . . . . . . . . . . . . . . . 18  |-  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  C_  ( ( Q `  i ) [,] ( Q `  ( i  +  1 ) ) )
53061rexri 10097 . . . . . . . . . . . . . . . . . . . 20  |-  -u pi  e.  RR*
531530a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  -u pi  e.  RR* )
53254rexri 10097 . . . . . . . . . . . . . . . . . . . 20  |-  pi  e.  RR*
533532a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  pi  e.  RR* )
53451, 52, 53fourierdlem15 40339 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  Q : ( 0 ... M ) --> (
-u pi [,] pi ) )
535534adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Q : ( 0 ... M ) --> ( -u pi [,] pi ) )
536 simpr 477 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  i  e.  ( 0..^ M ) )
537531, 533, 535, 536fourierdlem8 40332 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i ) [,] ( Q `  (
i  +  1 ) ) )  C_  ( -u pi [,] pi ) )
538529, 537syl5ss 3614 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  C_  ( -u pi [,] pi ) )
539538resabs1d 5428 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( F  |`  ( -u pi [,] pi ) )  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )  =  ( F  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) ) )
540539, 103eqeltrd 2701 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( F  |`  ( -u pi [,] pi ) )  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )
-cn-> CC ) )
541539eqcomd 2628 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  =  ( ( F  |`  ( -u pi [,] pi ) )  |`  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) ) )
542541oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( F  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) ) lim CC  ( Q `  i )
)  =  ( ( ( F  |`  ( -u pi [,] pi ) )  |`  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) ) lim CC  ( Q `  i ) ) )
543222, 542eleqtrd 2703 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  C  e.  ( ( ( F  |`  ( -u pi [,] pi ) )  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 i ) ) )
544541oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( F  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) ) lim CC  ( Q `  ( i  +  1 ) ) )  =  ( ( ( F  |`  ( -u pi [,] pi ) )  |`  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
545233, 544eleqtrd 2703 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  U  e.  ( ( ( F  |`  ( -u pi [,] pi ) )  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
54651, 52, 53, 528, 540, 543, 545fourierdlem69 40392 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( F  |`  ( -u pi [,] pi ) )  e.  L^1 )
547525, 546eqeltrrd 2702 . . . . . . . . . . . . 13  |-  ( ph  ->  ( x  e.  (
-u pi [,] pi )  |->  ( F `  x ) )  e.  L^1 )
548519, 521, 524, 547iblss 23571 . . . . . . . . . . . 12  |-  ( ph  ->  ( x  e.  (
-u pi (,) pi )  |->  ( F `  x ) )  e.  L^1 )
549517, 548eqeltrd 2701 . . . . . . . . . . 11  |-  ( ph  ->  ( F  |`  ( -u pi (,) pi ) )  e.  L^1 )
550549adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  0  e.  NN0 )  ->  ( F  |`  ( -u pi (,) pi ) )  e.  L^1 )
551 simpr 477 . . . . . . . . . 10  |-  ( (
ph  /\  0  e.  NN0 )  ->  0  e.  NN0 )
552513, 514, 550, 29, 551fourierdlem16 40340 . . . . . . . . 9  |-  ( (
ph  /\  0  e.  NN0 )  ->  ( (
( A `  0
)  e.  RR  /\  ( x  e.  ( -u pi (,) pi ) 
|->  ( F `  x
) )  e.  L^1 )  /\  S. (
-u pi (,) pi ) ( ( F `
 x )  x.  ( cos `  (
0  x.  x ) ) )  _d x  e.  RR ) )
553552simplld 791 . . . . . . . 8  |-  ( (
ph  /\  0  e.  NN0 )  ->  ( A `  0 )  e.  RR )
554512, 553mpan2 707 . . . . . . 7  |-  ( ph  ->  ( A `  0
)  e.  RR )
555554rehalfcld 11279 . . . . . 6  |-  ( ph  ->  ( ( A ` 
0 )  /  2
)  e.  RR )
556555recnd 10068 . . . . 5  |-  ( ph  ->  ( ( A ` 
0 )  /  2
)  e.  CC )
557334mptex 6486 . . . . . 6  |-  ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )  e.  _V
558557a1i 11 . . . . 5  |-  ( ph  ->  ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n ) ( ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) ) )  e.  _V )
559 simpr 477 . . . . . . . 8  |-  ( (
ph  /\  m  e.  NN )  ->  m  e.  NN )
560555adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( A `  0 )  /  2 )  e.  RR )
561 fzfid 12772 . . . . . . . . . 10  |-  ( (
ph  /\  m  e.  NN )  ->  ( 1 ... m )  e. 
Fin )
562 simpll 790 . . . . . . . . . . 11  |-  ( ( ( ph  /\  m  e.  NN )  /\  n  e.  ( 1 ... m
) )  ->  ph )
563 elfznn 12370 . . . . . . . . . . . 12  |-  ( n  e.  ( 1 ... m )  ->  n  e.  NN )
564563adantl 482 . . . . . . . . . . 11  |-  ( ( ( ph  /\  m  e.  NN )  /\  n  e.  ( 1 ... m
) )  ->  n  e.  NN )
565 simpl 473 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  NN )  ->  ph )
566362nnnn0d 11351 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  NN )  ->  n  e. 
NN0 )
567 eleq1 2689 . . . . . . . . . . . . . . . . 17  |-  ( k  =  n  ->  (
k  e.  NN0  <->  n  e.  NN0 ) )
568567anbi2d 740 . . . . . . . . . . . . . . . 16  |-  ( k  =  n  ->  (
( ph  /\  k  e.  NN0 )  <->  ( ph  /\  n  e.  NN0 )
) )
569 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( k  =  n  ->  ( A `  k )  =  ( A `  n ) )
570569eleq1d 2686 . . . . . . . . . . . . . . . 16  |-  ( k  =  n  ->  (
( A `  k
)  e.  RR  <->  ( A `  n )  e.  RR ) )
571568, 570imbi12d 334 . . . . . . . . . . . . . . 15  |-  ( k  =  n  ->  (
( ( ph  /\  k  e.  NN0 )  -> 
( A `  k
)  e.  RR )  <-> 
( ( ph  /\  n  e.  NN0 )  -> 
( A `  n
)  e.  RR ) ) )
57243adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  NN0 )  ->  F : RR
--> RR )
573549adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( F  |`  ( -u pi (,) pi ) )  e.  L^1 )
574 simpr 477 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  NN0 )  ->  k  e.  NN0 )
575572, 514, 573, 29, 574fourierdlem16 40340 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( (
( A `  k
)  e.  RR  /\  ( x  e.  ( -u pi (,) pi ) 
|->  ( F `  x
) )  e.  L^1 )  /\  S. (
-u pi (,) pi ) ( ( F `
 x )  x.  ( cos `  (
k  x.  x ) ) )  _d x  e.  RR ) )
576575simplld 791 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( A `  k )  e.  RR )
577571, 576chvarv 2263 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  NN0 )  ->  ( A `  n )  e.  RR )
578565, 566, 577syl2anc 693 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  NN )  ->  ( A `
 n )  e.  RR )
579362nnred 11035 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  n  e.  NN )  ->  n  e.  RR )
580579, 399remulcld 10070 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  NN )  ->  ( n  x.  X )  e.  RR )
581580recoscld 14874 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  NN )  ->  ( cos `  ( n  x.  X
) )  e.  RR )
582578, 581remulcld 10070 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  e.  RR )
583 eleq1 2689 . . . . . . . . . . . . . . . 16  |-  ( k  =  n  ->  (
k  e.  NN  <->  n  e.  NN ) )
584583anbi2d 740 . . . . . . . . . . . . . . 15  |-  ( k  =  n  ->  (
( ph  /\  k  e.  NN )  <->  ( ph  /\  n  e.  NN ) ) )
585 fveq2 6191 . . . . . . . . . . . . . . . 16  |-  ( k  =  n  ->  ( B `  k )  =  ( B `  n ) )
586585eleq1d 2686 . . . . . . . . . . . . . . 15  |-  ( k  =  n  ->  (
( B `  k
)  e.  RR  <->  ( B `  n )  e.  RR ) )
587584, 586imbi12d 334 . . . . . . . . . . . . . 14  |-  ( k  =  n  ->  (
( ( ph  /\  k  e.  NN )  ->  ( B `  k
)  e.  RR )  <-> 
( ( ph  /\  n  e.  NN )  ->  ( B `  n
)  e.  RR ) ) )
58843adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  k  e.  NN )  ->  F : RR
--> RR )
589549adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  k  e.  NN )  ->  ( F  |`  ( -u pi (,) pi ) )  e.  L^1 )
590 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  k  e.  NN )  ->  k  e.  NN )
591588, 514, 589, 452, 590fourierdlem21 40345 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( ( B `  k
)  e.  RR  /\  ( x  e.  ( -u pi (,) pi ) 
|->  ( ( F `  x )  x.  ( sin `  ( k  x.  x ) ) ) )  e.  L^1 )  /\  S. (
-u pi (,) pi ) ( ( F `
 x )  x.  ( sin `  (
k  x.  x ) ) )  _d x  e.  RR ) )
592591simplld 791 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  NN )  ->  ( B `
 k )  e.  RR )
593587, 592chvarv 2263 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  NN )  ->  ( B `
 n )  e.  RR )
594580resincld 14873 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  NN )  ->  ( sin `  ( n  x.  X
) )  e.  RR )
595593, 594remulcld 10070 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( B `  n )  x.  ( sin `  (
n  x.  X ) ) )  e.  RR )
596582, 595readdcld 10069 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) )  e.  RR )
597562, 564, 596syl2anc 693 . . . . . . . . . 10  |-  ( ( ( ph  /\  m  e.  NN )  /\  n  e.  ( 1 ... m
) )  ->  (
( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) )  +  ( ( B `
 n )  x.  ( sin `  (
n  x.  X ) ) ) )  e.  RR )
598561, 597fsumrecl 14465 . . . . . . . . 9  |-  ( (
ph  /\  m  e.  NN )  ->  sum_ n  e.  ( 1 ... m
) ( ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) )  e.  RR )
599560, 598readdcld 10069 . . . . . . . 8  |-  ( (
ph  /\  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
) ) ) ) )  e.  RR )
60028fvmpt2 6291 . . . . . . . 8  |-  ( ( 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 ) ) ) ) )  e.  RR )  ->  ( Z `  m )  =  ( ( ( A ` 
0 )  /  2
)  +  sum_ n  e.  ( 1 ... m
) ( ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) ) )
601559, 599, 600syl2anc 693 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  ( Z `
 m )  =  ( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  ( 1 ... m ) ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) ) )
602601, 599eqeltrd 2701 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  ( Z `
 m )  e.  RR )
603602recnd 10068 . . . . 5  |-  ( (
ph  /\  m  e.  NN )  ->  ( Z `
 m )  e.  CC )
604 eqidd 2623 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )  =  ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) ) )
605 oveq2 6658 . . . . . . . . 9  |-  ( n  =  m  ->  (
1 ... n )  =  ( 1 ... m
) )
606605sumeq1d 14431 . . . . . . . 8  |-  ( n  =  m  ->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  sum_ k  e.  ( 1 ... m ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
607606adantl 482 . . . . . . 7  |-  ( ( ( ph  /\  m  e.  NN )  /\  n  =  m )  ->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  sum_ k  e.  ( 1 ... m ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
608 sumex 14418 . . . . . . . 8  |-  sum_ k  e.  ( 1 ... m
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  e.  _V
609608a1i 11 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  sum_ k  e.  ( 1 ... m
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  e.  _V )
610604, 607, 559, 609fvmptd 6288 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n ) ( ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) ) ) `
 m )  = 
sum_ k  e.  ( 1 ... m ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
611560recnd 10068 . . . . . . . 8  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( A `  0 )  /  2 )  e.  CC )
612598recnd 10068 . . . . . . . 8  |-  ( (
ph  /\  m  e.  NN )  ->  sum_ n  e.  ( 1 ... m
) ( ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) )  e.  CC )
613611, 612pncan2d 10394 . . . . . . 7  |-  ( (
ph  /\  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
) ) ) ) )  -  ( ( A `  0 )  /  2 ) )  =  sum_ n  e.  ( 1 ... m ) ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )
614613, 468syl6req 2673 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  sum_ k  e.  ( 1 ... m
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  ( ( ( ( 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 ) ) )
615 ovex 6678 . . . . . . . . 9  |-  ( ( ( A `  0
)  /  2 )  +  sum_ n  e.  ( 1 ... m ) ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )  e.  _V
61628fvmpt2 6291 . . . . . . . . 9  |-  ( ( 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 ) ) ) ) )  e.  _V )  ->  ( Z `  m )  =  ( ( ( A ` 
0 )  /  2
)  +  sum_ n  e.  ( 1 ... m
) ( ( ( A `  n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) ) )
617559, 615, 616sylancl 694 . . . . . . . 8  |-  ( (
ph  /\  m  e.  NN )  ->  ( Z `
 m )  =  ( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  ( 1 ... m ) ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) ) )
618617eqcomd 2628 . . . . . . 7  |-  ( (
ph  /\  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
) ) ) ) )  =  ( Z `
 m ) )
619618oveq1d 6665 . . . . . 6  |-  ( (
ph  /\  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
) ) ) ) )  -  ( ( A `  0 )  /  2 ) )  =  ( ( Z `
 m )  -  ( ( A ` 
0 )  /  2
) ) )
620610, 614, 6193eqtrd 2660 . . . . 5  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n ) ( ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) ) ) `
 m )  =  ( ( Z `  m )  -  (
( A `  0
)  /  2 ) ) )
62114, 15, 511, 556, 558, 603, 620climsubc1 14368 . . . 4  |-  ( ph  ->  ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n ) ( ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) ) )  ~~>  ( ( ( L  +  R )  / 
2 )  -  (
( A `  0
)  /  2 ) ) )
622 seqex 12803 . . . . . 6  |-  seq 1
(  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) )  e.  _V
623622a1i 11 . . . . 5  |-  ( ph  ->  seq 1 (  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) ) )  e.  _V )
624 eqidd 2623 . . . . . . 7  |-  ( (
ph  /\  l  e.  NN )  ->  ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )  =  ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) ) )
625 oveq2 6658 . . . . . . . . 9  |-  ( n  =  l  ->  (
1 ... n )  =  ( 1 ... l
) )
626625sumeq1d 14431 . . . . . . . 8  |-  ( n  =  l  ->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  sum_ k  e.  ( 1 ... l ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
627626adantl 482 . . . . . . 7  |-  ( ( ( ph  /\  l  e.  NN )  /\  n  =  l )  ->  sum_ k  e.  ( 1 ... n ) ( ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) )  = 
sum_ k  e.  ( 1 ... l ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
628 simpr 477 . . . . . . 7  |-  ( (
ph  /\  l  e.  NN )  ->  l  e.  NN )
629 fzfid 12772 . . . . . . . 8  |-  ( (
ph  /\  l  e.  NN )  ->  ( 1 ... l )  e. 
Fin )
630 elfznn 12370 . . . . . . . . . . . . 13  |-  ( k  e.  ( 1 ... l )  ->  k  e.  NN )
631630nnnn0d 11351 . . . . . . . . . . . 12  |-  ( k  e.  ( 1 ... l )  ->  k  e.  NN0 )
632631, 576sylan2 491 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  ( A `  k )  e.  RR )
633630nnred 11035 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 1 ... l )  ->  k  e.  RR )
634633adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  k  e.  RR )
635146adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  X  e.  RR )
636634, 635remulcld 10070 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  (
k  x.  X )  e.  RR )
637636recoscld 14874 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  ( cos `  ( k  x.  X ) )  e.  RR )
638632, 637remulcld 10070 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  (
( A `  k
)  x.  ( cos `  ( k  x.  X
) ) )  e.  RR )
639630, 592sylan2 491 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  ( B `  k )  e.  RR )
640636resincld 14873 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  ( sin `  ( k  x.  X ) )  e.  RR )
641639, 640remulcld 10070 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  (
( B `  k
)  x.  ( sin `  ( k  x.  X
) ) )  e.  RR )
642638, 641readdcld 10069 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  ( 1 ... l
) )  ->  (
( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) )  e.  RR )
643642adantlr 751 . . . . . . . 8  |-  ( ( ( ph  /\  l  e.  NN )  /\  k  e.  ( 1 ... l
) )  ->  (
( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) )  e.  RR )
644629, 643fsumrecl 14465 . . . . . . 7  |-  ( (
ph  /\  l  e.  NN )  ->  sum_ k  e.  ( 1 ... l
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  e.  RR )
645624, 627, 628, 644fvmptd 6288 . . . . . 6  |-  ( (
ph  /\  l  e.  NN )  ->  ( ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n ) ( ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) ) ) `
 l )  = 
sum_ k  e.  ( 1 ... l ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
646 eleq1 2689 . . . . . . . . 9  |-  ( n  =  l  ->  (
n  e.  NN  <->  l  e.  NN ) )
647646anbi2d 740 . . . . . . . 8  |-  ( n  =  l  ->  (
( ph  /\  n  e.  NN )  <->  ( ph  /\  l  e.  NN ) ) )
648 fveq2 6191 . . . . . . . . 9  |-  ( n  =  l  ->  (  seq 1 (  +  , 
( j  e.  NN  |->  ( ( ( A `
 j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) ) ) `  n
)  =  (  seq 1 (  +  , 
( j  e.  NN  |->  ( ( ( A `
 j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) ) ) `  l
) )
649626, 648eqeq12d 2637 . . . . . . . 8  |-  ( n  =  l  ->  ( sum_ k  e.  ( 1 ... n ) ( ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) )  =  (  seq 1 (  +  ,  ( j  e.  NN  |->  ( ( ( A `  j
)  x.  ( cos `  ( j  x.  X
) ) )  +  ( ( B `  j )  x.  ( sin `  ( j  x.  X ) ) ) ) ) ) `  n )  <->  sum_ k  e.  ( 1 ... l
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  (  seq 1
(  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) ) `  l ) ) )
650647, 649imbi12d 334 . . . . . . 7  |-  ( n  =  l  ->  (
( ( ph  /\  n  e.  NN )  -> 
sum_ k  e.  ( 1 ... n ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  (  seq 1
(  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) ) `  n ) )  <->  ( ( ph  /\  l  e.  NN )  ->  sum_ k  e.  ( 1 ... l ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  (  seq 1
(  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) ) `  l ) ) ) )
651 eqidd 2623 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  k  e.  ( 1 ... n
) )  ->  (
j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) )  =  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) ) )
652 fveq2 6191 . . . . . . . . . . . 12  |-  ( j  =  k  ->  ( A `  j )  =  ( A `  k ) )
653 oveq1 6657 . . . . . . . . . . . . 13  |-  ( j  =  k  ->  (
j  x.  X )  =  ( k  x.  X ) )
654653fveq2d 6195 . . . . . . . . . . . 12  |-  ( j  =  k  ->  ( cos `  ( j  x.  X ) )  =  ( cos `  (
k  x.  X ) ) )
655652, 654oveq12d 6668 . . . . . . . . . . 11  |-  ( j  =  k  ->  (
( A `  j
)  x.  ( cos `  ( j  x.  X
) ) )  =  ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) ) )
656 fveq2 6191 . . . . . . . . . . . 12  |-  ( j  =  k  ->  ( B `  j )  =  ( B `  k ) )
657653fveq2d 6195 . . . . . . . . . . . 12  |-  ( j  =  k  ->  ( sin `  ( j  x.  X ) )  =  ( sin `  (
k  x.  X ) ) )
658656, 657oveq12d 6668 . . . . . . . . . . 11  |-  ( j  =  k  ->  (
( B `  j
)  x.  ( sin `  ( j  x.  X
) ) )  =  ( ( B `  k )  x.  ( sin `  ( k  x.  X ) ) ) )
659655, 658oveq12d 6668 . . . . . . . . . 10  |-  ( j  =  k  ->  (
( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) )  =  ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
660659adantl 482 . . . . . . . . 9  |-  ( ( ( ( ph  /\  n  e.  NN )  /\  k  e.  (
1 ... n ) )  /\  j  =  k )  ->  ( (
( A `  j
)  x.  ( cos `  ( j  x.  X
) ) )  +  ( ( B `  j )  x.  ( sin `  ( j  x.  X ) ) ) )  =  ( ( ( A `  k
)  x.  ( cos `  ( k  x.  X
) ) )  +  ( ( B `  k )  x.  ( sin `  ( k  x.  X ) ) ) ) )
661 elfznn 12370 . . . . . . . . . 10  |-  ( k  e.  ( 1 ... n )  ->  k  e.  NN )
662661adantl 482 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  k  e.  ( 1 ... n
) )  ->  k  e.  NN )
663 simpll 790 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  k  e.  ( 1 ... n
) )  ->  ph )
664 nnnn0 11299 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  k  e.  NN0 )
665 nn0re 11301 . . . . . . . . . . . . . . . 16  |-  ( k  e.  NN0  ->  k  e.  RR )
666665adantl 482 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  NN0 )  ->  k  e.  RR )
667146adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  NN0 )  ->  X  e.  RR )
668666, 667remulcld 10070 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( k  x.  X )  e.  RR )
669668recoscld 14874 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( cos `  ( k  x.  X
) )  e.  RR )
670576, 669remulcld 10070 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  NN0 )  ->  ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  e.  RR )
671664, 670sylan2 491 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  e.  RR )
672664, 668sylan2 491 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  NN )  ->  ( k  x.  X )  e.  RR )
673672resincld 14873 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  NN )  ->  ( sin `  ( k  x.  X
) )  e.  RR )
674592, 673remulcld 10070 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( B `  k )  x.  ( sin `  (
k  x.  X ) ) )  e.  RR )
675671, 674readdcld 10069 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( ( A `  k
)  x.  ( cos `  ( k  x.  X
) ) )  +  ( ( B `  k )  x.  ( sin `  ( k  x.  X ) ) ) )  e.  RR )
676663, 662, 675syl2anc 693 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  k  e.  ( 1 ... n
) )  ->  (
( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) )  e.  RR )
677651, 660, 662, 676fvmptd 6288 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  NN )  /\  k  e.  ( 1 ... n
) )  ->  (
( j  e.  NN  |->  ( ( ( A `
 j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) ) `  k )  =  ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )
678362, 14syl6eleq 2711 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  n  e.  ( ZZ>= `  1 )
)
679676recnd 10068 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  NN )  /\  k  e.  ( 1 ... n
) )  ->  (
( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) )  e.  CC )
680677, 678, 679fsumser 14461 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  sum_ k  e.  ( 1 ... n
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  (  seq 1
(  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) ) `  n ) )
681650, 680chvarv 2263 . . . . . 6  |-  ( (
ph  /\  l  e.  NN )  ->  sum_ k  e.  ( 1 ... l
) ( ( ( A `  k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) )  =  (  seq 1
(  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) ) `  l ) )
682645, 681eqtrd 2656 . . . . 5  |-  ( (
ph  /\  l  e.  NN )  ->  ( ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n ) ( ( ( A `  k )  x.  ( cos `  ( k  x.  X ) ) )  +  ( ( B `
 k )  x.  ( sin `  (
k  x.  X ) ) ) ) ) `
 l )  =  (  seq 1 (  +  ,  ( j  e.  NN  |->  ( ( ( A `  j
)  x.  ( cos `  ( j  x.  X
) ) )  +  ( ( B `  j )  x.  ( sin `  ( j  x.  X ) ) ) ) ) ) `  l ) )
68314, 558, 623, 15, 682climeq 14298 . . . 4  |-  ( ph  ->  ( ( n  e.  NN  |->  sum_ k  e.  ( 1 ... n ) ( ( ( A `
 k )  x.  ( cos `  (
k  x.  X ) ) )  +  ( ( B `  k
)  x.  ( sin `  ( k  x.  X
) ) ) ) )  ~~>  ( ( ( L  +  R )  /  2 )  -  ( ( A ` 
0 )  /  2
) )  <->  seq 1
(  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) )  ~~>  ( ( ( L  +  R )  /  2 )  -  ( ( A ` 
0 )  /  2
) ) ) )
684621, 683mpbid 222 . . 3  |-  ( ph  ->  seq 1 (  +  ,  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  (
j  x.  X ) ) )  +  ( ( B `  j
)  x.  ( sin `  ( j  x.  X
) ) ) ) ) )  ~~>  ( ( ( L  +  R
)  /  2 )  -  ( ( A `
 0 )  / 
2 ) ) )
68513, 684eqbrtrd 4675 . 2  |-  ( ph  ->  seq 1 (  +  ,  S )  ~~>  ( ( ( L  +  R
)  /  2 )  -  ( ( A `
 0 )  / 
2 ) ) )
686 eqidd 2623 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( j  e.  NN  |->  ( ( ( A `  j
)  x.  ( cos `  ( j  x.  X
) ) )  +  ( ( B `  j )  x.  ( sin `  ( j  x.  X ) ) ) ) )  =  ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) )
687 fveq2 6191 . . . . . . . . 9  |-  ( j  =  n  ->  ( A `  j )  =  ( A `  n ) )
688 oveq1 6657 . . . . . . . . . 10  |-  ( j  =  n  ->  (
j  x.  X )  =  ( n  x.  X ) )
689688fveq2d 6195 . . . . . . . . 9  |-  ( j  =  n  ->  ( cos `  ( j  x.  X ) )  =  ( cos `  (
n  x.  X ) ) )
690687, 689oveq12d 6668 . . . . . . . 8  |-  ( j  =  n  ->  (
( A `  j
)  x.  ( cos `  ( j  x.  X
) ) )  =  ( ( A `  n )  x.  ( cos `  ( n  x.  X ) ) ) )
691 fveq2 6191 . . . . . . . . 9  |-  ( j  =  n  ->  ( B `  j )  =  ( B `  n ) )
692688fveq2d 6195 . . . . . . . . 9  |-  ( j  =  n  ->  ( sin `  ( j  x.  X ) )  =  ( sin `  (
n  x.  X ) ) )
693691, 692oveq12d 6668 . . . . . . . 8  |-  ( j  =  n  ->  (
( B `  j
)  x.  ( sin `  ( j  x.  X
) ) )  =  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) )
694690, 693oveq12d 6668 . . . . . . 7  |-  ( j  =  n  ->  (
( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) )  =  ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )
695694adantl 482 . . . . . 6  |-  ( ( ( ph  /\  n  e.  NN )  /\  j  =  n )  ->  (
( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) )  =  ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )
696686, 695, 362, 596fvmptd 6288 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( j  e.  NN  |->  ( ( ( A `  j )  x.  ( cos `  ( j  x.  X ) ) )  +  ( ( B `
 j )  x.  ( sin `  (
j  x.  X ) ) ) ) ) `
 n )  =  ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )
697596recnd 10068 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) )  e.  CC )
69814, 15, 696, 697, 684isumclim 14488 . . . 4  |-  ( ph  -> 
sum_ n  e.  NN  ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) )  =  ( ( ( L  +  R )  /  2 )  -  ( ( A ` 
0 )  /  2
) ) )
699698oveq2d 6666 . . 3  |-  ( ph  ->  ( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  NN  ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) )  =  ( ( ( A ` 
0 )  /  2
)  +  ( ( ( L  +  R
)  /  2 )  -  ( ( A `
 0 )  / 
2 ) ) ) )
700503, 505addcld 10059 . . . . 5  |-  ( ph  ->  ( L  +  R
)  e.  CC )
701700halfcld 11277 . . . 4  |-  ( ph  ->  ( ( L  +  R )  /  2
)  e.  CC )
702556, 701pncan3d 10395 . . 3  |-  ( ph  ->  ( ( ( A `
 0 )  / 
2 )  +  ( ( ( L  +  R )  /  2
)  -  ( ( A `  0 )  /  2 ) ) )  =  ( ( L  +  R )  /  2 ) )
703699, 702eqtrd 2656 . 2  |-  ( ph  ->  ( ( ( A `
 0 )  / 
2 )  +  sum_ n  e.  NN  ( ( ( A `  n
)  x.  ( cos `  ( n  x.  X
) ) )  +  ( ( B `  n )  x.  ( sin `  ( n  x.  X ) ) ) ) )  =  ( ( L  +  R
)  /  2 ) )
704685, 703jca 554 1  |-  ( ph  ->  (  seq 1 (  +  ,  S )  ~~>  ( ( ( L  +  R )  / 
2 )  -  (
( A `  0
)  /  2 ) )  /\  ( ( ( A `  0
)  /  2 )  +  sum_ n  e.  NN  ( ( ( A `
 n )  x.  ( cos `  (
n  x.  X ) ) )  +  ( ( B `  n
)  x.  ( sin `  ( n  x.  X
) ) ) ) )  =  ( ( L  +  R )  /  2 ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384    = wceq 1483    e. wcel 1990   A.wral 2912   E.wrex 2913   {crab 2916   _Vcvv 3200   [_csb 3533    u. cun 3572    i^i cin 3573    C_ wss 3574   ifcif 4086   {cpr 4179   class class class wbr 4653    |-> cmpt 4729   dom cdm 5114   ran crn 5115    |` cres 5116   iotacio 5849   -->wf 5884   ` cfv 5888    Isom wiso 5889   iota_crio 6610  (class class class)co 6650    ^m cmap 7857   supcsup 8346   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941   +oocpnf 10071   -oocmnf 10072   RR*cxr 10073    < clt 10074    <_ cle 10075    - cmin 10266   -ucneg 10267    / cdiv 10684   NNcn 11020   2c2 11070   NN0cn0 11292   ZZcz 11377   ZZ>=cuz 11687   RR+crp 11832   (,)cioo 12175   (,]cioc 12176   [,]cicc 12178   ...cfz 12326  ..^cfzo 12465   |_cfl 12591    mod cmo 12668    seqcseq 12801   #chash 13117   abscabs 13974    ~~> cli 14215   sum_csu 14416   sincsin 14794   cosccos 14795   picpi 14797   -cn->ccncf 22679   volcvol 23232   L^1cibl 23386   S.citg 23387   lim CC climc 23626    _D cdv 23627
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-xnn0 11364  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-ditg 23611  df-limc 23630  df-dv 23631
This theorem is referenced by:  fourierdlem113  40436
  Copyright terms: Public domain W3C validator