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

Theorem fourierdlem103 40426
Description: The half lower part of the integral equal to the fourier partial sum, converges to half the left limit of the original function. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem103.f  |-  ( ph  ->  F : RR --> RR )
fourierdlem103.xre  |-  ( ph  ->  X  e.  RR )
fourierdlem103.p  |-  P  =  ( m  e.  NN  |->  { p  e.  ( RR  ^m  ( 0 ... m ) )  |  ( ( ( p `
 0 )  =  ( -u pi  +  X )  /\  (
p `  m )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ m ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )
fourierdlem103.m  |-  ( ph  ->  M  e.  NN )
fourierdlem103.v  |-  ( ph  ->  V  e.  ( P `
 M ) )
fourierdlem103.x  |-  ( ph  ->  X  e.  ran  V
)
fourierdlem103.fcn  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
fourierdlem103.fbdioo  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( F `
 t ) )  <_  w )
fourierdlem103.fdvcn  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> RR ) )
fourierdlem103.fdvbd  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )
fourierdlem103.r  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 i ) ) )
fourierdlem103.l  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  L  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 ( i  +  1 ) ) ) )
fourierdlem103.h  |-  H  =  ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  / 
s ) ) )
fourierdlem103.k  |-  K  =  ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  1 ,  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
fourierdlem103.u  |-  U  =  ( s  e.  (
-u pi [,] pi )  |->  ( ( H `
 s )  x.  ( K `  s
) ) )
fourierdlem103.s  |-  S  =  ( s  e.  (
-u pi [,] pi )  |->  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )
fourierdlem103.g  |-  G  =  ( s  e.  (
-u pi [,] pi )  |->  ( ( U `
 s )  x.  ( S `  s
) ) )
fourierdlem103.z  |-  Z  =  ( m  e.  NN  |->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s )
fourierdlem103.e  |-  E  =  ( n  e.  NN  |->  ( S. ( -u pi (,) 0 ) ( G `
 s )  _d s  /  pi ) )
fourierdlem103.y  |-  ( ph  ->  Y  e.  ( ( F  |`  ( X (,) +oo ) ) lim CC  X ) )
fourierdlem103.w  |-  ( ph  ->  W  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
fourierdlem103.a  |-  ( ph  ->  A  e.  ( ( ( RR  _D  F
)  |`  ( -oo (,) X ) ) lim CC  X ) )
fourierdlem103.b  |-  ( ph  ->  B  e.  ( ( ( RR  _D  F
)  |`  ( X (,) +oo ) ) lim CC  X
) )
fourierdlem103.d  |-  D  =  ( n  e.  NN  |->  ( s  e.  RR  |->  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  n )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
fourierdlem103.o  |-  O  =  ( U  |`  ( -u pi [,] d ) )
fourierdlem103.t  |-  T  =  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d ) ) )
fourierdlem103.n  |-  N  =  ( ( # `  T
)  -  1 )
fourierdlem103.j  |-  J  =  ( iota f f 
Isom  <  ,  <  (
( 0 ... N
) ,  T ) )
fourierdlem103.q  |-  Q  =  ( i  e.  ( 0 ... M ) 
|->  ( ( V `  i )  -  X
) )
fourierdlem103.1  |-  C  =  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )
fourierdlem103.ch  |-  ( ch  <->  ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
Assertion
Ref Expression
fourierdlem103  |-  ( ph  ->  Z  ~~>  ( W  / 
2 ) )
Distinct variable groups:    A, s    B, s    C, i, t, w, z    D, i, m, s   
n, E    i, F, k, l, s, t    m, F, k    w, F, z, k, s    e, G, k, s    i, G, t    i, H, s   
k, J, l, s   
f, J, k    i, J, t    m, J    w, J, z    K, s    L, l, s, t    k, M, l, s, i, t   
m, M, p, i   
i, N, k, l, s, t    e, N, l    f, N    m, N    w, N, z    e, O, l, s, k    t, O    Q, l, s, i, t    Q, p    R, l, s, t    S, s    T, f    U, d, k, s, l    U, n, k, s    i, V, k, s    V, p   
t, V    i, W, k, l, s, t    m, W, n, i    w, W, z    i, X, k, l, s, t    m, X, p    w, X, z    Y, s    n, Z    e,
d    i, d, ph, t,
k, l, s    ph, e    ch, s    f, d, ph    w, d, z, ph    e, n,
ph    ph, m
Allowed substitution hints:    ph( p)    ch( z, w, t, e, f, i, k, m, n, p, d, l)    A( z, w, t, e, f, i, k, m, n, p, d, l)    B( z, w, t, e, f, i, k, m, n, p, d, l)    C( e, f, k, m, n, s, p, d, l)    D( z, w, t, e, f, k, n, p, d, l)    P( z, w, t, e, f, i, k, m, n, s, p, d, l)    Q( z, w, e, f, k, m, n, d)    R( z, w, e, f, i, k, m, n, p, d)    S( z, w, t, e, f, i, k, m, n, p, d, l)    T( z, w, t, e, i, k, m, n, s, p, d, l)    U( z, w, t, e, f, i, m, p)    E( z, w, t, e, f, i, k, m, s, p, d, l)    F( e, f, n, p, d)    G( z, w, f, m, n, p, d, l)    H( z, w, t, e, f, k, m, n, p, d, l)    J( e, n, p, d)    K( z, w, t, e, f, i, k, m, n, p, d, l)    L( z, w, e, f, i, k, m, n, p, d)    M( z, w, e, f, n, d)    N( n, p, d)    O( z, w, f, i, m, n, p, d)    V( z, w, e, f, m, n, d, l)    W( e, f, p, d)    X( e, f, n, d)    Y( z, w, t, e, f, i, k, m, n, p, d, l)    Z( z, w, t, e, f, i, k, m, s, p, d, l)

Proof of Theorem fourierdlem103
Dummy variables  x  .||  b  r  c  u  j  y  h  v  a are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2622 . . 3  |-  ( ZZ>= ` 
1 )  =  (
ZZ>= `  1 )
2 1zzd 11408 . . 3  |-  ( ph  ->  1  e.  ZZ )
3 nfv 1843 . . . . 5  |-  F/ n ph
4 nfmpt1 4747 . . . . 5  |-  F/_ n
( n  e.  NN  |->  S. ( -u pi (,) 0 ) ( G `
 s )  _d s )
5 nfmpt1 4747 . . . . 5  |-  F/_ n
( n  e.  NN  |->  pi )
6 fourierdlem103.e . . . . . 6  |-  E  =  ( n  e.  NN  |->  ( S. ( -u pi (,) 0 ) ( G `
 s )  _d s  /  pi ) )
7 nfmpt1 4747 . . . . . 6  |-  F/_ n
( n  e.  NN  |->  ( S. ( -u pi (,) 0 ) ( G `
 s )  _d s  /  pi ) )
86, 7nfcxfr 2762 . . . . 5  |-  F/_ n E
9 nnuz 11723 . . . . 5  |-  NN  =  ( ZZ>= `  1 )
10 pire 24210 . . . . . . . . . . . . . . . . 17  |-  pi  e.  RR
1110renegcli 10342 . . . . . . . . . . . . . . . 16  |-  -u pi  e.  RR
1211a1i 11 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  e.  RR )
13 elioore 12205 . . . . . . . . . . . . . . . 16  |-  ( d  e.  ( -u pi (,) 0 )  ->  d  e.  RR )
1413adantl 482 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  d  e.  RR )
15 fourierdlem103.f . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  F : RR --> RR )
16 fourierdlem103.xre . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  X  e.  RR )
17 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( X (,) +oo )  C_  RR
1817a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( X (,) +oo )  C_  RR )
1915, 18fssresd 6071 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( F  |`  ( X (,) +oo ) ) : ( X (,) +oo ) --> RR )
20 ioosscn 39716 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( X (,) +oo )  C_  CC
2120a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( X (,) +oo )  C_  CC )
22 eqid 2622 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( TopOpen ` fld )  =  ( TopOpen ` fld )
23 pnfxr 10092 . . . . . . . . . . . . . . . . . . . . . . 23  |- +oo  e.  RR*
2423a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  -> +oo  e.  RR* )
2516ltpnfd 11955 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  X  < +oo )
2622, 24, 16, 25lptioo1cn 39878 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  X  e.  ( (
limPt `  ( TopOpen ` fld ) ) `  ( X (,) +oo ) ) )
27 fourierdlem103.y . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  Y  e.  ( ( F  |`  ( X (,) +oo ) ) lim CC  X ) )
2819, 21, 26, 27limcrecl 39861 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  Y  e.  RR )
29 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( -oo (,) X )  C_  RR
3029a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( -oo (,) X
)  C_  RR )
3115, 30fssresd 6071 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( F  |`  ( -oo (,) X ) ) : ( -oo (,) X ) --> RR )
32 ioosscn 39716 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( -oo (,) X )  C_  CC
3332a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( -oo (,) X
)  C_  CC )
34 mnfxr 10096 . . . . . . . . . . . . . . . . . . . . . . 23  |- -oo  e.  RR*
3534a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  -> -oo  e.  RR* )
3616mnfltd 11958 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  -> -oo  <  X )
3722, 35, 16, 36lptioo2cn 39877 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  X  e.  ( (
limPt `  ( TopOpen ` fld ) ) `  ( -oo (,) X ) ) )
38 fourierdlem103.w . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  W  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
3931, 33, 37, 38limcrecl 39861 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  W  e.  RR )
40 fourierdlem103.h . . . . . . . . . . . . . . . . . . . 20  |-  H  =  ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  / 
s ) ) )
41 fourierdlem103.k . . . . . . . . . . . . . . . . . . . 20  |-  K  =  ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  1 ,  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
42 fourierdlem103.u . . . . . . . . . . . . . . . . . . . 20  |-  U  =  ( s  e.  (
-u pi [,] pi )  |->  ( ( H `
 s )  x.  ( K `  s
) ) )
4315, 16, 28, 39, 40, 41, 42fourierdlem55 40378 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  U : ( -u pi [,] pi ) --> RR )
44 ax-resscn 9993 . . . . . . . . . . . . . . . . . . . 20  |-  RR  C_  CC
4544a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  RR  C_  CC )
4643, 45fssd 6057 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  U : ( -u pi [,] pi ) --> CC )
4746adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  U : ( -u pi [,] pi ) --> CC )
4811a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( d  e.  ( -u pi (,) 0 )  ->  -u pi  e.  RR )
4910a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( d  e.  ( -u pi (,) 0 )  ->  pi  e.  RR )
5048leidd 10594 . . . . . . . . . . . . . . . . . . 19  |-  ( d  e.  ( -u pi (,) 0 )  ->  -u pi  <_ 
-u pi )
51 0red 10041 . . . . . . . . . . . . . . . . . . . . 21  |-  ( d  e.  ( -u pi (,) 0 )  ->  0  e.  RR )
5211rexri 10097 . . . . . . . . . . . . . . . . . . . . . 22  |-  -u pi  e.  RR*
53 0xr 10086 . . . . . . . . . . . . . . . . . . . . . 22  |-  0  e.  RR*
54 iooltub 39735 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
-u pi  e.  RR*  /\  0  e.  RR*  /\  d  e.  ( -u pi (,) 0 ) )  -> 
d  <  0 )
5552, 53, 54mp3an12 1414 . . . . . . . . . . . . . . . . . . . . 21  |-  ( d  e.  ( -u pi (,) 0 )  ->  d  <  0 )
56 pipos 24212 . . . . . . . . . . . . . . . . . . . . . 22  |-  0  <  pi
5756a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( d  e.  ( -u pi (,) 0 )  ->  0  <  pi )
5813, 51, 49, 55, 57lttrd 10198 . . . . . . . . . . . . . . . . . . . 20  |-  ( d  e.  ( -u pi (,) 0 )  ->  d  <  pi )
5913, 49, 58ltled 10185 . . . . . . . . . . . . . . . . . . 19  |-  ( d  e.  ( -u pi (,) 0 )  ->  d  <_  pi )
60 iccss 12241 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( -u pi  e.  RR  /\  pi  e.  RR )  /\  ( -u pi  <_ 
-u pi  /\  d  <_  pi ) )  -> 
( -u pi [,] d
)  C_  ( -u pi [,] pi ) )
6148, 49, 50, 59, 60syl22anc 1327 . . . . . . . . . . . . . . . . . 18  |-  ( d  e.  ( -u pi (,) 0 )  ->  ( -u pi [,] d ) 
C_  ( -u pi [,] pi ) )
6261adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( -u pi [,] d ) 
C_  ( -u pi [,] pi ) )
6347, 62fssresd 6071 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( U  |`  ( -u pi [,] d ) ) : ( -u pi [,] d ) --> CC )
64 fourierdlem103.o . . . . . . . . . . . . . . . . . 18  |-  O  =  ( U  |`  ( -u pi [,] d ) )
6564a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  O  =  ( U  |`  ( -u pi [,] d
) ) )
6665feq1d 6030 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( O : ( -u pi [,] d ) --> CC  <->  ( U  |`  ( -u pi [,] d ) ) : ( -u pi [,] d ) --> CC ) )
6763, 66mpbird 247 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  O : ( -u pi [,] d ) --> CC )
68 fourierdlem103.n . . . . . . . . . . . . . . . . . . 19  |-  N  =  ( ( # `  T
)  -  1 )
6911elexi 3213 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  -u pi  e.  _V
7069prid1 4297 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  -u pi  e.  { -u pi , 
d }
71 elun1 3780 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( -u pi  e.  { -u pi ,  d }  ->  -u pi  e.  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d
) ) ) )
7270, 71ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  -u pi  e.  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d ) ) )
73 fourierdlem103.t . . . . . . . . . . . . . . . . . . . . . . . 24  |-  T  =  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d ) ) )
7472, 73eleqtrri 2700 . . . . . . . . . . . . . . . . . . . . . . 23  |-  -u pi  e.  T
7574ne0ii 3923 . . . . . . . . . . . . . . . . . . . . . 22  |-  T  =/=  (/)
7675a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  T  =/=  (/) )
77 prfi 8235 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  { -u pi ,  d }  e.  Fin
7877a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  { -u pi , 
d }  e.  Fin )
79 fzfi 12771 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( 0 ... M )  e. 
Fin
80 fourierdlem103.q . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  Q  =  ( i  e.  ( 0 ... M ) 
|->  ( ( V `  i )  -  X
) )
8180rnmptfi 39351 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( 0 ... M )  e.  Fin  ->  ran  Q  e.  Fin )
8279, 81ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ran  Q  e.  Fin
8382a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  ran  Q  e.  Fin )
84 infi 8184 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ran 
Q  e.  Fin  ->  ( ran  Q  i^i  ( -u pi (,) d ) )  e.  Fin )
8583, 84syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  ( ran  Q  i^i  ( -u pi (,) d
) )  e.  Fin )
86 unfi 8227 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( { -u pi , 
d }  e.  Fin  /\  ( ran  Q  i^i  ( -u pi (,) d
) )  e.  Fin )  ->  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d
) ) )  e. 
Fin )
8778, 85, 86syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d ) ) )  e.  Fin )
8873, 87syl5eqel 2705 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  T  e.  Fin )
89 hashnncl 13157 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( T  e.  Fin  ->  (
( # `  T )  e.  NN  <->  T  =/=  (/) ) )
9088, 89syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( # `  T
)  e.  NN  <->  T  =/=  (/) ) )
9176, 90mpbird 247 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( # `  T
)  e.  NN )
92 nnm1nn0 11334 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
# `  T )  e.  NN  ->  ( ( # `
 T )  - 
1 )  e.  NN0 )
9391, 92syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( # `  T
)  -  1 )  e.  NN0 )
9468, 93syl5eqel 2705 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  N  e.  NN0 )
9594adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  N  e.  NN0 )
96 0red 10041 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  0  e.  RR )
97 1red 10055 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  1  e.  RR )
9895nn0red 11352 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  N  e.  RR )
99 0lt1 10550 . . . . . . . . . . . . . . . . . . . 20  |-  0  <  1
10099a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  0  <  1 )
101 2re 11090 . . . . . . . . . . . . . . . . . . . . . 22  |-  2  e.  RR
102101a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  2  e.  RR )
10391nnred 11035 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( # `  T
)  e.  RR )
104103adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( # `
 T )  e.  RR )
105 ioogtlb 39717 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
-u pi  e.  RR*  /\  0  e.  RR*  /\  d  e.  ( -u pi (,) 0 ) )  ->  -u pi  <  d )
10652, 53, 105mp3an12 1414 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( d  e.  ( -u pi (,) 0 )  ->  -u pi  <  d )
10748, 106ltned 10173 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( d  e.  ( -u pi (,) 0 )  ->  -u pi  =/=  d )
108107adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  =/=  d )
109 hashprg 13182 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
-u pi  e.  RR  /\  d  e.  RR )  ->  ( -u pi  =/=  d  <->  ( # `  { -u pi ,  d } )  =  2 ) )
11012, 14, 109syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( -u pi  =/=  d  <->  ( # `  { -u pi ,  d } )  =  2 ) )
111108, 110mpbid 222 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( # `
 { -u pi ,  d } )  =  2 )
112111eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  2  =  ( # `  { -u pi ,  d } ) )
11388adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  T  e.  Fin )
114 ssun1 3776 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  { -u pi ,  d }  C_  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d ) ) )
115114, 73sseqtr4i 3638 . . . . . . . . . . . . . . . . . . . . . . 23  |-  { -u pi ,  d }  C_  T
116 hashssle 39512 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( T  e.  Fin  /\  {
-u pi ,  d }  C_  T )  ->  ( # `  { -u pi ,  d } )  <_  ( # `  T
) )
117113, 115, 116sylancl 694 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( # `
 { -u pi ,  d } )  <_  ( # `  T
) )
118112, 117eqbrtrd 4675 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  2  <_  ( # `  T
) )
119102, 104, 97, 118lesub1dd 10643 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  (
2  -  1 )  <_  ( ( # `  T )  -  1 ) )
120 1e2m1 11136 . . . . . . . . . . . . . . . . . . . 20  |-  1  =  ( 2  -  1 )
121119, 120, 683brtr4g 4687 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  1  <_  N )
12296, 97, 98, 100, 121ltletrd 10197 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  0  <  N )
123122gt0ne0d 10592 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  N  =/=  0 )
12495, 123jca 554 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( N  e.  NN0  /\  N  =/=  0 ) )
125 elnnne0 11306 . . . . . . . . . . . . . . . 16  |-  ( N  e.  NN  <->  ( N  e.  NN0  /\  N  =/=  0 ) )
126124, 125sylibr 224 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  N  e.  NN )
127 fourierdlem103.j . . . . . . . . . . . . . . . . . 18  |-  J  =  ( iota f f 
Isom  <  ,  <  (
( 0 ... N
) ,  T ) )
12850adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  <_ 
-u pi )
12948, 13, 106ltled 10185 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( d  e.  ( -u pi (,) 0 )  ->  -u pi  <_  d )
130129adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  <_  d )
13112, 14, 12, 128, 130eliccd 39726 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  e.  ( -u pi [,] d ) )
13214leidd 10594 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  d  <_  d )
13312, 14, 14, 130, 132eliccd 39726 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  d  e.  ( -u pi [,] d ) )
134131, 133jca 554 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( -u pi  e.  ( -u pi [,] d )  /\  d  e.  ( -u pi [,] d ) ) )
135 vex 3203 . . . . . . . . . . . . . . . . . . . . . 22  |-  d  e. 
_V
13669, 135prss 4351 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
-u pi  e.  (
-u pi [,] d
)  /\  d  e.  ( -u pi [,] d
) )  <->  { -u pi ,  d }  C_  ( -u pi [,] d
) )
137134, 136sylib 208 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  { -u pi ,  d }  C_  ( -u pi [,] d ) )
138 inss2 3834 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ran 
Q  i^i  ( -u pi (,) d ) )  C_  ( -u pi (,) d
)
139138a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( ran  Q  i^i  ( -u pi (,) d ) ) 
C_  ( -u pi (,) d ) )
140 ioossicc 12259 . . . . . . . . . . . . . . . . . . . . 21  |-  ( -u pi (,) d )  C_  ( -u pi [,] d
)
141139, 140syl6ss 3615 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( ran  Q  i^i  ( -u pi (,) d ) ) 
C_  ( -u pi [,] d ) )
142137, 141unssd 3789 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( { -u pi ,  d }  u.  ( ran 
Q  i^i  ( -u pi (,) d ) ) ) 
C_  ( -u pi [,] d ) )
14373, 142syl5eqss 3649 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  T  C_  ( -u pi [,] d ) )
14474a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  e.  T )
145135prid2 4298 . . . . . . . . . . . . . . . . . . . . 21  |-  d  e. 
{ -u pi ,  d }
146 elun1 3780 . . . . . . . . . . . . . . . . . . . . 21  |-  ( d  e.  { -u pi ,  d }  ->  d  e.  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d
) ) ) )
147145, 146ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  d  e.  ( { -u pi ,  d }  u.  ( ran  Q  i^i  ( -u pi (,) d ) ) )
148147, 73eleqtrri 2700 . . . . . . . . . . . . . . . . . . 19  |-  d  e.  T
149148a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  d  e.  T )
150113, 68, 127, 12, 14, 143, 144, 149fourierdlem52 40375 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  (
( J : ( 0 ... N ) --> ( -u pi [,] d )  /\  ( J `  0 )  =  -u pi )  /\  ( J `  N )  =  d ) )
151150simpld 475 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( J : ( 0 ... N ) --> ( -u pi [,] d )  /\  ( J `  0 )  =  -u pi ) )
152151simpld 475 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  J : ( 0 ... N ) --> ( -u pi [,] d ) )
153151simprd 479 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( J `  0 )  =  -u pi )
154150simprd 479 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( J `  N )  =  d )
155 elfzoelz 12470 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 0..^ N )  ->  k  e.  ZZ )
156155zred 11482 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 0..^ N )  ->  k  e.  RR )
157156adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
k  e.  RR )
158157ltp1d 10954 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
k  <  ( k  +  1 ) )
15948, 13jca 554 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( d  e.  ( -u pi (,) 0 )  ->  ( -u pi  e.  RR  /\  d  e.  RR )
)
16069, 135prss 4351 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
-u pi  e.  RR  /\  d  e.  RR )  <->  { -u pi ,  d }  C_  RR )
161159, 160sylib 208 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( d  e.  ( -u pi (,) 0 )  ->  { -u pi ,  d }  C_  RR )
162161adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  { -u pi ,  d }  C_  RR )
163 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( -u pi (,) d )  C_  RR
164138, 163sstri 3612 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ran 
Q  i^i  ( -u pi (,) d ) )  C_  RR
165164a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( ran  Q  i^i  ( -u pi (,) d ) ) 
C_  RR )
166162, 165unssd 3789 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( { -u pi ,  d }  u.  ( ran 
Q  i^i  ( -u pi (,) d ) ) ) 
C_  RR )
16773, 166syl5eqss 3649 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  T  C_  RR )
168113, 167, 127, 68fourierdlem36 40360 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  J  Isom  <  ,  <  (
( 0 ... N
) ,  T ) )
169168adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  J  Isom  <  ,  <  ( ( 0 ... N
) ,  T ) )
170 elfzofz 12485 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 0..^ N )  ->  k  e.  ( 0 ... N
) )
171170adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
k  e.  ( 0 ... N ) )
172 fzofzp1 12565 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 0..^ N )  ->  ( k  +  1 )  e.  ( 0 ... N
) )
173172adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( k  +  1 )  e.  ( 0 ... N ) )
174 isorel 6576 . . . . . . . . . . . . . . . . 17  |-  ( ( J  Isom  <  ,  <  ( ( 0 ... N
) ,  T )  /\  ( k  e.  ( 0 ... N
)  /\  ( k  +  1 )  e.  ( 0 ... N
) ) )  -> 
( k  <  (
k  +  1 )  <-> 
( J `  k
)  <  ( J `  ( k  +  1 ) ) ) )
175169, 171, 173, 174syl12anc 1324 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( k  <  (
k  +  1 )  <-> 
( J `  k
)  <  ( J `  ( k  +  1 ) ) ) )
176158, 175mpbid 222 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  k
)  <  ( J `  ( k  +  1 ) ) )
17743adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  U : ( -u pi [,] pi ) --> RR )
178177, 62feqresmpt 6250 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( U  |`  ( -u pi [,] d ) )  =  ( s  e.  (
-u pi [,] d
)  |->  ( U `  s ) ) )
17962sselda 3603 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  e.  ( -u pi [,] pi ) )
18015, 16, 28, 39, 40fourierdlem9 40333 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  H : ( -u pi [,] pi ) --> RR )
181180ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  H : ( -u pi [,] pi ) --> RR )
182181, 179ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( H `  s
)  e.  RR )
18341fourierdlem43 40367 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  K :
( -u pi [,] pi )
--> RR
184183a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  K : ( -u pi [,] pi ) --> RR )
185184, 179ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( K `  s
)  e.  RR )
186182, 185remulcld 10070 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( H `  s )  x.  ( K `  s )
)  e.  RR )
18742fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( s  e.  ( -u pi [,] pi )  /\  ( ( H `  s )  x.  ( K `  s )
)  e.  RR )  ->  ( U `  s )  =  ( ( H `  s
)  x.  ( K `
 s ) ) )
188179, 186, 187syl2anc 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( U `  s
)  =  ( ( H `  s )  x.  ( K `  s ) ) )
18911a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  -u pi  e.  RR )
19013adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
d  e.  RR )
191 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  e.  ( -u pi [,] d ) )
192 eliccre 39728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
-u pi  e.  RR  /\  d  e.  RR  /\  s  e.  ( -u pi [,] d ) )  -> 
s  e.  RR )
193189, 190, 191, 192syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  e.  RR )
194 0red 10041 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
0  e.  RR )
19552a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  -u pi  e.  RR* )
196190rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
d  e.  RR* )
197 iccleub 12229 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
-u pi  e.  RR*  /\  d  e.  RR*  /\  s  e.  ( -u pi [,] d ) )  -> 
s  <_  d )
198195, 196, 191, 197syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  <_  d )
19955adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
d  <  0 )
200193, 190, 194, 198, 199lelttrd 10195 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  <  0 )
201193, 200ltned 10173 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  =/=  0 )
202201adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  =/=  0 )
203202neneqd 2799 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  -.  s  =  0
)
204203iffalsed 4097 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  =  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )
205193, 194, 200ltnsymd 10186 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  -.  0  <  s )
206205adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  -.  0  <  s )
207206iffalsed 4097 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  if ( 0  <  s ,  Y ,  W )  =  W )
208207oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  =  ( ( F `  ( X  +  s ) )  -  W ) )
209208oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( ( F `
 ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s )  =  ( ( ( F `  ( X  +  s ) )  -  W )  / 
s ) )
210204, 209eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  =  ( ( ( F `  ( X  +  s )
)  -  W )  /  s ) )
21115ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  F : RR --> RR )
21216ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  X  e.  RR )
213 iccssre 12255 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
-u pi  e.  RR  /\  pi  e.  RR )  ->  ( -u pi [,] pi )  C_  RR )
21411, 10, 213mp2an 708 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( -u pi [,] pi )  C_  RR
215214, 179sseldi 3601 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  e.  RR )
216212, 215readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( X  +  s )  e.  RR )
217211, 216ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( F `  ( X  +  s )
)  e.  RR )
21839ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  W  e.  RR )
219217, 218resubcld 10458 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( F `  ( X  +  s
) )  -  W
)  e.  RR )
220219, 215, 202redivcld 10853 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( ( F `
 ( X  +  s ) )  -  W )  /  s
)  e.  RR )
221210, 220eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  e.  RR )
22240fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( s  e.  ( -u pi [,] pi )  /\  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  e.  RR )  ->  ( H `  s )  =  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )
223179, 221, 222syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( H `  s
)  =  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )
224223, 204, 2093eqtrd 2660 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( H `  s
)  =  ( ( ( F `  ( X  +  s )
)  -  W )  /  s ) )
22510a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  pi  e.  RR )
226225renegcld 10457 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  -u pi  e.  RR )
227 iccgelb 12230 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
-u pi  e.  RR*  /\  d  e.  RR*  /\  s  e.  ( -u pi [,] d ) )  ->  -u pi  <_  s )
228195, 196, 191, 227syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  -u pi  <_  s )
22958adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
d  <  pi )
230193, 190, 225, 198, 229lelttrd 10195 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  <  pi )
231193, 225, 230ltled 10185 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  <_  pi )
232226, 225, 193, 228, 231eliccd 39726 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  e.  ( -u pi [,] pi ) )
233201neneqd 2799 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  -.  s  =  0
)
234233iffalsed 4097 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
235101a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
2  e.  RR )
236193rehalfcld 11279 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( s  /  2
)  e.  RR )
237236resincld 14873 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( sin `  (
s  /  2 ) )  e.  RR )
238235, 237remulcld 10070 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( 2  x.  ( sin `  ( s  / 
2 ) ) )  e.  RR )
239 2cn 11091 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  2  e.  CC
240239a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
2  e.  CC )
241193recnd 10068 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  e.  CC )
242241halfcld 11277 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( s  /  2
)  e.  CC )
243242sincld 14860 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( sin `  (
s  /  2 ) )  e.  CC )
244 2ne0 11113 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  2  =/=  0
245244a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
2  =/=  0 )
246 fourierdlem44 40368 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( s  e.  ( -u pi [,] pi )  /\  s  =/=  0 )  -> 
( sin `  (
s  /  2 ) )  =/=  0 )
247232, 201, 246syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( sin `  (
s  /  2 ) )  =/=  0 )
248240, 243, 245, 247mulne0d 10679 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( 2  x.  ( sin `  ( s  / 
2 ) ) )  =/=  0 )
249193, 238, 248redivcld 10853 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) )  e.  RR )
250234, 249eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  ->  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  e.  RR )
25141fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( s  e.  ( -u pi [,] pi )  /\  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  e.  RR )  -> 
( K `  s
)  =  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
252232, 250, 251syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( d  e.  ( -u pi (,) 0 )  /\  s  e.  ( -u pi [,] d ) )  -> 
( K `  s
)  =  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
253252adantll 750 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( K `  s
)  =  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
254224, 253oveq12d 6668 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( H `  s )  x.  ( K `  s )
)  =  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  if ( s  =  0 ,  1 ,  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) )
255203iffalsed 4097 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  ->  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
256255oveq2d 6666 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( ( ( F `  ( X  +  s ) )  -  W )  / 
s )  x.  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  =  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
257188, 254, 2563eqtrd 2660 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( U `  s
)  =  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
258257mpteq2dva 4744 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  (
s  e.  ( -u pi [,] d )  |->  ( U `  s ) )  =  ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) )
25965, 178, 2583eqtrd 2660 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  O  =  ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) )
260259adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  O  =  ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) )
261260reseq1d 5395 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( O  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  =  ( ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `
 ( X  +  s ) )  -  W )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) )
26215adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  F : RR --> RR )
26316adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  X  e.  RR )
264 fourierdlem103.p . . . . . . . . . . . . . . . . . 18  |-  P  =  ( m  e.  NN  |->  { p  e.  ( RR  ^m  ( 0 ... m ) )  |  ( ( ( p `
 0 )  =  ( -u pi  +  X )  /\  (
p `  m )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ m ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )
265 fourierdlem103.m . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  M  e.  NN )
266265adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  M  e.  NN )
267 fourierdlem103.v . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  V  e.  ( P `
 M ) )
268267adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  V  e.  ( P `  M
) )
269 fourierdlem103.fcn . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
270269adantlr 751 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  i  e.  ( 0..^ M ) )  -> 
( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) )  e.  ( ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) )
-cn-> CC ) )
271 fourierdlem103.r . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 i ) ) )
272271adantlr 751 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) lim CC  ( V `  i ) ) )
273 fourierdlem103.l . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  L  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 ( i  +  1 ) ) ) )
274273adantlr 751 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  i  e.  ( 0..^ M ) )  ->  L  e.  ( ( F  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) lim CC  ( V `  ( i  +  1 ) ) ) )
275106adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  <  d )
27652a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  e.  RR* )
27753a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  0  e.  RR* )
27855adantl 482 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  d  <  0 )
279276, 14, 277, 278gtnelicc 39722 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -.  0  e.  ( -u pi [,] d ) )
28039adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  W  e.  RR )
281 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )  =  ( s  e.  (
-u pi [,] d
)  |->  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )
282 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )  =  ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )
283 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( if ( ( J `  k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  /  i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k )
)  x.  ( ( J `  k )  /  ( 2  x.  ( sin `  (
( J `  k
)  /  2 ) ) ) ) )  =  ( ( ( if ( ( J `
 k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) )
284 fveq2 6191 . . . . . . . . . . . . . . . . . . . . 21  |-  ( l  =  i  ->  ( Q `  l )  =  ( Q `  i ) )
285 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( l  =  i  ->  (
l  +  1 )  =  ( i  +  1 ) )
286285fveq2d 6195 . . . . . . . . . . . . . . . . . . . . 21  |-  ( l  =  i  ->  ( Q `  ( l  +  1 ) )  =  ( Q `  ( i  +  1 ) ) )
287284, 286oveq12d 6668 . . . . . . . . . . . . . . . . . . . 20  |-  ( l  =  i  ->  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) )  =  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )
288287sseq2d 3633 . . . . . . . . . . . . . . . . . . 19  |-  ( l  =  i  ->  (
( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) )  <->  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) )
289288cbvriotav 6622 . . . . . . . . . . . . . . . . . 18  |-  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  =  ( iota_ i  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )
290262, 263, 264, 266, 268, 270, 272, 274, 12, 14, 275, 62, 279, 280, 281, 80, 73, 68, 127, 282, 283, 289fourierdlem86 40409 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )  e.  ( ( ( s  e.  (
-u pi [,] d
)  |->  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) lim CC  ( J `
 ( k  +  1 ) ) )  /\  ( ( ( if ( ( J `
 k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) )  e.  ( ( ( s  e.  (
-u pi [,] d
)  |->  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) lim CC  ( J `
 k ) ) )  /\  ( ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `
 ( X  +  s ) )  -  W )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  e.  ( ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) ) -cn-> CC ) ) )
291290simprd 479 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  e.  ( ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) -cn-> CC ) )
292261, 291eqeltrd 2701 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( O  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  e.  ( ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) )
-cn-> CC ) )
293290simpld 475 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( ( if ( ( J `
 ( k  +  1 ) )  =  ( Q `  (
( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )  e.  ( ( ( s  e.  (
-u pi [,] d
)  |->  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) lim CC  ( J `
 ( k  +  1 ) ) )  /\  ( ( ( if ( ( J `
 k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) )  e.  ( ( ( s  e.  (
-u pi [,] d
)  |->  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) lim CC  ( J `
 k ) ) ) )
294293simpld 475 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ l  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )  e.  ( ( ( s  e.  (
-u pi [,] d
)  |->  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) lim CC  ( J `
 ( k  +  1 ) ) ) )
295260eqcomd 2628 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( s  e.  (
-u pi [,] d
)  |->  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )  =  O )
296295reseq1d 5395 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  =  ( O  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) )
297296oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) ) lim CC  ( J `  ( k  +  1 ) ) )  =  ( ( O  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) lim CC  ( J `  ( k  +  1 ) ) ) )
298294, 297eleqtrd 2703 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ l  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )  e.  ( ( O  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) lim CC  ( J `  ( k  +  1 ) ) ) )
299293simprd 479 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( if ( ( J `  k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) )  e.  ( ( ( s  e.  (
-u pi [,] d
)  |->  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) lim CC  ( J `
 k ) ) )
300296oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) ) lim CC  ( J `  k )
)  =  ( ( O  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) lim CC  ( J `  k ) ) )
301299, 300eleqtrd 2703 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( if ( ( J `  k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) )  e.  ( ( O  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) lim CC  ( J `  k ) ) )
302 eqid 2622 . . . . . . . . . . . . . . 15  |-  ( RR 
_D  O )  =  ( RR  _D  O
)
30367adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  O : ( -u pi [,] d ) --> CC )
30411a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  ->  -u pi  e.  RR )
30514ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
d  e.  RR )
306 elioore 12205 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( s  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  ->  s  e.  RR )
307306adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
s  e.  RR )
30862, 214syl6ss 3615 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( -u pi [,] d ) 
C_  RR )
309308adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( -u pi [,] d
)  C_  RR )
310152adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  J : ( 0 ... N ) --> ( -u pi [,] d ) )
311310, 171ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  k
)  e.  ( -u pi [,] d ) )
312309, 311sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  k
)  e.  RR )
313312adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( J `  k
)  e.  RR )
31452a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  -u pi  e.  RR* )
31514adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
d  e.  RR )
316315rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
d  e.  RR* )
317 iccgelb 12230 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
-u pi  e.  RR*  /\  d  e.  RR*  /\  ( J `  k )  e.  ( -u pi [,] d ) )  ->  -u pi  <_  ( J `  k ) )
318314, 316, 311, 317syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  -u pi  <_  ( J `  k ) )
319318adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  ->  -u pi  <_  ( J `  k ) )
320313rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( J `  k
)  e.  RR* )
321310, 173ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  (
k  +  1 ) )  e.  ( -u pi [,] d ) )
322309, 321sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  (
k  +  1 ) )  e.  RR )
323322rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  (
k  +  1 ) )  e.  RR* )
324323adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( J `  (
k  +  1 ) )  e.  RR* )
325 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )
326 ioogtlb 39717 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( J `  k
)  e.  RR*  /\  ( J `  ( k  +  1 ) )  e.  RR*  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  ( J `  k )  <  s )
327320, 324, 325, 326syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( J `  k
)  <  s )
328304, 313, 307, 319, 327lelttrd 10195 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  ->  -u pi  <  s )
329304, 307, 328ltled 10185 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  ->  -u pi  <_  s )
330322adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( J `  (
k  +  1 ) )  e.  RR )
331 iooltub 39735 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( J `  k
)  e.  RR*  /\  ( J `  ( k  +  1 ) )  e.  RR*  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  s  <  ( J `  (
k  +  1 ) ) )
332320, 324, 325, 331syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
s  <  ( J `  ( k  +  1 ) ) )
333 iccleub 12229 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
-u pi  e.  RR*  /\  d  e.  RR*  /\  ( J `  ( k  +  1 ) )  e.  ( -u pi [,] d ) )  -> 
( J `  (
k  +  1 ) )  <_  d )
334314, 316, 321, 333syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  (
k  +  1 ) )  <_  d )
335334adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( J `  (
k  +  1 ) )  <_  d )
336307, 330, 305, 332, 335ltletrd 10197 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
s  <  d )
337307, 305, 336ltled 10185 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
s  <_  d )
338304, 305, 307, 329, 337eliccd 39726 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
s  e.  ( -u pi [,] d ) )
339338ralrimiva 2966 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  A. s  e.  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) s  e.  ( -u pi [,] d ) )
340 dfss3 3592 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( -u pi [,] d )  <->  A. s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) s  e.  (
-u pi [,] d
) )
341339, 340sylibr 224 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( -u pi [,] d ) )
342303, 341feqresmpt 6250 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( O  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  =  ( s  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( O `
 s ) ) )
343 simplll 798 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  ->  ph )
344 simpllr 799 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
d  e.  ( -u pi (,) 0 ) )
34564fveq1i 6192 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( O `
 s )  =  ( ( U  |`  ( -u pi [,] d
) ) `  s
)
346345a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( O `  s
)  =  ( ( U  |`  ( -u pi [,] d ) ) `  s ) )
347 fvres 6207 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( s  e.  ( -u pi [,] d )  ->  (
( U  |`  ( -u pi [,] d ) ) `  s )  =  ( U `  s ) )
348347adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( U  |`  ( -u pi [,] d
) ) `  s
)  =  ( U `
 s ) )
349253, 255eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( K `  s
)  =  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )
350224, 349oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( H `  s )  x.  ( K `  s )
)  =  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
351219recnd 10068 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( F `  ( X  +  s
) )  -  W
)  e.  CC )
352241adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
s  e.  CC )
353239a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
2  e.  CC )
354352halfcld 11277 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( s  /  2
)  e.  CC )
355354sincld 14860 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( sin `  (
s  /  2 ) )  e.  CC )
356353, 355mulcld 10060 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( 2  x.  ( sin `  ( s  / 
2 ) ) )  e.  CC )
357248adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( 2  x.  ( sin `  ( s  / 
2 ) ) )  =/=  0 )
358351, 352, 356, 202, 357dmdcan2d 10831 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( ( ( ( F `  ( X  +  s ) )  -  W )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
359188, 350, 3583eqtrd 2660 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( U `  s
)  =  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )
360346, 348, 3593eqtrd 2660 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi [,] d ) )  -> 
( O `  s
)  =  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )
361343, 344, 338, 360syl21anc 1325 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( O `  s
)  =  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )
362343, 344, 338, 358syl21anc 1325 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( ( ( ( F `  ( X  +  s ) )  -  W )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
363362eqcomd 2628 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( ( ( F `
 ( X  +  s ) )  -  W )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) )  =  ( ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )
364 eqidd 2623 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t
) )  -  W
)  /  t ) )  =  ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  W )  /  t ) ) )
365 oveq2 6658 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( t  =  s  ->  ( X  +  t )  =  ( X  +  s ) )
366365fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( t  =  s  ->  ( F `  ( X  +  t ) )  =  ( F `  ( X  +  s
) ) )
367366oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( t  =  s  ->  (
( F `  ( X  +  t )
)  -  W )  =  ( ( F `
 ( X  +  s ) )  -  W ) )
368 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( t  =  s  ->  t  =  s )
369367, 368oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( t  =  s  ->  (
( ( F `  ( X  +  t
) )  -  W
)  /  t )  =  ( ( ( F `  ( X  +  s ) )  -  W )  / 
s ) )
370369adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  /\  t  =  s )  ->  ( ( ( F `
 ( X  +  t ) )  -  W )  /  t
)  =  ( ( ( F `  ( X  +  s )
)  -  W )  /  s ) )
371 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )
372 ovex 6678 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( F `  ( X  +  s )
)  -  W )  /  s )  e. 
_V
373372a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( ( F `  ( X  +  s
) )  -  W
)  /  s )  e.  _V )
374364, 370, 371, 373fvmptd 6288 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( F `
 ( X  +  t ) )  -  W )  /  t
) ) `  s
)  =  ( ( ( F `  ( X  +  s )
)  -  W )  /  s ) )
375 eqidd 2623 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) )  =  ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  / 
( 2  x.  ( sin `  ( t  / 
2 ) ) ) ) ) )
376 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( t  =  s  ->  (
t  /  2 )  =  ( s  / 
2 ) )
377376fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( t  =  s  ->  ( sin `  ( t  / 
2 ) )  =  ( sin `  (
s  /  2 ) ) )
378377oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( t  =  s  ->  (
2  x.  ( sin `  ( t  /  2
) ) )  =  ( 2  x.  ( sin `  ( s  / 
2 ) ) ) )
379368, 378oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( t  =  s  ->  (
t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) )  =  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) )
380379adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  /\  t  =  s )  ->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) )  =  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
381 ovex 6678 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) )  e. 
_V
382381a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) )  e. 
_V )
383375, 380, 371, 382fvmptd 6288 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) ) ) `  s )  =  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
384374, 383oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t ) )  -  W )  / 
t ) ) `  s )  x.  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) ) ) `  s ) )  =  ( ( ( ( F `  ( X  +  s
) )  -  W
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
385384eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( ( ( F `
 ( X  +  s ) )  -  W )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t
) )  -  W
)  /  t ) ) `  s )  x.  ( ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) )
386385adantllr 755 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( ( ( ( F `  ( X  +  s ) )  -  W )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t
) )  -  W
)  /  t ) ) `  s )  x.  ( ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) )
387361, 363, 3863eqtrd 2660 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  -> 
( O `  s
)  =  ( ( ( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( F `
 ( X  +  t ) )  -  W )  /  t
) ) `  s
)  x.  ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) )
388387mpteq2dva 4744 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( O `  s
) )  =  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t ) )  -  W )  / 
t ) ) `  s )  x.  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) ) ) `  s ) ) ) )
389342, 388eqtr2d 2657 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  W )  /  t ) ) `
 s )  x.  ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  / 
( 2  x.  ( sin `  ( t  / 
2 ) ) ) ) ) `  s
) ) )  =  ( O  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) )
390389oveq2d 6666 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( RR  _D  (
s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t ) )  -  W )  / 
t ) ) `  s )  x.  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) ) ) `  s ) ) ) )  =  ( RR  _D  ( O  |`  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) ) ) ) )
39144a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  RR  C_  CC )
392341, 309sstrd 3613 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  RR )
39322tgioo2 22606 . . . . . . . . . . . . . . . . . . 19  |-  ( topGen ` 
ran  (,) )  =  ( ( TopOpen ` fld )t  RR )
39422, 393dvres 23675 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( RR  C_  CC  /\  O : ( -u pi [,] d ) --> CC )  /\  ( (
-u pi [,] d
)  C_  RR  /\  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  RR ) )  ->  ( RR  _D  ( O  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) ) )  =  ( ( RR  _D  O )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) ) )
395391, 303, 309, 392, 394syl22anc 1327 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( RR  _D  ( O  |`  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) ) ) )  =  ( ( RR 
_D  O )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) ) )
396 ioontr 39736 . . . . . . . . . . . . . . . . . . 19  |-  ( ( int `  ( topGen ` 
ran  (,) ) ) `  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  =  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) )
397396a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( int `  ( topGen `
 ran  (,) )
) `  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  =  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )
398397reseq2d 5396 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( RR  _D  O )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) )  =  ( ( RR 
_D  O )  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) ) )
399390, 395, 3983eqtrrd 2661 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( RR  _D  O )  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  =  ( RR 
_D  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t
) )  -  W
)  /  t ) ) `  s )  x.  ( ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) ) ) )
40015ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  F : RR --> RR )
40116ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  X  e.  RR )
402265ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  M  e.  NN )
403267ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  V  e.  ( P `  M ) )
404 fourierdlem103.fdvcn . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> RR ) )
405404ad4ant14 1293 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  i  e.  ( 0..^ M ) )  -> 
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) )  e.  ( ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) )
-cn-> RR ) )
40662adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( -u pi [,] d
)  C_  ( -u pi [,] pi ) )
407341, 406sstrd 3613 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( -u pi [,] pi ) )
408312rexrd 10089 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  k
)  e.  RR* )
40953a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
0  e.  RR* )
410 0red 10041 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
0  e.  RR )
41155ad2antlr 763 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
d  <  0 )
412322, 315, 410, 334, 411lelttrd 10195 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  (
k  +  1 ) )  <  0 )
413408, 322, 409, 412gtnelicc 39722 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  -.  0  e.  (
( J `  k
) [,] ( J `
 ( k  +  1 ) ) ) )
41439ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  W  e.  RR )
41511a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  -u pi  e.  RR )
416106ad2antlr 763 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  -u pi  <  d )
417 simpr 477 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
k  e.  ( 0..^ N ) )
418 biid 251 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  i  e.  ( 0..^ M ) )  /\  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  /\  v  e.  ( 0..^ M ) )  /\  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  v ) (,) ( Q `  (
v  +  1 ) ) ) )  <->  ( (
( ( ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  /\  k  e.  ( 0..^ N ) )  /\  i  e.  ( 0..^ M ) )  /\  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  /\  v  e.  ( 0..^ M ) )  /\  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  v ) (,) ( Q `  ( v  +  1 ) ) ) ) )
419401, 264, 402, 403, 415, 315, 416, 406, 80, 73, 68, 127, 417, 289, 418fourierdlem50 40373 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  e.  ( 0..^ M )  /\  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) ) ) (,) ( Q `  (
( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) ) ) )
420419simpld 475 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  e.  ( 0..^ M ) )
421419simprd 479 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) ) ) (,) ( Q `  ( ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) ) )
422369cbvmptv 4750 . . . . . . . . . . . . . . . . 17  |-  ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  W )  /  t ) )  =  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
s ) )
423379cbvmptv 4750 . . . . . . . . . . . . . . . . 17  |-  ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) )  =  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
424 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( s  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( F `
 ( X  +  t ) )  -  W )  /  t
) ) `  s
)  x.  ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) )  =  ( s  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( F `
 ( X  +  t ) )  -  W )  /  t
) ) `  s
)  x.  ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) )
425400, 401, 264, 402, 403, 405, 312, 322, 176, 407, 413, 414, 80, 420, 421, 422, 423, 424fourierdlem72 40395 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( RR  _D  (
s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t ) )  -  W )  / 
t ) ) `  s )  x.  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) ) ) `  s ) ) ) )  e.  ( ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) ) -cn-> CC ) )
426399, 425eqeltrd 2701 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( RR  _D  O )  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  e.  ( ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) )
-cn-> CC ) )
427 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )
428 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  =  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )
429 fourierdlem103.1 . . . . . . . . . . . . . . . . . . . 20  |-  C  =  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )
430429, 420syl5eqel 2705 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  C  e.  ( 0..^ M ) )
431 simpll 790 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  ph )
432431, 430jca 554 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ph  /\  C  e.  ( 0..^ M ) ) )
433 eleq1 2689 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( i  =  C  ->  (
i  e.  ( 0..^ M )  <->  C  e.  ( 0..^ M ) ) )
434433anbi2d 740 . . . . . . . . . . . . . . . . . . . . 21  |-  ( i  =  C  ->  (
( ph  /\  i  e.  ( 0..^ M ) )  <->  ( ph  /\  C  e.  ( 0..^ M ) ) ) )
435 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  =  C  ->  ( V `  i )  =  ( V `  C ) )
436 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( i  =  C  ->  (
i  +  1 )  =  ( C  + 
1 ) )
437436fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  =  C  ->  ( V `  ( i  +  1 ) )  =  ( V `  ( C  +  1
) ) )
438435, 437oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( i  =  C  ->  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) )  =  ( ( V `
 C ) (,) ( V `  ( C  +  1 ) ) ) )
439 raleq 3138 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) )  =  ( ( V `
 C ) (,) ( V `  ( C  +  1 ) ) )  ->  ( A. t  e.  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w  <->  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )
)
440438, 439syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( i  =  C  ->  ( A. t  e.  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w  <->  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )
)
441440rexbidv 3052 . . . . . . . . . . . . . . . . . . . . 21  |-  ( i  =  C  ->  ( E. w  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( F `
 t ) )  <_  w  <->  E. w  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )
)
442434, 441imbi12d 334 . . . . . . . . . . . . . . . . . . . 20  |-  ( i  =  C  ->  (
( ( ph  /\  i  e.  ( 0..^ M ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( F `
 t ) )  <_  w )  <->  ( ( ph  /\  C  e.  ( 0..^ M ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( F `
 t ) )  <_  w ) ) )
443 fourierdlem103.fbdioo . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( F `
 t ) )  <_  w )
444442, 443vtoclg 3266 . . . . . . . . . . . . . . . . . . 19  |-  ( C  e.  ( 0..^ M )  ->  ( ( ph  /\  C  e.  ( 0..^ M ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( F `
 t ) )  <_  w ) )
445430, 432, 444sylc 65 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( F `
 t ) )  <_  w )
446 nfv 1843 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/ t ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )
447 nfra1 2941 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/ t A. t  e.  ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ( abs `  ( F `  t )
)  <_  w
448446, 447nfan 1828 . . . . . . . . . . . . . . . . . . . . 21  |-  F/ t ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )
449 simplr 792 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )  /\  t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )
45011a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  -> 
-u pi  e.  RR )
451450, 16readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( -u pi  +  X )  e.  RR )
45210a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  ->  pi  e.  RR )
453452, 16readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( pi  +  X
)  e.  RR )
454451, 453iccssred 39727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  C_  RR )
455 ressxr 10083 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  RR  C_  RR*
456454, 455syl6ss 3615 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  C_  RR* )
457456ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( -u pi  +  X ) [,] (
pi  +  X ) )  C_  RR* )
458264, 402, 403fourierdlem15 40339 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  V : ( 0 ... M ) --> ( (
-u pi  +  X
) [,] ( pi  +  X ) ) )
459 elfzofz 12485 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( C  e.  ( 0..^ M )  ->  C  e.  ( 0 ... M
) )
460430, 459syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  C  e.  ( 0 ... M ) )
461458, 460ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( V `  C
)  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) ) )
462457, 461sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( V `  C
)  e.  RR* )
463462adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( V `  C
)  e.  RR* )
464 fzofzp1 12565 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( C  e.  ( 0..^ M )  ->  ( C  +  1 )  e.  ( 0 ... M
) )
465430, 464syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( C  +  1 )  e.  ( 0 ... M ) )
466458, 465ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( V `  ( C  +  1 ) )  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) ) )
467457, 466sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( V `  ( C  +  1 ) )  e.  RR* )
468467adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( V `  ( C  +  1 ) )  e.  RR* )
469 elioore 12205 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  ->  t  e.  RR )
470469adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
t  e.  RR )
47110a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  pi  e.  RR )
472415, 471, 401, 264, 402, 403, 460, 80fourierdlem13 40337 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( Q `  C )  =  ( ( V `  C
)  -  X )  /\  ( V `  C )  =  ( X  +  ( Q `
 C ) ) ) )
473472simprd 479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( V `  C
)  =  ( X  +  ( Q `  C ) ) )
474473adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( V `  C
)  =  ( X  +  ( Q `  C ) ) )
475454ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( -u pi  +  X ) [,] (
pi  +  X ) )  C_  RR )
476475, 461sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( V `  C
)  e.  RR )
477476adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( V `  C
)  e.  RR )
478474, 477eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( Q `  C ) )  e.  RR )
479401, 312readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( X  +  ( J `  k ) )  e.  RR )
480479adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( J `  k ) )  e.  RR )
481472simpld 475 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( Q `  C
)  =  ( ( V `  C )  -  X ) )
482476, 401resubcld 10458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( V `  C )  -  X
)  e.  RR )
483481, 482eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( Q `  C
)  e.  RR )
484415, 471, 401, 264, 402, 403, 465, 80fourierdlem13 40337 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( Q `  ( C  +  1
) )  =  ( ( V `  ( C  +  1 ) )  -  X )  /\  ( V `  ( C  +  1
) )  =  ( X  +  ( Q `
 ( C  + 
1 ) ) ) ) )
485484simpld 475 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( Q `  ( C  +  1 ) )  =  ( ( V `  ( C  +  1 ) )  -  X ) )
486475, 466sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( V `  ( C  +  1 ) )  e.  RR )
487486, 401resubcld 10458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( V `  ( C  +  1
) )  -  X
)  e.  RR )
488485, 487eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( Q `  ( C  +  1 ) )  e.  RR )
489429eqcomi 2631 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  =  C
490489fveq2i 6194 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( Q `
 ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) ) )  =  ( Q `  C )
491489oveq1i 6660 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( (
iota_ l  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 )  =  ( C  +  1 )
492491fveq2i 6194 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( Q `
 ( ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  +  1 ) )  =  ( Q `
 ( C  + 
1 ) )
493490, 492oveq12i 6662 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) ) ) (,) ( Q `  ( ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) )  +  1 ) ) )  =  ( ( Q `  C ) (,) ( Q `  ( C  +  1 ) ) )
494421, 493syl6sseq 3651 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  C ) (,) ( Q `  ( C  +  1 ) ) ) )
495483, 488, 312, 322, 176, 494fourierdlem10 40334 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( Q `  C )  <_  ( J `  k )  /\  ( J `  (
k  +  1 ) )  <_  ( Q `  ( C  +  1 ) ) ) )
496495simpld 475 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( Q `  C
)  <_  ( J `  k ) )
497483, 312, 401, 496leadd2dd 10642 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( X  +  ( Q `  C ) )  <_  ( X  +  ( J `  k ) ) )
498497adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( Q `  C ) )  <_  ( X  +  ( J `  k ) ) )
499480rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( J `  k ) )  e.  RR* )
500401, 322readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( X  +  ( J `  ( k  +  1 ) ) )  e.  RR )
501500rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( X  +  ( J `  ( k  +  1 ) ) )  e.  RR* )
502501adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( J `  ( k  +  1 ) ) )  e.  RR* )
503 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
t  e.  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )
504 ioogtlb 39717 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( X  +  ( J `  k ) )  e.  RR*  /\  ( X  +  ( J `  ( k  +  1 ) ) )  e. 
RR*  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( J `  k ) )  < 
t )
505499, 502, 503, 504syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( J `  k ) )  <  t )
506478, 480, 470, 498, 505lelttrd 10195 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( Q `  C ) )  <  t )
507474, 506eqbrtrd 4675 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( V `  C
)  <  t )
508500adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( J `  ( k  +  1 ) ) )  e.  RR )
509484simprd 479 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( V `  ( C  +  1 ) )  =  ( X  +  ( Q `  ( C  +  1
) ) ) )
510509, 486eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( X  +  ( Q `  ( C  +  1 ) ) )  e.  RR )
511510adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( Q `  ( C  +  1 ) ) )  e.  RR )
512 iooltub 39735 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( X  +  ( J `  k ) )  e.  RR*  /\  ( X  +  ( J `  ( k  +  1 ) ) )  e. 
RR*  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  <  ( X  +  ( J `
 ( k  +  1 ) ) ) )
513499, 502, 503, 512syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
t  <  ( X  +  ( J `  ( k  +  1 ) ) ) )
514495simprd 479 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( J `  (
k  +  1 ) )  <_  ( Q `  ( C  +  1 ) ) )
515322, 488, 401, 514leadd2dd 10642 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( X  +  ( J `  ( k  +  1 ) ) )  <_  ( X  +  ( Q `  ( C  +  1
) ) ) )
516515adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( J `  ( k  +  1 ) ) )  <_  ( X  +  ( Q `  ( C  +  1
) ) ) )
517470, 508, 511, 513, 516ltletrd 10197 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
t  <  ( X  +  ( Q `  ( C  +  1
) ) ) )
518509eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( X  +  ( Q `  ( C  +  1 ) ) )  =  ( V `
 ( C  + 
1 ) ) )
519518adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( X  +  ( Q `  ( C  +  1 ) ) )  =  ( V `
 ( C  + 
1 ) ) )
520517, 519breqtrd 4679 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
t  <  ( V `  ( C  +  1 ) ) )
521463, 468, 470, 507, 520eliood 39720 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) )
522521adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )  /\  t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )
523 rspa 2930 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( A. t  e.  ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ( abs `  ( F `  t )
)  <_  w  /\  t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )  -> 
( abs `  ( F `  t )
)  <_  w )
524449, 522, 523syl2anc 693 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )  /\  t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( abs `  ( F `  t
) )  <_  w
)
525524ex 450 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( F `
 t ) )  <_  w )  -> 
( t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  ->  ( abs `  ( F `  t )
)  <_  w )
)
526448, 525ralrimi 2957 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( F `
 t ) )  <_  w )  ->  A. t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t )
)  <_  w )
527526ex 450 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w  ->  A. t  e.  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t
) )  <_  w
) )
528527reximdv 3016 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( E. w  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w  ->  E. w  e.  RR  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t
) )  <_  w
) )
529445, 528mpd 15 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  E. w  e.  RR  A. t  e.  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t
) )  <_  w
)
530438raleqdv 3144 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( i  =  C  ->  ( A. t  e.  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z  <->  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
)
531530rexbidv 3052 . . . . . . . . . . . . . . . . . . . . 21  |-  ( i  =  C  ->  ( E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z  <->  E. z  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
)
532434, 531imbi12d 334 . . . . . . . . . . . . . . . . . . . 20  |-  ( i  =  C  ->  (
( ( ph  /\  i  e.  ( 0..^ M ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )  <->  ( ( ph  /\  C  e.  ( 0..^ M ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z ) ) )
533 fourierdlem103.fdvbd . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )
534532, 533vtoclg 3266 . . . . . . . . . . . . . . . . . . 19  |-  ( C  e.  ( 0..^ M )  ->  ( ( ph  /\  C  e.  ( 0..^ M ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z ) )
535430, 432, 534sylc 65 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )
536 nfra1 2941 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/ t A. t  e.  ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z
537446, 536nfan 1828 . . . . . . . . . . . . . . . . . . . . 21  |-  F/ t ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
53815, 45fssd 6057 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  F : RR --> CC )
539 ssid 3624 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  RR  C_  RR
540539a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  RR  C_  RR )
541 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  C_  RR
542541a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) 
C_  RR )
54322, 393dvres 23675 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( RR  C_  CC  /\  F : RR --> CC )  /\  ( RR  C_  RR  /\  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  C_  RR ) )  ->  ( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR  _D  F
)  |`  ( ( int `  ( topGen `  ran  (,) )
) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) )
54445, 538, 540, 542, 543syl22anc 1327 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  ( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR 
_D  F )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) )
545 ioontr 39736 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( int `  ( topGen ` 
ran  (,) ) ) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  =  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )
546545reseq2i 5393 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( RR  _D  F )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR 
_D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )
547546a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  ( ( RR  _D  F )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR 
_D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
548544, 547eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR 
_D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
549548fveq1d 6193 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t )  =  ( ( ( RR 
_D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) `  t ) )
550 fvres 6207 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  ->  (
( ( RR  _D  F )  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) `  t )  =  ( ( RR 
_D  F ) `  t ) )
551549, 550sylan9eq 2676 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `  t
)  =  ( ( RR  _D  F ) `
 t ) )
552551ad4ant14 1293 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t )  =  ( ( RR  _D  F ) `  t
) )
553552fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -> 
( abs `  (
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  =  ( abs `  (
( RR  _D  F
) `  t )
) )
554553adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )  /\  t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( abs `  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  =  ( abs `  (
( RR  _D  F
) `  t )
) )
555 simplr 792 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )  /\  t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
556521adantlr 751 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )  /\  t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )
557 rspa 2930 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( A. t  e.  ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z  /\  t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )  -> 
( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
558555, 556, 557syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )  /\  t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( abs `  ( ( RR  _D  F ) `  t
) )  <_  z
)
559554, 558eqbrtrd 4675 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )  /\  t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( abs `  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z )
560559ex 450 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )  -> 
( t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  ->  ( abs `  (
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z ) )
561537, 560ralrimi 2957 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) ( abs `  ( ( RR  _D  F ) `
 t ) )  <_  z )  ->  A. t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  (
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z )
562561ex 450 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z  ->  A. t  e.  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z ) )
563562reximdv 3016 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( E. z  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z  ->  E. z  e.  RR  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z ) )
564535, 563mpd 15 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  E. z  e.  RR  A. t  e.  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z )
565415rexrd 10089 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  -u pi  e.  RR* )
566565, 316, 310, 417fourierdlem8 40332 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( J `  k ) [,] ( J `  ( k  +  1 ) ) )  C_  ( -u pi [,] d ) )
567126ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  r  e.  ( -u pi [,] d ) )  /\  -.  r  e.  ran  J )  ->  N  e.  NN )
568152, 308fssd 6057 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  J : ( 0 ... N ) --> RR )
569568ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  r  e.  ( -u pi [,] d ) )  /\  -.  r  e.  ran  J )  ->  J :
( 0 ... N
) --> RR )
570 simpr 477 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  r  e.  ( -u pi [,] d ) )  -> 
r  e.  ( -u pi [,] d ) )
571153eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  -u pi  =  ( J ` 
0 ) )
572154eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  d  =  ( J `  N ) )
573571, 572oveq12d 6668 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( -u pi [,] d )  =  ( ( J `
 0 ) [,] ( J `  N
) ) )
574573adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  r  e.  ( -u pi [,] d ) )  -> 
( -u pi [,] d
)  =  ( ( J `  0 ) [,] ( J `  N ) ) )
575570, 574eleqtrd 2703 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  r  e.  ( -u pi [,] d ) )  -> 
r  e.  ( ( J `  0 ) [,] ( J `  N ) ) )
576575adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  r  e.  ( -u pi [,] d ) )  /\  -.  r  e.  ran  J )  ->  r  e.  ( ( J ` 
0 ) [,] ( J `  N )
) )
577 simpr 477 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  r  e.  ( -u pi [,] d ) )  /\  -.  r  e.  ran  J )  ->  -.  r  e.  ran  J )
578 fveq2 6191 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  =  k  ->  ( J `  j )  =  ( J `  k ) )
579578breq1d 4663 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  k  ->  (
( J `  j
)  <  r  <->  ( J `  k )  <  r
) )
580579cbvrabv 3199 . . . . . . . . . . . . . . . . . . 19  |-  { j  e.  ( 0..^ N )  |  ( J `
 j )  < 
r }  =  {
k  e.  ( 0..^ N )  |  ( J `  k )  <  r }
581580supeq1i 8353 . . . . . . . . . . . . . . . . . 18  |-  sup ( { j  e.  ( 0..^ N )  |  ( J `  j
)  <  r } ,  RR ,  <  )  =  sup ( { k  e.  ( 0..^ N )  |  ( J `
 k )  < 
r } ,  RR ,  <  )
582567, 569, 576, 577, 581fourierdlem25 40349 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  r  e.  ( -u pi [,] d ) )  /\  -.  r  e.  ran  J )  ->  E. m  e.  ( 0..^ N ) r  e.  ( ( J `  m ) (,) ( J `  ( m  +  1
) ) ) )
583546a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( RR  _D  F )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR 
_D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
584538ad2antrr 762 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  F : RR --> CC )
585539a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  RR  C_  RR )
586541a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) 
C_  RR )
587391, 584, 585, 586, 543syl22anc 1327 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR 
_D  F )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) )
588521ralrimiva 2966 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  ->  A. t  e.  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) )
589 dfss3 3592 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) 
C_  ( ( V `
 C ) (,) ( V `  ( C  +  1 ) ) )  <->  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) )
590588, 589sylibr 224 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) 
C_  ( ( V `
 C ) (,) ( V `  ( C  +  1 ) ) ) )
591590resabs1d 5428 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( RR 
_D  F )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  =  ( ( RR  _D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
592583, 587, 5913eqtr4rd 2667 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( RR 
_D  F )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  =  ( RR 
_D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) )
593 simpr 477 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  C  e.  ( 0..^ M ) )  ->  C  e.  ( 0..^ M ) )
594 id 22 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  C  e.  ( 0..^ M ) )  ->  ( ph  /\  C  e.  ( 0..^ M ) ) )
595438reseq2d 5396 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  =  C  ->  (
( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) )  =  ( ( RR  _D  F )  |`  (
( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ) )
596595, 438feq12d 6033 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( i  =  C  ->  (
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR  <->  ( ( RR  _D  F
)  |`  ( ( V `
 C ) (,) ( V `  ( C  +  1 ) ) ) ) : ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) --> RR ) )
597434, 596imbi12d 334 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( i  =  C  ->  (
( ( ph  /\  i  e.  ( 0..^ M ) )  -> 
( ( RR  _D  F )  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR )  <->  ( ( ph  /\  C  e.  ( 0..^ M ) )  -> 
( ( RR  _D  F )  |`  (
( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ) : ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) --> RR ) ) )
598 cncff 22696 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( 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 )
599404, 598syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> RR )
600597, 599vtoclg 3266 . . . . . . . . . . . . . . . . . . . . 21  |-  ( C  e.  ( 0..^ M )  ->  ( ( ph  /\  C  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ) : ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) --> RR ) )
601593, 594, 600sylc 65 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  C  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ) : ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) --> RR )
602432, 601syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( RR  _D  F )  |`  (
( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ) : ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) --> RR )
603602, 590fssresd 6071 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( ( ( RR 
_D  F )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) : ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) --> RR )
604592, 603feq1dd 39347 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  -> 
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) : ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) --> RR )
605367, 378oveq12d 6668 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  (
( ( F `  ( X  +  t
) )  -  W
)  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) )  =  ( ( ( F `
 ( X  +  s ) )  -  W )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) )
606605cbvmptv 4750 . . . . . . . . . . . . . . . . 17  |-  ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  W )  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) )  =  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
607 biid 251 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  w  e.  RR )  /\  z  e.  RR ) 
<->  ( ( ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  /\  k  e.  ( 0..^ N ) )  /\  w  e.  RR )  /\  z  e.  RR ) )
608 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( r  =  t  ->  ( F `  r )  =  ( F `  t ) )
609608fveq2d 6195 . . . . . . . . . . . . . . . . . . . . 21  |-  ( r  =  t  ->  ( abs `  ( F `  r ) )  =  ( abs `  ( F `  t )
) )
610609breq1d 4663 . . . . . . . . . . . . . . . . . . . 20  |-  ( r  =  t  ->  (
( abs `  ( F `  r )
)  <_  w  <->  ( abs `  ( F `  t
) )  <_  w
) )
611610cbvralv 3171 . . . . . . . . . . . . . . . . . . 19  |-  ( A. r  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  r
) )  <_  w  <->  A. t  e.  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t
) )  <_  w
)
612607, 611anbi12i 733 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  /\  k  e.  ( 0..^ N ) )  /\  w  e.  RR )  /\  z  e.  RR )  /\  A. r  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  r
) )  <_  w
)  <->  ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  w  e.  RR )  /\  z  e.  RR )  /\  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t )
)  <_  w )
)
613 fveq2 6191 . . . . . . . . . . . . . . . . . . . . 21  |-  ( r  =  t  ->  (
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 r )  =  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )
614613fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( r  =  t  ->  ( abs `  ( ( RR 
_D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `  r
) )  =  ( abs `  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `  t
) ) )
615614breq1d 4663 . . . . . . . . . . . . . . . . . . 19  |-  ( r  =  t  ->  (
( abs `  (
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 r ) )  <_  z  <->  ( abs `  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z ) )
616615cbvralv 3171 . . . . . . . . . . . . . . . . . 18  |-  ( A. r  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( ( RR  _D  ( F  |`  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 r ) )  <_  z  <->  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  (
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z )
617612, 616anbi12i 733 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  ( 0..^ N ) )  /\  w  e.  RR )  /\  z  e.  RR )  /\  A. r  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  r )
)  <_  w )  /\  A. r  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  (
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 r ) )  <_  z )  <->  ( (
( ( ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  /\  k  e.  ( 0..^ N ) )  /\  w  e.  RR )  /\  z  e.  RR )  /\  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t
) )  <_  w
)  /\  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  (
( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) `
 t ) )  <_  z ) )
618262, 263, 12, 14, 62, 279, 280, 427, 428, 529, 564, 152, 176, 566, 582, 604, 606, 617fourierdlem80 40403 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  E. b  e.  RR  A. s  e. 
dom  ( RR  _D  ( s  e.  (
-u pi [,] d
)  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) ( abs `  ( ( RR  _D  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) `  s ) )  <_  b )
619358mpteq2dva 4744 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  (
s  e.  ( -u pi [,] d )  |->  ( ( ( ( F `
 ( X  +  s ) )  -  W )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  =  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
620259, 619eqtrd 2656 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  O  =  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
621620oveq2d 6666 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( RR  _D  O )  =  ( RR  _D  (
s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s
) )  -  W
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
622621dmeqd 5326 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  dom  ( RR  _D  O
)  =  dom  ( RR  _D  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
623 nfcv 2764 . . . . . . . . . . . . . . . . . . . 20  |-  F/_ s dom  ( RR  _D  O
)
624 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/_ s RR
625 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/_ s  _D
626 nfmpt1 4747 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/_ s
( s  e.  (
-u pi [,] d
)  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
627624, 625, 626nfov 6676 . . . . . . . . . . . . . . . . . . . . 21  |-  F/_ s
( RR  _D  (
s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s
) )  -  W
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
628627nfdm 5367 . . . . . . . . . . . . . . . . . . . 20  |-  F/_ s dom  ( RR  _D  (
s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s
) )  -  W
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
629623, 628raleqf 3134 . . . . . . . . . . . . . . . . . . 19  |-  ( dom  ( RR  _D  O
)  =  dom  ( RR  _D  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  ->  ( A. s  e.  dom  ( RR 
_D  O ) ( abs `  ( ( RR  _D  O ) `
 s ) )  <_  b  <->  A. s  e.  dom  ( RR  _D  ( s  e.  (
-u pi [,] d
)  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) ( abs `  ( ( RR  _D  O ) `
 s ) )  <_  b ) )
630622, 629syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( A. s  e.  dom  ( RR  _D  O
) ( abs `  (
( RR  _D  O
) `  s )
)  <_  b  <->  A. s  e.  dom  ( RR  _D  ( s  e.  (
-u pi [,] d
)  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) ( abs `  ( ( RR  _D  O ) `
 s ) )  <_  b ) )
631621fveq1d 6193 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  (
( RR  _D  O
) `  s )  =  ( ( RR 
_D  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) `  s ) )
632631fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( abs `  ( ( RR 
_D  O ) `  s ) )  =  ( abs `  (
( RR  _D  (
s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s
) )  -  W
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) `  s ) ) )
633632breq1d 4663 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  (
( abs `  (
( RR  _D  O
) `  s )
)  <_  b  <->  ( abs `  ( ( RR  _D  ( s  e.  (
-u pi [,] d
)  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) `  s ) )  <_ 
b ) )
634633ralbidv 2986 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( A. s  e.  dom  ( RR  _D  (
s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s
) )  -  W
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) ( abs `  (
( RR  _D  O
) `  s )
)  <_  b  <->  A. s  e.  dom  ( RR  _D  ( s  e.  (
-u pi [,] d
)  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) ( abs `  ( ( RR  _D  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) `  s ) )  <_  b )
)
635630, 634bitrd 268 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( A. s  e.  dom  ( RR  _D  O
) ( abs `  (
( RR  _D  O
) `  s )
)  <_  b  <->  A. s  e.  dom  ( RR  _D  ( s  e.  (
-u pi [,] d
)  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) ( abs `  ( ( RR  _D  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) `  s ) )  <_  b )
)
636635rexbidv 3052 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( E. b  e.  RR  A. s  e.  dom  ( RR  _D  O ) ( abs `  ( ( RR  _D  O ) `
 s ) )  <_  b  <->  E. b  e.  RR  A. s  e. 
dom  ( RR  _D  ( s  e.  (
-u pi [,] d
)  |->  ( ( ( F `  ( X  +  s ) )  -  W )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) ( abs `  ( ( RR  _D  ( s  e.  ( -u pi [,] d )  |->  ( ( ( F `  ( X  +  s )
)  -  W )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) `  s ) )  <_  b )
)
637618, 636mpbird 247 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  E. b  e.  RR  A. s  e. 
dom  ( RR  _D  O ) ( abs `  ( ( RR  _D  O ) `  s
) )  <_  b
)
638 eqid 2622 . . . . . . . . . . . . . . 15  |-  ( l  e.  RR+  |->  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  =  ( l  e.  RR+  |->  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )
639 eqeq1 2626 . . . . . . . . . . . . . . . . 17  |-  ( t  =  s  ->  (
t  =  ( J `
 k )  <->  s  =  ( J `  k ) ) )
640 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( h  =  l  ->  ( Q `  h )  =  ( Q `  l ) )
641 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( h  =  l  ->  (
h  +  1 )  =  ( l  +  1 ) )
642641fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( h  =  l  ->  ( Q `  ( h  +  1 ) )  =  ( Q `  ( l  +  1 ) ) )
643640, 642oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( h  =  l  ->  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) )  =  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )
644643sseq2d 3633 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( h  =  l  ->  (
( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) )  <->  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) ) )
645644cbvriotav 6622 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) )  =  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )
646645fveq2i 6194 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( Q `
 ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) ) )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) ) )
647646eqeq2i 2634 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( J `  k )  =  ( Q `  ( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) ) )  <-> 
( J `  k
)  =  ( Q `
 ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) ) ) )
648647a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( T. 
->  ( ( J `  k )  =  ( Q `  ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) ) )  <->  ( J `  k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) ) ) ) )
649 csbeq1 3536 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
iota_ h  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  =  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  ->  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ R  =  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R )
650645, 649ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  ( h  +  1 ) ) ) )  /  i ]_ R  =  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) )  /  i ]_ R
651650a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( T. 
->  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ R  =  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R )
652648, 651ifbieq1d 4109 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( T. 
->  if ( ( J `
 k )  =  ( Q `  ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  ( h  +  1 ) ) ) ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  =  if ( ( J `  k
)  =  ( Q `
 ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  /  i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) ) )
653652trud 1493 . . . . . . . . . . . . . . . . . . . . 21  |-  if ( ( J `  k
)  =  ( Q `
 ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) ) ) ,  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) )  /  i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  =  if ( ( J `
 k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )
654653oveq1i 6660 . . . . . . . . . . . . . . . . . . . 20  |-  ( if ( ( J `  k )  =  ( Q `  ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) ) ) ,  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  =  ( if ( ( J `  k
)  =  ( Q `
 ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  /  i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )
655654oveq1i 6660 . . . . . . . . . . . . . . . . . . 19  |-  ( ( if ( ( J `
 k )  =  ( Q `  ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  ( h  +  1 ) ) ) ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  =  ( ( if ( ( J `  k
)  =  ( Q `
 ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  /  i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k )
)
656655oveq1i 6660 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( if ( ( J `  k )  =  ( Q `  ( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) ) ) ,  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) )  /  i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k )
)  x.  ( ( J `  k )  /  ( 2  x.  ( sin `  (
( J `  k
)  /  2 ) ) ) ) )  =  ( ( ( if ( ( J `
 k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) )
657656a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( t  =  s  ->  (
( ( if ( ( J `  k
)  =  ( Q `
 ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) ) ) ,  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) )  /  i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k )
)  x.  ( ( J `  k )  /  ( 2  x.  ( sin `  (
( J `  k
)  /  2 ) ) ) ) )  =  ( ( ( if ( ( J `
 k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) ) )
658 eqeq1 2626 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  (
t  =  ( J `
 ( k  +  1 ) )  <->  s  =  ( J `  ( k  +  1 ) ) ) )
659645oveq1i 6660 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
iota_ h  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 )  =  ( ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 )
660659fveq2i 6194 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( Q `
 ( ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) )  +  1 ) )  =  ( Q `
 ( ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  +  1 ) )
661660eqeq2i 2634 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( J `  ( k  +  1 ) )  =  ( Q `  ( ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) )  <->  ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ l  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) )
662661a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( T. 
->  ( ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ h  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) )  <->  ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ l  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) ) )
663 csbeq1 3536 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
iota_ h  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  =  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  ->  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L  =  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L )
664645, 663ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  ( h  +  1 ) ) ) )  /  i ]_ L  =  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) )  /  i ]_ L
665664a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( T. 
->  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L  =  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L )
666662, 665ifbieq1d 4109 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( T. 
->  if ( ( J `
 ( k  +  1 ) )  =  ( Q `  (
( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  =  if ( ( J `  (
k  +  1 ) )  =  ( Q `
 ( ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  +  1 ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) )  /  i ]_ L ,  ( F `
 ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
667666trud 1493 . . . . . . . . . . . . . . . . . . . . . 22  |-  if ( ( J `  (
k  +  1 ) )  =  ( Q `
 ( ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) )  +  1 ) ) ,  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  ( h  +  1 ) ) ) )  /  i ]_ L ,  ( F `
 ( X  +  ( J `  ( k  +  1 ) ) ) ) )  =  if ( ( J `
 ( k  +  1 ) )  =  ( Q `  (
( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )
668667oveq1i 6660 . . . . . . . . . . . . . . . . . . . . 21  |-  ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ h  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  =  ( if ( ( J `  (
k  +  1 ) )  =  ( Q `
 ( ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  +  1 ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) )  /  i ]_ L ,  ( F `
 ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )
669668oveq1i 6660 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( if ( ( J `
 ( k  +  1 ) )  =  ( Q `  (
( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  =  ( ( if ( ( J `  (
k  +  1 ) )  =  ( Q `
 ( ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  +  1 ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) )  /  i ]_ L ,  ( F `
 ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )
670669oveq1i 6660 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )  =  ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )
671670a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  (
( ( if ( ( J `  (
k  +  1 ) )  =  ( Q `
 ( ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) )  +  1 ) ) ,  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  ( h  +  1 ) ) ) )  /  i ]_ L ,  ( F `
 ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  ( 2  x.  ( sin `  (
( J `  (
k  +  1 ) )  /  2 ) ) ) ) )  =  ( ( ( if ( ( J `
 ( k  +  1 ) )  =  ( Q `  (
( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) )
672 fveq2 6191 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  ( O `  t )  =  ( O `  s ) )
673658, 671, 672ifeq123d 39207 . . . . . . . . . . . . . . . . 17  |-  ( t  =  s  ->  if ( t  =  ( J `  ( k  +  1 ) ) ,  ( ( ( if ( ( J `
 ( k  +  1 ) )  =  ( Q `  (
( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) ,  ( O `
 t ) )  =  if ( s  =  ( J `  ( k  +  1 ) ) ,  ( ( ( if ( ( J `  (
k  +  1 ) )  =  ( Q `
 ( ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  +  1 ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) )  /  i ]_ L ,  ( F `
 ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  ( 2  x.  ( sin `  (
( J `  (
k  +  1 ) )  /  2 ) ) ) ) ) ,  ( O `  s ) ) )
674639, 657, 673ifeq123d 39207 . . . . . . . . . . . . . . . 16  |-  ( t  =  s  ->  if ( t  =  ( J `  k ) ,  ( ( ( if ( ( J `
 k )  =  ( Q `  ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  ( h  +  1 ) ) ) ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) ) ,  if ( t  =  ( J `
 ( k  +  1 ) ) ,  ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ h  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) ,  ( O `
 t ) ) )  =  if ( s  =  ( J `
 k ) ,  ( ( ( if ( ( J `  k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) ) ) ,  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) ) ,  if ( s  =  ( J `
 ( k  +  1 ) ) ,  ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ l  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) ,  ( O `
 s ) ) ) )
675674cbvmptv 4750 . . . . . . . . . . . . . . 15  |-  ( t  e.  ( ( J `
 k ) [,] ( J `  (
k  +  1 ) ) )  |->  if ( t  =  ( J `
 k ) ,  ( ( ( if ( ( J `  k )  =  ( Q `  ( iota_ h  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) ) ) ) ,  [_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) ) ,  if ( t  =  ( J `
 ( k  +  1 ) ) ,  ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ h  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 h ) (,) ( Q `  (
h  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ h  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  h ) (,) ( Q `  (
h  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) ,  ( O `
 t ) ) ) )  =  ( s  e.  ( ( J `  k ) [,] ( J `  ( k  +  1 ) ) )  |->  if ( s  =  ( J `  k ) ,  ( ( ( if ( ( J `
 k )  =  ( Q `  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  ( l  +  1 ) ) ) ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ R ,  ( F `  ( X  +  ( J `  k ) ) ) )  -  W )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) ) ,  if ( s  =  ( J `
 ( k  +  1 ) ) ,  ( ( ( if ( ( J `  ( k  +  1 ) )  =  ( Q `  ( (
iota_ l  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 ) ) , 
[_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L ,  ( F `  ( X  +  ( J `  ( k  +  1 ) ) ) ) )  -  W )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) ,  ( O `
 s ) ) ) )
67612, 14, 67, 126, 152, 153, 154, 176, 292, 298, 301, 302, 426, 637, 638, 675fourierdlem73 40396 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  A. e  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  e )
677 breq2 4657 . . . . . . . . . . . . . . . 16  |-  ( e  =  a  ->  (
( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  e  <->  ( abs `  S. ( -u pi (,) d ) ( ( O `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a ) )
678677rexralbidv 3058 . . . . . . . . . . . . . . 15  |-  ( e  =  a  ->  ( E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  e  <->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a ) )
679678cbvralv 3171 . . . . . . . . . . . . . 14  |-  ( A. e  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  e  <->  A. a  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a )
680676, 679sylib 208 . . . . . . . . . . . . 13  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  A. a  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a )
681680adantlr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  ->  A. a  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a )
682 rphalfcl 11858 . . . . . . . . . . . . 13  |-  ( e  e.  RR+  ->  ( e  /  2 )  e.  RR+ )
683682ad2antlr 763 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  -> 
( e  /  2
)  e.  RR+ )
684 breq2 4657 . . . . . . . . . . . . . 14  |-  ( a  =  ( e  / 
2 )  ->  (
( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a  <->  ( abs `  S. ( -u pi (,) d ) ( ( O `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
685684rexralbidv 3058 . . . . . . . . . . . . 13  |-  ( a  =  ( e  / 
2 )  ->  ( E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a  <->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
686685rspccva 3308 . . . . . . . . . . . 12  |-  ( ( A. a  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( O `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a  /\  ( e  /  2
)  e.  RR+ )  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
687681, 683, 686syl2anc 693 . . . . . . . . . . 11  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
688345a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi (,) d ) )  -> 
( O `  s
)  =  ( ( U  |`  ( -u pi [,] d ) ) `  s ) )
689140a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  ( -u pi (,) d ) 
C_  ( -u pi [,] d ) )
690689sselda 3603 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi (,) d ) )  -> 
s  e.  ( -u pi [,] d ) )
691690, 347syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi (,) d ) )  -> 
( ( U  |`  ( -u pi [,] d
) ) `  s
)  =  ( U `
 s ) )
692688, 691eqtr2d 2657 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi (,) d ) )  -> 
( U `  s
)  =  ( O `
 s ) )
693692oveq1d 6665 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  s  e.  ( -u pi (,) d ) )  -> 
( ( U `  s )  x.  ( sin `  ( l  x.  s ) ) )  =  ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) ) )
694693itgeq2dv 23548 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s  =  S. ( -u pi (,) d ) ( ( O `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s )
695694adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  ( abs `  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  S. ( -u pi (,) d ) ( ( U `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s  =  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )
696695fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  ( abs `  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  =  ( abs `  S. ( -u pi (,) d ) ( ( O `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s ) )
697 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  ( abs `  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
698696, 697eqbrtrd 4675 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( -u pi (,) 0 ) )  /\  ( abs `  S. (
-u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
699698ex 450 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  d  e.  ( -u pi (,) 0
) )  ->  (
( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  -> 
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
700699adantlr 751 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  -> 
( ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  -> 
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
701700ralimdv 2963 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  -> 
( A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  ->  A. l  e.  (
j (,) +oo )
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
702701reximdv 3016 . . . . . . . . . . 11  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  -> 
( E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. (
-u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
703687, 702mpd 15 . . . . . . . . . 10  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. (
-u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
704703adantr 481 . . . . . . . . 9  |-  ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
705 nfv 1843 . . . . . . . . . . . . . . 15  |-  F/ k ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )
706 nfra1 2941 . . . . . . . . . . . . . . 15  |-  F/ k A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
)
707705, 706nfan 1828 . . . . . . . . . . . . . 14  |-  F/ k ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
708 nfv 1843 . . . . . . . . . . . . . 14  |-  F/ k  j  e.  NN
709707, 708nfan 1828 . . . . . . . . . . . . 13  |-  F/ k ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )
710 nfv 1843 . . . . . . . . . . . . 13  |-  F/ k A. l  e.  ( j (,) +oo )
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )
711709, 710nfan 1828 . . . . . . . . . . . 12  |-  F/ k ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
712 simpll 790 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  ( ( ph  /\  e  e.  RR+ )  /\  d  e.  (
-u pi (,) 0
) ) )
713 eluznn 11758 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
k  e.  NN )
714713adantll 750 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  k  e.  NN )
715712, 714jca 554 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  ( (
( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )
)
716715adantllr 755 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  ( (
( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )
)
717 simpllr 799 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  A. k  e.  NN  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
718713adantll 750 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  k  e.  NN )
719 rspa 2930 . . . . . . . . . . . . . . . . . . 19  |-  ( ( A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
)  /\  k  e.  NN )  ->  ( abs `  S. ( d (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
720717, 718, 719syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  ( abs `  S. ( d (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
721716, 720jca 554 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  ( (
( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
722721adantlr 751 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
723 nnre 11027 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( j  e.  NN  ->  j  e.  RR )
724723rexrd 10089 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  e.  NN  ->  j  e.  RR* )
725724adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
j  e.  RR* )
72623a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> +oo  e.  RR* )
727 eluzelre 11698 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( ZZ>= `  j
)  ->  k  e.  RR )
728 1re 10039 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  1  e.  RR
729728rehalfcli 11281 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( 1  /  2 )  e.  RR
730729a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( ZZ>= `  j
)  ->  ( 1  /  2 )  e.  RR )
731727, 730readdcld 10069 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( ZZ>= `  j
)  ->  ( k  +  ( 1  / 
2 ) )  e.  RR )
732731adantl 482 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( k  +  ( 1  /  2 ) )  e.  RR )
733723adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
j  e.  RR )
734727adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
k  e.  RR )
735 eluzle 11700 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( ZZ>= `  j
)  ->  j  <_  k )
736735adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
j  <_  k )
737 halfgt0 11248 . . . . . . . . . . . . . . . . . . . . . . 23  |-  0  <  ( 1  /  2
)
738737a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
0  <  ( 1  /  2 ) )
739729a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( 1  /  2
)  e.  RR )
740739, 734ltaddposd 10611 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( 0  <  (
1  /  2 )  <-> 
k  <  ( k  +  ( 1  / 
2 ) ) ) )
741738, 740mpbid 222 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
k  <  ( k  +  ( 1  / 
2 ) ) )
742733, 734, 732, 736, 741lelttrd 10195 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
j  <  ( k  +  ( 1  / 
2 ) ) )
743732ltpnfd 11955 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( k  +  ( 1  /  2 ) )  < +oo )
744725, 726, 732, 742, 743eliood 39720 . . . . . . . . . . . . . . . . . . 19  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( k  +  ( 1  /  2 ) )  e.  ( j (,) +oo ) )
745744adantlr 751 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( j  e.  NN  /\ 
A. l  e.  ( j (,) +oo )
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( k  +  ( 1  /  2
) )  e.  ( j (,) +oo )
)
746 simplr 792 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( j  e.  NN  /\ 
A. l  e.  ( j (,) +oo )
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  A. l  e.  ( j (,) +oo )
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
747 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  (
l  x.  s )  =  ( ( k  +  ( 1  / 
2 ) )  x.  s ) )
748747fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  ( sin `  ( l  x.  s ) )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
749748oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  (
( U `  s
)  x.  ( sin `  ( l  x.  s
) ) )  =  ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) ) )
750749adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( l  =  ( k  +  ( 1  / 
2 ) )  /\  s  e.  ( -u pi (,) d ) )  -> 
( ( U `  s )  x.  ( sin `  ( l  x.  s ) ) )  =  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )
751750itgeq2dv 23548 . . . . . . . . . . . . . . . . . . . . 21  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s  =  S. ( -u pi (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
752751fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  ( abs `  S. ( -u pi (,) d ) ( ( U `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s )  =  ( abs `  S. (
-u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) )
753752breq1d 4663 . . . . . . . . . . . . . . . . . . 19  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  (
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
754753rspcv 3305 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  +  ( 1  /  2 ) )  e.  ( j (,) +oo )  ->  ( A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  -> 
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
755745, 746, 754sylc 65 . . . . . . . . . . . . . . . . 17  |-  ( ( ( j  e.  NN  /\ 
A. l  e.  ( j (,) +oo )
( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
756755adantlll 754 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
757722, 756jca 554 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
758 fourierdlem103.ch . . . . . . . . . . . . . . 15  |-  ( ch  <->  ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
759757, 758sylibr 224 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ch )
76011a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  -u pi  e.  RR )
761 0red 10041 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  0  e.  RR )
762 ioossicc 12259 . . . . . . . . . . . . . . . . . . 19  |-  ( -u pi (,) 0 )  C_  ( -u pi [,] 0
)
763758biimpi 206 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
764 simp-4r 807 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  d  e.  (
-u pi (,) 0
) )
765763, 764syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  d  e.  ( -u pi (,) 0 ) )
766762, 765sseldi 3601 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  d  e.  ( -u pi [,] 0 ) )
767 simp-5l 808 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ph )
768763, 767syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ch 
->  ph )
76943adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  U : ( -u pi [,] pi ) --> RR )
77010rexri 10097 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  pi  e.  RR*
771 0re 10040 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  0  e.  RR
772771, 10, 56ltleii 10160 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  0  <_  pi
773 iooss2 12211 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( pi  e.  RR*  /\  0  <_  pi )  ->  ( -u pi (,) 0 ) 
C_  ( -u pi (,) pi ) )
774770, 772, 773mp2an 708 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( -u pi (,) 0 )  C_  ( -u pi (,) pi )
775 ioossicc 12259 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( -u pi (,) pi )  C_  ( -u pi [,] pi )
776774, 775sstri 3612 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( -u pi (,) 0 )  C_  ( -u pi [,] pi )
777776sseli 3599 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( s  e.  ( -u pi (,) 0 )  ->  s  e.  ( -u pi [,] pi ) )
778777adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  s  e.  ( -u pi [,] pi ) )
779769, 778ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  ( U `  s )  e.  RR )
780768, 779sylan 488 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ch  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( U `  s
)  e.  RR )
781 simpllr 799 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  k  e.  NN )
782763, 781syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ch 
->  k  e.  NN )
783782nnred 11035 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ch 
->  k  e.  RR )
784729a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ch 
->  ( 1  /  2
)  e.  RR )
785783, 784readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ch 
->  ( k  +  ( 1  /  2 ) )  e.  RR )
786785adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ch  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( k  +  ( 1  /  2 ) )  e.  RR )
787 elioore 12205 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( s  e.  ( -u pi (,) 0 )  ->  s  e.  RR )
788787adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ch  /\  s  e.  ( -u pi (,) 0 ) )  -> 
s  e.  RR )
789786, 788remulcld 10070 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ch  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( k  +  ( 1  /  2
) )  x.  s
)  e.  RR )
790789resincld 14873 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ch  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) )  e.  RR )
791780, 790remulcld 10070 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ch  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  e.  RR )
792791recnd 10068 . . . . . . . . . . . . . . . . . 18  |-  ( ( ch  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  e.  CC )
79352a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  -u pi  e.  RR* )
79453a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  0  e.  RR* )
795760leidd 10594 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  -u pi  <_  -u pi )
796 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( -u pi (,) 0 )  C_  RR
797796, 765sseldi 3601 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ch 
->  d  e.  RR )
798793, 794, 765, 54syl3anc 1326 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ch 
->  d  <  0
)
799797, 761, 798ltled 10185 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  d  <_  0 )
800 ioossioo 12265 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( -u pi  e.  RR* 
/\  0  e.  RR* )  /\  ( -u pi  <_ 
-u pi  /\  d  <_  0 ) )  -> 
( -u pi (,) d
)  C_  ( -u pi (,) 0 ) )
801793, 794, 795, 799, 800syl22anc 1327 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  ( -u pi (,) d )  C_  ( -u pi (,) 0 ) )
802 ioombl 23333 . . . . . . . . . . . . . . . . . . . 20  |-  ( -u pi (,) d )  e. 
dom  vol
803802a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  ( -u pi (,) d )  e.  dom  vol )
804 eleq1 2689 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( n  =  k  ->  (
n  e.  NN  <->  k  e.  NN ) )
805804anbi2d 740 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  =  k  ->  (
( ph  /\  n  e.  NN )  <->  ( ph  /\  k  e.  NN ) ) )
806 simpl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( n  =  k  /\  s  e.  ( -u pi (,) 0 ) )  ->  n  =  k )
807806oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( n  =  k  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( n  +  ( 1  /  2 ) )  =  ( k  +  ( 1  / 
2 ) ) )
808807oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( n  =  k  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( n  +  ( 1  /  2
) )  x.  s
)  =  ( ( k  +  ( 1  /  2 ) )  x.  s ) )
809808fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  =  k  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  =  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )
810809oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  =  k  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( U `  s )  x.  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) ) )  =  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )
811810mpteq2dva 4744 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( n  =  k  ->  (
s  e.  ( -u pi (,) 0 )  |->  ( ( U `  s
)  x.  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) ) )  =  ( s  e.  ( -u pi (,) 0 )  |->  ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) ) )
812811eleq1d 2686 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  =  k  ->  (
( s  e.  (
-u pi (,) 0
)  |->  ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1  <->  ( s  e.  ( -u pi (,) 0 )  |->  ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 ) )
813805, 812imbi12d 334 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  =  k  ->  (
( ( ph  /\  n  e.  NN )  ->  ( s  e.  (
-u pi (,) 0
)  |->  ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )  <->  ( ( ph  /\  k  e.  NN )  ->  ( s  e.  ( -u pi (,) 0 )  |->  ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 ) ) )
814776a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  n  e.  NN )  ->  ( -u pi (,) 0 )  C_  ( -u pi [,] pi ) )
815 ioombl 23333 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( -u pi (,) 0 )  e. 
dom  vol
816815a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  n  e.  NN )  ->  ( -u pi (,) 0 )  e. 
dom  vol )
81743ffvelrnda 6359 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  ( U `  s )  e.  RR )
818817adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( U `  s )  e.  RR )
819 nnre 11027 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( n  e.  NN  ->  n  e.  RR )
820 readdcl 10019 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( n  e.  RR  /\  ( 1  /  2
)  e.  RR )  ->  ( n  +  ( 1  /  2
) )  e.  RR )
821819, 729, 820sylancl 694 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( n  e.  NN  ->  (
n  +  ( 1  /  2 ) )  e.  RR )
822821adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( n  +  ( 1  /  2 ) )  e.  RR )
823 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
s  e.  ( -u pi [,] pi ) )
824214, 823sseldi 3601 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
s  e.  RR )
825822, 824remulcld 10070 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( ( n  +  ( 1  /  2
) )  x.  s
)  e.  RR )
826825resincld 14873 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  e.  RR )
827826adantll 750 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  e.  RR )
828818, 827remulcld 10070 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( U `  s
)  x.  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) )  e.  RR )
829 fourierdlem103.g . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  G  =  ( s  e.  (
-u pi [,] pi )  |->  ( ( U `
 s )  x.  ( S `  s
) ) )
830829a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  G  =  ( s  e.  (
-u pi [,] pi )  |->  ( ( U `
 s )  x.  ( S `  s
) ) ) )
831 fourierdlem103.s . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  S  =  ( s  e.  (
-u pi [,] pi )  |->  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )
832831fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( s  e.  ( -u pi [,] pi )  /\  ( sin `  ( ( n  +  ( 1  /  2 ) )  x.  s ) )  e.  RR )  -> 
( S `  s
)  =  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) )
833823, 826, 832syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( S `  s
)  =  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) )
834833adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( S `  s )  =  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )
835834oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( U `  s
)  x.  ( S `
 s ) )  =  ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )
836835mpteq2dva 4744 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( ( U `  s )  x.  ( S `  s ) ) )  =  ( s  e.  ( -u pi [,] pi )  |->  ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) ) )
837830, 836eqtr2d 2657 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )  =  G )
83815adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  F : RR
--> RR )
839 fourierdlem103.x . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  X  e.  ran  V
)
840839adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  X  e. 
ran  V )
84127adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  Y  e.  ( ( F  |`  ( X (,) +oo )
) lim CC  X )
)
84238adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  W  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
843819adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  n  e.  RR )
844265adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  M  e.  NN )
845267adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  V  e.  ( P `  M
) )
846269adantlr 751 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
847271adantlr 751 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  i )
) )
848273adantlr 751 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ M ) )  ->  L  e.  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  ( i  +  1 ) ) ) )
849 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( m  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... m ) )  |  ( ( ( p `  0 )  =  -u pi  /\  (
p `  m )  =  pi )  /\  A. i  e.  ( 0..^ m ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )  =  ( m  e.  NN  |->  { p  e.  ( RR  ^m  (
0 ... m ) )  |  ( ( ( p `  0 )  =  -u pi  /\  (
p `  m )  =  pi )  /\  A. i  e.  ( 0..^ m ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } )
850 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( RR 
_D  F )  =  ( RR  _D  F
)
851599adantlr 751 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR  _D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> RR )
852 fourierdlem103.a . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  A  e.  ( ( ( RR  _D  F
)  |`  ( -oo (,) X ) ) lim CC  X ) )
853852adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  A  e.  ( ( ( RR 
_D  F )  |`  ( -oo (,) X ) ) lim CC  X ) )
854 fourierdlem103.b . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  B  e.  ( ( ( RR  _D  F
)  |`  ( X (,) +oo ) ) lim CC  X
) )
855854adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  n  e.  NN )  ->  B  e.  ( ( ( RR 
_D  F )  |`  ( X (,) +oo )
) lim CC  X )
)
856264, 838, 840, 841, 842, 40, 41, 42, 843, 831, 829, 844, 845, 846, 847, 848, 80, 849, 850, 851, 853, 855fourierdlem88 40411 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  G  e.  L^1 )
857837, 856eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )
858814, 816, 828, 857iblss 23571 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi (,) 0 )  |->  ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )
859813, 858chvarv 2263 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  NN )  ->  ( s  e.  ( -u pi (,) 0 )  |->  ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )
860768, 782, 859syl2anc 693 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  ( s  e.  (
-u pi (,) 0
)  |->  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )
861801, 803, 791, 860iblss 23571 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  ( s  e.  (
-u pi (,) d
)  |->  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )
862765, 106syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ch 
->  -u pi  <  d
)
863760, 797, 862ltled 10185 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  -u pi  <_  d
)
864761leidd 10594 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  0  <_  0 )
865 ioossioo 12265 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( -u pi  e.  RR* 
/\  0  e.  RR* )  /\  ( -u pi  <_  d  /\  0  <_ 
0 ) )  -> 
( d (,) 0
)  C_  ( -u pi (,) 0 ) )
866793, 794, 863, 864, 865syl22anc 1327 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  ( d (,) 0
)  C_  ( -u pi (,) 0 ) )
867 ioombl 23333 . . . . . . . . . . . . . . . . . . . 20  |-  ( d (,) 0 )  e. 
dom  vol
868867a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  ( d (,) 0
)  e.  dom  vol )
869866, 868, 791, 860iblss 23571 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  ( s  e.  ( d (,) 0 ) 
|->  ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) ) )  e.  L^1 )
870760, 761, 766, 792, 861, 869itgsplitioo 23604 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  S. ( -u pi (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  =  ( S. (
-u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  +  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )
871801sselda 3603 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ch  /\  s  e.  ( -u pi (,) d ) )  -> 
s  e.  ( -u pi (,) 0 ) )
872871, 791syldan 487 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ch  /\  s  e.  ( -u pi (,) d ) )  -> 
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  e.  RR )
873872, 861itgcl 23550 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC )
874866sselda 3603 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ch  /\  s  e.  ( d (,) 0
) )  ->  s  e.  ( -u pi (,) 0 ) )
875874, 791syldan 487 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ch  /\  s  e.  ( d (,) 0
) )  ->  (
( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  e.  RR )
876875, 869itgcl 23550 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  S. ( d (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC )
877873, 876addcomd 10238 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( S. ( -u pi (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  +  S. ( d (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  =  ( S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  +  S. (
-u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) )
878870, 877eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  S. ( -u pi (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  =  ( S. ( d (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s  +  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) )
879878fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( ch 
->  ( abs `  S. ( -u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  =  ( abs `  ( S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  +  S. (
-u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) ) )
880876, 873addcld 10059 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  +  S. (
-u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  e.  CC )
881880abscld 14175 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  ( abs `  ( S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  +  S. ( -u pi (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )  e.  RR )
882876abscld 14175 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  e.  RR )
883873abscld 14175 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  e.  RR )
884882, 883readdcld 10069 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  ( ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  +  ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) )  e.  RR )
885 simp-5r 809 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  e  e.  RR+ )
886763, 885syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  e  e.  RR+ )
887886rpred 11872 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  e  e.  RR )
888876, 873abstrid 14195 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  ( abs `  ( S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  +  S. ( -u pi (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )  <_ 
( ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  +  ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) ) )
889 simplr 792 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  k  e.  NN )  /\  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
890763, 889syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
891763simprd 479 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
892882, 883, 887, 890, 891lt2halvesd 11280 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  ( ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  +  ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) )  <  e
)
893881, 884, 887, 888, 892lelttrd 10195 . . . . . . . . . . . . . . 15  |-  ( ch 
->  ( abs `  ( S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  +  S. ( -u pi (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )  < 
e )
894879, 893eqbrtrd 4675 . . . . . . . . . . . . . 14  |-  ( ch 
->  ( abs `  S. ( -u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
895759, 894syl 17 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( abs `  S. ( -u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
896895ex 450 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ( k  e.  ( ZZ>= `  j )  ->  ( abs `  S. ( -u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e ) )
897711, 896ralrimi 2957 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  A. k  e.  (
ZZ>= `  j ) ( abs `  S. (
-u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
898897ex 450 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  j  e.  NN )  ->  ( A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  ->  A. k  e.  ( ZZ>=
`  j ) ( abs `  S. (
-u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e ) )
899898reximdva 3017 . . . . . . . . 9  |-  ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  ->  ( E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( -u pi (,) d
) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  ->  E. j  e.  NN  A. k  e.  ( ZZ>= `  j ) ( abs `  S. ( -u pi (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e ) )
900704, 899mpd 15 . . . . . . . 8  |-  ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( -u pi (,) 0 ) )  /\  A. k  e.  NN  ( abs `  S. ( d (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  ->  E. j  e.  NN  A. k  e.  ( ZZ>= `  j )
( abs `  S. ( -u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
901 negpilt0 39492 . . . . . . . . . . . . . 14  |-  -u pi  <  0
90211, 771, 10lttri 10163 . . . . . . . . . . . . . 14  |-  ( (
-u pi  <  0  /\  0  <  pi )  ->  -u pi  <  pi )
903901, 56, 902mp2an 708 . . . . . . . . . . . . 13  |-  -u pi  <  pi
90411, 10, 903ltleii 10160 . . . . . . . . . . . 12  |-  -u pi  <_  pi
905904a1i 11 . . . . . . . . . . 11  |-  ( ph  -> 
-u pi  <_  pi )
906264fourierdlem2 40326 . . . . . . . . . . . . . . . . . 18  |-  ( M  e.  NN  ->  ( V  e.  ( P `  M )  <->  ( V  e.  ( RR  ^m  (
0 ... M ) )  /\  ( ( ( V `  0 )  =  ( -u pi  +  X )  /\  ( V `  M )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ M ) ( V `
 i )  < 
( V `  (
i  +  1 ) ) ) ) ) )
907265, 906syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( V  e.  ( P `  M )  <-> 
( V  e.  ( RR  ^m  ( 0 ... M ) )  /\  ( ( ( V `  0 )  =  ( -u pi  +  X )  /\  ( V `  M )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ M ) ( V `
 i )  < 
( V `  (
i  +  1 ) ) ) ) ) )
908267, 907mpbid 222 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( V  e.  ( RR  ^m  ( 0 ... M ) )  /\  ( ( ( V `  0 )  =  ( -u pi  +  X )  /\  ( V `  M )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ M ) ( V `
 i )  < 
( V `  (
i  +  1 ) ) ) ) )
909908simpld 475 . . . . . . . . . . . . . . 15  |-  ( ph  ->  V  e.  ( RR 
^m  ( 0 ... M ) ) )
910 elmapi 7879 . . . . . . . . . . . . . . 15  |-  ( V  e.  ( RR  ^m  ( 0 ... M
) )  ->  V : ( 0 ... M ) --> RR )
911909, 910syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  V : ( 0 ... M ) --> RR )
912911ffvelrnda 6359 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( V `  i )  e.  RR )
91316adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  X  e.  RR )
914912, 913resubcld 10458 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  -  X )  e.  RR )
915914, 80fmptd 6385 . . . . . . . . . . 11  |-  ( ph  ->  Q : ( 0 ... M ) --> RR )
91680a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  Q  =  ( i  e.  ( 0 ... M )  |->  ( ( V `  i )  -  X ) ) )
917 fveq2 6191 . . . . . . . . . . . . . . 15  |-  ( i  =  0  ->  ( V `  i )  =  ( V ` 
0 ) )
918917oveq1d 6665 . . . . . . . . . . . . . 14  |-  ( i  =  0  ->  (
( V `  i
)  -  X )  =  ( ( V `
 0 )  -  X ) )
919918adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  = 
0 )  ->  (
( V `  i
)  -  X )  =  ( ( V `
 0 )  -  X ) )
920265nnnn0d 11351 . . . . . . . . . . . . . . 15  |-  ( ph  ->  M  e.  NN0 )
921 nn0uz 11722 . . . . . . . . . . . . . . 15  |-  NN0  =  ( ZZ>= `  0 )
922920, 921syl6eleq 2711 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  ( ZZ>= ` 
0 ) )
923 eluzfz1 12348 . . . . . . . . . . . . . 14  |-  ( M  e.  ( ZZ>= `  0
)  ->  0  e.  ( 0 ... M
) )
924922, 923syl 17 . . . . . . . . . . . . 13  |-  ( ph  ->  0  e.  ( 0 ... M ) )
925911, 924ffvelrnd 6360 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( V `  0
)  e.  RR )
926925, 16resubcld 10458 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( V ` 
0 )  -  X
)  e.  RR )
927916, 919, 924, 926fvmptd 6288 . . . . . . . . . . . 12  |-  ( ph  ->  ( Q `  0
)  =  ( ( V `  0 )  -  X ) )
928908simprd 479 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( ( V `
 0 )  =  ( -u pi  +  X )  /\  ( V `  M )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ M ) ( V `
 i )  < 
( V `  (
i  +  1 ) ) ) )
929928simpld 475 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( V ` 
0 )  =  (
-u pi  +  X
)  /\  ( V `  M )  =  ( pi  +  X ) ) )
930929simpld 475 . . . . . . . . . . . . 13  |-  ( ph  ->  ( V `  0
)  =  ( -u pi  +  X ) )
931930oveq1d 6665 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( V ` 
0 )  -  X
)  =  ( (
-u pi  +  X
)  -  X ) )
932450recnd 10068 . . . . . . . . . . . . 13  |-  ( ph  -> 
-u pi  e.  CC )
93316recnd 10068 . . . . . . . . . . . . 13  |-  ( ph  ->  X  e.  CC )
934932, 933pncand 10393 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( -u pi  +  X )  -  X
)  =  -u pi )
935927, 931, 9343eqtrd 2660 . . . . . . . . . . 11  |-  ( ph  ->  ( Q `  0
)  =  -u pi )
936450, 452, 16, 264, 849, 265, 267, 80fourierdlem14 40338 . . . . . . . . . . . . . . 15  |-  ( ph  ->  Q  e.  ( ( m  e.  NN  |->  { p  e.  ( RR 
^m  ( 0 ... m ) )  |  ( ( ( p `
 0 )  = 
-u pi  /\  (
p `  m )  =  pi )  /\  A. i  e.  ( 0..^ m ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } ) `
 M ) )
937849fourierdlem2 40326 . . . . . . . . . . . . . . . 16  |-  ( M  e.  NN  ->  ( Q  e.  ( (
m  e.  NN  |->  { p  e.  ( RR 
^m  ( 0 ... m ) )  |  ( ( ( p `
 0 )  = 
-u pi  /\  (
p `  m )  =  pi )  /\  A. i  e.  ( 0..^ m ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } ) `
 M )  <->  ( Q  e.  ( RR  ^m  (
0 ... M ) )  /\  ( ( ( Q `  0 )  =  -u pi  /\  ( Q `  M )  =  pi )  /\  A. i  e.  ( 0..^ M ) ( Q `
 i )  < 
( Q `  (
i  +  1 ) ) ) ) ) )
938265, 937syl 17 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( Q  e.  ( ( m  e.  NN  |->  { p  e.  ( RR  ^m  ( 0 ... m ) )  |  ( ( ( p `
 0 )  = 
-u pi  /\  (
p `  m )  =  pi )  /\  A. i  e.  ( 0..^ m ) ( p `
 i )  < 
( p `  (
i  +  1 ) ) ) } ) `
 M )  <->  ( Q  e.  ( RR  ^m  (
0 ... M ) )  /\  ( ( ( Q `  0 )  =  -u pi  /\  ( Q `  M )  =  pi )  /\  A. i  e.  ( 0..^ M ) ( Q `
 i )  < 
( Q `  (
i  +  1 ) ) ) ) ) )
939936, 938mpbid 222 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( Q  e.  ( RR  ^m  ( 0 ... M ) )  /\  ( ( ( Q `  0 )  =  -u pi  /\  ( Q `  M )  =  pi )  /\  A. i  e.  ( 0..^ M ) ( Q `
 i )  < 
( Q `  (
i  +  1 ) ) ) ) )
940939simprd 479 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( ( Q `
 0 )  = 
-u pi  /\  ( Q `  M )  =  pi )  /\  A. i  e.  ( 0..^ M ) ( Q `
 i )  < 
( Q `  (
i  +  1 ) ) ) )
941940simpld 475 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( Q ` 
0 )  =  -u pi  /\  ( Q `  M )  =  pi ) )
942941simprd 479 . . . . . . . . . . 11  |-  ( ph  ->  ( Q `  M
)  =  pi )
943940simprd 479 . . . . . . . . . . . 12  |-  ( ph  ->  A. i  e.  ( 0..^ M ) ( Q `  i )  <  ( Q `  ( i  +  1 ) ) )
944943r19.21bi 2932 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  <  ( Q `  ( i  +  1 ) ) )
94515adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  F : RR --> RR )
946849, 265, 936fourierdlem15 40339 . . . . . . . . . . . . . 14  |-  ( ph  ->  Q : ( 0 ... M ) --> (
-u pi [,] pi ) )
947946adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Q : ( 0 ... M ) --> ( -u pi [,] pi ) )
948 elfzofz 12485 . . . . . . . . . . . . . 14  |-  ( i  e.  ( 0..^ M )  ->  i  e.  ( 0 ... M
) )
949948adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  i  e.  ( 0 ... M ) )
950947, 949ffvelrnd 6360 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  e.  (
-u pi [,] pi ) )
951 fzofzp1 12565 . . . . . . . . . . . . . 14  |-  ( i  e.  ( 0..^ M )  ->  ( i  +  1 )  e.  ( 0 ... M
) )
952951adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( i  +  1 )  e.  ( 0 ... M ) )
953947, 952ffvelrnd 6360 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  ( i  +  1 ) )  e.  (
-u pi [,] pi ) )
95416adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  X  e.  RR )
955 ffn 6045 . . . . . . . . . . . . . . . . . 18  |-  ( V : ( 0 ... M ) --> RR  ->  V  Fn  ( 0 ... M ) )
956909, 910, 9553syl 18 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  V  Fn  ( 0 ... M ) )
957 fvelrnb 6243 . . . . . . . . . . . . . . . . 17  |-  ( V  Fn  ( 0 ... M )  ->  ( X  e.  ran  V  <->  E. i  e.  ( 0 ... M
) ( V `  i )  =  X ) )
958956, 957syl 17 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( X  e.  ran  V  <->  E. i  e.  (
0 ... M ) ( V `  i )  =  X ) )
959839, 958mpbid 222 . . . . . . . . . . . . . . 15  |-  ( ph  ->  E. i  e.  ( 0 ... M ) ( V `  i
)  =  X )
960 oveq1 6657 . . . . . . . . . . . . . . . . . . 19  |-  ( ( V `  i )  =  X  ->  (
( V `  i
)  -  X )  =  ( X  -  X ) )
961960adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  (
( V `  i
)  -  X )  =  ( X  -  X ) )
962933subidd 10380 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( X  -  X
)  =  0 )
963962ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  ( X  -  X )  =  0 )
964961, 963eqtr2d 2657 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  0  =  ( ( V `
 i )  -  X ) )
965964ex 450 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  =  X  -> 
0  =  ( ( V `  i )  -  X ) ) )
966965reximdva 3017 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( E. i  e.  ( 0 ... M
) ( V `  i )  =  X  ->  E. i  e.  ( 0 ... M ) 0  =  ( ( V `  i )  -  X ) ) )
967959, 966mpd 15 . . . . . . . . . . . . . 14  |-  ( ph  ->  E. i  e.  ( 0 ... M ) 0  =  ( ( V `  i )  -  X ) )
96880elrnmpt 5372 . . . . . . . . . . . . . . 15  |-  ( 0  e.  RR  ->  (
0  e.  ran  Q  <->  E. i  e.  ( 0 ... M ) 0  =  ( ( V `
 i )  -  X ) ) )
969771, 968ax-mp 5 . . . . . . . . . . . . . 14  |-  ( 0  e.  ran  Q  <->  E. i  e.  ( 0 ... M
) 0  =  ( ( V `  i
)  -  X ) )
970967, 969sylibr 224 . . . . . . . . . . . . 13  |-  ( ph  ->  0  e.  ran  Q
)
971849, 265, 936, 970fourierdlem12 40336 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  -.  0  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )
972911adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  V : ( 0 ... M ) --> RR )
973972, 949ffvelrnd 6360 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  e.  RR )
974973, 954resubcld 10458 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 i )  -  X )  e.  RR )
97580fvmpt2 6291 . . . . . . . . . . . . . . . . . 18  |-  ( ( i  e.  ( 0 ... M )  /\  ( ( V `  i )  -  X
)  e.  RR )  ->  ( Q `  i )  =  ( ( V `  i
)  -  X ) )
976949, 974, 975syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  =  ( ( V `  i
)  -  X ) )
977976oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i )  +  X )  =  ( ( ( V `  i )  -  X
)  +  X ) )
978973recnd 10068 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  e.  CC )
979933adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  X  e.  CC )
980978, 979npcand 10396 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( V `  i )  -  X )  +  X )  =  ( V `  i ) )
981977, 980eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i )  +  X )  =  ( V `  i ) )
982 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( j  =  i  ->  ( V `  j )  =  ( V `  i ) )
983982oveq1d 6665 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  =  i  ->  (
( V `  j
)  -  X )  =  ( ( V `
 i )  -  X ) )
984983cbvmptv 4750 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 0 ... M )  |->  ( ( V `  j )  -  X ) )  =  ( i  e.  ( 0 ... M
)  |->  ( ( V `
 i )  -  X ) )
98580, 984eqtr4i 2647 . . . . . . . . . . . . . . . . . . 19  |-  Q  =  ( j  e.  ( 0 ... M ) 
|->  ( ( V `  j )  -  X
) )
986985a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Q  =  ( j  e.  ( 0 ... M )  |->  ( ( V `  j
)  -  X ) ) )
987 fveq2 6191 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  ( i  +  1 )  ->  ( V `  j )  =  ( V `  ( i  +  1 ) ) )
988987oveq1d 6665 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  ( i  +  1 )  ->  (
( V `  j
)  -  X )  =  ( ( V `
 ( i  +  1 ) )  -  X ) )
989988adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  j  =  ( i  +  1 ) )  ->  (
( V `  j
)  -  X )  =  ( ( V `
 ( i  +  1 ) )  -  X ) )
990972, 952ffvelrnd 6360 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  ( i  +  1 ) )  e.  RR )
991990, 954resubcld 10458 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 ( i  +  1 ) )  -  X )  e.  RR )
992986, 989, 952, 991fvmptd 6288 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  ( i  +  1 ) )  =  ( ( V `  (
i  +  1 ) )  -  X ) )
993992oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 ( i  +  1 ) )  +  X )  =  ( ( ( V `  ( i  +  1 ) )  -  X
)  +  X ) )
994990recnd 10068 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  ( i  +  1 ) )  e.  CC )
995994, 979npcand 10396 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( V `  ( i  +  1 ) )  -  X )  +  X )  =  ( V `  ( i  +  1 ) ) )
996993, 995eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 ( i  +  1 ) )  +  X )  =  ( V `  ( i  +  1 ) ) )
997981, 996oveq12d 6668 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( Q `  i )  +  X ) (,) ( ( Q `  ( i  +  1 ) )  +  X
) )  =  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) )
998997reseq2d 5396 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( ( Q `
 i )  +  X ) (,) (
( Q `  (
i  +  1 ) )  +  X ) ) )  =  ( F  |`  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) ) )
999997oveq1d 6665 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( ( Q `  i
)  +  X ) (,) ( ( Q `
 ( i  +  1 ) )  +  X ) ) -cn-> CC )  =  ( ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) )
-cn-> CC ) )
1000269, 998, 9993eltr4d 2716 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( ( Q `
 i )  +  X ) (,) (
( Q `  (
i  +  1 ) )  +  X ) ) )  e.  ( ( ( ( Q `
 i )  +  X ) (,) (
( Q `  (
i  +  1 ) )  +  X ) ) -cn-> CC ) )
100128adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Y  e.  RR )
100239adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  W  e.  RR )
1003945, 950, 953, 954, 971, 1000, 1001, 1002, 40fourierdlem40 40364 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) -cn-> CC ) )
1004 id 22 . . . . . . . . . . . . . 14  |-  ( ( ( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR  ->  (
( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR )
100544a1i 11 . . . . . . . . . . . . . 14  |-  ( ( ( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR  ->  RR  C_  CC )
10061004, 1005fssd 6057 . . . . . . . . . . . . 13  |-  ( ( ( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR  ->  (
( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> CC )
1007404, 598, 10063syl 18 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> CC )
1008 eqid 2622 . . . . . . . . . . . 12  |-  if ( ( V `  i
)  =  X ,  B ,  ( ( R  -  if (
( V `  i
)  <  X ,  W ,  Y )
)  /  ( Q `
 i ) ) )  =  if ( ( V `  i
)  =  X ,  B ,  ( ( R  -  if (
( V `  i
)  <  X ,  W ,  Y )
)  /  ( Q `
 i ) ) )
100916, 264, 15, 839, 27, 39, 40, 265, 267, 271, 80, 849, 850, 1007, 854, 1008fourierdlem75 40398 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  if ( ( V `  i )  =  X ,  B ,  ( ( R  -  if ( ( V `  i )  <  X ,  W ,  Y ) )  / 
( Q `  i
) ) )  e.  ( ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) ) lim CC  ( Q `  i )
) )
1010 eqid 2622 . . . . . . . . . . . 12  |-  if ( ( V `  (
i  +  1 ) )  =  X ,  A ,  ( ( L  -  if (
( V `  (
i  +  1 ) )  <  X ,  W ,  Y )
)  /  ( Q `
 ( i  +  1 ) ) ) )  =  if ( ( V `  (
i  +  1 ) )  =  X ,  A ,  ( ( L  -  if (
( V `  (
i  +  1 ) )  <  X ,  W ,  Y )
)  /  ( Q `
 ( i  +  1 ) ) ) )
101116, 264, 15, 839, 28, 38, 40, 265, 267, 273, 80, 849, 850, 599, 852, 1010fourierdlem74 40397 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  if ( ( V `  ( i  +  1 ) )  =  X ,  A ,  ( ( L  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  / 
( Q `  (
i  +  1 ) ) ) )  e.  ( ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
1012 fveq2 6191 . . . . . . . . . . . . 13  |-  ( j  =  i  ->  ( Q `  j )  =  ( Q `  i ) )
1013 oveq1 6657 . . . . . . . . . . . . . 14  |-  ( j  =  i  ->  (
j  +  1 )  =  ( i  +  1 ) )
10141013fveq2d 6195 . . . . . . . . . . . . 13  |-  ( j  =  i  ->  ( Q `  ( j  +  1 ) )  =  ( Q `  ( i  +  1 ) ) )
10151012, 1014oveq12d 6668 . . . . . . . . . . . 12  |-  ( j  =  i  ->  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) )  =  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )
10161015cbvmptv 4750 . . . . . . . . . . 11  |-  ( j  e.  ( 0..^ M )  |->  ( ( Q `
 j ) (,) ( Q `  (
j  +  1 ) ) ) )  =  ( i  e.  ( 0..^ M )  |->  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )
1017450, 452, 905, 180, 265, 915, 935, 942, 944, 1003, 1009, 1011, 1016fourierdlem70 40393 . . . . . . . . . 10  |-  ( ph  ->  E. x  e.  RR  A. s  e.  ( -u pi [,] pi ) ( abs `  ( H `
 s ) )  <_  x )
1018 eqid 2622 . . . . . . . . . 10  |-  ( ( e  /  3 )  /  y )  =  ( ( e  / 
3 )  /  y
)
1019 fveq2 6191 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  ( G `  t )  =  ( G `  s ) )
10201019fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( t  =  s  ->  ( abs `  ( G `  t ) )  =  ( abs `  ( G `  s )
) )
10211020breq1d 4663 . . . . . . . . . . . . . . . 16  |-  ( t  =  s  ->  (
( abs `  ( G `  t )
)  <_  y  <->  ( abs `  ( G `  s
) )  <_  y
) )
10221021cbvralv 3171 . . . . . . . . . . . . . . 15  |-  ( A. t  e.  ( -u pi [,] pi ) ( abs `  ( G `  t
) )  <_  y  <->  A. s  e.  ( -u pi [,] pi ) ( abs `  ( G `
 s ) )  <_  y )
10231022ralbii 2980 . . . . . . . . . . . . . 14  |-  ( A. n  e.  NN  A. t  e.  ( -u pi [,] pi ) ( abs `  ( G `  t )
)  <_  y  <->  A. n  e.  NN  A. s  e.  ( -u pi [,] pi ) ( abs `  ( G `  s )
)  <_  y )
102410233anbi3i 1255 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  y  e.  RR+  /\  A. n  e.  NN  A. t  e.  ( -u pi [,] pi ) ( abs `  ( G `  t )
)  <_  y )  <->  ( ( ph  /\  e  e.  RR+ )  /\  y  e.  RR+  /\  A. n  e.  NN  A. s  e.  ( -u pi [,] pi ) ( abs `  ( G `  s )
)  <_  y )
)
10251024anbi1i 731 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  e  e.  RR+ )  /\  y  e.  RR+  /\  A. n  e.  NN  A. t  e.  ( -u pi [,] pi ) ( abs `  ( G `  t )
)  <_  y )  /\  u  e.  dom  vol )  <->  ( ( (
ph  /\  e  e.  RR+ )  /\  y  e.  RR+  /\  A. n  e.  NN  A. s  e.  ( -u pi [,] pi ) ( abs `  ( G `  s )
)  <_  y )  /\  u  e.  dom  vol ) )
10261025anbi1i 731 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  y  e.  RR+  /\  A. n  e.  NN  A. t  e.  ( -u pi [,] pi ) ( abs `  ( G `  t )
)  <_  y )  /\  u  e.  dom  vol )  /\  ( u 
C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
( ( e  / 
3 )  /  y
) ) )  <->  ( (
( ( ph  /\  e  e.  RR+ )  /\  y  e.  RR+  /\  A. n  e.  NN  A. s  e.  ( -u pi [,] pi ) ( abs `  ( G `  s )
)  <_  y )  /\  u  e.  dom  vol )  /\  ( u 
C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
( ( e  / 
3 )  /  y
) ) ) )
10271026anbi1i 731 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  y  e.  RR+  /\  A. n  e.  NN  A. t  e.  ( -u pi [,] pi ) ( abs `  ( G `  t )
)  <_  y )  /\  u  e.  dom  vol )  /\  ( u 
C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
( ( e  / 
3 )  /  y
) ) )  /\  n  e.  NN )  <->  ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  y  e.  RR+  /\  A. n  e.  NN  A. s  e.  ( -u pi [,] pi ) ( abs `  ( G `  s )
)  <_  y )  /\  u  e.  dom  vol )  /\  ( u 
C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
( ( e  / 
3 )  /  y
) ) )  /\  n  e.  NN )
)
102815, 16, 28, 39, 40, 41, 42, 831, 829, 1017, 856, 1018, 1027fourierdlem87 40410 . . . . . . . . 9  |-  ( (
ph  /\  e  e.  RR+ )  ->  E. c  e.  RR+  A. u  e. 
dom  vol ( ( u 
C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
c )  ->  A. k  e.  NN  ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
1029 iftrue 4092 . . . . . . . . . . . . . . . 16  |-  ( c  <_  ( pi  / 
2 )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  c )
10301029negeqd 10275 . . . . . . . . . . . . . . 15  |-  ( c  <_  ( pi  / 
2 )  ->  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  -u c
)
10311030adantl 482 . . . . . . . . . . . . . 14  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  -u c
)
103252a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u pi  e.  RR* )
103353a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  0  e.  RR* )
1034 rpre 11839 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  c  e.  RR )
10351034renegcld 10457 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  -u c  e.  RR )
10361035adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u c  e.  RR )
10371034adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  c  e.  RR )
103810rehalfcli 11281 . . . . . . . . . . . . . . . . . 18  |-  ( pi 
/  2 )  e.  RR
10391038a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  (
pi  /  2 )  e.  RR )
104010a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  pi  e.  RR )
1041 simpr 477 . . . . . . . . . . . . . . . . 17  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  c  <_  ( pi  /  2
) )
1042 halfpos 11262 . . . . . . . . . . . . . . . . . . . 20  |-  ( pi  e.  RR  ->  (
0  <  pi  <->  ( pi  /  2 )  <  pi ) )
104310, 1042ax-mp 5 . . . . . . . . . . . . . . . . . . 19  |-  ( 0  <  pi  <->  ( pi  /  2 )  <  pi )
104456, 1043mpbi 220 . . . . . . . . . . . . . . . . . 18  |-  ( pi 
/  2 )  < 
pi
10451044a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  (
pi  /  2 )  <  pi )
10461037, 1039, 1040, 1041, 1045lelttrd 10195 . . . . . . . . . . . . . . . 16  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  c  <  pi )
10471037, 1040ltnegd 10605 . . . . . . . . . . . . . . . 16  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  (
c  <  pi  <->  -u pi  <  -u c ) )
10481046, 1047mpbid 222 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u pi  <  -u c )
1049 rpgt0 11844 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  0  < 
c )
10501034lt0neg2d 10598 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  ( 0  <  c  <->  -u c  <  0 ) )
10511049, 1050mpbid 222 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  -u c  <  0 )
10521051adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u c  <  0 )
10531032, 1033, 1036, 1048, 1052eliood 39720 . . . . . . . . . . . . . 14  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u c  e.  ( -u pi (,) 0 ) )
10541031, 1053eqeltrd 2701 . . . . . . . . . . . . 13  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  e.  ( -u pi (,) 0 ) )
1055 iffalse 4095 . . . . . . . . . . . . . . . 16  |-  ( -.  c  <_  ( pi  /  2 )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  ( pi 
/  2 ) )
10561055negeqd 10275 . . . . . . . . . . . . . . 15  |-  ( -.  c  <_  ( pi  /  2 )  ->  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  -u (
pi  /  2 ) )
10571038renegcli 10342 . . . . . . . . . . . . . . . . . . 19  |-  -u (
pi  /  2 )  e.  RR
10581057rexri 10097 . . . . . . . . . . . . . . . . . 18  |-  -u (
pi  /  2 )  e.  RR*
105952, 53, 10583pm3.2i 1239 . . . . . . . . . . . . . . . . 17  |-  ( -u pi  e.  RR*  /\  0  e.  RR*  /\  -u (
pi  /  2 )  e.  RR* )
10601038, 10ltnegi 10572 . . . . . . . . . . . . . . . . . . 19  |-  ( ( pi  /  2 )  <  pi  <->  -u pi  <  -u ( pi  /  2
) )
10611044, 1060mpbi 220 . . . . . . . . . . . . . . . . . 18  |-  -u pi  <  -u ( pi  / 
2 )
1062 2pos 11112 . . . . . . . . . . . . . . . . . . . 20  |-  0  <  2
106310, 101, 56, 1062divgt0ii 10941 . . . . . . . . . . . . . . . . . . 19  |-  0  <  ( pi  /  2
)
1064 lt0neg2 10535 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( pi  /  2 )  e.  RR  ->  (
0  <  ( pi  /  2 )  <->  -u ( pi 
/  2 )  <  0 ) )
10651038, 1064ax-mp 5 . . . . . . . . . . . . . . . . . . 19  |-  ( 0  <  ( pi  / 
2 )  <->  -u ( pi 
/  2 )  <  0 )
10661063, 1065mpbi 220 . . . . . . . . . . . . . . . . . 18  |-  -u (
pi  /  2 )  <  0
10671061, 1066pm3.2i 471 . . . . . . . . . . . . . . . . 17  |-  ( -u pi  <  -u ( pi  / 
2 )  /\  -u (
pi  /  2 )  <  0 )
1068 elioo3g 12204 . . . . . . . . . . . . . . . . 17  |-  ( -u ( pi  /  2
)  e.  ( -u pi (,) 0 )  <->  ( ( -u pi  e.  RR*  /\  0  e.  RR*  /\  -u (
pi  /  2 )  e.  RR* )  /\  ( -u pi  <  -u (
pi  /  2 )  /\  -u ( pi  / 
2 )  <  0
) ) )
10691059, 1067, 1068mpbir2an 955 . . . . . . . . . . . . . . . 16  |-  -u (
pi  /  2 )  e.  ( -u pi (,) 0 )
10701069a1i 11 . . . . . . . . . . . . . . 15  |-  ( -.  c  <_  ( pi  /  2 )  ->  -u (
pi  /  2 )  e.  ( -u pi (,) 0 ) )
10711056, 1070eqeltrd 2701 . . . . . . . . . . . . . 14  |-  ( -.  c  <_  ( pi  /  2 )  ->  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  e.  ( -u pi (,) 0 ) )
10721071adantl 482 . . . . . . . . . . . . 13  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  ->  -u if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) )  e.  (
-u pi (,) 0
) )
10731054, 1072pm2.61dan 832 . . . . . . . . . . . 12  |-  ( c  e.  RR+  ->  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  e.  ( -u pi (,) 0 ) )
107410733ad2ant2 1083 . . . . . . . . . . 11  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  c  e.  RR+  /\  A. u  e.  dom  vol ( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
c )  ->  A. k  e.  NN  ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )  ->  -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  e.  ( -u pi (,) 0 ) )
1075 ioombl 23333 . . . . . . . . . . . . . . 15  |-  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  e.  dom  vol
10761075a1i 11 . . . . . . . . . . . . . 14  |-  ( ( c  e.  RR+  /\  A. u  e.  dom  vol (
( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  ->  A. k  e.  NN  ( abs `  S. u
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )  -> 
( -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 )  e.  dom  vol )
1077 simpr 477 . . . . . . . . . . . . . 14  |-  ( ( c  e.  RR+  /\  A. u  e.  dom  vol (
( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  ->  A. k  e.  NN  ( abs `  S. u
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )  ->  A. u  e.  dom  vol ( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  ->  A. k  e.  NN  ( abs `  S. u
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )
10781076, 1077jca 554 . . . . . . . . . . . . 13  |-  ( ( c  e.  RR+  /\  A. u  e.  dom  vol (
( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  ->  A. k  e.  NN  ( abs `  S. u
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )  -> 
( ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  e.  dom  vol  /\  A. u  e.  dom  vol ( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  ->  A. k  e.  NN  ( abs `  S. u
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) ) )
1079 ioossicc 12259 . . . . . . . . . . . . . . . . 17  |-  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) 
C_  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) [,] 0 )
10801079a1i 11 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) 
C_  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) [,] 0 ) )
108111a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  -u pi  e.  RR )
108210a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  pi  e.  RR )
10831037, 1040, 1046ltled 10185 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  c  <_  pi )
10841037, 1040lenegd 10606 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  (
c  <_  pi  <->  -u pi  <_  -u c ) )
10851083, 1084mpbid 222 . . . . . . . . . . . . . . . . . . 19  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u pi  <_ 
-u c )
10861030eqcomd 2628 . . . . . . . . . . . . . . . . . . . 20  |-  ( c  <_  ( pi  / 
2 )  ->  -u c  =  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )
10871086adantl 482 . . . . . . . . . . . . . . . . . . 19  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u c  =  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )
10881085, 1087breqtrd 4679 . . . . . . . . . . . . . . . . . 18  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  -u pi  <_ 
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )
108911, 1057, 1061ltleii 10160 . . . . . . . . . . . . . . . . . . . 20  |-  -u pi  <_ 
-u ( pi  / 
2 )
10901089a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  ->  -u pi  <_  -u ( pi 
/  2 ) )
10911056eqcomd 2628 . . . . . . . . . . . . . . . . . . . 20  |-  ( -.  c  <_  ( pi  /  2 )  ->  -u (
pi  /  2 )  =  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )
10921091adantl 482 . . . . . . . . . . . . . . . . . . 19  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  ->  -u ( pi  /  2
)  =  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) )
10931090, 1092breqtrd 4679 . . . . . . . . . . . . . . . . . 18  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  ->  -u pi  <_  -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) )
10941088, 1093pm2.61dan 832 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  -u pi  <_ 
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )
1095772a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  0  <_  pi )
1096 iccss 12241 . . . . . . . . . . . . . . . . 17  |-  ( ( ( -u pi  e.  RR  /\  pi  e.  RR )  /\  ( -u pi  <_ 
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  /\  0  <_  pi ) )  ->  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) [,] 0 ) 
C_  ( -u pi [,] pi ) )
10971081, 1082, 1094, 1095, 1096syl22anc 1327 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) [,] 0 ) 
C_  ( -u pi [,] pi ) )
10981080, 1097sstrd 3613 . . . . . . . . . . . . . . 15  |-  ( c  e.  RR+  ->  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) 
C_  ( -u pi [,] pi ) )
1099796, 1073sseldi 3601 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  e.  RR )
1100 0red 10041 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  0  e.  RR )
1101 rpge0 11845 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( c  e.  RR+  ->  0  <_ 
c )
11021101adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  0  <_  c )
11031041iftrued 4094 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  c )
11041102, 1103breqtrrd 4681 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  0  <_  if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )
1105771, 1038, 1063ltleii 10160 . . . . . . . . . . . . . . . . . . . . 21  |-  0  <_  ( pi  /  2
)
1106 simpr 477 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  ->  -.  c  <_  ( pi 
/  2 ) )
11071106iffalsed 4097 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  ( pi 
/  2 ) )
11081105, 1107syl5breqr 4691 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  -> 
0  <_  if (
c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) )
11091104, 1108pm2.61dan 832 . . . . . . . . . . . . . . . . . . 19  |-  ( c  e.  RR+  ->  0  <_  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) )
11101038a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( c  e.  RR+  ->  ( pi 
/  2 )  e.  RR )
11111034, 1110ifcld 4131 . . . . . . . . . . . . . . . . . . . 20  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  e.  RR )
11121111le0neg2d 10600 . . . . . . . . . . . . . . . . . . 19  |-  ( c  e.  RR+  ->  ( 0  <_  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  <->  -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  <_ 
0 ) )
11131109, 1112mpbid 222 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  <_  0 )
1114 volioo 23337 . . . . . . . . . . . . . . . . . 18  |-  ( (
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  e.  RR  /\  0  e.  RR  /\  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  <_  0 )  ->  ( vol `  ( -u if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) (,) 0
) )  =  ( 0  -  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) )
11151099, 1100, 1113, 1114syl3anc 1326 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  ( vol `  ( -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) )  =  ( 0  -  -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) )
1116 0cn 10032 . . . . . . . . . . . . . . . . . . 19  |-  0  e.  CC
11171116a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  0  e.  CC )
11181111recnd 10068 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  e.  CC )
11191117, 1118subnegd 10399 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  ( 0  -  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )  =  ( 0  +  if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) ) )
11201118addid2d 10237 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  ( 0  +  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )  =  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )
11211115, 1119, 11203eqtrd 2660 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  ( vol `  ( -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) )  =  if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )
1122 min1 12020 . . . . . . . . . . . . . . . . 17  |-  ( ( c  e.  RR  /\  ( pi  /  2
)  e.  RR )  ->  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  <_ 
c )
11231034, 1038, 1122sylancl 694 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  <_ 
c )
11241121, 1123eqbrtrd 4675 . . . . . . . . . . . . . . 15  |-  ( c  e.  RR+  ->  ( vol `  ( -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) )  <_ 
c )
11251098, 1124jca 554 . . . . . . . . . . . . . 14  |-  ( c  e.  RR+  ->  ( (
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 )  C_  ( -u pi [,] pi )  /\  ( vol `  ( -u if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) (,) 0
) )  <_  c
) )
11261125adantr 481 . . . . . . . . . . . . 13  |-  ( ( c  e.  RR+  /\  A. u  e.  dom  vol (
( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  ->  A. k  e.  NN  ( abs `  S. u
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )  -> 
( ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) 
C_  ( -u pi [,] pi )  /\  ( vol `  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) )  <_  c )
)
1127 sseq1 3626 . . . . . . . . . . . . . . . 16  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  ( u  C_  ( -u pi [,] pi ) 
<->  ( -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 )  C_  ( -u pi [,] pi ) ) )
1128 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  ( vol `  u
)  =  ( vol `  ( -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) ) )
11291128breq1d 4663 . . . . . . . . . . . . . . . 16  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  ( ( vol `  u )  <_  c  <->  ( vol `  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) )  <_  c )
)
11301127, 1129anbi12d 747 . . . . . . . . . . . . . . 15  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  ( ( u 
C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
c )  <->  ( ( -u if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) (,) 0
)  C_  ( -u pi [,] pi )  /\  ( vol `  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) )  <_  c )
) )
1131 itgeq1 23539 . . . . . . . . . . . . . . . . . 18  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  S. u ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  =  S. (
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )
11321131fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  =  ( abs `  S. ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s ) )
11331132breq1d 4663 . . . . . . . . . . . . . . . 16  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  ( ( abs `  S. u ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  ( abs `  S. ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )
11341133ralbidv 2986 . . . . . . . . . . . . . . 15  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  ( A. k  e.  NN  ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  A. k  e.  NN  ( abs `  S. ( -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
11351130, 1134imbi12d 334 . . . . . . . . . . . . . 14  |-  ( u  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 )  ->  ( ( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
c )  ->  A. k  e.  NN  ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  <-> 
( ( ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) 
C_  ( -u pi [,] pi )  /\  ( vol `  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) )  <_  c )  ->  A. k  e.  NN  ( abs `  S. (
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) ) )
11361135rspcva 3307 . . . . . . . . . . . . 13  |-  ( ( ( -u if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 )  e.  dom  vol 
/\  A. u  e.  dom  vol ( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  ->  A. k  e.  NN  ( abs `  S. u
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )  -> 
( ( ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) 
C_  ( -u pi [,] pi )  /\  ( vol `  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) )  <_  c )  ->  A. k  e.  NN  ( abs `  S. (
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
11371078, 1126, 1136sylc 65 . . . . . . . . . . . 12  |-  ( ( c  e.  RR+  /\  A. u  e.  dom  vol (
( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  ->  A. k  e.  NN  ( abs `  S. u
( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )  ->  A. k  e.  NN  ( abs `  S. (
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
113811373adant1 1079 . . . . . . . . . . 11  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  c  e.  RR+  /\  A. u  e.  dom  vol ( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
c )  ->  A. k  e.  NN  ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )  ->  A. k  e.  NN  ( abs `  S. ( -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
1139 oveq1 6657 . . . . . . . . . . . . . . . 16  |-  ( d  =  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  -> 
( d (,) 0
)  =  ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) )
11401139itgeq1d 40172 . . . . . . . . . . . . . . 15  |-  ( d  =  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  ->  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  =  S. ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )
11411140fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( d  =  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  -> 
( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  =  ( abs `  S. ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s ) )
11421141breq1d 4663 . . . . . . . . . . . . 13  |-  ( d  =  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  -> 
( ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  ( abs `  S. ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )
11431142ralbidv 2986 . . . . . . . . . . . 12  |-  ( d  =  -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  -> 
( A. k  e.  NN  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  A. k  e.  NN  ( abs `  S. ( -u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
11441143rspcev 3309 . . . . . . . . . . 11  |-  ( (
-u if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  e.  ( -u pi (,) 0 )  /\  A. k  e.  NN  ( abs `  S. ( -u if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) )  ->  E. d  e.  ( -u pi (,) 0 ) A. k  e.  NN  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
11451074, 1138, 1144syl2anc 693 . . . . . . . . . 10  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  c  e.  RR+  /\  A. u  e.  dom  vol ( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
c )  ->  A. k  e.  NN  ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )  ->  E. d  e.  ( -u pi (,) 0 ) A. k  e.  NN  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
11461145rexlimdv3a 3033 . . . . . . . . 9  |-  ( (
ph  /\  e  e.  RR+ )  ->  ( E. c  e.  RR+  A. u  e.  dom  vol ( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u )  <_ 
c )  ->  A. k  e.  NN  ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  E. d  e.  (
-u pi (,) 0
) A. k  e.  NN  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
11471028, 1146mpd 15 . . . . . . . 8  |-  ( (
ph  /\  e  e.  RR+ )  ->  E. d  e.  ( -u pi (,) 0 ) A. k  e.  NN  ( abs `  S. ( d (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
1148900, 1147r19.29a 3078 . . . . . . 7  |-  ( (
ph  /\  e  e.  RR+ )  ->  E. j  e.  NN  A. k  e.  ( ZZ>= `  j )
( abs `  S. ( -u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
11491148ralrimiva 2966 . . . . . 6  |-  ( ph  ->  A. e  e.  RR+  E. j  e.  NN  A. k  e.  ( ZZ>= `  j ) ( abs `  S. ( -u pi (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
1150 nnex 11026 . . . . . . . . 9  |-  NN  e.  _V
11511150mptex 6486 . . . . . . . 8  |-  ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( G `  s )  _d s )  e.  _V
11521151a1i 11 . . . . . . 7  |-  ( ph  ->  ( n  e.  NN  |->  S. ( -u pi (,) 0 ) ( G `
 s )  _d s )  e.  _V )
1153 eqidd 2623 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN )  ->  ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( G `  s )  _d s )  =  ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( G `  s )  _d s ) )
1154777adantl 482 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  s  e.  ( -u pi [,] pi ) )
1155779ad4ant14 1293 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  ( U `  s )  e.  RR )
1156777adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  (
-u pi (,) 0
) )  ->  s  e.  ( -u pi [,] pi ) )
1157 simpr 477 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN  /\  n  =  k )  ->  n  =  k )
1158 simpl 473 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN  /\  n  =  k )  ->  k  e.  NN )
11591157, 1158eqeltrd 2701 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN  /\  n  =  k )  ->  n  e.  NN )
11601159nnred 11035 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN  /\  n  =  k )  ->  n  e.  RR )
1161729a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN  /\  n  =  k )  ->  ( 1  /  2
)  e.  RR )
11621160, 1161readdcld 10069 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN  /\  n  =  k )  ->  ( n  +  ( 1  /  2 ) )  e.  RR )
11631162adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  (
-u pi (,) 0
) )  ->  (
n  +  ( 1  /  2 ) )  e.  RR )
1164214, 1156sseldi 3601 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  (
-u pi (,) 0
) )  ->  s  e.  RR )
11651163, 1164remulcld 10070 . . . . . . . . . . . . . . . 16  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  (
-u pi (,) 0
) )  ->  (
( n  +  ( 1  /  2 ) )  x.  s )  e.  RR )
11661165resincld 14873 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  (
-u pi (,) 0
) )  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  e.  RR )
11671156, 1166, 832syl2anc 693 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  (
-u pi (,) 0
) )  ->  ( S `  s )  =  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )
11681167adantlll 754 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  ( S `  s )  =  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )
11691160adantll 750 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  NN )  /\  n  =  k )  ->  n  e.  RR )
11701169adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  n  e.  RR )
1171 1red 10055 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  1  e.  RR )
11721171rehalfcld 11279 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  (
1  /  2 )  e.  RR )
11731170, 1172readdcld 10069 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  (
n  +  ( 1  /  2 ) )  e.  RR )
1174214, 1154sseldi 3601 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  s  e.  RR )
11751173, 1174remulcld 10070 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  (
( n  +  ( 1  /  2 ) )  x.  s )  e.  RR )
11761175resincld 14873 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  e.  RR )
11771168, 1176eqeltrd 2701 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  ( S `  s )  e.  RR )
11781155, 1177remulcld 10070 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  (
( U `  s
)  x.  ( S `
 s ) )  e.  RR )
1179829fvmpt2 6291 . . . . . . . . . . 11  |-  ( ( s  e.  ( -u pi [,] pi )  /\  ( ( U `  s )  x.  ( S `  s )
)  e.  RR )  ->  ( G `  s )  =  ( ( U `  s
)  x.  ( S `
 s ) ) )
11801154, 1178, 1179syl2anc 693 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  ( G `  s )  =  ( ( U `
 s )  x.  ( S `  s
) ) )
1181 oveq1 6657 . . . . . . . . . . . . . . 15  |-  ( n  =  k  ->  (
n  +  ( 1  /  2 ) )  =  ( k  +  ( 1  /  2
) ) )
11821181oveq1d 6665 . . . . . . . . . . . . . 14  |-  ( n  =  k  ->  (
( n  +  ( 1  /  2 ) )  x.  s )  =  ( ( k  +  ( 1  / 
2 ) )  x.  s ) )
11831182fveq2d 6195 . . . . . . . . . . . . 13  |-  ( n  =  k  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
11841183ad2antlr 763 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
11851168, 1184eqtrd 2656 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  ( S `  s )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
11861185oveq2d 6666 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  (
( U `  s
)  x.  ( S `
 s ) )  =  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )
11871180, 1186eqtrd 2656 . . . . . . . . 9  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( -u pi (,) 0
) )  ->  ( G `  s )  =  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )
11881187itgeq2dv 23548 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  NN )  /\  n  =  k )  ->  S. ( -u pi (,) 0 ) ( G `
 s )  _d s  =  S. (
-u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )
1189 simpr 477 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN )  ->  k  e.  NN )
1190810itgeq2dv 23548 . . . . . . . . . . 11  |-  ( n  =  k  ->  S. ( -u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  =  S. ( -u pi (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
11911190eleq1d 2686 . . . . . . . . . 10  |-  ( n  =  k  ->  ( S. ( -u pi (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC  <->  S. ( -u pi (,) 0 ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s  e.  CC ) )
1192805, 1191imbi12d 334 . . . . . . . . 9  |-  ( n  =  k  ->  (
( ( ph  /\  n  e.  NN )  ->  S. ( -u pi (,) 0 ) ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC )  <->  ( ( ph  /\  k  e.  NN )  ->  S. ( -u pi (,) 0 ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  e.  CC ) ) )
1193779adantlr 751 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( U `  s
)  e.  RR )
1194 simpr 477 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  n  e.  NN )
11951194, 777, 826syl2an 494 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  e.  RR )
11961193, 1195remulcld 10070 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( U `  s )  x.  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) ) )  e.  RR )
11971196, 858itgcl 23550 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  S. (
-u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC )
11981192, 1197chvarv 2263 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN )  ->  S. (
-u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC )
11991153, 1188, 1189, 1198fvmptd 6288 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( n  e.  NN  |->  S. ( -u pi (,) 0 ) ( G `
 s )  _d s ) `  k
)  =  S. (
-u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )
12009, 2, 1152, 1199, 1198clim0c 14238 . . . . . 6  |-  ( ph  ->  ( ( n  e.  NN  |->  S. ( -u pi (,) 0 ) ( G `  s )  _d s )  ~~>  0  <->  A. e  e.  RR+  E. j  e.  NN  A. k  e.  ( ZZ>= `  j )
( abs `  S. ( -u pi (,) 0
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e ) )
12011149, 1200mpbird 247 . . . . 5  |-  ( ph  ->  ( n  e.  NN  |->  S. ( -u pi (,) 0 ) ( G `
 s )  _d s )  ~~>  0 )
12021150mptex 6486 . . . . . . 7  |-  ( n  e.  NN  |->  ( S. ( -u pi (,) 0 ) ( G `
 s )  _d s  /  pi ) )  e.  _V
12036, 1202eqeltri 2697 . . . . . 6  |-  E  e. 
_V
12041203a1i 11 . . . . 5  |-  ( ph  ->  E  e.  _V )
12051150mptex 6486 . . . . . . 7  |-  ( n  e.  NN  |->  pi )  e.  _V
12061205a1i 11 . . . . . 6  |-  ( ph  ->  ( n  e.  NN  |->  pi )  e.  _V )
1207 picn 24211 . . . . . . 7  |-  pi  e.  CC
12081207a1i 11 . . . . . 6  |-  ( ph  ->  pi  e.  CC )
1209 eqidd 2623 . . . . . . . 8  |-  ( m  e.  NN  ->  (
n  e.  NN  |->  pi )  =  ( n  e.  NN  |->  pi ) )
1210 eqidd 2623 . . . . . . . 8  |-  ( ( m  e.  NN  /\  n  =  m )  ->  pi  =  pi )
1211 id 22 . . . . . . . 8  |-  ( m  e.  NN  ->  m  e.  NN )
121210a1i 11 . . . . . . . 8  |-  ( m  e.  NN  ->  pi  e.  RR )
12131209, 1210, 1211, 1212fvmptd 6288 . . . . . . 7  |-  ( m  e.  NN  ->  (
( n  e.  NN  |->  pi ) `  m )  =  pi )
12141213adantl 482 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( n  e.  NN  |->  pi ) `  m )  =  pi )
12159, 2, 1206, 1208, 1214climconst 14274 . . . . 5  |-  ( ph  ->  ( n  e.  NN  |->  pi )  ~~>  pi )
1216771, 56gtneii 10149 . . . . . 6  |-  pi  =/=  0
12171216a1i 11 . . . . 5  |-  ( ph  ->  pi  =/=  0 )
121816adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  X  e.  RR )
121928adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  Y  e.  RR )
122039adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  W  e.  RR )
1221838, 1218, 1219, 1220, 40, 41, 42, 843, 831, 829fourierdlem67 40390 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  G :
( -u pi [,] pi )
--> RR )
12221221adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  ->  G : ( -u pi [,] pi ) --> RR )
1223814sselda 3603 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
s  e.  ( -u pi [,] pi ) )
12241222, 1223ffvelrnd 6360 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( G `  s
)  e.  RR )
12251221ffvelrnda 6359 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( G `  s )  e.  RR )
12261221feqmptd 6249 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  G  =  ( s  e.  (
-u pi [,] pi )  |->  ( G `  s ) ) )
12271226, 856eqeltrrd 2702 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( G `
 s ) )  e.  L^1 )
1228814, 816, 1225, 1227iblss 23571 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi (,) 0 )  |->  ( G `
 s ) )  e.  L^1 )
12291224, 1228itgcl 23550 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  S. (
-u pi (,) 0
) ( G `  s )  _d s  e.  CC )
1230 eqid 2622 . . . . . . . 8  |-  ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( G `  s )  _d s )  =  ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( G `  s )  _d s )
12311230fvmpt2 6291 . . . . . . 7  |-  ( ( n  e.  NN  /\  S. ( -u pi (,) 0 ) ( G `
 s )  _d s  e.  CC )  ->  ( ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( G `  s )  _d s ) `  n )  =  S. ( -u pi (,) 0 ) ( G `  s )  _d s )
12321194, 1229, 1231syl2anc 693 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( n  e.  NN  |->  S. ( -u pi (,) 0 ) ( G `
 s )  _d s ) `  n
)  =  S. (
-u pi (,) 0
) ( G `  s )  _d s )
12331232, 1229eqeltrd 2701 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( n  e.  NN  |->  S. ( -u pi (,) 0 ) ( G `
 s )  _d s ) `  n
)  e.  CC )
1234 id 22 . . . . . . . 8  |-  ( n  e.  NN  ->  n  e.  NN )
1235 eqid 2622 . . . . . . . . 9  |-  ( n  e.  NN  |->  pi )  =  ( n  e.  NN  |->  pi )
12361235fvmpt2 6291 . . . . . . . 8  |-  ( ( n  e.  NN  /\  pi  e.  RR )  -> 
( ( n  e.  NN  |->  pi ) `  n )  =  pi )
12371234, 10, 1236sylancl 694 . . . . . . 7  |-  ( n  e.  NN  ->  (
( n  e.  NN  |->  pi ) `  n )  =  pi )
12381207a1i 11 . . . . . . . . 9  |-  ( n  e.  NN  ->  pi  e.  CC )
12391216a1i 11 . . . . . . . . 9  |-  ( n  e.  NN  ->  pi  =/=  0 )
12401238, 1239jca 554 . . . . . . . 8  |-  ( n  e.  NN  ->  (
pi  e.  CC  /\  pi  =/=  0 ) )
1241 eldifsn 4317 . . . . . . . 8  |-  ( pi  e.  ( CC  \  { 0 } )  <-> 
( pi  e.  CC  /\  pi  =/=  0 ) )
12421240, 1241sylibr 224 . . . . . . 7  |-  ( n  e.  NN  ->  pi  e.  ( CC  \  {
0 } ) )
12431237, 1242eqeltrd 2701 . . . . . 6  |-  ( n  e.  NN  ->  (
( n  e.  NN  |->  pi ) `  n )  e.  ( CC  \  { 0 } ) )
12441243adantl 482 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( n  e.  NN  |->  pi ) `  n )  e.  ( CC  \  { 0 } ) )
12451207a1i 11 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  pi  e.  CC )
12461216a1i 11 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  pi  =/=  0 )
12471229, 1245, 1246divcld 10801 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( S. ( -u pi (,) 0 ) ( G `
 s )  _d s  /  pi )  e.  CC )
12486fvmpt2 6291 . . . . . . 7  |-  ( ( n  e.  NN  /\  ( S. ( -u pi (,) 0 ) ( G `
 s )  _d s  /  pi )  e.  CC )  -> 
( E `  n
)  =  ( S. ( -u pi (,) 0 ) ( G `
 s )  _d s  /  pi ) )
12491194, 1247, 1248syl2anc 693 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( E `
 n )  =  ( S. ( -u pi (,) 0 ) ( G `  s )  _d s  /  pi ) )
12501232eqcomd 2628 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  S. (
-u pi (,) 0
) ( G `  s )  _d s  =  ( ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( G `  s )  _d s ) `  n ) )
12511237eqcomd 2628 . . . . . . . 8  |-  ( n  e.  NN  ->  pi  =  ( ( n  e.  NN  |->  pi ) `
 n ) )
12521251adantl 482 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  pi  =  ( ( n  e.  NN  |->  pi ) `  n ) )
12531250, 1252oveq12d 6668 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( S. ( -u pi (,) 0 ) ( G `
 s )  _d s  /  pi )  =  ( ( ( n  e.  NN  |->  S. ( -u pi (,) 0 ) ( G `
 s )  _d s ) `  n
)  /  ( ( n  e.  NN  |->  pi ) `  n ) ) )
12541249, 1253eqtrd 2656 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( E `
 n )  =  ( ( ( n  e.  NN  |->  S. (
-u pi (,) 0
) ( G `  s )  _d s ) `  n )  /  ( ( n  e.  NN  |->  pi ) `
 n ) ) )
12553, 4, 5, 8, 9, 2, 1201, 1204, 1215, 1217, 1233, 1244, 1254climdivf 39844 . . . 4  |-  ( ph  ->  E  ~~>  ( 0  /  pi ) )
12561207, 1216div0i 10759 . . . . 5  |-  ( 0  /  pi )  =  0
12571256a1i 11 . . . 4  |-  ( ph  ->  ( 0  /  pi )  =  0 )
12581255, 1257breqtrd 4679 . . 3  |-  ( ph  ->  E  ~~>  0 )
1259 fourierdlem103.z . . . . 5  |-  Z  =  ( m  e.  NN  |->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s )
12601150mptex 6486 . . . . 5  |-  ( m  e.  NN  |->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s )  e.  _V
12611259, 1260eqeltri 2697 . . . 4  |-  Z  e. 
_V
12621261a1i 11 . . 3  |-  ( ph  ->  Z  e.  _V )
12631150mptex 6486 . . . . 5  |-  ( m  e.  NN  |->  ( W  /  2 ) )  e.  _V
12641263a1i 11 . . . 4  |-  ( ph  ->  ( m  e.  NN  |->  ( W  /  2
) )  e.  _V )
1265 limccl 23639 . . . . . 6  |-  ( ( F  |`  ( -oo (,) X ) ) lim CC  X )  C_  CC
12661265, 38sseldi 3601 . . . . 5  |-  ( ph  ->  W  e.  CC )
12671266halfcld 11277 . . . 4  |-  ( ph  ->  ( W  /  2
)  e.  CC )
1268 eqidd 2623 . . . . 5  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( m  e.  NN  |->  ( W  / 
2 ) )  =  ( m  e.  NN  |->  ( W  /  2
) ) )
1269 eqidd 2623 . . . . 5  |-  ( ( ( ph  /\  n  e.  ( ZZ>= `  1 )
)  /\  m  =  n )  ->  ( W  /  2 )  =  ( W  /  2
) )
12709eqcomi 2631 . . . . . . . 8  |-  ( ZZ>= ` 
1 )  =  NN
12711270eleq2i 2693 . . . . . . 7  |-  ( n  e.  ( ZZ>= `  1
)  <->  n  e.  NN )
12721271biimpi 206 . . . . . 6  |-  ( n  e.  ( ZZ>= `  1
)  ->  n  e.  NN )
12731272adantl 482 . . . . 5  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  n  e.  NN )
12741267adantr 481 . . . . 5  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( W  /  2 )  e.  CC )
12751268, 1269, 1273, 1274fvmptd 6288 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( (
m  e.  NN  |->  ( W  /  2 ) ) `  n )  =  ( W  / 
2 ) )
12761, 2, 1264, 1267, 1275climconst 14274 . . 3  |-  ( ph  ->  ( m  e.  NN  |->  ( W  /  2
) )  ~~>  ( W  /  2 ) )
12771247, 6fmptd 6385 . . . . 5  |-  ( ph  ->  E : NN --> CC )
12781277adantr 481 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  E : NN
--> CC )
12791278, 1273ffvelrnd 6360 . . 3  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( E `  n )  e.  CC )
12801275, 1274eqeltrd 2701 . . 3  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( (
m  e.  NN  |->  ( W  /  2 ) ) `  n )  e.  CC )
12811275oveq2d 6666 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( ( E `  n )  +  ( ( m  e.  NN  |->  ( W  /  2 ) ) `
 n ) )  =  ( ( E `
 n )  +  ( W  /  2
) ) )
1282815a1i 11 . . . . . 6  |-  ( ph  ->  ( -u pi (,) 0 )  e.  dom  vol )
128352a1i 11 . . . . . . . . . . . . 13  |-  ( s  e.  ( -u pi (,) 0 )  ->  -u pi  e.  RR* )
1284 0red 10041 . . . . . . . . . . . . . 14  |-  ( s  e.  ( -u pi (,) 0 )  ->  0  e.  RR )
12851284rexrd 10089 . . . . . . . . . . . . 13  |-  ( s  e.  ( -u pi (,) 0 )  ->  0  e.  RR* )
1286 id 22 . . . . . . . . . . . . 13  |-  ( s  e.  ( -u pi (,) 0 )  ->  s  e.  ( -u pi (,) 0 ) )
1287 iooltub 39735 . . . . . . . . . . . . 13  |-  ( (
-u pi  e.  RR*  /\  0  e.  RR*  /\  s  e.  ( -u pi (,) 0 ) )  -> 
s  <  0 )
12881283, 1285, 1286, 1287syl3anc 1326 . . . . . . . . . . . 12  |-  ( s  e.  ( -u pi (,) 0 )  ->  s  <  0 )
1289787, 1288ltned 10173 . . . . . . . . . . 11  |-  ( s  e.  ( -u pi (,) 0 )  ->  s  =/=  0 )
12901289neneqd 2799 . . . . . . . . . 10  |-  ( s  e.  ( -u pi (,) 0 )  ->  -.  s  =  0 )
1291 velsn 4193 . . . . . . . . . 10  |-  ( s  e.  { 0 }  <-> 
s  =  0 )
12921290, 1291sylnibr 319 . . . . . . . . 9  |-  ( s  e.  ( -u pi (,) 0 )  ->  -.  s  e.  { 0 } )
1293777, 1292eldifd 3585 . . . . . . . 8  |-  ( s  e.  ( -u pi (,) 0 )  ->  s  e.  ( ( -u pi [,] pi )  \  {
0 } ) )
12941293ssriv 3607 . . . . . . 7  |-  ( -u pi (,) 0 )  C_  ( ( -u pi [,] pi )  \  {
0 } )
12951294a1i 11 . . . . . 6  |-  ( ph  ->  ( -u pi (,) 0 )  C_  (
( -u pi [,] pi )  \  { 0 } ) )
1296 fourierdlem103.d . . . . . 6  |-  D  =  ( n  e.  NN  |->  ( s  e.  RR  |->  if ( ( s  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  n )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
1297787adantl 482 . . . . . . . 8  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  s  e.  RR )
1298 0red 10041 . . . . . . . 8  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  0  e.  RR )
1299787, 1284, 1288ltled 10185 . . . . . . . . 9  |-  ( s  e.  ( -u pi (,) 0 )  ->  s  <_  0 )
13001299adantl 482 . . . . . . . 8  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  s  <_  0 )
13011297, 1298, 1300lensymd 10188 . . . . . . 7  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  -.  0  <  s )
13021301iffalsed 4097 . . . . . 6  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  if ( 0  <  s ,  Y ,  W )  =  W )
1303 eqid 2622 . . . . . . . 8  |-  ( D `
 n )  =  ( D `  n
)
130411a1i 11 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  -u pi  e.  RR )
1305 0red 10041 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  0  e.  RR )
130611, 771, 901ltleii 10160 . . . . . . . . 9  |-  -u pi  <_  0
13071306a1i 11 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  -u pi  <_  0 )
1308 eqid 2622 . . . . . . . 8  |-  ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  /  pi ) )  =  ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) )
13091296, 1194, 1303, 1304, 1305, 1307, 1308dirkeritg 40319 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  S. (
-u pi (,) 0
) ( ( D `
 n ) `  s )  _d s  =  ( ( ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  0 )  -  ( ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  /  pi ) ) `  -u pi ) ) )
1310 ubicc2 12289 . . . . . . . . . . 11  |-  ( (
-u pi  e.  RR*  /\  0  e.  RR*  /\  -u pi  <_  0 )  ->  0  e.  ( -u pi [,] 0 ) )
131152, 53, 1306, 1310mp3an 1424 . . . . . . . . . 10  |-  0  e.  ( -u pi [,] 0 )
1312 oveq1 6657 . . . . . . . . . . . . . . . 16  |-  ( s  =  0  ->  (
s  /  2 )  =  ( 0  / 
2 ) )
1313239, 244div0i 10759 . . . . . . . . . . . . . . . . 17  |-  ( 0  /  2 )  =  0
13141313a1i 11 . . . . . . . . . . . . . . . 16  |-  ( s  =  0  ->  (
0  /  2 )  =  0 )
13151312, 1314eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( s  =  0  ->  (
s  /  2 )  =  0 )
1316 oveq2 6658 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( s  =  0  ->  (
k  x.  s )  =  ( k  x.  0 ) )
1317 elfzelz 12342 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( k  e.  ( 1 ... n )  ->  k  e.  ZZ )
13181317zcnd 11483 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( k  e.  ( 1 ... n )  ->  k  e.  CC )
13191318mul01d 10235 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( 1 ... n )  ->  (
k  x.  0 )  =  0 )
13201316, 1319sylan9eq 2676 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( k  x.  s )  =  0 )
13211320fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( sin `  (
k  x.  s ) )  =  ( sin `  0 ) )
1322 sin0 14879 . . . . . . . . . . . . . . . . . . . . 21  |-  ( sin `  0 )  =  0
13231322a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( sin `  0
)  =  0 )
13241321, 1323eqtrd 2656 . . . . . . . . . . . . . . . . . . 19  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( sin `  (
k  x.  s ) )  =  0 )
13251324oveq1d 6665 . . . . . . . . . . . . . . . . . 18  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( ( sin `  ( k  x.  s
) )  /  k
)  =  ( 0  /  k ) )
1326 0red 10041 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( 1 ... n )  ->  0  e.  RR )
1327 1red 10055 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( 1 ... n )  ->  1  e.  RR )
13281317zred 11482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( 1 ... n )  ->  k  e.  RR )
132999a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( 1 ... n )  ->  0  <  1 )
1330 elfzle1 12344 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( 1 ... n )  ->  1  <_  k )
13311326, 1327, 1328, 1329, 1330ltletrd 10197 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( 1 ... n )  ->  0  <  k )
13321331gt0ne0d 10592 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  k  =/=  0 )
13331318, 1332div0d 10800 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 1 ... n )  ->  (
0  /  k )  =  0 )
13341333adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( 0  / 
k )  =  0 )
13351325, 1334eqtrd 2656 . . . . . . . . . . . . . . . . 17  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( ( sin `  ( k  x.  s
) )  /  k
)  =  0 )
13361335sumeq2dv 14433 . . . . . . . . . . . . . . . 16  |-  ( s  =  0  ->  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
)  =  sum_ k  e.  ( 1 ... n
) 0 )
1337 fzfi 12771 . . . . . . . . . . . . . . . . . . 19  |-  ( 1 ... n )  e. 
Fin
13381337olci 406 . . . . . . . . . . . . . . . . . 18  |-  ( ( 1 ... n ) 
C_  ( ZZ>= `  .||  )  \/  ( 1 ... n
)  e.  Fin )
1339 sumz 14453 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( 1 ... n
)  C_  ( ZZ>= `  .||  )  \/  ( 1 ... n )  e. 
Fin )  ->  sum_ k  e.  ( 1 ... n
) 0  =  0 )
13401338, 1339ax-mp 5 . . . . . . . . . . . . . . . . 17  |-  sum_ k  e.  ( 1 ... n
) 0  =  0
13411340a1i 11 . . . . . . . . . . . . . . . 16  |-  ( s  =  0  ->  sum_ k  e.  ( 1 ... n
) 0  =  0 )
13421336, 1341eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( s  =  0  ->  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
)  =  0 )
13431315, 1342oveq12d 6668 . . . . . . . . . . . . . 14  |-  ( s  =  0  ->  (
( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  =  ( 0  +  0 ) )
1344 00id 10211 . . . . . . . . . . . . . . 15  |-  ( 0  +  0 )  =  0
13451344a1i 11 . . . . . . . . . . . . . 14  |-  ( s  =  0  ->  (
0  +  0 )  =  0 )
13461343, 1345eqtrd 2656 . . . . . . . . . . . . 13  |-  ( s  =  0  ->  (
( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  =  0 )
13471346oveq1d 6665 . . . . . . . . . . . 12  |-  ( s  =  0  ->  (
( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi )  =  ( 0  /  pi ) )
13481256a1i 11 . . . . . . . . . . . 12  |-  ( s  =  0  ->  (
0  /  pi )  =  0 )
13491347, 1348eqtrd 2656 . . . . . . . . . . 11  |-  ( s  =  0  ->  (
( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi )  =  0 )
1350771elexi 3213 . . . . . . . . . . 11  |-  0  e.  _V
13511349, 1308, 1350fvmpt 6282 . . . . . . . . . 10  |-  ( 0  e.  ( -u pi [,] 0 )  ->  (
( s  e.  (
-u pi [,] 0
)  |->  ( ( ( s  /  2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  0 )  =  0 )
13521311, 1351ax-mp 5 . . . . . . . . 9  |-  ( ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  0 )  =  0
1353 lbicc2 12288 . . . . . . . . . . . 12  |-  ( (
-u pi  e.  RR*  /\  0  e.  RR*  /\  -u pi  <_  0 )  ->  -u pi  e.  ( -u pi [,] 0 ) )
135452, 53, 1306, 1353mp3an 1424 . . . . . . . . . . 11  |-  -u pi  e.  ( -u pi [,] 0 )
1355 oveq1 6657 . . . . . . . . . . . . . 14  |-  ( s  =  -u pi  ->  (
s  /  2 )  =  ( -u pi  /  2 ) )
1356 oveq2 6658 . . . . . . . . . . . . . . . . 17  |-  ( s  =  -u pi  ->  (
k  x.  s )  =  ( k  x.  -u pi ) )
13571356fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( s  =  -u pi  ->  ( sin `  ( k  x.  s ) )  =  ( sin `  (
k  x.  -u pi ) ) )
13581357oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( s  =  -u pi  ->  (
( sin `  (
k  x.  s ) )  /  k )  =  ( ( sin `  ( k  x.  -u pi ) )  /  k
) )
13591358sumeq2sdv 14435 . . . . . . . . . . . . . 14  |-  ( s  =  -u pi  ->  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
)  =  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  -u pi ) )  /  k
) )
13601355, 1359oveq12d 6668 . . . . . . . . . . . . 13  |-  ( s  =  -u pi  ->  (
( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  =  ( ( -u pi  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  -u pi ) )  /  k
) ) )
13611360oveq1d 6665 . . . . . . . . . . . 12  |-  ( s  =  -u pi  ->  (
( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi )  =  ( ( (
-u pi  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  -u pi ) )  /  k
) )  /  pi ) )
1362 ovex 6678 . . . . . . . . . . . 12  |-  ( ( ( -u pi  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  -u pi ) )  /  k
) )  /  pi )  e.  _V
13631361, 1308, 1362fvmpt 6282 . . . . . . . . . . 11  |-  ( -u pi  e.  ( -u pi [,] 0 )  ->  (
( s  e.  (
-u pi [,] 0
)  |->  ( ( ( s  /  2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  -u pi )  =  ( (
( -u pi  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  -u pi ) )  /  k
) )  /  pi ) )
13641354, 1363ax-mp 5 . . . . . . . . . 10  |-  ( ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  -u pi )  =  ( (
( -u pi  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  -u pi ) )  /  k
) )  /  pi )
1365 mulneg12 10468 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( k  e.  CC  /\  pi  e.  CC )  -> 
( -u k  x.  pi )  =  ( k  x.  -u pi ) )
13661318, 1207, 1365sylancl 694 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( 1 ... n )  ->  ( -u k  x.  pi )  =  ( k  x.  -u pi ) )
13671366eqcomd 2628 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  (
k  x.  -u pi )  =  ( -u k  x.  pi ) )
13681367oveq1d 6665 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 1 ... n )  ->  (
( k  x.  -u pi )  /  pi )  =  ( ( -u k  x.  pi )  /  pi ) )
13691318negcld 10379 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  -u k  e.  CC )
13701207a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  pi  e.  CC )
13711216a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  pi  =/=  0 )
13721369, 1370, 1371divcan4d 10807 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 1 ... n )  ->  (
( -u k  x.  pi )  /  pi )  = 
-u k )
13731368, 1372eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 1 ... n )  ->  (
( k  x.  -u pi )  /  pi )  = 
-u k )
13741317znegcld 11484 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 1 ... n )  ->  -u k  e.  ZZ )
13751373, 1374eqeltrd 2701 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( 1 ... n )  ->  (
( k  x.  -u pi )  /  pi )  e.  ZZ )
1376 negpicn 24214 . . . . . . . . . . . . . . . . . . . 20  |-  -u pi  e.  CC
13771376a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 1 ... n )  ->  -u pi  e.  CC )
13781318, 1377mulcld 10060 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 1 ... n )  ->  (
k  x.  -u pi )  e.  CC )
1379 sineq0 24273 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  x.  -u pi )  e.  CC  ->  ( ( sin `  (
k  x.  -u pi ) )  =  0  <-> 
( ( k  x.  -u pi )  /  pi )  e.  ZZ )
)
13801378, 1379syl 17 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( 1 ... n )  ->  (
( sin `  (
k  x.  -u pi ) )  =  0  <-> 
( ( k  x.  -u pi )  /  pi )  e.  ZZ )
)
13811375, 1380mpbird 247 . . . . . . . . . . . . . . . 16  |-  ( k  e.  ( 1 ... n )  ->  ( sin `  ( k  x.  -u pi ) )  =  0 )
13821381oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 1 ... n )  ->  (
( sin `  (
k  x.  -u pi ) )  /  k
)  =  ( 0  /  k ) )
13831382, 1333eqtrd 2656 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 1 ... n )  ->  (
( sin `  (
k  x.  -u pi ) )  /  k
)  =  0 )
13841383sumeq2i 14429 . . . . . . . . . . . . 13  |-  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  -u pi ) )  /  k
)  =  sum_ k  e.  ( 1 ... n
) 0
13851384, 1340eqtri 2644 . . . . . . . . . . . 12  |-  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  -u pi ) )  /  k
)  =  0
13861385oveq2i 6661 . . . . . . . . . . 11  |-  ( (
-u pi  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  -u pi ) )  /  k
) )  =  ( ( -u pi  / 
2 )  +  0 )
13871386oveq1i 6660 . . . . . . . . . 10  |-  ( ( ( -u pi  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  -u pi ) )  /  k
) )  /  pi )  =  ( (
( -u pi  /  2
)  +  0 )  /  pi )
13881376, 239, 244divcli 10767 . . . . . . . . . . . . . 14  |-  ( -u pi  /  2 )  e.  CC
13891388addid1i 10223 . . . . . . . . . . . . 13  |-  ( (
-u pi  /  2
)  +  0 )  =  ( -u pi  /  2 )
1390 divneg 10719 . . . . . . . . . . . . . 14  |-  ( ( pi  e.  CC  /\  2  e.  CC  /\  2  =/=  0 )  ->  -u (
pi  /  2 )  =  ( -u pi  /  2 ) )
13911207, 239, 244, 1390mp3an 1424 . . . . . . . . . . . . 13  |-  -u (
pi  /  2 )  =  ( -u pi  /  2 )
13921389, 1391eqtr4i 2647 . . . . . . . . . . . 12  |-  ( (
-u pi  /  2
)  +  0 )  =  -u ( pi  / 
2 )
13931392oveq1i 6660 . . . . . . . . . . 11  |-  ( ( ( -u pi  / 
2 )  +  0 )  /  pi )  =  ( -u (
pi  /  2 )  /  pi )
13941038recni 10052 . . . . . . . . . . . . 13  |-  ( pi 
/  2 )  e.  CC
1395 divneg 10719 . . . . . . . . . . . . 13  |-  ( ( ( pi  /  2
)  e.  CC  /\  pi  e.  CC  /\  pi  =/=  0 )  ->  -u (
( pi  /  2
)  /  pi )  =  ( -u (
pi  /  2 )  /  pi ) )
13961394, 1207, 1216, 1395mp3an 1424 . . . . . . . . . . . 12  |-  -u (
( pi  /  2
)  /  pi )  =  ( -u (
pi  /  2 )  /  pi )
13971396eqcomi 2631 . . . . . . . . . . 11  |-  ( -u ( pi  /  2
)  /  pi )  =  -u ( ( pi 
/  2 )  /  pi )
13981207, 239, 1207, 244, 1216divdiv32i 10780 . . . . . . . . . . . . 13  |-  ( ( pi  /  2 )  /  pi )  =  ( ( pi  /  pi )  /  2
)
13991207, 1216dividi 10758 . . . . . . . . . . . . . 14  |-  ( pi 
/  pi )  =  1
14001399oveq1i 6660 . . . . . . . . . . . . 13  |-  ( ( pi  /  pi )  /  2 )  =  ( 1  /  2
)
14011398, 1400eqtri 2644 . . . . . . . . . . . 12  |-  ( ( pi  /  2 )  /  pi )  =  ( 1  /  2
)
14021401negeqi 10274 . . . . . . . . . . 11  |-  -u (
( pi  /  2
)  /  pi )  =  -u ( 1  / 
2 )
14031393, 1397, 14023eqtri 2648 . . . . . . . . . 10  |-  ( ( ( -u pi  / 
2 )  +  0 )  /  pi )  =  -u ( 1  / 
2 )
14041364, 1387, 14033eqtri 2648 . . . . . . . . 9  |-  ( ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  -u pi )  =  -u ( 1  /  2 )
14051352, 1404oveq12i 6662 . . . . . . . 8  |-  ( ( ( s  e.  (
-u pi [,] 0
)  |->  ( ( ( s  /  2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  0 )  -  ( ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  /  pi ) ) `  -u pi ) )  =  ( 0  -  -u (
1  /  2 ) )
14061405a1i 11 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( ( s  e.  (
-u pi [,] 0
)  |->  ( ( ( s  /  2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  0 )  -  ( ( s  e.  ( -u pi [,] 0 )  |->  ( ( ( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  /  pi ) ) `  -u pi ) )  =  ( 0  -  -u (
1  /  2 ) ) )
1407 halfcn 11247 . . . . . . . . . 10  |-  ( 1  /  2 )  e.  CC
14081116, 1407subnegi 10360 . . . . . . . . 9  |-  ( 0  -  -u ( 1  / 
2 ) )  =  ( 0  +  ( 1  /  2 ) )
14091407addid2i 10224 . . . . . . . . 9  |-  ( 0  +  ( 1  / 
2 ) )  =  ( 1  /  2
)
14101408, 1409eqtri 2644 . . . . . . . 8  |-  ( 0  -  -u ( 1  / 
2 ) )  =  ( 1  /  2
)
14111410a1i 11 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( 0  -  -u ( 1  / 
2 ) )  =  ( 1  /  2
) )
14121309, 1406, 14113eqtrd 2660 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  S. (
-u pi (,) 0
) ( ( D `
 n ) `  s )  _d s  =  ( 1  / 
2 ) )
141315, 16, 264, 265, 267, 839, 269, 271, 273, 40, 41, 42, 831, 829, 850, 599, 852, 854, 27, 38, 1282, 1295, 6, 1296, 39, 1302, 1412fourierdlem95 40418 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( E `  n )  +  ( W  / 
2 ) )  =  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s )
14141273, 1413syldan 487 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( ( E `  n )  +  ( W  / 
2 ) )  =  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s )
14151259a1i 11 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  Z  =  ( m  e.  NN  |->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 m ) `  s ) )  _d s ) )
1416 fveq2 6191 . . . . . . . . . . . 12  |-  ( m  =  n  ->  ( D `  m )  =  ( D `  n ) )
14171416fveq1d 6193 . . . . . . . . . . 11  |-  ( m  =  n  ->  (
( D `  m
) `  s )  =  ( ( D `
 n ) `  s ) )
14181417oveq2d 6666 . . . . . . . . . 10  |-  ( m  =  n  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  m ) `
 s ) )  =  ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) ) )
14191418adantr 481 . . . . . . . . 9  |-  ( ( m  =  n  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  =  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )
14201419itgeq2dv 23548 . . . . . . . 8  |-  ( 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 )
14211420adantl 482 . . . . . . 7  |-  ( ( ( 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 )
142215adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  F : RR --> RR )
142316adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  X  e.  RR )
14241423, 1297readdcld 10069 . . . . . . . . . . 11  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  ( X  +  s )  e.  RR )
14251422, 1424ffvelrnd 6360 . . . . . . . . . 10  |-  ( (
ph  /\  s  e.  ( -u pi (,) 0
) )  ->  ( F `  ( X  +  s ) )  e.  RR )
14261425adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( F `  ( X  +  s )
)  e.  RR )
14271296dirkerf 40314 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  ( D `  n ) : RR --> RR )
14281427ad2antlr 763 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( D `  n
) : RR --> RR )
1429787adantl 482 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
s  e.  RR )
14301428, 1429ffvelrnd 6360 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( D `  n ) `  s
)  e.  RR )
14311426, 1430remulcld 10070 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi (,) 0 ) )  -> 
( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  e.  RR )
143215adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  F : RR --> RR )
143316adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  X  e.  RR )
1434214sseli 3599 . . . . . . . . . . . . . 14  |-  ( s  e.  ( -u pi [,] pi )  ->  s  e.  RR )
14351434adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  s  e.  RR )
14361433, 1435readdcld 10069 . . . . . . . . . . . 12  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  ( X  +  s )  e.  RR )
14371432, 1436ffvelrnd 6360 . . . . . . . . . . 11  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
14381437adantlr 751 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
14391427ad2antlr 763 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( D `  n ) : RR --> RR )
14401434adantl 482 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  s  e.  RR )
14411439, 1440ffvelrnd 6360 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( D `  n
) `  s )  e.  RR )
14421438, 1441remulcld 10070 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  e.  RR )
144310a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  pi  e.  RR )
14441296dirkercncf 40324 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  ( D `  n )  e.  ( RR -cn-> RR ) )
14451444adantl 482 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  ( D `
 n )  e.  ( RR -cn-> RR ) )
1446 eqid 2622 . . . . . . . . . 10  |-  ( s  e.  ( -u pi [,] pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  =  ( s  e.  ( -u pi [,] pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )
14471304, 1443, 838, 1218, 264, 844, 845, 846, 847, 848, 80, 849, 1445, 1446fourierdlem84 40407 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  e.  L^1 )
1448814, 816, 1442, 1447iblss 23571 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi (,) 0 )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  e.  L^1 )
14491431, 1448itgrecl 23564 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) )  _d s  e.  RR )
14501415, 1421, 1194, 1449fvmptd 6288 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( Z `
 n )  =  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s )
14511450eqcomd 2628 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  S. (
-u pi (,) 0
) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) )  _d s  =  ( Z `  n ) )
14521273, 1451syldan 487 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  S. ( -u pi (,) 0 ) ( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  _d s  =  ( Z `  n
) )
14531281, 1414, 14523eqtrrd 2661 . . 3  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( Z `  n )  =  ( ( E `  n
)  +  ( ( m  e.  NN  |->  ( W  /  2 ) ) `  n ) ) )
14541, 2, 1258, 1262, 1276, 1279, 1280, 1453climadd 14362 . 2  |-  ( ph  ->  Z  ~~>  ( 0  +  ( W  /  2
) ) )
14551267addid2d 10237 . 2  |-  ( ph  ->  ( 0  +  ( W  /  2 ) )  =  ( W  /  2 ) )
14561454, 1455breqtrd 4679 1  |-  ( ph  ->  Z  ~~>  ( W  / 
2 ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    /\ w3a 1037    = wceq 1483   T. wtru 1484    e. wcel 1990    =/= wne 2794   A.wral 2912   E.wrex 2913   {crab 2916   _Vcvv 3200   [_csb 3533    \ cdif 3571    u. cun 3572    i^i cin 3573    C_ wss 3574   (/)c0 3915   ifcif 4086   {csn 4177   {cpr 4179   class class class wbr 4653    |-> cmpt 4729   dom cdm 5114   ran crn 5115    |` cres 5116   iotacio 5849    Fn wfn 5883   -->wf 5884   ` cfv 5888    Isom wiso 5889   iota_crio 6610  (class class class)co 6650    ^m cmap 7857   Fincfn 7955   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   3c3 11071   NN0cn0 11292   ZZcz 11377   ZZ>=cuz 11687   RR+crp 11832   (,)cioo 12175   [,]cicc 12178   ...cfz 12326  ..^cfzo 12465    mod cmo 12668   #chash 13117   abscabs 13974    ~~> cli 14215   sum_csu 14416   sincsin 14794   picpi 14797   TopOpenctopn 16082   topGenctg 16098  ℂfldccnfld 19746   intcnt 20821   -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-limc 23630  df-dv 23631
This theorem is referenced by:  fourierdlem112  40435
  Copyright terms: Public domain W3C validator