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

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

Proof of Theorem fourierdlem104
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. ( 0 (,) pi ) ( G `  s )  _d s )
5 nfmpt1 4747 . . . . 5  |-  F/_ n
( n  e.  NN  |->  pi )
6 fourierdlem104.e . . . . . 6  |-  E  =  ( n  e.  NN  |->  ( S. ( 0 (,) pi ) ( G `
 s )  _d s  /  pi ) )
7 nfmpt1 4747 . . . . . 6  |-  F/_ n
( n  e.  NN  |->  ( S. ( 0 (,) pi ) ( G `
 s )  _d s  /  pi ) )
86, 7nfcxfr 2762 . . . . 5  |-  F/_ n E
9 nnuz 11723 . . . . 5  |-  NN  =  ( ZZ>= `  1 )
10 elioore 12205 . . . . . . . . . . . . . . . 16  |-  ( d  e.  ( 0 (,) pi )  ->  d  e.  RR )
1110adantl 482 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  d  e.  RR )
12 pire 24210 . . . . . . . . . . . . . . . 16  |-  pi  e.  RR
1312a1i 11 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  pi  e.  RR )
14 fourierdlem104.f . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  F : RR --> RR )
15 fourierdlem104.xre . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  X  e.  RR )
16 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( X (,) +oo )  C_  RR
1716a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( X (,) +oo )  C_  RR )
1814, 17fssresd 6071 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( F  |`  ( X (,) +oo ) ) : ( X (,) +oo ) --> RR )
19 ioosscn 39716 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( X (,) +oo )  C_  CC
2019a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( X (,) +oo )  C_  CC )
21 eqid 2622 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( TopOpen ` fld )  =  ( TopOpen ` fld )
22 pnfxr 10092 . . . . . . . . . . . . . . . . . . . . . . 23  |- +oo  e.  RR*
2322a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  -> +oo  e.  RR* )
2415ltpnfd 11955 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  X  < +oo )
2521, 23, 15, 24lptioo1cn 39878 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  X  e.  ( (
limPt `  ( TopOpen ` fld ) ) `  ( X (,) +oo ) ) )
26 fourierdlem104.y . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  Y  e.  ( ( F  |`  ( X (,) +oo ) ) lim CC  X ) )
2718, 20, 25, 26limcrecl 39861 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  Y  e.  RR )
28 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( -oo (,) X )  C_  RR
2928a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( -oo (,) X
)  C_  RR )
3014, 29fssresd 6071 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( F  |`  ( -oo (,) X ) ) : ( -oo (,) X ) --> RR )
31 ioosscn 39716 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( -oo (,) X )  C_  CC
3231a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( -oo (,) X
)  C_  CC )
33 mnfxr 10096 . . . . . . . . . . . . . . . . . . . . . . 23  |- -oo  e.  RR*
3433a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  -> -oo  e.  RR* )
3515mnfltd 11958 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  -> -oo  <  X )
3621, 34, 15, 35lptioo2cn 39877 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  X  e.  ( (
limPt `  ( TopOpen ` fld ) ) `  ( -oo (,) X ) ) )
37 fourierdlem104.w . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  W  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
3830, 32, 36, 37limcrecl 39861 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  W  e.  RR )
39 fourierdlem104.h . . . . . . . . . . . . . . . . . . . 20  |-  H  =  ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  / 
s ) ) )
40 fourierdlem104.k . . . . . . . . . . . . . . . . . . . 20  |-  K  =  ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  1 ,  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
41 fourierdlem104.u . . . . . . . . . . . . . . . . . . . 20  |-  U  =  ( s  e.  (
-u pi [,] pi )  |->  ( ( H `
 s )  x.  ( K `  s
) ) )
4214, 15, 27, 38, 39, 40, 41fourierdlem55 40378 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  U : ( -u pi [,] pi ) --> RR )
43 ax-resscn 9993 . . . . . . . . . . . . . . . . . . . 20  |-  RR  C_  CC
4443a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  RR  C_  CC )
4542, 44fssd 6057 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  U : ( -u pi [,] pi ) --> CC )
4645adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  U : ( -u pi [,] pi ) --> CC )
4712renegcli 10342 . . . . . . . . . . . . . . . . . . 19  |-  -u pi  e.  RR
4847a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  -u pi  e.  RR )
4947a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( d  e.  ( 0 (,) pi )  ->  -u pi  e.  RR )
50 0red 10041 . . . . . . . . . . . . . . . . . . . . 21  |-  ( d  e.  ( 0 (,) pi )  ->  0  e.  RR )
51 negpilt0 39492 . . . . . . . . . . . . . . . . . . . . . 22  |-  -u pi  <  0
5251a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( d  e.  ( 0 (,) pi )  ->  -u pi  <  0 )
53 0xr 10086 . . . . . . . . . . . . . . . . . . . . . 22  |-  0  e.  RR*
5412rexri 10097 . . . . . . . . . . . . . . . . . . . . . 22  |-  pi  e.  RR*
55 ioogtlb 39717 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( 0  e.  RR*  /\  pi  e.  RR*  /\  d  e.  ( 0 (,) pi ) )  ->  0  <  d )
5653, 54, 55mp3an12 1414 . . . . . . . . . . . . . . . . . . . . 21  |-  ( d  e.  ( 0 (,) pi )  ->  0  <  d )
5749, 50, 10, 52, 56lttrd 10198 . . . . . . . . . . . . . . . . . . . 20  |-  ( d  e.  ( 0 (,) pi )  ->  -u pi  <  d )
5849, 10, 57ltled 10185 . . . . . . . . . . . . . . . . . . 19  |-  ( d  e.  ( 0 (,) pi )  ->  -u pi  <_  d )
5958adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  -u pi  <_  d )
6013leidd 10594 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  pi  <_  pi )
61 iccss 12241 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( -u pi  e.  RR  /\  pi  e.  RR )  /\  ( -u pi  <_  d  /\  pi  <_  pi ) )  ->  (
d [,] pi ) 
C_  ( -u pi [,] pi ) )
6248, 13, 59, 60, 61syl22anc 1327 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
d [,] pi ) 
C_  ( -u pi [,] pi ) )
6346, 62fssresd 6071 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( U  |`  ( d [,] pi ) ) : ( d [,] pi )
--> CC )
64 fourierdlem104.o . . . . . . . . . . . . . . . . . 18  |-  O  =  ( U  |`  (
d [,] pi ) )
6564a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  O  =  ( U  |`  ( d [,] pi ) ) )
6665feq1d 6030 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( O : ( d [,] pi ) --> CC  <->  ( U  |`  ( d [,] pi ) ) : ( d [,] pi ) --> CC ) )
6763, 66mpbird 247 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  O : ( d [,] pi ) --> CC )
68 fourierdlem104.n . . . . . . . . . . . . . . . . . 18  |-  N  =  ( ( # `  T
)  -  1 )
6912elexi 3213 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  pi  e.  _V
7069prid2 4298 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  pi  e.  { d ,  pi }
71 elun1 3780 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( pi  e.  { d ,  pi }  ->  pi  e.  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) ) )
7270, 71ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . 23  |-  pi  e.  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) )
73 fourierdlem104.t . . . . . . . . . . . . . . . . . . . . . . 23  |-  T  =  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) )
7472, 73eleqtrri 2700 . . . . . . . . . . . . . . . . . . . . . 22  |-  pi  e.  T
7574ne0ii 3923 . . . . . . . . . . . . . . . . . . . . 21  |-  T  =/=  (/)
7675a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  T  =/=  (/) )
77 prfi 8235 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  { d ,  pi }  e.  Fin
7877a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  { d ,  pi }  e.  Fin )
79 fzfi 12771 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( 0 ... M )  e. 
Fin
80 fourierdlem104.q . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  Q  =  ( i  e.  ( 0 ... M ) 
|->  ( ( V `  i )  -  X
) )
8180rnmptfi 39351 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( 0 ... M )  e.  Fin  ->  ran  Q  e.  Fin )
8279, 81ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ran  Q  e.  Fin
83 infi 8184 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ran 
Q  e.  Fin  ->  ( ran  Q  i^i  (
d (,) pi ) )  e.  Fin )
8482, 83mp1i 13 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ran  Q  i^i  ( d (,) pi ) )  e.  Fin )
85 unfi 8227 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( { d ,  pi }  e.  Fin  /\  ( ran  Q  i^i  ( d (,) pi ) )  e.  Fin )  -> 
( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) )  e.  Fin )
8678, 84, 85syl2anc 693 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) )  e.  Fin )
8773, 86syl5eqel 2705 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  T  e.  Fin )
88 hashnncl 13157 . . . . . . . . . . . . . . . . . . . . 21  |-  ( T  e.  Fin  ->  (
( # `  T )  e.  NN  <->  T  =/=  (/) ) )
8987, 88syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( # `  T
)  e.  NN  <->  T  =/=  (/) ) )
9076, 89mpbird 247 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( # `  T
)  e.  NN )
91 nnm1nn0 11334 . . . . . . . . . . . . . . . . . . 19  |-  ( (
# `  T )  e.  NN  ->  ( ( # `
 T )  - 
1 )  e.  NN0 )
9290, 91syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( # `  T
)  -  1 )  e.  NN0 )
9368, 92syl5eqel 2705 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  N  e.  NN0 )
9493adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  N  e.  NN0 )
95 0red 10041 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  0  e.  RR )
96 1red 10055 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  1  e.  RR )
9794nn0red 11352 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  N  e.  RR )
98 0lt1 10550 . . . . . . . . . . . . . . . . . . 19  |-  0  <  1
9998a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  0  <  1 )
100 2re 11090 . . . . . . . . . . . . . . . . . . . . 21  |-  2  e.  RR
101100a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  2  e.  RR )
10290nnred 11035 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( # `  T
)  e.  RR )
103102adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( # `
 T )  e.  RR )
104 iooltub 39735 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( 0  e.  RR*  /\  pi  e.  RR*  /\  d  e.  ( 0 (,) pi ) )  ->  d  <  pi )
10553, 54, 104mp3an12 1414 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( d  e.  ( 0 (,) pi )  ->  d  <  pi )
10610, 105ltned 10173 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( d  e.  ( 0 (,) pi )  ->  d  =/=  pi )
107106adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  d  =/=  pi )
108 hashprg 13182 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( d  e.  RR  /\  pi  e.  RR )  -> 
( d  =/=  pi  <->  (
# `  { d ,  pi } )  =  2 ) )
10911, 12, 108sylancl 694 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
d  =/=  pi  <->  ( # `  {
d ,  pi }
)  =  2 ) )
110107, 109mpbid 222 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( # `
 { d ,  pi } )  =  2 )
111110eqcomd 2628 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  2  =  ( # `  {
d ,  pi }
) )
11287adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  T  e.  Fin )
113 ssun1 3776 . . . . . . . . . . . . . . . . . . . . . . 23  |-  { d ,  pi }  C_  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) )
114113, 73sseqtr4i 3638 . . . . . . . . . . . . . . . . . . . . . 22  |-  { d ,  pi }  C_  T
115 hashssle 39512 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( T  e.  Fin  /\  { d ,  pi }  C_  T )  ->  ( # `
 { d ,  pi } )  <_ 
( # `  T ) )
116112, 114, 115sylancl 694 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( # `
 { d ,  pi } )  <_ 
( # `  T ) )
117111, 116eqbrtrd 4675 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  2  <_  ( # `  T
) )
118101, 103, 96, 117lesub1dd 10643 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
2  -  1 )  <_  ( ( # `  T )  -  1 ) )
119 1e2m1 11136 . . . . . . . . . . . . . . . . . . 19  |-  1  =  ( 2  -  1 )
120118, 119, 683brtr4g 4687 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  1  <_  N )
12195, 96, 97, 99, 120ltletrd 10197 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  0  <  N )
122121gt0ne0d 10592 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  N  =/=  0 )
123 elnnne0 11306 . . . . . . . . . . . . . . . 16  |-  ( N  e.  NN  <->  ( N  e.  NN0  /\  N  =/=  0 ) )
12494, 122, 123sylanbrc 698 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  N  e.  NN )
125 fourierdlem104.j . . . . . . . . . . . . . . . . 17  |-  J  =  ( iota f f 
Isom  <  ,  <  (
( 0 ... N
) ,  T ) )
12611leidd 10594 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  d  <_  d )
12712a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( d  e.  ( 0 (,) pi )  ->  pi  e.  RR )
12810, 127, 105ltled 10185 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( d  e.  ( 0 (,) pi )  ->  d  <_  pi )
129128adantl 482 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  d  <_  pi )
13011, 13, 11, 126, 129eliccd 39726 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  d  e.  ( d [,] pi ) )
13111, 13, 13, 129, 60eliccd 39726 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  pi  e.  ( d [,] pi ) )
132130, 131jca 554 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
d  e.  ( d [,] pi )  /\  pi  e.  ( d [,] pi ) ) )
133 vex 3203 . . . . . . . . . . . . . . . . . . . . 21  |-  d  e. 
_V
134133, 69prss 4351 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( d  e.  ( d [,] pi )  /\  pi  e.  ( d [,] pi ) )  <->  { d ,  pi }  C_  (
d [,] pi ) )
135132, 134sylib 208 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  { d ,  pi }  C_  ( d [,] pi ) )
136 inss2 3834 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ran 
Q  i^i  ( d (,) pi ) )  C_  ( d (,) pi )
137136a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( ran  Q  i^i  ( d (,) pi ) ) 
C_  ( d (,) pi ) )
138 ioossicc 12259 . . . . . . . . . . . . . . . . . . . 20  |-  ( d (,) pi )  C_  ( d [,] pi )
139137, 138syl6ss 3615 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( ran  Q  i^i  ( d (,) pi ) ) 
C_  ( d [,] pi ) )
140135, 139unssd 3789 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) ) 
C_  ( d [,] pi ) )
14173, 140syl5eqss 3649 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  T  C_  ( d [,] pi ) )
142133prid1 4297 . . . . . . . . . . . . . . . . . . . 20  |-  d  e. 
{ d ,  pi }
143 elun1 3780 . . . . . . . . . . . . . . . . . . . 20  |-  ( d  e.  { d ,  pi }  ->  d  e.  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) ) )
144142, 143ax-mp 5 . . . . . . . . . . . . . . . . . . 19  |-  d  e.  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) )
145144, 73eleqtrri 2700 . . . . . . . . . . . . . . . . . 18  |-  d  e.  T
146145a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  d  e.  T )
14774a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  pi  e.  T )
148112, 68, 125, 11, 13, 141, 146, 147fourierdlem52 40375 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
( J : ( 0 ... N ) --> ( d [,] pi )  /\  ( J ` 
0 )  =  d )  /\  ( J `
 N )  =  pi ) )
149148simplld 791 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  J : ( 0 ... N ) --> ( d [,] pi ) )
150148simplrd 793 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( J `  0 )  =  d )
151148simprd 479 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( J `  N )  =  pi )
152 elfzoelz 12470 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 0..^ N )  ->  k  e.  ZZ )
153152zred 11482 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 0..^ N )  ->  k  e.  RR )
154153adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  k  e.  RR )
155154ltp1d 10954 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  k  <  ( k  +  1 ) )
15610, 127jca 554 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( d  e.  ( 0 (,) pi )  ->  (
d  e.  RR  /\  pi  e.  RR ) )
157133, 69prss 4351 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( d  e.  RR  /\  pi  e.  RR )  <->  { d ,  pi }  C_  RR )
158156, 157sylib 208 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( d  e.  ( 0 (,) pi )  ->  { d ,  pi }  C_  RR )
159158adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  { d ,  pi }  C_  RR )
160 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( d (,) pi )  C_  RR
161136, 160sstri 3612 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ran 
Q  i^i  ( d (,) pi ) )  C_  RR
162161a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( ran  Q  i^i  ( d (,) pi ) ) 
C_  RR )
163159, 162unssd 3789 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( { d ,  pi }  u.  ( ran  Q  i^i  ( d (,) pi ) ) ) 
C_  RR )
16473, 163syl5eqss 3649 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  T  C_  RR )
165112, 164, 125, 68fourierdlem36 40360 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  J  Isom  <  ,  <  (
( 0 ... N
) ,  T ) )
166165adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  J  Isom  <  ,  <  ( ( 0 ... N ) ,  T ) )
167 elfzofz 12485 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 0..^ N )  ->  k  e.  ( 0 ... N
) )
168167adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  k  e.  ( 0 ... N
) )
169 fzofzp1 12565 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 0..^ N )  ->  ( k  +  1 )  e.  ( 0 ... N
) )
170169adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( k  +  1 )  e.  ( 0 ... N
) )
171 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 ) ) ) )
172166, 168, 170, 171syl12anc 1324 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( k  <  ( k  +  1 )  <->  ( J `  k )  <  ( J `  ( k  +  1 ) ) ) )
173155, 172mpbid 222 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( J `  k )  <  ( J `  ( k  +  1 ) ) )
17442adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  U : ( -u pi [,] pi ) --> RR )
175174, 62feqresmpt 6250 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( U  |`  ( d [,] pi ) )  =  ( s  e.  ( d [,] pi ) 
|->  ( U `  s
) ) )
17662sselda 3603 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  s  e.  ( -u pi [,] pi ) )
17714, 15, 27, 38, 39fourierdlem9 40333 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  H : ( -u pi [,] pi ) --> RR )
178177ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  H : ( -u pi [,] pi ) --> RR )
179178, 176ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( H `  s )  e.  RR )
18040fourierdlem43 40367 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  K :
( -u pi [,] pi )
--> RR
181180a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  K : ( -u pi [,] pi ) --> RR )
182181, 176ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( K `  s )  e.  RR )
183179, 182remulcld 10070 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( H `  s
)  x.  ( K `
 s ) )  e.  RR )
18441fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( s  e.  ( -u pi [,] pi )  /\  ( ( H `  s )  x.  ( K `  s )
)  e.  RR )  ->  ( U `  s )  =  ( ( H `  s
)  x.  ( K `
 s ) ) )
185176, 183, 184syl2anc 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( U `  s )  =  ( ( H `
 s )  x.  ( K `  s
) ) )
186 0red 10041 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
0  e.  RR )
18710adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
d  e.  RR )
18812a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  pi  e.  RR )
189 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
s  e.  ( d [,] pi ) )
190 eliccre 39728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( d  e.  RR  /\  pi  e.  RR  /\  s  e.  ( d [,] pi ) )  ->  s  e.  RR )
191187, 188, 189, 190syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
s  e.  RR )
19256adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
0  <  d )
193187rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
d  e.  RR* )
19454a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  pi  e.  RR* )
195 iccgelb 12230 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( d  e.  RR*  /\  pi  e.  RR*  /\  s  e.  ( d [,] pi ) )  ->  d  <_  s )
196193, 194, 189, 195syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
d  <_  s )
197186, 187, 191, 192, 196ltletrd 10197 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
0  <  s )
198197gt0ne0d 10592 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
s  =/=  0 )
199198adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  s  =/=  0 )
200199neneqd 2799 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  -.  s  =  0 )
201200iffalsed 4097 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  =  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )
202197adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  0  <  s )
203202iftrued 4094 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  if ( 0  <  s ,  Y ,  W )  =  Y )
204203oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  =  ( ( F `  ( X  +  s ) )  -  Y ) )
205204oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s )  =  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s ) )
206201, 205eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  =  ( ( ( F `  ( X  +  s )
)  -  Y )  /  s ) )
20714ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  F : RR --> RR )
20815ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  X  e.  RR )
209 iccssre 12255 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
-u pi  e.  RR  /\  pi  e.  RR )  ->  ( -u pi [,] pi )  C_  RR )
21047, 12, 209mp2an 708 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( -u pi [,] pi )  C_  RR
211210, 176sseldi 3601 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  s  e.  RR )
212208, 211readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( X  +  s )  e.  RR )
213207, 212ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
21427ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  Y  e.  RR )
215213, 214resubcld 10458 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( F `  ( X  +  s )
)  -  Y )  e.  RR )
216215, 211, 199redivcld 10853 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( ( F `  ( X  +  s
) )  -  Y
)  /  s )  e.  RR )
217206, 216eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  e.  RR )
21839fvmpt2 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 ) ) )
219176, 217, 218syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( H `  s )  =  if ( s  =  0 ,  0 ,  ( ( ( F `
 ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )
220219, 201, 2053eqtrd 2660 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( H `  s )  =  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s ) )
221188renegcld 10457 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  -u pi  e.  RR )
22251a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  -u pi  <  0 )
223221, 186, 191, 222, 197lttrd 10198 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  -u pi  <  s )
224221, 191, 223ltled 10185 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  -u pi  <_  s )
225 iccleub 12229 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  RR*  /\  pi  e.  RR*  /\  s  e.  ( d [,] pi ) )  ->  s  <_  pi )
226193, 194, 189, 225syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
s  <_  pi )
227221, 188, 191, 224, 226eliccd 39726 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
s  e.  ( -u pi [,] pi ) )
228198neneqd 2799 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  -.  s  =  0
)
229228iffalsed 4097 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
230100a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
2  e.  RR )
231191rehalfcld 11279 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( s  /  2
)  e.  RR )
232231resincld 14873 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( sin `  (
s  /  2 ) )  e.  RR )
233230, 232remulcld 10070 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( 2  x.  ( sin `  ( s  / 
2 ) ) )  e.  RR )
234 2cnd 11093 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
2  e.  CC )
235191recnd 10068 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
s  e.  CC )
236235halfcld 11277 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( s  /  2
)  e.  CC )
237236sincld 14860 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( sin `  (
s  /  2 ) )  e.  CC )
238 2ne0 11113 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  2  =/=  0
239238a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
2  =/=  0 )
240 fourierdlem44 40368 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( s  e.  ( -u pi [,] pi )  /\  s  =/=  0 )  -> 
( sin `  (
s  /  2 ) )  =/=  0 )
241227, 198, 240syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( sin `  (
s  /  2 ) )  =/=  0 )
242234, 237, 239, 241mulne0d 10679 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( 2  x.  ( sin `  ( s  / 
2 ) ) )  =/=  0 )
243191, 233, 242redivcld 10853 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) )  e.  RR )
244229, 243eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  ->  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  e.  RR )
24540fvmpt2 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 ) ) ) ) ) )
246227, 244, 245syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( d  e.  ( 0 (,) pi )  /\  s  e.  ( d [,] pi ) )  -> 
( K `  s
)  =  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
247246adantll 750 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( K `  s )  =  if ( s  =  0 ,  1 ,  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )
248220, 247oveq12d 6668 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( H `  s
)  x.  ( K `
 s ) )  =  ( ( ( ( F `  ( X  +  s )
)  -  Y )  /  s )  x.  if ( s  =  0 ,  1 ,  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) )
249200iffalsed 4097 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
250249oveq2d 6666 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( ( ( F `
 ( X  +  s ) )  -  Y )  /  s
)  x.  if ( s  =  0 ,  1 ,  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  =  ( ( ( ( F `  ( X  +  s
) )  -  Y
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
251185, 248, 2503eqtrd 2660 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( U `  s )  =  ( ( ( ( F `  ( X  +  s )
)  -  Y )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )
252251mpteq2dva 4744 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
s  e.  ( d [,] pi )  |->  ( U `  s ) )  =  ( s  e.  ( d [,] pi )  |->  ( ( ( ( F `  ( X  +  s
) )  -  Y
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) )
25365, 175, 2523eqtrd 2660 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  O  =  ( s  e.  ( d [,] pi )  |->  ( ( ( ( F `  ( X  +  s )
)  -  Y )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) )
254253adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  O  =  ( s  e.  ( d [,] pi ) 
|->  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
255254reseq1d 5395 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( O  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  =  ( ( s  e.  ( d [,] pi ) 
|->  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) )
25614adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  F : RR --> RR )
25715adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  X  e.  RR )
258 fourierdlem104.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 ) ) ) } )
259 fourierdlem104.m . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  M  e.  NN )
260259adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  M  e.  NN )
261 fourierdlem104.v . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  V  e.  ( P `
 M ) )
262261adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  V  e.  ( P `  M
) )
263 fourierdlem104.fcn . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
264263adantlr 751 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
265 fourierdlem104.r . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 i ) ) )
266265adantlr 751 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  i )
) )
267 fourierdlem104.l . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  L  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 ( i  +  1 ) ) ) )
268267adantlr 751 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  i  e.  ( 0..^ M ) )  ->  L  e.  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  ( i  +  1 ) ) ) )
269105adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  d  <  pi )
27050, 10ltnled 10184 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( d  e.  ( 0 (,) pi )  ->  (
0  <  d  <->  -.  d  <_  0 ) )
27156, 270mpbid 222 . . . . . . . . . . . . . . . . . . . . 21  |-  ( d  e.  ( 0 (,) pi )  ->  -.  d  <_  0 )
272271intn3an2d 1443 . . . . . . . . . . . . . . . . . . . 20  |-  ( d  e.  ( 0 (,) pi )  ->  -.  ( 0  e.  RR  /\  d  <_  0  /\  0  <_  pi ) )
273 elicc2 12238 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( d  e.  RR  /\  pi  e.  RR )  -> 
( 0  e.  ( d [,] pi )  <-> 
( 0  e.  RR  /\  d  <_  0  /\  0  <_  pi ) ) )
27410, 12, 273sylancl 694 . . . . . . . . . . . . . . . . . . . 20  |-  ( d  e.  ( 0 (,) pi )  ->  (
0  e.  ( d [,] pi )  <->  ( 0  e.  RR  /\  d  <_  0  /\  0  <_  pi ) ) )
275272, 274mtbird 315 . . . . . . . . . . . . . . . . . . 19  |-  ( d  e.  ( 0 (,) pi )  ->  -.  0  e.  ( d [,] pi ) )
276275adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  -.  0  e.  ( d [,] pi ) )
27727adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  Y  e.  RR )
278 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  ( s  e.  ( d [,] pi )  |->  ( ( ( ( F `  ( X  +  s
) )  -  Y
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )  =  ( s  e.  ( d [,] pi ) 
|->  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
279 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 ) ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )
280 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 ) ) ) )  -  Y )  /  ( 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 ) ) ) )  -  Y )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) )
281 fveq2 6191 . . . . . . . . . . . . . . . . . . . . 21  |-  ( l  =  i  ->  ( Q `  l )  =  ( Q `  i ) )
282 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( l  =  i  ->  (
l  +  1 )  =  ( i  +  1 ) )
283282fveq2d 6195 . . . . . . . . . . . . . . . . . . . . 21  |-  ( l  =  i  ->  ( Q `  ( l  +  1 ) )  =  ( Q `  ( i  +  1 ) ) )
284281, 283oveq12d 6668 . . . . . . . . . . . . . . . . . . . 20  |-  ( l  =  i  ->  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) )  =  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )
285284sseq2d 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 ) ) ) ) )
286285cbvriotav 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 ) ) ) )
287256, 257, 258, 260, 262, 264, 266, 268, 11, 13, 269, 62, 276, 277, 278, 80, 73, 68, 125, 279, 280, 286fourierdlem86 40409 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )  e.  ( ( ( s  e.  ( d [,] pi ) 
|->  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
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 ) ) ) )  -  Y )  /  ( J `  k )
)  x.  ( ( J `  k )  /  ( 2  x.  ( sin `  (
( J `  k
)  /  2 ) ) ) ) )  e.  ( ( ( s  e.  ( d [,] pi )  |->  ( ( ( ( F `
 ( X  +  s ) )  -  Y )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) lim CC  ( J `  k ) ) )  /\  (
( s  e.  ( d [,] pi ) 
|->  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  e.  ( ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) ) -cn-> CC ) ) )
288287simprd 479 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( (
s  e.  ( d [,] pi )  |->  ( ( ( ( F `
 ( X  +  s ) )  -  Y )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  e.  ( ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) ) -cn-> CC ) )
289255, 288eqeltrd 2701 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( O  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  e.  ( ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) -cn-> CC ) )
290287simplld 791 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )  e.  ( ( ( s  e.  ( d [,] pi ) 
|->  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) lim CC  ( J `  ( k  +  1 ) ) ) )
291254eqcomd 2628 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( s  e.  ( d [,] pi )  |->  ( ( ( ( F `  ( X  +  s )
)  -  Y )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )  =  O )
292291reseq1d 5395 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( (
s  e.  ( d [,] pi )  |->  ( ( ( ( F `
 ( X  +  s ) )  -  Y )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  =  ( O  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) )
293292oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( (
( s  e.  ( d [,] pi ) 
|->  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
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 ) ) ) )
294290, 293eleqtrd 2703 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) ) )  -  Y )  /  ( 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 ) ) ) )
295287simplrd 793 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) )  -  Y )  /  ( J `  k )
)  x.  ( ( J `  k )  /  ( 2  x.  ( sin `  (
( J `  k
)  /  2 ) ) ) ) )  e.  ( ( ( s  e.  ( d [,] pi )  |->  ( ( ( ( F `
 ( X  +  s ) )  -  Y )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  |`  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) lim CC  ( J `  k ) ) )
296292oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( (
( s  e.  ( d [,] pi ) 
|->  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
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 ) ) )
297295, 296eleqtrd 2703 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) )  -  Y )  /  ( J `  k )
)  x.  ( ( J `  k )  /  ( 2  x.  ( sin `  (
( J `  k
)  /  2 ) ) ) ) )  e.  ( ( O  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) ) lim CC  ( J `  k )
) )
298 eqid 2622 . . . . . . . . . . . . . . 15  |-  ( RR 
_D  O )  =  ( RR  _D  O
)
29967adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  O :
( d [,] pi )
--> CC )
30011ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  d  e.  RR )
30112a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  pi  e.  RR )
302 elioore 12205 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( s  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  ->  s  e.  RR )
303302adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  s  e.  RR )
30462, 210syl6ss 3615 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
d [,] pi ) 
C_  RR )
305304adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( d [,] pi )  C_  RR )
306149adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  J :
( 0 ... N
) --> ( d [,] pi ) )
307306, 168ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( J `  k )  e.  ( d [,] pi ) )
308305, 307sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( J `  k )  e.  RR )
309308adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( J `  k )  e.  RR )
31011adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  d  e.  RR )
311310rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  d  e.  RR* )
31254a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  pi  e.  RR* )
313 iccgelb 12230 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  RR*  /\  pi  e.  RR*  /\  ( J `
 k )  e.  ( d [,] pi ) )  ->  d  <_  ( J `  k
) )
314311, 312, 307, 313syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  d  <_  ( J `  k ) )
315314adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  d  <_  ( J `  k ) )
316309rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( J `  k )  e.  RR* )
317306, 170ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( J `  ( k  +  1 ) )  e.  ( d [,] pi ) )
318305, 317sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( J `  ( k  +  1 ) )  e.  RR )
319318rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( J `  ( k  +  1 ) )  e.  RR* )
320319adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( J `  ( k  +  1 ) )  e.  RR* )
321 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )
322 ioogtlb 39717 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( J `  k
)  e.  RR*  /\  ( J `  ( k  +  1 ) )  e.  RR*  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  ( J `  k )  <  s )
323316, 320, 321, 322syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( J `  k )  <  s
)
324300, 309, 303, 315, 323lelttrd 10195 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  d  <  s )
325300, 303, 324ltled 10185 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  d  <_  s )
326318adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( J `  ( k  +  1 ) )  e.  RR )
327 iooltub 39735 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( J `  k
)  e.  RR*  /\  ( J `  ( k  +  1 ) )  e.  RR*  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  s  <  ( J `  (
k  +  1 ) ) )
328316, 320, 321, 327syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  s  <  ( J `  ( k  +  1 ) ) )
329 iccleub 12229 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( d  e.  RR*  /\  pi  e.  RR*  /\  ( J `
 ( k  +  1 ) )  e.  ( d [,] pi ) )  ->  ( J `  ( k  +  1 ) )  <_  pi )
330311, 312, 317, 329syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( J `  ( k  +  1 ) )  <_  pi )
331330adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( J `  ( k  +  1 ) )  <_  pi )
332303, 326, 301, 328, 331ltletrd 10197 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  s  <  pi )
333303, 301, 332ltled 10185 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  s  <_  pi )
334300, 301, 303, 325, 333eliccd 39726 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  s  e.  ( d [,] pi ) )
335334ralrimiva 2966 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  A. s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) s  e.  ( d [,] pi ) )
336 dfss3 3592 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( d [,] pi )  <->  A. s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) s  e.  ( d [,] pi ) )
337335, 336sylibr 224 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
d [,] pi ) )
338299, 337feqresmpt 6250 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( O  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  =  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( O `  s ) ) )
339 simplll 798 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ph )
340 simpllr 799 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  d  e.  ( 0 (,) pi ) )
34164fveq1i 6192 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( O `
 s )  =  ( ( U  |`  ( d [,] pi ) ) `  s
)
342341a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( O `  s )  =  ( ( U  |`  ( d [,] pi ) ) `  s
) )
343 fvres 6207 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( s  e.  ( d [,] pi )  ->  (
( U  |`  (
d [,] pi ) ) `  s )  =  ( U `  s ) )
344343adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( U  |`  (
d [,] pi ) ) `  s )  =  ( U `  s ) )
345247, 249eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( K `  s )  =  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
346220, 345oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( H `  s
)  x.  ( K `
 s ) )  =  ( ( ( ( F `  ( X  +  s )
)  -  Y )  /  s )  x.  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) )
347215recnd 10068 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( F `  ( X  +  s )
)  -  Y )  e.  CC )
348235adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  s  e.  CC )
349 2cnd 11093 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  2  e.  CC )
350348halfcld 11277 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
s  /  2 )  e.  CC )
351350sincld 14860 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( sin `  ( s  / 
2 ) )  e.  CC )
352349, 351mulcld 10060 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
2  x.  ( sin `  ( s  /  2
) ) )  e.  CC )
353242adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
2  x.  ( sin `  ( s  /  2
) ) )  =/=  0 )
354347, 348, 352, 199, 353dmdcan2d 10831 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  (
( ( ( F `
 ( X  +  s ) )  -  Y )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
355185, 346, 3543eqtrd 2660 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( U `  s )  =  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
356342, 344, 3553eqtrd 2660 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d [,] pi ) )  ->  ( O `  s )  =  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
357339, 340, 334, 356syl21anc 1325 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( O `  s )  =  ( ( ( F `  ( X  +  s
) )  -  Y
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )
358339, 340, 334, 354syl21anc 1325 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( (
( ( F `  ( X  +  s
) )  -  Y
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )  =  ( ( ( F `  ( X  +  s
) )  -  Y
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )
359358eqcomd 2628 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( (
( F `  ( X  +  s )
)  -  Y )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) )  =  ( ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s )  x.  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
360 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
) )  -  Y
)  /  t ) )  =  ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  Y )  /  t ) ) )
361 oveq2 6658 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( t  =  s  ->  ( X  +  t )  =  ( X  +  s ) )
362361fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( t  =  s  ->  ( F `  ( X  +  t ) )  =  ( F `  ( X  +  s
) ) )
363362oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( t  =  s  ->  (
( F `  ( X  +  t )
)  -  Y )  =  ( ( F `
 ( X  +  s ) )  -  Y ) )
364 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( t  =  s  ->  t  =  s )
365363, 364oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( t  =  s  ->  (
( ( F `  ( X  +  t
) )  -  Y
)  /  t )  =  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s ) )
366365adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) )  /\  t  =  s )  ->  ( ( ( F `
 ( X  +  t ) )  -  Y )  /  t
)  =  ( ( ( F `  ( X  +  s )
)  -  Y )  /  s ) )
367 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )
368 ovex 6678 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( F `  ( X  +  s )
)  -  Y )  /  s )  e. 
_V
369368a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( ( F `  ( X  +  s
) )  -  Y
)  /  s )  e.  _V )
370360, 366, 367, 369fvmptd 6288 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( F `
 ( X  +  t ) )  -  Y )  /  t
) ) `  s
)  =  ( ( ( F `  ( X  +  s )
)  -  Y )  /  s ) )
371 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 ) ) ) ) ) )
372 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( t  =  s  ->  (
t  /  2 )  =  ( s  / 
2 ) )
373372fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( t  =  s  ->  ( sin `  ( t  / 
2 ) )  =  ( sin `  (
s  /  2 ) ) )
374373oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( t  =  s  ->  (
2  x.  ( sin `  ( t  /  2
) ) )  =  ( 2  x.  ( sin `  ( s  / 
2 ) ) ) )
375364, 374oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( t  =  s  ->  (
t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) )  =  ( s  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) )
376375adantl 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 ) ) ) ) )
377 ovex 6678 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) )  e. 
_V
378377a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) )  e. 
_V )
379371, 376, 367, 378fvmptd 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 ) ) ) ) )
380370, 379oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t ) )  -  Y )  / 
t ) ) `  s )  x.  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) ) ) `  s ) )  =  ( ( ( ( F `  ( X  +  s
) )  -  Y
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
381380eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  ->  (
( ( ( F `
 ( X  +  s ) )  -  Y )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t
) )  -  Y
)  /  t ) ) `  s )  x.  ( ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) )
382381adantllr 755 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( (
( ( F `  ( X  +  s
) )  -  Y
)  /  s )  x.  ( s  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )  =  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t ) )  -  Y )  / 
t ) ) `  s )  x.  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) ) ) `  s ) ) )
383357, 359, 3823eqtrd 2660 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  ->  ( O `  s )  =  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t ) )  -  Y )  / 
t ) ) `  s )  x.  (
( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( t  /  (
2  x.  ( sin `  ( t  /  2
) ) ) ) ) `  s ) ) )
384383mpteq2dva 4744 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
)  -  Y )  /  t ) ) `
 s )  x.  ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  / 
( 2  x.  ( sin `  ( t  / 
2 ) ) ) ) ) `  s
) ) ) )
385338, 384eqtr2d 2657 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t
) )  -  Y
)  /  t ) ) `  s )  x.  ( ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) )  =  ( O  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) ) )
386385oveq2d 6666 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( RR  _D  ( s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  Y )  /  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 ) ) ) ) ) )
38743a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  RR  C_  CC )
388337, 305sstrd 3613 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) )  C_  RR )
38921tgioo2 22606 . . . . . . . . . . . . . . . . . . 19  |-  ( topGen ` 
ran  (,) )  =  ( ( TopOpen ` fld )t  RR )
39021, 389dvres 23675 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( RR  C_  CC  /\  O : ( d [,] pi ) --> CC )  /\  ( ( d [,] pi ) 
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 ) ) ) ) ) )
391387, 299, 305, 388, 390syl22anc 1327 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( RR  _D  ( O  |`  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) ) )  =  ( ( RR  _D  O
)  |`  ( ( int `  ( topGen `  ran  (,) )
) `  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) ) )
392 ioontr 39736 . . . . . . . . . . . . . . . . . . 19  |-  ( ( int `  ( topGen ` 
ran  (,) ) ) `  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  =  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) )
393392a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( int `  ( topGen `  ran  (,) ) ) `  (
( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) )  =  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )
394393reseq2d 5396 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( RR  _D  O )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) ) ) )  =  ( ( RR 
_D  O )  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) ) )
395386, 391, 3943eqtrrd 2661 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) )  -  Y )  /  t
) ) `  s
)  x.  ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) ) ) )
39614ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  F : RR
--> RR )
39715ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  X  e.  RR )
398259ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  M  e.  NN )
399261ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  V  e.  ( P `  M ) )
400 fourierdlem104.fdvcn . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> RR ) )
401400ad4ant14 1293 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> RR ) )
40262adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( d [,] pi )  C_  ( -u pi [,] pi ) )
403337, 402sstrd 3613 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) )  C_  ( -u pi [,] pi ) )
40453a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  0  e.  RR* )
405 0red 10041 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  0  e.  RR )
40656ad2antlr 763 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  0  <  d )
407405, 310, 308, 406, 314ltletrd 10197 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  0  <  ( J `  k ) )
408308, 319, 404, 407ltnelicc 39719 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  -.  0  e.  ( ( J `  k ) [,] ( J `  ( k  +  1 ) ) ) )
40927ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  Y  e.  RR )
41012a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  pi  e.  RR )
411269adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  d  <  pi )
412 simpr 477 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  k  e.  ( 0..^ N ) )
413 biid 251 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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.  ( 0 (,) pi ) )  /\  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 ) ) ) ) )
414397, 258, 398, 399, 310, 410, 411, 402, 80, 73, 68, 125, 412, 286, 413fourierdlem50 40373 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) ) )
415414simpld 475 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  e.  ( 0..^ M ) )
416414simprd 479 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) )
417365cbvmptv 4750 . . . . . . . . . . . . . . . . 17  |-  ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  Y )  /  t ) )  =  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
s ) )
418375cbvmptv 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 ) ) ) ) )
419 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( s  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( t  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( F `
 ( X  +  t ) )  -  Y )  /  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 ) )  -  Y )  /  t
) ) `  s
)  x.  ( ( t  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( t  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) ) `
 s ) ) )
420396, 397, 258, 398, 399, 401, 308, 318, 173, 403, 408, 409, 80, 415, 416, 417, 418, 419fourierdlem72 40395 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( RR  _D  ( s  e.  ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
|->  ( ( ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  Y )  /  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 ) )
421395, 420eqeltrd 2701 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( RR  _D  O )  |`  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) )  e.  ( ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) ) -cn-> CC ) )
422 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s )
)  -  Y )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) )  =  ( s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
423 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  =  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )
424 fourierdlem104.1 . . . . . . . . . . . . . . . . . . . 20  |-  C  =  ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )
425424, 415syl5eqel 2705 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  C  e.  ( 0..^ M ) )
426 simpll 790 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ph )
427426, 425jca 554 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ph  /\  C  e.  ( 0..^ M ) ) )
428 eleq1 2689 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( i  =  C  ->  (
i  e.  ( 0..^ M )  <->  C  e.  ( 0..^ M ) ) )
429428anbi2d 740 . . . . . . . . . . . . . . . . . . . . 21  |-  ( i  =  C  ->  (
( ph  /\  i  e.  ( 0..^ M ) )  <->  ( ph  /\  C  e.  ( 0..^ M ) ) ) )
430 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  =  C  ->  ( V `  i )  =  ( V `  C ) )
431 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( i  =  C  ->  (
i  +  1 )  =  ( C  + 
1 ) )
432431fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  =  C  ->  ( V `  ( i  +  1 ) )  =  ( V `  ( C  +  1
) ) )
433430, 432oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( i  =  C  ->  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) )  =  ( ( V `
 C ) (,) ( V `  ( C  +  1 ) ) ) )
434 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 )
)
435433, 434syl 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 )
)
436435rexbidv 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 )
)
437429, 436imbi12d 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 ) ) )
438 fourierdlem104.fbdioo . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ( abs `  ( F `
 t ) )  <_  w )
439437, 438vtoclg 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 ) )
440425, 427, 439sylc 65 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  E. w  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )
441 nfv 1843 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/ t ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )
442 nfra1 2941 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/ t A. t  e.  ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ( abs `  ( F `  t )
)  <_  w
443441, 442nfan 1828 . . . . . . . . . . . . . . . . . . . . 21  |-  F/ t ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  ( F `  t )
)  <_  w )
444 simplr 792 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
44547a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  -> 
-u pi  e.  RR )
446445, 15readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( -u pi  +  X )  e.  RR )
44712a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  ->  pi  e.  RR )
448447, 15readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( pi  +  X
)  e.  RR )
449446, 448iccssred 39727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  C_  RR )
450 ressxr 10083 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  RR  C_  RR*
451449, 450syl6ss 3615 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  C_  RR* )
452451ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( -u pi  +  X ) [,] ( pi  +  X ) )  C_  RR* )
453258, 398, 399fourierdlem15 40339 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  V :
( 0 ... M
) --> ( ( -u pi  +  X ) [,] ( pi  +  X
) ) )
454 elfzofz 12485 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( C  e.  ( 0..^ M )  ->  C  e.  ( 0 ... M
) )
455425, 454syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  C  e.  ( 0 ... M
) )
456453, 455ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( V `  C )  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) ) )
457452, 456sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( V `  C )  e.  RR* )
458457adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( V `  C )  e.  RR* )
459 fzofzp1 12565 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( C  e.  ( 0..^ M )  ->  ( C  +  1 )  e.  ( 0 ... M
) )
460425, 459syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( C  +  1 )  e.  ( 0 ... M
) )
461453, 460ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( V `  ( C  +  1 ) )  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) ) )
462452, 461sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( V `  ( C  +  1 ) )  e.  RR* )
463462adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( V `  ( C  +  1 ) )  e.  RR* )
464 elioore 12205 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  ->  t  e.  RR )
465464adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  e.  RR )
46647a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  -u pi  e.  RR )
467466, 410, 397, 258, 398, 399, 455, 80fourierdlem13 40337 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( Q `  C )  =  ( ( V `
 C )  -  X )  /\  ( V `  C )  =  ( X  +  ( Q `  C ) ) ) )
468467simprd 479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( V `  C )  =  ( X  +  ( Q `
 C ) ) )
469468adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( V `  C )  =  ( X  +  ( Q `
 C ) ) )
470449ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( -u pi  +  X ) [,] ( pi  +  X ) )  C_  RR )
471470, 456sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( V `  C )  e.  RR )
472471adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( V `  C )  e.  RR )
473469, 472eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( Q `  C ) )  e.  RR )
474397, 308readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( X  +  ( J `  k ) )  e.  RR )
475474adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( J `  k ) )  e.  RR )
476467simpld 475 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( Q `  C )  =  ( ( V `  C
)  -  X ) )
477471, 397resubcld 10458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( V `  C )  -  X )  e.  RR )
478476, 477eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( Q `  C )  e.  RR )
479466, 410, 397, 258, 398, 399, 460, 80fourierdlem13 40337 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( Q `  ( C  +  1 ) )  =  ( ( V `
 ( C  + 
1 ) )  -  X )  /\  ( V `  ( C  +  1 ) )  =  ( X  +  ( Q `  ( C  +  1 ) ) ) ) )
480479simpld 475 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( Q `  ( C  +  1 ) )  =  ( ( V `  ( C  +  1 ) )  -  X ) )
481470, 461sseldd 3604 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( V `  ( C  +  1 ) )  e.  RR )
482481, 397resubcld 10458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( V `  ( C  +  1 ) )  -  X )  e.  RR )
483480, 482eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( Q `  ( C  +  1 ) )  e.  RR )
484424eqcomi 2631 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  =  C
485484fveq2i 6194 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( Q `
 ( iota_ l  e.  ( 0..^ M ) ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  C_  ( ( Q `  l ) (,) ( Q `  (
l  +  1 ) ) ) ) )  =  ( Q `  C )
486484oveq1i 6660 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( (
iota_ l  e.  (
0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  +  1 )  =  ( C  +  1 )
487486fveq2i 6194 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( Q `
 ( ( iota_ l  e.  ( 0..^ M ) ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  l
) (,) ( Q `
 ( l  +  1 ) ) ) )  +  1 ) )  =  ( Q `
 ( C  + 
1 ) )
488485, 487oveq12i 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 ) ) )
489416, 488syl6sseq 3651 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( J `  k ) (,) ( J `  (
k  +  1 ) ) )  C_  (
( Q `  C
) (,) ( Q `
 ( C  + 
1 ) ) ) )
490478, 483, 308, 318, 173, 489fourierdlem10 40334 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( Q `  C )  <_  ( J `  k
)  /\  ( J `  ( k  +  1 ) )  <_  ( Q `  ( C  +  1 ) ) ) )
491490simpld 475 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( Q `  C )  <_  ( J `  k )
)
492478, 308, 397, 491leadd2dd 10642 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( X  +  ( Q `  C ) )  <_ 
( X  +  ( J `  k ) ) )
493492adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( Q `  C ) )  <_ 
( X  +  ( J `  k ) ) )
494475rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( J `  k ) )  e. 
RR* )
495397, 318readdcld 10069 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( X  +  ( J `  ( k  +  1 ) ) )  e.  RR )
496495rexrd 10089 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( X  +  ( J `  ( k  +  1 ) ) )  e. 
RR* )
497496adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( J `  ( k  +  1 ) ) )  e. 
RR* )
498 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )
499 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 )
500494, 497, 498, 499syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( J `  k ) )  < 
t )
501473, 475, 465, 493, 500lelttrd 10195 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( Q `  C ) )  < 
t )
502469, 501eqbrtrd 4675 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( V `  C )  <  t
)
503495adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( J `  ( k  +  1 ) ) )  e.  RR )
504479simprd 479 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( V `  ( C  +  1 ) )  =  ( X  +  ( Q `
 ( C  + 
1 ) ) ) )
505504, 481eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( X  +  ( Q `  ( C  +  1
) ) )  e.  RR )
506505adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( Q `  ( C  +  1
) ) )  e.  RR )
507 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 ) ) ) )
508494, 497, 498, 507syl3anc 1326 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  <  ( X  +  ( J `
 ( k  +  1 ) ) ) )
509490simprd 479 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( J `  ( k  +  1 ) )  <_  ( Q `  ( C  +  1 ) ) )
510318, 483, 397, 509leadd2dd 10642 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( X  +  ( J `  ( k  +  1 ) ) )  <_ 
( X  +  ( Q `  ( C  +  1 ) ) ) )
511510adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( J `  ( k  +  1 ) ) )  <_ 
( X  +  ( Q `  ( C  +  1 ) ) ) )
512465, 503, 506, 508, 511ltletrd 10197 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  <  ( X  +  ( Q `
 ( C  + 
1 ) ) ) )
513504eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( X  +  ( Q `  ( C  +  1
) ) )  =  ( V `  ( C  +  1 ) ) )
514513adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  ( X  +  ( Q `  ( C  +  1
) ) )  =  ( V `  ( C  +  1 ) ) )
515512, 514breqtrd 4679 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  <  ( V `  ( C  +  1 ) ) )
516458, 463, 465, 502, 515eliood 39720 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  ->  t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )
517516adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) )
518 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 )
519444, 517, 518syl2anc 693 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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
)
520519ex 450 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
)
521443, 520ralrimi 2957 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
522521ex 450 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
)
523522reximdv 3016 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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
) )
524440, 523mpd 15 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  E. w  e.  RR  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t )
)  <_  w )
525433raleqdv 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 )
)
526525rexbidv 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 )
)
527429, 526imbi12d 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 ) ) )
528 fourierdlem104.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 )
529527, 528vtoclg 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 ) )
530425, 427, 529sylc 65 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  E. z  e.  RR  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
531 nfra1 2941 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/ t A. t  e.  ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z
532441, 531nfan 1828 . . . . . . . . . . . . . . . . . . . . 21  |-  F/ t ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  A. t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ( abs `  (
( RR  _D  F
) `  t )
)  <_  z )
53314, 44fssd 6057 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  F : RR --> CC )
534 ssid 3624 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  RR  C_  RR
535534a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  RR  C_  RR )
536 ioossre 12235 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  C_  RR
537536a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ph  ->  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) 
C_  RR )
53821, 389dvres 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 ) ) ) ) ) ) )
53944, 533, 535, 537, 538syl22anc 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 ) ) ) ) ) ) )
540 ioontr 39736 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( int `  ( topGen ` 
ran  (,) ) ) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  =  ( ( X  +  ( J `
 k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )
541540reseq2i 5393 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( RR  _D  F )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR 
_D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )
542539, 541syl6eq 2672 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( RR  _D  ( F  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( RR 
_D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
543542fveq1d 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 ) )
544 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 ) )
545543, 544sylan9eq 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 ) )
546545ad4ant14 1293 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) )
547546fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
) )
548547adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
) )
549 simplr 792 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
550516adantlr 751 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) )
551 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 )
552549, 550, 551syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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
)
553548, 552eqbrtrd 4675 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
554553ex 450 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) )
555532, 554ralrimi 2957 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
556555ex 450 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) )
557556reximdv 3016 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) )
558530, 557mpd 15 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
559311, 312, 306, 412fourierdlem8 40332 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( J `  k ) [,] ( J `  (
k  +  1 ) ) )  C_  (
d [,] pi ) )
560124ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  r  e.  ( d [,] pi ) )  /\  -.  r  e.  ran  J )  ->  N  e.  NN )
561149, 304fssd 6057 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  J : ( 0 ... N ) --> RR )
562561ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  r  e.  ( d [,] pi ) )  /\  -.  r  e.  ran  J )  ->  J : ( 0 ... N ) --> RR )
563 simpr 477 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  r  e.  ( d [,] pi ) )  ->  r  e.  ( d [,] pi ) )
564150eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  d  =  ( J ` 
0 ) )
565151eqcomd 2628 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  pi  =  ( J `  N ) )
566564, 565oveq12d 6668 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
d [,] pi )  =  ( ( J `
 0 ) [,] ( J `  N
) ) )
567566adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  r  e.  ( d [,] pi ) )  ->  (
d [,] pi )  =  ( ( J `
 0 ) [,] ( J `  N
) ) )
568563, 567eleqtrd 2703 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  r  e.  ( d [,] pi ) )  ->  r  e.  ( ( J ` 
0 ) [,] ( J `  N )
) )
569568adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  r  e.  ( d [,] pi ) )  /\  -.  r  e.  ran  J )  -> 
r  e.  ( ( J `  0 ) [,] ( J `  N ) ) )
570 simpr 477 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  r  e.  ( d [,] pi ) )  /\  -.  r  e.  ran  J )  ->  -.  r  e.  ran  J )
571 fveq2 6191 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  =  k  ->  ( J `  j )  =  ( J `  k ) )
572571breq1d 4663 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  k  ->  (
( J `  j
)  <  r  <->  ( J `  k )  <  r
) )
573572cbvrabv 3199 . . . . . . . . . . . . . . . . . . 19  |-  { j  e.  ( 0..^ N )  |  ( J `
 j )  < 
r }  =  {
k  e.  ( 0..^ N )  |  ( J `  k )  <  r }
574573supeq1i 8353 . . . . . . . . . . . . . . . . . 18  |-  sup ( { j  e.  ( 0..^ N )  |  ( J `  j
)  <  r } ,  RR ,  <  )  =  sup ( { k  e.  ( 0..^ N )  |  ( J `
 k )  < 
r } ,  RR ,  <  )
575560, 562, 569, 570, 574fourierdlem25 40349 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  r  e.  ( d [,] pi ) )  /\  -.  r  e.  ran  J )  ->  E. m  e.  (
0..^ N ) r  e.  ( ( J `
 m ) (,) ( J `  (
m  +  1 ) ) ) )
576533ad2antrr 762 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  F : RR
--> CC )
577534a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  RR  C_  RR )
578536a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  C_  RR )
579387, 576, 577, 578, 538syl22anc 1327 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) ) ) ) )
580516ralrimiva 2966 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) t  e.  ( ( V `  C ) (,) ( V `  ( C  +  1
) ) ) )
581 dfss3 3592 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( 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
) ) ) )
582580, 581sylibr 224 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) )  C_  (
( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) )
583 resabs2 5429 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) 
C_  ( ( V `
 C ) (,) ( V `  ( C  +  1 ) ) )  ->  (
( ( RR  _D  F )  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )  =  ( ( RR  _D  F )  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
584582, 583syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( (
( RR  _D  F
)  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) )  =  ( ( RR  _D  F
)  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
585541, 579, 5843eqtr4a 2682 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( RR  _D  ( F  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )  =  ( ( ( RR  _D  F )  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ) )
586582resabs1d 5428 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) ) ) )
587586eqcomd 2628 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( RR  _D  F )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) )  =  ( ( ( RR  _D  F
)  |`  ( ( V `
 C ) (,) ( V `  ( C  +  1 ) ) ) )  |`  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) )
588585, 584, 5873eqtrrd 2661 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 ) ) ) ) ) ) )
589433reseq2d 5396 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  =  C  ->  (
( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) )  =  ( ( RR  _D  F )  |`  (
( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) ) )
590589, 433feq12d 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 ) )
591429, 590imbi12d 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 ) ) )
592 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 )
593400, 592syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> RR )
594591, 593vtoclg 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 ) )
595594anabsi7 860 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  C  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ) : ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) --> RR )
596427, 595syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( ( RR  _D  F )  |`  ( ( V `  C ) (,) ( V `  ( C  +  1 ) ) ) ) : ( ( V `  C
) (,) ( V `
 ( C  + 
1 ) ) ) --> RR )
597596, 582fssresd 6071 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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 )
598588, 597feq1dd 39347 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  ->  ( RR  _D  ( F  |`  (
( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ) ) : ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) --> RR )
599363, 374oveq12d 6668 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  (
( ( F `  ( X  +  t
) )  -  Y
)  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) )  =  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) )
600599cbvmptv 4750 . . . . . . . . . . . . . . . . 17  |-  ( t  e.  ( ( J `
 k ) (,) ( J `  (
k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  t )
)  -  Y )  /  ( 2  x.  ( sin `  (
t  /  2 ) ) ) ) )  =  ( s  e.  ( ( J `  k ) (,) ( J `  ( k  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) )
601 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( r  =  t  ->  ( F `  r )  =  ( F `  t ) )
602601fveq2d 6195 . . . . . . . . . . . . . . . . . . . . 21  |-  ( r  =  t  ->  ( abs `  ( F `  r ) )  =  ( abs `  ( F `  t )
) )
603602breq1d 4663 . . . . . . . . . . . . . . . . . . . 20  |-  ( r  =  t  ->  (
( abs `  ( F `  r )
)  <_  w  <->  ( abs `  ( F `  t
) )  <_  w
) )
604603cbvralv 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
)
605604anbi2i 730 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  d  e.  ( 0 (,) pi ) )  /\  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.  ( 0 (,) pi ) )  /\  k  e.  ( 0..^ N ) )  /\  w  e.  RR )  /\  z  e.  RR )  /\  A. t  e.  ( ( X  +  ( J `  k ) ) (,) ( X  +  ( J `  ( k  +  1 ) ) ) ) ( abs `  ( F `  t )
)  <_  w )
)
606 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 ) )
607606fveq2d 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
) ) )
608607breq1d 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 ) )
609608cbvralv 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 )
610605, 609anbi12i 733 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  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.  ( 0 (,) pi ) )  /\  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 ) )
611256, 257, 11, 13, 62, 276, 277, 422, 423, 524, 558, 149, 173, 559, 575, 598, 600, 610fourierdlem80 40403 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  E. b  e.  RR  A. s  e. 
dom  ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) ( abs `  ( ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) `  s
) )  <_  b
)
612354mpteq2dva 4744 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
s  e.  ( d [,] pi )  |->  ( ( ( ( F `
 ( X  +  s ) )  -  Y )  /  s
)  x.  ( s  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )  =  ( s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s )
)  -  Y )  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
613253, 612eqtrd 2656 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  O  =  ( s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) )
614613oveq2d 6666 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( RR  _D  O )  =  ( RR  _D  (
s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s
) )  -  Y
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) )
615614dmeqd 5326 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  dom  ( RR  _D  O
)  =  dom  ( RR  _D  ( s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) )
616 nfcv 2764 . . . . . . . . . . . . . . . . . . . 20  |-  F/_ s dom  ( RR  _D  O
)
617 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/_ s RR
618 nfcv 2764 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/_ s  _D
619 nfmpt1 4747 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/_ s
( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) )
620617, 618, 619nfov 6676 . . . . . . . . . . . . . . . . . . . . 21  |-  F/_ s
( RR  _D  (
s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s
) )  -  Y
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
621620nfdm 5367 . . . . . . . . . . . . . . . . . . . 20  |-  F/_ s dom  ( RR  _D  (
s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s
) )  -  Y
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) )
622616, 621raleqf 3134 . . . . . . . . . . . . . . . . . . 19  |-  ( dom  ( RR  _D  O
)  =  dom  ( RR  _D  ( s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 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.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) ( abs `  ( ( RR  _D  O ) `
 s ) )  <_  b ) )
623615, 622syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( A. s  e.  dom  ( RR  _D  O
) ( abs `  (
( RR  _D  O
) `  s )
)  <_  b  <->  A. s  e.  dom  ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) ( abs `  ( ( RR  _D  O ) `  s
) )  <_  b
) )
624614fveq1d 6193 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
( RR  _D  O
) `  s )  =  ( ( RR 
_D  ( s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s ) )  -  Y )  / 
( 2  x.  ( sin `  ( s  / 
2 ) ) ) ) ) ) `  s ) )
625624fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( abs `  ( ( RR 
_D  O ) `  s ) )  =  ( abs `  (
( RR  _D  (
s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s
) )  -  Y
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) `  s ) ) )
626625breq1d 4663 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
( abs `  (
( RR  _D  O
) `  s )
)  <_  b  <->  ( abs `  ( ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) `  s
) )  <_  b
) )
627626ralbidv 2986 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( A. s  e.  dom  ( RR  _D  (
s  e.  ( d [,] pi )  |->  ( ( ( F `  ( X  +  s
) )  -  Y
)  /  ( 2  x.  ( sin `  (
s  /  2 ) ) ) ) ) ) ( abs `  (
( RR  _D  O
) `  s )
)  <_  b  <->  A. s  e.  dom  ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) ( abs `  ( ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) `  s
) )  <_  b
) )
628623, 627bitrd 268 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( A. s  e.  dom  ( RR  _D  O
) ( abs `  (
( RR  _D  O
) `  s )
)  <_  b  <->  A. s  e.  dom  ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) ( abs `  ( ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) `  s
) )  <_  b
) )
629628rexbidv 3052 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  ( 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.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) ( abs `  ( ( RR  _D  ( s  e.  ( d [,] pi ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  Y )  /  (
2  x.  ( sin `  ( s  /  2
) ) ) ) ) ) `  s
) )  <_  b
) )
630611, 629mpbird 247 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  E. b  e.  RR  A. s  e. 
dom  ( RR  _D  O ) ( abs `  ( ( RR  _D  O ) `  s
) )  <_  b
)
631 eqid 2622 . . . . . . . . . . . . . . 15  |-  ( l  e.  RR+  |->  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s )  =  ( l  e.  RR+  |->  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )
632 eqeq1 2626 . . . . . . . . . . . . . . . . 17  |-  ( t  =  s  ->  (
t  =  ( J `
 k )  <->  s  =  ( J `  k ) ) )
633 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( h  =  l  ->  ( Q `  h )  =  ( Q `  l ) )
634 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( h  =  l  ->  (
h  +  1 )  =  ( l  +  1 ) )
635634fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( h  =  l  ->  ( Q `  ( h  +  1 ) )  =  ( Q `  ( l  +  1 ) ) )
636633, 635oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( h  =  l  ->  (
( Q `  h
) (,) ( Q `
 ( h  + 
1 ) ) )  =  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )
637636sseq2d 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 ) ) ) ) )
638637cbvriotav 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 ) ) ) )
639638fveq2i 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 ) ) ) ) )
640639eqeq2i 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 ) ) ) ) ) )
641640a1i 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 ) ) ) ) ) ) )
642 csbeq1 3536 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
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 )
643638, 642mp1i 13 . . . . . . . . . . . . . . . . . . . . . . 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 )
644641, 643ifbieq1d 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 ) ) ) ) )
645644trud 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 ) ) ) )
646645oveq1i 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 ) ) ) )  -  Y )  =  ( 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 ) ) ) )  -  Y )
647646oveq1i 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 ) ) ) )  -  Y )  /  ( 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 ) ) ) )  -  Y )  /  ( J `  k )
)
648647oveq1i 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 ) ) ) )  -  Y )  /  ( 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 ) ) ) )  -  Y )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) )
649648a1i 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 ) ) ) )  -  Y )  /  ( 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 ) ) ) )  -  Y )  /  ( J `  k ) )  x.  ( ( J `  k )  /  (
2  x.  ( sin `  ( ( J `  k )  /  2
) ) ) ) ) )
650 eqeq1 2626 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  (
t  =  ( J `
 ( k  +  1 ) )  <->  s  =  ( J `  ( k  +  1 ) ) ) )
651638oveq1i 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 )
652651fveq2i 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 ) )
653652eqeq2i 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 ) ) )
654653a1i 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 ) ) ) )
655 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 ]_ L  =  [_ ( iota_ l  e.  ( 0..^ M ) ( ( J `  k
) (,) ( J `
 ( k  +  1 ) ) ) 
C_  ( ( Q `
 l ) (,) ( Q `  (
l  +  1 ) ) ) )  / 
i ]_ L )
656638, 655mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . 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 )
657654, 656ifbieq1d 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 ) ) ) ) ) )
658657trud 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 ) ) ) ) )
659658oveq1i 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 ) ) ) ) )  -  Y )  =  ( 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 ) ) ) ) )  -  Y )
660659oveq1i 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 ) ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )
661660oveq1i 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 ) ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) )
662661a1i 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 ) ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) )
663 fveq2 6191 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  ( O `  t )  =  ( O `  s ) )
664650, 662, 663ifeq123d 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 ) ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  ( 2  x.  ( sin `  (
( J `  (
k  +  1 ) )  /  2 ) ) ) ) ) ,  ( O `  s ) ) )
665632, 649, 664ifeq123d 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 ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( 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 ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) ,  ( O `
 s ) ) ) )
666665cbvmptv 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 ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( 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 ) ) ) )  -  Y )  /  ( 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 ) ) ) ) )  -  Y )  /  ( J `  ( k  +  1 ) ) )  x.  ( ( J `  ( k  +  1 ) )  /  (
2  x.  ( sin `  ( ( J `  ( k  +  1 ) )  /  2
) ) ) ) ) ,  ( O `
 s ) ) ) )
66711, 13, 67, 124, 149, 150, 151, 173, 289, 294, 297, 298, 421, 630, 631, 666fourierdlem73 40396 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  A. e  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  e )
668 breq2 4657 . . . . . . . . . . . . . . . 16  |-  ( e  =  a  ->  (
( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  e  <->  ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a ) )
669668rexralbidv 3058 . . . . . . . . . . . . . . 15  |-  ( e  =  a  ->  ( E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s )  < 
e  <->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s )  < 
a ) )
670669cbvralv 3171 . . . . . . . . . . . . . 14  |-  ( A. e  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( 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. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a )
671667, 670sylib 208 . . . . . . . . . . . . 13  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  A. a  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a )
672671adantlr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  ->  A. a  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a )
673 rphalfcl 11858 . . . . . . . . . . . . 13  |-  ( e  e.  RR+  ->  ( e  /  2 )  e.  RR+ )
674673ad2antlr 763 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  ->  (
e  /  2 )  e.  RR+ )
675 breq2 4657 . . . . . . . . . . . . . 14  |-  ( a  =  ( e  / 
2 )  ->  (
( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  a  <->  ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
676675rexralbidv 3058 . . . . . . . . . . . . 13  |-  ( a  =  ( e  / 
2 )  ->  ( E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s )  < 
a  <->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )
677676rspccva 3308 . . . . . . . . . . . 12  |-  ( ( A. a  e.  RR+  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( 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. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s )  < 
( e  /  2
) )
678672, 674, 677syl2anc 693 . . . . . . . . . . 11  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
679138a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
d (,) pi ) 
C_  ( d [,] pi ) )
680679sselda 3603 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d (,) pi ) )  ->  s  e.  ( d [,] pi ) )
681680, 343syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d (,) pi ) )  ->  (
( U  |`  (
d [,] pi ) ) `  s )  =  ( U `  s ) )
682341, 681syl5req 2669 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d (,) pi ) )  ->  ( U `  s )  =  ( O `  s ) )
683682oveq1d 6665 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  s  e.  ( d (,) pi ) )  ->  (
( U `  s
)  x.  ( sin `  ( l  x.  s
) ) )  =  ( ( O `  s )  x.  ( sin `  ( l  x.  s ) ) ) )
684683itgeq2dv 23548 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s  =  S. ( d (,) pi ) ( ( O `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s )
685684adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  ( abs `  S. ( d (,) pi ) ( ( O `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  ->  S. (
d (,) pi ) ( ( U `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s  =  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )
686685fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  ( abs `  S. ( d (,) pi ) ( ( O `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  ->  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  =  ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s ) )
687 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  ( abs `  S. ( d (,) pi ) ( ( O `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  ->  ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
688686, 687eqbrtrd 4675 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  d  e.  ( 0 (,) pi ) )  /\  ( abs `  S. ( d (,) pi ) ( ( O `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  ->  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
689688ex 450 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  d  e.  ( 0 (,) pi ) )  ->  (
( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  -> 
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
690689adantlr 751 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  ->  (
( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  -> 
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
691690ralimdv 2963 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  ->  ( A. l  e.  (
j (,) +oo )
( abs `  S. ( d (,) pi ) ( ( O `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  ->  A. l  e.  (
j (,) +oo )
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
692691reximdv 3016 . . . . . . . . . . 11  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  ->  ( E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( O `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s )  < 
( e  /  2
)  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
693678, 692mpd 15 . . . . . . . . . 10  |-  ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
694693adantr 481 . . . . . . . . 9  |-  ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  ( l  x.  s ) ) )  _d s )  < 
( e  /  2
) )
695 nfv 1843 . . . . . . . . . . . . . . 15  |-  F/ k ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )
696 nfra1 2941 . . . . . . . . . . . . . . 15  |-  F/ k A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
)
697695, 696nfan 1828 . . . . . . . . . . . . . 14  |-  F/ k ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  (
0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
698 nfv 1843 . . . . . . . . . . . . . 14  |-  F/ k  j  e.  NN
699697, 698nfan 1828 . . . . . . . . . . . . 13  |-  F/ k ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )
700 nfv 1843 . . . . . . . . . . . . 13  |-  F/ k A. l  e.  ( j (,) +oo )
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )
701699, 700nfan 1828 . . . . . . . . . . . 12  |-  F/ k ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
702 simpll 790 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  (
0 (,) pi ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) ) )
703 eluznn 11758 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
k  e.  NN )
704703adantll 750 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  (
0 (,) pi ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  k  e.  NN )
705702, 704jca 554 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  (
0 (,) pi ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  ( (
( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  NN ) )
706705adantllr 755 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( 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.  ( 0 (,) pi ) )  /\  k  e.  NN ) )
707 simpllr 799 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( 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. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
708703adantll 750 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  k  e.  NN )
709 rspa 2930 . . . . . . . . . . . . . . . . . 18  |-  ( ( A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
)  /\  k  e.  NN )  ->  ( abs `  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
710707, 708, 709syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  k  e.  ( ZZ>= `  j )
)  ->  ( abs `  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
711706, 710jca 554 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( 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.  ( 0 (,) pi ) )  /\  k  e.  NN )  /\  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
712711adantlr 751 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  NN )  /\  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) ) )
713 nnre 11027 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  e.  NN  ->  j  e.  RR )
714713rexrd 10089 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  NN  ->  j  e.  RR* )
715714adantr 481 . . . . . . . . . . . . . . . . . . 19  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
j  e.  RR* )
71622a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> +oo  e.  RR* )
717 eluzelre 11698 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( ZZ>= `  j
)  ->  k  e.  RR )
718 halfre 11246 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( 1  /  2 )  e.  RR
719718a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( ZZ>= `  j
)  ->  ( 1  /  2 )  e.  RR )
720717, 719readdcld 10069 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( ZZ>= `  j
)  ->  ( k  +  ( 1  / 
2 ) )  e.  RR )
721720adantl 482 . . . . . . . . . . . . . . . . . . 19  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( k  +  ( 1  /  2 ) )  e.  RR )
722713adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
j  e.  RR )
723717adantl 482 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
k  e.  RR )
724 eluzle 11700 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( ZZ>= `  j
)  ->  j  <_  k )
725724adantl 482 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
j  <_  k )
726 halfgt0 11248 . . . . . . . . . . . . . . . . . . . . . 22  |-  0  <  ( 1  /  2
)
727726a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
0  <  ( 1  /  2 ) )
728718a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( 1  /  2
)  e.  RR )
729728, 723ltaddposd 10611 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( 0  <  (
1  /  2 )  <-> 
k  <  ( k  +  ( 1  / 
2 ) ) ) )
730727, 729mpbid 222 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
k  <  ( k  +  ( 1  / 
2 ) ) )
731722, 723, 721, 725, 730lelttrd 10195 . . . . . . . . . . . . . . . . . . 19  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
j  <  ( k  +  ( 1  / 
2 ) ) )
732721ltpnfd 11955 . . . . . . . . . . . . . . . . . . 19  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( k  +  ( 1  /  2 ) )  < +oo )
733715, 716, 721, 731, 732eliood 39720 . . . . . . . . . . . . . . . . . 18  |-  ( ( j  e.  NN  /\  k  e.  ( ZZ>= `  j ) )  -> 
( k  +  ( 1  /  2 ) )  e.  ( j (,) +oo ) )
734733adantlr 751 . . . . . . . . . . . . . . . . 17  |-  ( ( ( j  e.  NN  /\ 
A. l  e.  ( j (,) +oo )
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( k  +  ( 1  /  2
) )  e.  ( j (,) +oo )
)
735 simplr 792 . . . . . . . . . . . . . . . . 17  |-  ( ( ( j  e.  NN  /\ 
A. l  e.  ( j (,) +oo )
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  A. l  e.  ( j (,) +oo )
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
736 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  (
l  x.  s )  =  ( ( k  +  ( 1  / 
2 ) )  x.  s ) )
737736fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  ( sin `  ( l  x.  s ) )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
738737oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  (
( U `  s
)  x.  ( sin `  ( l  x.  s
) ) )  =  ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) ) )
739738adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( l  =  ( k  +  ( 1  / 
2 ) )  /\  s  e.  ( d (,) pi ) )  -> 
( ( U `  s )  x.  ( sin `  ( l  x.  s ) ) )  =  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )
740739itgeq2dv 23548 . . . . . . . . . . . . . . . . . . . 20  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s  =  S. ( d (,) pi ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
741740fveq2d 6195 . . . . . . . . . . . . . . . . . . 19  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  ( abs `  S. ( d (,) pi ) ( ( U `  s
)  x.  ( sin `  ( l  x.  s
) ) )  _d s )  =  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s ) )
742741breq1d 4663 . . . . . . . . . . . . . . . . . 18  |-  ( l  =  ( k  +  ( 1  /  2
) )  ->  (
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
743742rspcv 3305 . . . . . . . . . . . . . . . . 17  |-  ( ( k  +  ( 1  /  2 ) )  e.  ( j (,) +oo )  ->  ( A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  -> 
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
744734, 735, 743sylc 65 . . . . . . . . . . . . . . . 16  |-  ( ( ( j  e.  NN  /\ 
A. l  e.  ( j (,) +oo )
( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
745744adantlll 754 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
746 fourierdlem104.ch . . . . . . . . . . . . . . 15  |-  ( ch  <->  ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  NN )  /\  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
747712, 745, 746sylanbrc 698 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ch )
748 0red 10041 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  0  e.  RR )
74912a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  pi  e.  RR )
750 ioossicc 12259 . . . . . . . . . . . . . . . . . 18  |-  ( 0 (,) pi )  C_  ( 0 [,] pi )
751746biimpi 206 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  NN )  /\  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
752 simp-4r 807 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  NN )  /\  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  d  e.  ( 0 (,) pi ) )
753751, 752syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  d  e.  (
0 (,) pi ) )
754750, 753sseldi 3601 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  d  e.  (
0 [,] pi ) )
755 simp-5l 808 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  NN )  /\  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ph )
756751, 755syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  ph )
75742adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  U : ( -u pi [,] pi ) --> RR )
75847rexri 10097 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  -u pi  e.  RR*
759 0re 10040 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  0  e.  RR
76047, 759, 51ltleii 10160 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  -u pi  <_  0
761 iooss1 12210 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
-u pi  e.  RR*  /\  -u pi  <_  0 )  ->  ( 0 (,) pi )  C_  ( -u pi (,) pi ) )
762758, 760, 761mp2an 708 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( 0 (,) pi )  C_  ( -u pi (,) pi )
763 ioossicc 12259 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( -u pi (,) pi )  C_  ( -u pi [,] pi )
764762, 763sstri 3612 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( 0 (,) pi )  C_  ( -u pi [,] pi )
765764sseli 3599 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( s  e.  ( 0 (,) pi )  ->  s  e.  ( -u pi [,] pi ) )
766765adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  ( -u pi [,] pi ) )
767757, 766ffvelrnd 6360 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  ( U `  s )  e.  RR )
768756, 767sylan 488 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ch  /\  s  e.  ( 0 (,) pi ) )  ->  ( U `  s )  e.  RR )
769 simpllr 799 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  NN )  /\  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  k  e.  NN )
770751, 769syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ch 
->  k  e.  NN )
771770nnred 11035 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ch 
->  k  e.  RR )
772718a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ch 
->  ( 1  /  2
)  e.  RR )
773771, 772readdcld 10069 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ch 
->  ( k  +  ( 1  /  2 ) )  e.  RR )
774773adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ch  /\  s  e.  ( 0 (,) pi ) )  ->  (
k  +  ( 1  /  2 ) )  e.  RR )
775 elioore 12205 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( s  e.  ( 0 (,) pi )  ->  s  e.  RR )
776775adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ch  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  RR )
777774, 776remulcld 10070 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ch  /\  s  e.  ( 0 (,) pi ) )  ->  (
( k  +  ( 1  /  2 ) )  x.  s )  e.  RR )
778777resincld 14873 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ch  /\  s  e.  ( 0 (,) pi ) )  ->  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) )  e.  RR )
779768, 778remulcld 10070 . . . . . . . . . . . . . . . . . 18  |-  ( ( ch  /\  s  e.  ( 0 (,) pi ) )  ->  (
( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  e.  RR )
780779recnd 10068 . . . . . . . . . . . . . . . . 17  |-  ( ( ch  /\  s  e.  ( 0 (,) pi ) )  ->  (
( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  e.  CC )
78153a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  0  e.  RR* )
78254a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  pi  e.  RR* )
783748leidd 10594 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  0  <_  0 )
784 ioossre 12235 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 0 (,) pi )  C_  RR
785784, 753sseldi 3601 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  d  e.  RR )
786781, 782, 753, 104syl3anc 1326 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  d  <  pi )
787785, 749, 786ltled 10185 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  d  <_  pi )
788 ioossioo 12265 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( 0  e.  RR*  /\  pi  e.  RR* )  /\  ( 0  <_  0  /\  d  <_  pi ) )  ->  ( 0 (,) d )  C_  ( 0 (,) pi ) )
789781, 782, 783, 787, 788syl22anc 1327 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  ( 0 (,) d
)  C_  ( 0 (,) pi ) )
790 ioombl 23333 . . . . . . . . . . . . . . . . . . 19  |-  ( 0 (,) d )  e. 
dom  vol
791790a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  ( 0 (,) d
)  e.  dom  vol )
792 eleq1 2689 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  =  k  ->  (
n  e.  NN  <->  k  e.  NN ) )
793792anbi2d 740 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  =  k  ->  (
( ph  /\  n  e.  NN )  <->  ( ph  /\  k  e.  NN ) ) )
794 simpl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( n  =  k  /\  s  e.  ( 0 (,) pi ) )  ->  n  =  k )
795794oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( n  =  k  /\  s  e.  ( 0 (,) pi ) )  ->  ( n  +  ( 1  /  2
) )  =  ( k  +  ( 1  /  2 ) ) )
796795oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  =  k  /\  s  e.  ( 0 (,) pi ) )  ->  ( ( n  +  ( 1  / 
2 ) )  x.  s )  =  ( ( k  +  ( 1  /  2 ) )  x.  s ) )
797796fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  =  k  /\  s  e.  ( 0 (,) pi ) )  ->  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  =  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )
798797oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( n  =  k  /\  s  e.  ( 0 (,) pi ) )  ->  ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )  =  ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) ) )
799798mpteq2dva 4744 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  =  k  ->  (
s  e.  ( 0 (,) pi )  |->  ( ( U `  s
)  x.  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) ) )  =  ( s  e.  ( 0 (,) pi )  |->  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) ) )
800799eleq1d 2686 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  =  k  ->  (
( s  e.  ( 0 (,) pi ) 
|->  ( ( U `  s )  x.  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) ) ) )  e.  L^1  <-> 
( s  e.  ( 0 (,) pi ) 
|->  ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) ) )  e.  L^1 ) )
801793, 800imbi12d 334 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  =  k  ->  (
( ( ph  /\  n  e.  NN )  ->  ( s  e.  ( 0 (,) pi ) 
|->  ( ( U `  s )  x.  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) ) ) )  e.  L^1 )  <->  ( ( ph  /\  k  e.  NN )  ->  ( s  e.  ( 0 (,) pi )  |->  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 ) ) )
802764a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  n  e.  NN )  ->  ( 0 (,) pi )  C_  ( -u pi [,] pi ) )
803 ioombl 23333 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( 0 (,) pi )  e. 
dom  vol
804803a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  n  e.  NN )  ->  ( 0 (,) pi )  e. 
dom  vol )
80542ffvelrnda 6359 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  ( U `  s )  e.  RR )
806805adantlr 751 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( U `  s )  e.  RR )
807 nnre 11027 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( n  e.  NN  ->  n  e.  RR )
808 readdcl 10019 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( n  e.  RR  /\  ( 1  /  2
)  e.  RR )  ->  ( n  +  ( 1  /  2
) )  e.  RR )
809807, 718, 808sylancl 694 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( n  e.  NN  ->  (
n  +  ( 1  /  2 ) )  e.  RR )
810809adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( n  +  ( 1  /  2 ) )  e.  RR )
811 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
s  e.  ( -u pi [,] pi ) )
812210, 811sseldi 3601 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
s  e.  RR )
813810, 812remulcld 10070 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( ( n  +  ( 1  /  2
) )  x.  s
)  e.  RR )
814813resincld 14873 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) )  e.  RR )
815814adantll 750 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  e.  RR )
816806, 815remulcld 10070 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( U `  s
)  x.  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) )  e.  RR )
817 fourierdlem104.g . . . . . . . . . . . . . . . . . . . . . . 23  |-  G  =  ( s  e.  (
-u pi [,] pi )  |->  ( ( U `
 s )  x.  ( S `  s
) ) )
818 fourierdlem104.s . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  S  =  ( s  e.  (
-u pi [,] pi )  |->  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )
819818fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( s  e.  ( -u pi [,] pi )  /\  ( sin `  ( ( n  +  ( 1  /  2 ) )  x.  s ) )  e.  RR )  -> 
( S `  s
)  =  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) )
820811, 814, 819syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( n  e.  NN  /\  s  e.  ( -u pi [,] pi ) )  -> 
( S `  s
)  =  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) )
821820adantll 750 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( S `  s )  =  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )
822821oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( U `  s
)  x.  ( S `
 s ) )  =  ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )
823822mpteq2dva 4744 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
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 ) ) ) ) )
824817, 823syl5req 2669 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )  =  G )
82514adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  F : RR
--> RR )
826 fourierdlem104.x . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  X  e.  ran  V
)
827826adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  X  e. 
ran  V )
82826adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  Y  e.  ( ( F  |`  ( X (,) +oo )
) lim CC  X )
)
82937adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  W  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
830807adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  n  e.  RR )
831259adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  M  e.  NN )
832261adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  V  e.  ( P `  M
) )
833263adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )  e.  ( ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) -cn-> CC ) )
834265adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  i )
) )
835267adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ M ) )  ->  L  e.  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  ( i  +  1 ) ) ) )
836 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( 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 ) ) ) } )
837 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( RR 
_D  F )  =  ( RR  _D  F
)
838593adantlr 751 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  n  e.  NN )  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR  _D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> RR )
839 fourierdlem104.a . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  A  e.  ( ( ( RR  _D  F
)  |`  ( -oo (,) X ) ) lim CC  X ) )
840839adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  A  e.  ( ( ( RR 
_D  F )  |`  ( -oo (,) X ) ) lim CC  X ) )
841 fourierdlem104.b . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ph  ->  B  e.  ( ( ( RR  _D  F
)  |`  ( X (,) +oo ) ) lim CC  X
) )
842841adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  n  e.  NN )  ->  B  e.  ( ( ( RR 
_D  F )  |`  ( X (,) +oo )
) lim CC  X )
)
843258, 825, 827, 828, 829, 39, 40, 41, 830, 818, 817, 831, 832, 833, 834, 835, 80, 836, 837, 838, 840, 842fourierdlem88 40411 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  n  e.  NN )  ->  G  e.  L^1 )
844824, 843eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )
845802, 804, 816, 844iblss 23571 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( 0 (,) pi )  |->  ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )
846801, 845chvarv 2263 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  NN )  ->  ( s  e.  ( 0 (,) pi )  |->  ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )  e.  L^1 )
847756, 770, 846syl2anc 693 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  ( s  e.  ( 0 (,) pi ) 
|->  ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) ) )  e.  L^1 )
848789, 791, 779, 847iblss 23571 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( s  e.  ( 0 (,) d ) 
|->  ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) ) )  e.  L^1 )
849781, 782, 753, 55syl3anc 1326 . . . . . . . . . . . . . . . . . . . 20  |-  ( ch 
->  0  <  d )
850748, 785, 849ltled 10185 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  0  <_  d )
851749leidd 10594 . . . . . . . . . . . . . . . . . . 19  |-  ( ch 
->  pi  <_  pi )
852 ioossioo 12265 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( 0  e.  RR*  /\  pi  e.  RR* )  /\  ( 0  <_  d  /\  pi  <_  pi )
)  ->  ( d (,) pi )  C_  (
0 (,) pi ) )
853781, 782, 850, 851, 852syl22anc 1327 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  ( d (,) pi )  C_  ( 0 (,) pi ) )
854 ioombl 23333 . . . . . . . . . . . . . . . . . . 19  |-  ( d (,) pi )  e. 
dom  vol
855854a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  ( d (,) pi )  e.  dom  vol )
856853, 855, 779, 847iblss 23571 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( s  e.  ( d (,) pi ) 
|->  ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) ) )  e.  L^1 )
857748, 749, 754, 780, 848, 856itgsplitioo 23604 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  =  ( S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s  +  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) )
858857fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( ch 
->  ( abs `  S. ( 0 (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  =  ( abs `  ( S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  +  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s ) ) )
859789sselda 3603 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ch  /\  s  e.  ( 0 (,) d
) )  ->  s  e.  ( 0 (,) pi ) )
860859, 779syldan 487 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ch  /\  s  e.  ( 0 (,) d
) )  ->  (
( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  e.  RR )
861860, 848itgcl 23550 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC )
862853sselda 3603 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ch  /\  s  e.  ( d (,) pi ) )  ->  s  e.  ( 0 (,) pi ) )
863862, 779syldan 487 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ch  /\  s  e.  ( d (,) pi ) )  ->  (
( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  e.  RR )
864863, 856itgcl 23550 . . . . . . . . . . . . . . . . . 18  |-  ( ch 
->  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC )
865861, 864addcld 10059 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  +  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  e.  CC )
866865abscld 14175 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  ( abs `  ( S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  +  S. ( d (,) pi ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )  e.  RR )
867861abscld 14175 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  e.  RR )
868864abscld 14175 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  e.  RR )
869867, 868readdcld 10069 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  ( ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  +  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) )  e.  RR )
870 simp-5r 809 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  k  e.  NN )  /\  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  e  e.  RR+ )
871751, 870syl 17 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  e  e.  RR+ )
872871rpred 11872 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  e  e.  RR )
873861, 864abstrid 14195 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  ( abs `  ( S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  +  S. ( d (,) pi ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )  <_ 
( ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  +  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) ) )
874751simplrd 793 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
875751simprd 479 . . . . . . . . . . . . . . . . 17  |-  ( ch 
->  ( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
876867, 868, 872, 874, 875lt2halvesd 11280 . . . . . . . . . . . . . . . 16  |-  ( ch 
->  ( ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  +  ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s ) )  <  e
)
877866, 869, 872, 873, 876lelttrd 10195 . . . . . . . . . . . . . . 15  |-  ( ch 
->  ( abs `  ( S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  +  S. ( d (,) pi ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )  < 
e )
878858, 877eqbrtrd 4675 . . . . . . . . . . . . . 14  |-  ( ch 
->  ( abs `  S. ( 0 (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
879747, 878syl 17 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  k  e.  (
ZZ>= `  j ) )  ->  ( abs `  S. ( 0 (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
880879ex 450 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ( k  e.  ( ZZ>= `  j )  ->  ( abs `  S. ( 0 (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e ) )
881701, 880ralrimi 2957 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) )  /\  j  e.  NN )  /\  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `  s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  A. k  e.  (
ZZ>= `  j ) ( abs `  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
e )
882881ex 450 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  (
0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  /\  j  e.  NN )  ->  ( A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  ->  A. k  e.  ( ZZ>=
`  j ) ( abs `  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
e ) )
883882reximdva 3017 . . . . . . . . 9  |-  ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  ( E. j  e.  NN  A. l  e.  ( j (,) +oo ) ( abs `  S. ( d (,) pi ) ( ( U `
 s )  x.  ( sin `  (
l  x.  s ) ) )  _d s )  <  ( e  /  2 )  ->  E. j  e.  NN  A. k  e.  ( ZZ>= `  j ) ( abs `  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e ) )
884694, 883mpd 15 . . . . . . . 8  |-  ( ( ( ( ph  /\  e  e.  RR+ )  /\  d  e.  ( 0 (,) pi ) )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  E. j  e.  NN  A. k  e.  ( ZZ>= `  j ) ( abs `  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
885 pipos 24212 . . . . . . . . . . . . . 14  |-  0  <  pi
88647, 759, 12lttri 10163 . . . . . . . . . . . . . 14  |-  ( (
-u pi  <  0  /\  0  <  pi )  ->  -u pi  <  pi )
88751, 885, 886mp2an 708 . . . . . . . . . . . . 13  |-  -u pi  <  pi
88847, 12, 887ltleii 10160 . . . . . . . . . . . 12  |-  -u pi  <_  pi
889888a1i 11 . . . . . . . . . . 11  |-  ( ph  -> 
-u pi  <_  pi )
890258fourierdlem2 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 ) ) ) ) ) )
891259, 890syl 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 ) ) ) ) ) )
892261, 891mpbid 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 ) ) ) ) )
893892simpld 475 . . . . . . . . . . . . . . 15  |-  ( ph  ->  V  e.  ( RR 
^m  ( 0 ... M ) ) )
894 elmapi 7879 . . . . . . . . . . . . . . 15  |-  ( V  e.  ( RR  ^m  ( 0 ... M
) )  ->  V : ( 0 ... M ) --> RR )
895893, 894syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  V : ( 0 ... M ) --> RR )
896895ffvelrnda 6359 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( V `  i )  e.  RR )
89715adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  X  e.  RR )
898896, 897resubcld 10458 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  -  X )  e.  RR )
899898, 80fmptd 6385 . . . . . . . . . . 11  |-  ( ph  ->  Q : ( 0 ... M ) --> RR )
90080a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  Q  =  ( i  e.  ( 0 ... M )  |->  ( ( V `  i )  -  X ) ) )
901 fveq2 6191 . . . . . . . . . . . . . . 15  |-  ( i  =  0  ->  ( V `  i )  =  ( V ` 
0 ) )
902901oveq1d 6665 . . . . . . . . . . . . . 14  |-  ( i  =  0  ->  (
( V `  i
)  -  X )  =  ( ( V `
 0 )  -  X ) )
903902adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  = 
0 )  ->  (
( V `  i
)  -  X )  =  ( ( V `
 0 )  -  X ) )
904259nnnn0d 11351 . . . . . . . . . . . . . . 15  |-  ( ph  ->  M  e.  NN0 )
905 nn0uz 11722 . . . . . . . . . . . . . . 15  |-  NN0  =  ( ZZ>= `  0 )
906904, 905syl6eleq 2711 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  ( ZZ>= ` 
0 ) )
907 eluzfz1 12348 . . . . . . . . . . . . . 14  |-  ( M  e.  ( ZZ>= `  0
)  ->  0  e.  ( 0 ... M
) )
908906, 907syl 17 . . . . . . . . . . . . 13  |-  ( ph  ->  0  e.  ( 0 ... M ) )
909895, 908ffvelrnd 6360 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( V `  0
)  e.  RR )
910909, 15resubcld 10458 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( V ` 
0 )  -  X
)  e.  RR )
911900, 903, 908, 910fvmptd 6288 . . . . . . . . . . . 12  |-  ( ph  ->  ( Q `  0
)  =  ( ( V `  0 )  -  X ) )
912892simprd 479 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( ( V `
 0 )  =  ( -u pi  +  X )  /\  ( V `  M )  =  ( pi  +  X ) )  /\  A. i  e.  ( 0..^ M ) ( V `
 i )  < 
( V `  (
i  +  1 ) ) ) )
913912simplld 791 . . . . . . . . . . . . 13  |-  ( ph  ->  ( V `  0
)  =  ( -u pi  +  X ) )
914913oveq1d 6665 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( V ` 
0 )  -  X
)  =  ( (
-u pi  +  X
)  -  X ) )
915445recnd 10068 . . . . . . . . . . . . 13  |-  ( ph  -> 
-u pi  e.  CC )
91615recnd 10068 . . . . . . . . . . . . 13  |-  ( ph  ->  X  e.  CC )
917915, 916pncand 10393 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( -u pi  +  X )  -  X
)  =  -u pi )
918911, 914, 9173eqtrd 2660 . . . . . . . . . . 11  |-  ( ph  ->  ( Q `  0
)  =  -u pi )
919445, 447, 15, 258, 836, 259, 261, 80fourierdlem14 40338 . . . . . . . . . . . . . 14  |-  ( 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 ) )
920836fourierdlem2 40326 . . . . . . . . . . . . . . 15  |-  ( 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 ) ) ) ) ) )
921259, 920syl 17 . . . . . . . . . . . . . 14  |-  ( 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 ) ) ) ) ) )
922919, 921mpbid 222 . . . . . . . . . . . . 13  |-  ( ph  ->  ( Q  e.  ( RR  ^m  ( 0 ... M ) )  /\  ( ( ( Q `  0 )  =  -u pi  /\  ( Q `  M )  =  pi )  /\  A. i  e.  ( 0..^ M ) ( Q `
 i )  < 
( Q `  (
i  +  1 ) ) ) ) )
923922simprd 479 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( ( Q `
 0 )  = 
-u pi  /\  ( Q `  M )  =  pi )  /\  A. i  e.  ( 0..^ M ) ( Q `
 i )  < 
( Q `  (
i  +  1 ) ) ) )
924923simplrd 793 . . . . . . . . . . 11  |-  ( ph  ->  ( Q `  M
)  =  pi )
925923simprd 479 . . . . . . . . . . . 12  |-  ( ph  ->  A. i  e.  ( 0..^ M ) ( Q `  i )  <  ( Q `  ( i  +  1 ) ) )
926925r19.21bi 2932 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  <  ( Q `  ( i  +  1 ) ) )
92714adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  F : RR --> RR )
928836, 259, 919fourierdlem15 40339 . . . . . . . . . . . . . 14  |-  ( ph  ->  Q : ( 0 ... M ) --> (
-u pi [,] pi ) )
929928adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Q : ( 0 ... M ) --> ( -u pi [,] pi ) )
930 elfzofz 12485 . . . . . . . . . . . . . 14  |-  ( i  e.  ( 0..^ M )  ->  i  e.  ( 0 ... M
) )
931930adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  i  e.  ( 0 ... M ) )
932929, 931ffvelrnd 6360 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  e.  (
-u pi [,] pi ) )
933 fzofzp1 12565 . . . . . . . . . . . . . 14  |-  ( i  e.  ( 0..^ M )  ->  ( i  +  1 )  e.  ( 0 ... M
) )
934933adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( i  +  1 )  e.  ( 0 ... M ) )
935929, 934ffvelrnd 6360 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  ( i  +  1 ) )  e.  (
-u pi [,] pi ) )
93615adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  X  e.  RR )
937 ffn 6045 . . . . . . . . . . . . . . . . . 18  |-  ( V : ( 0 ... M ) --> RR  ->  V  Fn  ( 0 ... M ) )
938893, 894, 9373syl 18 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  V  Fn  ( 0 ... M ) )
939 fvelrnb 6243 . . . . . . . . . . . . . . . . 17  |-  ( V  Fn  ( 0 ... M )  ->  ( X  e.  ran  V  <->  E. i  e.  ( 0 ... M
) ( V `  i )  =  X ) )
940938, 939syl 17 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( X  e.  ran  V  <->  E. i  e.  (
0 ... M ) ( V `  i )  =  X ) )
941826, 940mpbid 222 . . . . . . . . . . . . . . 15  |-  ( ph  ->  E. i  e.  ( 0 ... M ) ( V `  i
)  =  X )
942 oveq1 6657 . . . . . . . . . . . . . . . . . . 19  |-  ( ( V `  i )  =  X  ->  (
( V `  i
)  -  X )  =  ( X  -  X ) )
943942adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  (
( V `  i
)  -  X )  =  ( X  -  X ) )
944916subidd 10380 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( X  -  X
)  =  0 )
945944ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  ( X  -  X )  =  0 )
946943, 945eqtr2d 2657 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  0  =  ( ( V `
 i )  -  X ) )
947946ex 450 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  =  X  -> 
0  =  ( ( V `  i )  -  X ) ) )
948947reximdva 3017 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( E. i  e.  ( 0 ... M
) ( V `  i )  =  X  ->  E. i  e.  ( 0 ... M ) 0  =  ( ( V `  i )  -  X ) ) )
949941, 948mpd 15 . . . . . . . . . . . . . 14  |-  ( ph  ->  E. i  e.  ( 0 ... M ) 0  =  ( ( V `  i )  -  X ) )
95080elrnmpt 5372 . . . . . . . . . . . . . . 15  |-  ( 0  e.  RR  ->  (
0  e.  ran  Q  <->  E. i  e.  ( 0 ... M ) 0  =  ( ( V `
 i )  -  X ) ) )
951759, 950ax-mp 5 . . . . . . . . . . . . . 14  |-  ( 0  e.  ran  Q  <->  E. i  e.  ( 0 ... M
) 0  =  ( ( V `  i
)  -  X ) )
952949, 951sylibr 224 . . . . . . . . . . . . 13  |-  ( ph  ->  0  e.  ran  Q
)
953836, 259, 919, 952fourierdlem12 40336 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  -.  0  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )
954895adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  V : ( 0 ... M ) --> RR )
955954, 931ffvelrnd 6360 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  e.  RR )
956955, 936resubcld 10458 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 i )  -  X )  e.  RR )
95780fvmpt2 6291 . . . . . . . . . . . . . . . . . 18  |-  ( ( i  e.  ( 0 ... M )  /\  ( ( V `  i )  -  X
)  e.  RR )  ->  ( Q `  i )  =  ( ( V `  i
)  -  X ) )
958931, 956, 957syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  =  ( ( V `  i
)  -  X ) )
959958oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i )  +  X )  =  ( ( ( V `  i )  -  X
)  +  X ) )
960955recnd 10068 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  e.  CC )
961916adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  X  e.  CC )
962960, 961npcand 10396 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( V `  i )  -  X )  +  X )  =  ( V `  i ) )
963959, 962eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i )  +  X )  =  ( V `  i ) )
964 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( j  =  i  ->  ( V `  j )  =  ( V `  i ) )
965964oveq1d 6665 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  =  i  ->  (
( V `  j
)  -  X )  =  ( ( V `
 i )  -  X ) )
966965cbvmptv 4750 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 0 ... M )  |->  ( ( V `  j )  -  X ) )  =  ( i  e.  ( 0 ... M
)  |->  ( ( V `
 i )  -  X ) )
96780, 966eqtr4i 2647 . . . . . . . . . . . . . . . . . . 19  |-  Q  =  ( j  e.  ( 0 ... M ) 
|->  ( ( V `  j )  -  X
) )
968967a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Q  =  ( j  e.  ( 0 ... M )  |->  ( ( V `  j
)  -  X ) ) )
969 fveq2 6191 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  ( i  +  1 )  ->  ( V `  j )  =  ( V `  ( i  +  1 ) ) )
970969oveq1d 6665 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  ( i  +  1 )  ->  (
( V `  j
)  -  X )  =  ( ( V `
 ( i  +  1 ) )  -  X ) )
971970adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  j  =  ( i  +  1 ) )  ->  (
( V `  j
)  -  X )  =  ( ( V `
 ( i  +  1 ) )  -  X ) )
972954, 934ffvelrnd 6360 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  ( i  +  1 ) )  e.  RR )
973972, 936resubcld 10458 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 ( i  +  1 ) )  -  X )  e.  RR )
974968, 971, 934, 973fvmptd 6288 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  ( i  +  1 ) )  =  ( ( V `  (
i  +  1 ) )  -  X ) )
975974oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 ( i  +  1 ) )  +  X )  =  ( ( ( V `  ( i  +  1 ) )  -  X
)  +  X ) )
976972recnd 10068 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  ( i  +  1 ) )  e.  CC )
977976, 961npcand 10396 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( V `  ( i  +  1 ) )  -  X )  +  X )  =  ( V `  ( i  +  1 ) ) )
978975, 977eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 ( i  +  1 ) )  +  X )  =  ( V `  ( i  +  1 ) ) )
979963, 978oveq12d 6668 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( Q `  i )  +  X ) (,) ( ( Q `  ( i  +  1 ) )  +  X
) )  =  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) )
980979reseq2d 5396 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( F  |`  ( ( ( Q `
 i )  +  X ) (,) (
( Q `  (
i  +  1 ) )  +  X ) ) )  =  ( F  |`  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) ) )
981979oveq1d 6665 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( ( Q `  i
)  +  X ) (,) ( ( Q `
 ( i  +  1 ) )  +  X ) ) -cn-> CC )  =  ( ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) )
-cn-> CC ) )
982263, 980, 9813eltr4d 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 ) )
98327adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Y  e.  RR )
98438adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  W  e.  RR )
985927, 932, 935, 936, 953, 982, 983, 984, 39fourierdlem40 40364 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  e.  ( ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) -cn-> CC ) )
986 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 )
98743a1i 11 . . . . . . . . . . . . . 14  |-  ( ( ( RR  _D  F
)  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR  ->  RR  C_  CC )
988986, 987fssd 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 )
989400, 592, 9883syl 18 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( RR 
_D  F )  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> CC )
990 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 ) ) )
99115, 258, 14, 826, 26, 38, 39, 259, 261, 265, 80, 836, 837, 989, 841, 990fourierdlem75 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 )
) )
992 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 ) ) ) )
99315, 258, 14, 826, 27, 37, 39, 259, 261, 267, 80, 836, 837, 593, 839, 992fourierdlem74 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 ) ) ) )
994 fveq2 6191 . . . . . . . . . . . . 13  |-  ( j  =  i  ->  ( Q `  j )  =  ( Q `  i ) )
995 oveq1 6657 . . . . . . . . . . . . . 14  |-  ( j  =  i  ->  (
j  +  1 )  =  ( i  +  1 ) )
996995fveq2d 6195 . . . . . . . . . . . . 13  |-  ( j  =  i  ->  ( Q `  ( j  +  1 ) )  =  ( Q `  ( i  +  1 ) ) )
997994, 996oveq12d 6668 . . . . . . . . . . . 12  |-  ( j  =  i  ->  (
( Q `  j
) (,) ( Q `
 ( j  +  1 ) ) )  =  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )
998997cbvmptv 4750 . . . . . . . . . . 11  |-  ( j  e.  ( 0..^ M )  |->  ( ( Q `
 j ) (,) ( Q `  (
j  +  1 ) ) ) )  =  ( i  e.  ( 0..^ M )  |->  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )
999445, 447, 889, 177, 259, 899, 918, 924, 926, 985, 991, 993, 998fourierdlem70 40393 . . . . . . . . . 10  |-  ( ph  ->  E. x  e.  RR  A. s  e.  ( -u pi [,] pi ) ( abs `  ( H `
 s ) )  <_  x )
1000 eqid 2622 . . . . . . . . . 10  |-  ( ( e  /  3 )  /  y )  =  ( ( e  / 
3 )  /  y
)
1001 fveq2 6191 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  s  ->  ( G `  t )  =  ( G `  s ) )
10021001fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( t  =  s  ->  ( abs `  ( G `  t ) )  =  ( abs `  ( G `  s )
) )
10031002breq1d 4663 . . . . . . . . . . . . . . . 16  |-  ( t  =  s  ->  (
( abs `  ( G `  t )
)  <_  y  <->  ( abs `  ( G `  s
) )  <_  y
) )
10041003cbvralv 3171 . . . . . . . . . . . . . . 15  |-  ( A. t  e.  ( -u pi [,] pi ) ( abs `  ( G `  t
) )  <_  y  <->  A. s  e.  ( -u pi [,] pi ) ( abs `  ( G `
 s ) )  <_  y )
10051004ralbii 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 )
100610053anbi3i 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 )
)
10071006anbi1i 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 ) )
10081007anbi1i 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
) ) ) )
10091008anbi1i 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 )
)
101014, 15, 27, 38, 39, 40, 41, 818, 817, 999, 843, 1000, 1009fourierdlem87 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 ) ) )
1011 iftrue 4092 . . . . . . . . . . . . . . 15  |-  ( c  <_  ( pi  / 
2 )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  c )
10121011adantl 482 . . . . . . . . . . . . . 14  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  c )
101353a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  0  e.  RR* )
101454a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  pi  e.  RR* )
1015 rpre 11839 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  c  e.  RR )
10161015adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  c  e.  RR )
1017 rpgt0 11844 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  0  < 
c )
10181017adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  0  <  c )
101912rehalfcli 11281 . . . . . . . . . . . . . . . . 17  |-  ( pi 
/  2 )  e.  RR
10201019a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  (
pi  /  2 )  e.  RR )
102112a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  pi  e.  RR )
1022 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  c  <_  ( pi  /  2
) )
1023 halfpos 11262 . . . . . . . . . . . . . . . . . . 19  |-  ( pi  e.  RR  ->  (
0  <  pi  <->  ( pi  /  2 )  <  pi ) )
102412, 1023ax-mp 5 . . . . . . . . . . . . . . . . . 18  |-  ( 0  <  pi  <->  ( pi  /  2 )  <  pi )
1025885, 1024mpbi 220 . . . . . . . . . . . . . . . . 17  |-  ( pi 
/  2 )  < 
pi
10261025a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  (
pi  /  2 )  <  pi )
10271016, 1020, 1021, 1022, 1026lelttrd 10195 . . . . . . . . . . . . . . 15  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  c  <  pi )
10281013, 1014, 1016, 1018, 1027eliood 39720 . . . . . . . . . . . . . 14  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  c  e.  ( 0 (,) pi ) )
10291012, 1028eqeltrd 2701 . . . . . . . . . . . . 13  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  e.  ( 0 (,) pi ) )
1030 iffalse 4095 . . . . . . . . . . . . . . 15  |-  ( -.  c  <_  ( pi  /  2 )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  =  ( pi 
/  2 ) )
1031 2pos 11112 . . . . . . . . . . . . . . . . . 18  |-  0  <  2
103212, 100, 885, 1031divgt0ii 10941 . . . . . . . . . . . . . . . . 17  |-  0  <  ( pi  /  2
)
1033 elioo2 12216 . . . . . . . . . . . . . . . . . 18  |-  ( ( 0  e.  RR*  /\  pi  e.  RR* )  ->  (
( pi  /  2
)  e.  ( 0 (,) pi )  <->  ( (
pi  /  2 )  e.  RR  /\  0  <  ( pi  /  2
)  /\  ( pi  /  2 )  <  pi ) ) )
103453, 54, 1033mp2an 708 . . . . . . . . . . . . . . . . 17  |-  ( ( pi  /  2 )  e.  ( 0 (,) pi )  <->  ( (
pi  /  2 )  e.  RR  /\  0  <  ( pi  /  2
)  /\  ( pi  /  2 )  <  pi ) )
10351019, 1032, 1025, 1034mpbir3an 1244 . . . . . . . . . . . . . . . 16  |-  ( pi 
/  2 )  e.  ( 0 (,) pi )
10361035a1i 11 . . . . . . . . . . . . . . 15  |-  ( -.  c  <_  ( pi  /  2 )  ->  (
pi  /  2 )  e.  ( 0 (,) pi ) )
10371030, 1036eqeltrd 2701 . . . . . . . . . . . . . 14  |-  ( -.  c  <_  ( pi  /  2 )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  e.  ( 0 (,) pi ) )
10381037adantl 482 . . . . . . . . . . . . 13  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  ->  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  e.  ( 0 (,) pi ) )
10391029, 1038pm2.61dan 832 . . . . . . . . . . . 12  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  e.  ( 0 (,) pi ) )
104010393ad2ant2 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 ) ) )  ->  if (
c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  e.  ( 0 (,) pi ) )
1041 ioombl 23333 . . . . . . . . . . . . . . 15  |-  ( 0 (,) if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )  e.  dom  vol
10421041a1i 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
) ) )  -> 
( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) )  e.  dom  vol )
1043 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
) ) )
10441042, 1043jca 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
) ) )  -> 
( ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  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 ) ) ) )
1045 ioossicc 12259 . . . . . . . . . . . . . . . 16  |-  ( 0 (,) if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) ) 
C_  ( 0 [,]
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )
104647a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  -u pi  e.  RR )
104712a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  pi  e.  RR )
1048760a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  -u pi  <_  0 )
1049784, 1039sseldi 3601 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  e.  RR )
10501019a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( c  e.  RR+  ->  ( pi 
/  2 )  e.  RR )
1051 min2 12021 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( c  e.  RR  /\  ( pi  /  2
)  e.  RR )  ->  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  <_ 
( pi  /  2
) )
10521015, 1019, 1051sylancl 694 . . . . . . . . . . . . . . . . . . 19  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  <_ 
( pi  /  2
) )
10531025a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( c  e.  RR+  ->  ( pi 
/  2 )  < 
pi )
10541049, 1050, 1047, 1052, 1053lelttrd 10195 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  < 
pi )
10551049, 1047, 1054ltled 10185 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  <_  pi )
1056 iccss 12241 . . . . . . . . . . . . . . . . 17  |-  ( ( ( -u pi  e.  RR  /\  pi  e.  RR )  /\  ( -u pi  <_  0  /\  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  <_  pi ) )  ->  (
0 [,] if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) ) 
C_  ( -u pi [,] pi ) )
10571046, 1047, 1048, 1055, 1056syl22anc 1327 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  ( 0 [,] if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) ) 
C_  ( -u pi [,] pi ) )
10581045, 1057syl5ss 3614 . . . . . . . . . . . . . . 15  |-  ( c  e.  RR+  ->  ( 0 (,) if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) ) 
C_  ( -u pi [,] pi ) )
1059 0red 10041 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  0  e.  RR )
10601018, 1012breqtrrd 4681 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( c  e.  RR+  /\  c  <_  ( pi  /  2
) )  ->  0  <  if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )
10611032, 1030syl5breqr 4691 . . . . . . . . . . . . . . . . . . . . 21  |-  ( -.  c  <_  ( pi  /  2 )  ->  0  <  if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )
10621061adantl 482 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( c  e.  RR+  /\  -.  c  <_  ( pi  / 
2 ) )  -> 
0  <  if (
c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) )
10631060, 1062pm2.61dan 832 . . . . . . . . . . . . . . . . . . 19  |-  ( c  e.  RR+  ->  0  < 
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )
10641059, 1049, 1063ltled 10185 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  0  <_  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) )
1065 volioo 23337 . . . . . . . . . . . . . . . . . 18  |-  ( ( 0  e.  RR  /\  if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  e.  RR  /\  0  <_  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )  ->  ( vol `  (
0 (,) if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) ) )  =  ( if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  -  0 ) )
10661059, 1049, 1064, 1065syl3anc 1326 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  ( vol `  ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) )  =  ( if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  - 
0 ) )
10671049recnd 10068 . . . . . . . . . . . . . . . . . 18  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  e.  CC )
10681067subid1d 10381 . . . . . . . . . . . . . . . . 17  |-  ( c  e.  RR+  ->  ( if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) )  -  0 )  =  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) )
10691066, 1068eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  ( vol `  ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) )  =  if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )
1070 min1 12020 . . . . . . . . . . . . . . . . 17  |-  ( ( c  e.  RR  /\  ( pi  /  2
)  e.  RR )  ->  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  <_ 
c )
10711015, 1019, 1070sylancl 694 . . . . . . . . . . . . . . . 16  |-  ( c  e.  RR+  ->  if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) )  <_ 
c )
10721069, 1071eqbrtrd 4675 . . . . . . . . . . . . . . 15  |-  ( c  e.  RR+  ->  ( vol `  ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) )  <_ 
c )
10731058, 1072jca 554 . . . . . . . . . . . . . 14  |-  ( c  e.  RR+  ->  ( ( 0 (,) if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) ) 
C_  ( -u pi [,] pi )  /\  ( vol `  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) ) )  <_  c ) )
10741073adantr 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
) ) )  -> 
( ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  C_  ( -u pi [,] pi )  /\  ( vol `  (
0 (,) if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) ) )  <_  c )
)
1075 sseq1 3626 . . . . . . . . . . . . . . . 16  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  -> 
( u  C_  ( -u pi [,] pi )  <-> 
( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) )  C_  ( -u pi [,] pi ) ) )
1076 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  -> 
( vol `  u
)  =  ( vol `  ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) ) )
10771076breq1d 4663 . . . . . . . . . . . . . . . 16  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  -> 
( ( vol `  u
)  <_  c  <->  ( vol `  ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) )  <_ 
c ) )
10781075, 1077anbi12d 747 . . . . . . . . . . . . . . 15  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  -> 
( ( u  C_  ( -u pi [,] pi )  /\  ( vol `  u
)  <_  c )  <->  ( ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) )  C_  ( -u pi [,] pi )  /\  ( vol `  (
0 (,) if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) ) )  <_  c )
) )
1079 itgeq1 23539 . . . . . . . . . . . . . . . . . 18  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  ->  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  =  S. ( 0 (,) if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )
10801079fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  -> 
( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  =  ( abs `  S. ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )
10811080breq1d 4663 . . . . . . . . . . . . . . . 16  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  -> 
( ( abs `  S. u ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  ( abs `  S. ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) ) )
10821081ralbidv 2986 . . . . . . . . . . . . . . 15  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  -> 
( 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. ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
10831078, 1082imbi12d 334 . . . . . . . . . . . . . 14  |-  ( u  =  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) )  -> 
( ( ( 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 ) )  <-> 
( ( ( 0 (,) if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) ) 
C_  ( -u pi [,] pi )  /\  ( vol `  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) ) )  <_  c )  ->  A. k  e.  NN  ( abs `  S. ( 0 (,) if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) ) )
10841083rspcva 3307 . . . . . . . . . . . . 13  |-  ( ( ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) )  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
) ) )  -> 
( ( ( 0 (,) if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) ) 
C_  ( -u pi [,] pi )  /\  ( vol `  ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) ) )  <_  c )  ->  A. k  e.  NN  ( abs `  S. ( 0 (,) if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )
10851044, 1074, 1084sylc 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. ( 0 (,) if ( c  <_  ( pi  /  2 ) ,  c ,  ( pi  / 
2 ) ) ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) )
108610853adant1 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. ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )
1087 oveq2 6658 . . . . . . . . . . . . . . . 16  |-  ( d  =  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  -> 
( 0 (,) d
)  =  ( 0 (,) if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) ) )
10881087itgeq1d 40172 . . . . . . . . . . . . . . 15  |-  ( d  =  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  ->  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  =  S. ( 0 (,) if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) ) ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )
10891088fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( d  =  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  -> 
( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  =  ( abs `  S. ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s ) )
10901089breq1d 4663 . . . . . . . . . . . . 13  |-  ( d  =  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  -> 
( ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  ( abs `  S. ( 0 (,)
if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) ) ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )  <  (
e  /  2 ) ) )
10911090ralbidv 2986 . . . . . . . . . . . 12  |-  ( d  =  if ( c  <_  ( pi  / 
2 ) ,  c ,  ( pi  / 
2 ) )  -> 
( A. k  e.  NN  ( abs `  S. ( 0 (,) d
) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 )  <->  A. k  e.  NN  ( abs `  S. ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) ) )
10921091rspcev 3309 . . . . . . . . . . 11  |-  ( ( if ( c  <_ 
( pi  /  2
) ,  c ,  ( pi  /  2
) )  e.  ( 0 (,) pi )  /\  A. k  e.  NN  ( abs `  S. ( 0 (,) if ( c  <_  (
pi  /  2 ) ,  c ,  ( pi  /  2 ) ) ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  ( e  /  2 ) )  ->  E. d  e.  ( 0 (,) pi ) A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) )
10931040, 1086, 1092syl2anc 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.  ( 0 (,) pi ) A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) )
10941093rexlimdv3a 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.  ( 0 (,) pi ) A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) ) )
10951010, 1094mpd 15 . . . . . . . 8  |-  ( (
ph  /\  e  e.  RR+ )  ->  E. d  e.  ( 0 (,) pi ) A. k  e.  NN  ( abs `  S. ( 0 (,) d ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s )  < 
( e  /  2
) )
1096884, 1095r19.29a 3078 . . . . . . 7  |-  ( (
ph  /\  e  e.  RR+ )  ->  E. j  e.  NN  A. k  e.  ( ZZ>= `  j )
( abs `  S. ( 0 (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
10971096ralrimiva 2966 . . . . . 6  |-  ( ph  ->  A. e  e.  RR+  E. j  e.  NN  A. k  e.  ( ZZ>= `  j ) ( abs `  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e )
1098 nnex 11026 . . . . . . . . 9  |-  NN  e.  _V
10991098mptex 6486 . . . . . . . 8  |-  ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s
)  _d s )  e.  _V
11001099a1i 11 . . . . . . 7  |-  ( ph  ->  ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s )  e.  _V )
1101 eqidd 2623 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN )  ->  ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s
)  _d s )  =  ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s ) )
1102765adantl 482 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  ( -u pi [,] pi ) )
1103767ad4ant14 1293 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  ( U `  s )  e.  RR )
1104765adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  ( -u pi [,] pi ) )
1105 simpr 477 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN  /\  n  =  k )  ->  n  =  k )
1106 simpl 473 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN  /\  n  =  k )  ->  k  e.  NN )
11071105, 1106eqeltrd 2701 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN  /\  n  =  k )  ->  n  e.  NN )
11081107nnred 11035 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN  /\  n  =  k )  ->  n  e.  RR )
1109718a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN  /\  n  =  k )  ->  ( 1  /  2
)  e.  RR )
11101108, 1109readdcld 10069 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN  /\  n  =  k )  ->  ( n  +  ( 1  /  2 ) )  e.  RR )
11111110adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  ( 0 (,) pi ) )  ->  ( n  +  ( 1  / 
2 ) )  e.  RR )
1112210, 1104sseldi 3601 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  RR )
11131111, 1112remulcld 10070 . . . . . . . . . . . . . . . 16  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  ( 0 (,) pi ) )  ->  ( (
n  +  ( 1  /  2 ) )  x.  s )  e.  RR )
11141113resincld 14873 . . . . . . . . . . . . . . 15  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  ( 0 (,) pi ) )  ->  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) )  e.  RR )
11151104, 1114, 819syl2anc 693 . . . . . . . . . . . . . 14  |-  ( ( ( k  e.  NN  /\  n  =  k )  /\  s  e.  ( 0 (,) pi ) )  ->  ( S `  s )  =  ( sin `  ( ( n  +  ( 1  /  2 ) )  x.  s ) ) )
11161115adantlll 754 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  ( S `  s )  =  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )
11171108adantll 750 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  NN )  /\  n  =  k )  ->  n  e.  RR )
11181117adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  n  e.  RR )
1119 1red 10055 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  1  e.  RR )
11201119rehalfcld 11279 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  (
1  /  2 )  e.  RR )
11211118, 1120readdcld 10069 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  (
n  +  ( 1  /  2 ) )  e.  RR )
1122210, 1102sseldi 3601 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  RR )
11231121, 1122remulcld 10070 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  (
( n  +  ( 1  /  2 ) )  x.  s )  e.  RR )
11241123resincld 14873 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  e.  RR )
11251116, 1124eqeltrd 2701 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  ( S `  s )  e.  RR )
11261103, 1125remulcld 10070 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  (
( U `  s
)  x.  ( S `
 s ) )  e.  RR )
1127817fvmpt2 6291 . . . . . . . . . . 11  |-  ( ( s  e.  ( -u pi [,] pi )  /\  ( ( U `  s )  x.  ( S `  s )
)  e.  RR )  ->  ( G `  s )  =  ( ( U `  s
)  x.  ( S `
 s ) ) )
11281102, 1126, 1127syl2anc 693 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  ( G `  s )  =  ( ( U `
 s )  x.  ( S `  s
) ) )
1129 oveq1 6657 . . . . . . . . . . . . . . 15  |-  ( n  =  k  ->  (
n  +  ( 1  /  2 ) )  =  ( k  +  ( 1  /  2
) ) )
11301129oveq1d 6665 . . . . . . . . . . . . . 14  |-  ( n  =  k  ->  (
( n  +  ( 1  /  2 ) )  x.  s )  =  ( ( k  +  ( 1  / 
2 ) )  x.  s ) )
11311130fveq2d 6195 . . . . . . . . . . . . 13  |-  ( n  =  k  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
11321131ad2antlr 763 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
11331116, 1132eqtrd 2656 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  ( S `  s )  =  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )
11341133oveq2d 6666 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  (
( U `  s
)  x.  ( S `
 s ) )  =  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )
11351128, 1134eqtrd 2656 . . . . . . . . 9  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  =  k
)  /\  s  e.  ( 0 (,) pi ) )  ->  ( G `  s )  =  ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) ) )
11361135itgeq2dv 23548 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  NN )  /\  n  =  k )  ->  S. ( 0 (,) pi ) ( G `  s )  _d s  =  S. ( 0 (,) pi ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
1137 simpr 477 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN )  ->  k  e.  NN )
1138798itgeq2dv 23548 . . . . . . . . . . 11  |-  ( n  =  k  ->  S. ( 0 (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  =  S. ( 0 (,) pi ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
11391138eleq1d 2686 . . . . . . . . . 10  |-  ( n  =  k  ->  ( S. ( 0 (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC  <->  S. (
0 (,) pi ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s  e.  CC ) )
1140793, 1139imbi12d 334 . . . . . . . . 9  |-  ( n  =  k  ->  (
( ( ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  (
( n  +  ( 1  /  2 ) )  x.  s ) ) )  _d s  e.  CC )  <->  ( ( ph  /\  k  e.  NN )  ->  S. ( 0 (,) pi ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s  e.  CC ) ) )
1141767adantlr 751 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  ( U `  s )  e.  RR )
1142 simpr 477 . . . . . . . . . . . 12  |-  ( (
ph  /\  n  e.  NN )  ->  n  e.  NN )
11431142, 765, 814syl2an 494 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) )  e.  RR )
11441141, 1143remulcld 10070 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  (
( U `  s
)  x.  ( sin `  ( ( n  +  ( 1  /  2
) )  x.  s
) ) )  e.  RR )
11451144, 845itgcl 23550 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  ( ( n  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s  e.  CC )
11461140, 1145chvarv 2263 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN )  ->  S. ( 0 (,) pi ) ( ( U `  s )  x.  ( sin `  ( ( k  +  ( 1  / 
2 ) )  x.  s ) ) )  _d s  e.  CC )
11471101, 1136, 1137, 1146fvmptd 6288 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s ) `  k )  =  S. ( 0 (,) pi ) ( ( U `  s
)  x.  ( sin `  ( ( k  +  ( 1  /  2
) )  x.  s
) ) )  _d s )
11489, 2, 1100, 1147, 1146clim0c 14238 . . . . . 6  |-  ( ph  ->  ( ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s )  ~~>  0  <->  A. e  e.  RR+  E. j  e.  NN  A. k  e.  ( ZZ>= `  j )
( abs `  S. ( 0 (,) pi ) ( ( U `
 s )  x.  ( sin `  (
( k  +  ( 1  /  2 ) )  x.  s ) ) )  _d s )  <  e ) )
11491097, 1148mpbird 247 . . . . 5  |-  ( ph  ->  ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s )  ~~>  0 )
11501098mptex 6486 . . . . . . 7  |-  ( n  e.  NN  |->  ( S. ( 0 (,) pi ) ( G `  s )  _d s  /  pi ) )  e.  _V
11516, 1150eqeltri 2697 . . . . . 6  |-  E  e. 
_V
11521151a1i 11 . . . . 5  |-  ( ph  ->  E  e.  _V )
11531098mptex 6486 . . . . . . 7  |-  ( n  e.  NN  |->  pi )  e.  _V
11541153a1i 11 . . . . . 6  |-  ( ph  ->  ( n  e.  NN  |->  pi )  e.  _V )
115512recni 10052 . . . . . . 7  |-  pi  e.  CC
11561155a1i 11 . . . . . 6  |-  ( ph  ->  pi  e.  CC )
1157 eqidd 2623 . . . . . . . 8  |-  ( m  e.  NN  ->  (
n  e.  NN  |->  pi )  =  ( n  e.  NN  |->  pi ) )
1158 eqidd 2623 . . . . . . . 8  |-  ( ( m  e.  NN  /\  n  =  m )  ->  pi  =  pi )
1159 id 22 . . . . . . . 8  |-  ( m  e.  NN  ->  m  e.  NN )
116012a1i 11 . . . . . . . 8  |-  ( m  e.  NN  ->  pi  e.  RR )
11611157, 1158, 1159, 1160fvmptd 6288 . . . . . . 7  |-  ( m  e.  NN  ->  (
( n  e.  NN  |->  pi ) `  m )  =  pi )
11621161adantl 482 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( n  e.  NN  |->  pi ) `  m )  =  pi )
11639, 2, 1154, 1156, 1162climconst 14274 . . . . 5  |-  ( ph  ->  ( n  e.  NN  |->  pi )  ~~>  pi )
1164759, 885gtneii 10149 . . . . . 6  |-  pi  =/=  0
11651164a1i 11 . . . . 5  |-  ( ph  ->  pi  =/=  0 )
116615adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  X  e.  RR )
116727adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  Y  e.  RR )
116838adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  NN )  ->  W  e.  RR )
1169825, 1166, 1167, 1168, 39, 40, 41, 830, 818, 817fourierdlem67 40390 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  G :
( -u pi [,] pi )
--> RR )
11701169adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  G : ( -u pi [,] pi ) --> RR )
1171802sselda 3603 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  ( -u pi [,] pi ) )
11721170, 1171ffvelrnd 6360 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  ( G `  s )  e.  RR )
11731169ffvelrnda 6359 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( G `  s )  e.  RR )
11741169feqmptd 6249 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  G  =  ( s  e.  (
-u pi [,] pi )  |->  ( G `  s ) ) )
11751174, 843eqeltrrd 2702 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( G `
 s ) )  e.  L^1 )
1176802, 804, 1173, 1175iblss 23571 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( 0 (,) pi )  |->  ( G `
 s ) )  e.  L^1 )
11771172, 1176itgcl 23550 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( G `  s
)  _d s  e.  CC )
1178 eqid 2622 . . . . . . . 8  |-  ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s
)  _d s )  =  ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s )
11791178fvmpt2 6291 . . . . . . 7  |-  ( ( n  e.  NN  /\  S. ( 0 (,) pi ) ( G `  s )  _d s  e.  CC )  -> 
( ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s ) `  n )  =  S. ( 0 (,) pi ) ( G `  s )  _d s )
11801142, 1177, 1179syl2anc 693 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s ) `  n )  =  S. ( 0 (,) pi ) ( G `  s )  _d s )
11811180, 1177eqeltrd 2701 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s ) `  n )  e.  CC )
1182 eqid 2622 . . . . . . . . 9  |-  ( n  e.  NN  |->  pi )  =  ( n  e.  NN  |->  pi )
11831182fvmpt2 6291 . . . . . . . 8  |-  ( ( n  e.  NN  /\  pi  e.  RR )  -> 
( ( n  e.  NN  |->  pi ) `  n )  =  pi )
118412, 1183mpan2 707 . . . . . . 7  |-  ( n  e.  NN  ->  (
( n  e.  NN  |->  pi ) `  n )  =  pi )
11851155a1i 11 . . . . . . . 8  |-  ( n  e.  NN  ->  pi  e.  CC )
11861164a1i 11 . . . . . . . 8  |-  ( n  e.  NN  ->  pi  =/=  0 )
1187 eldifsn 4317 . . . . . . . 8  |-  ( pi  e.  ( CC  \  { 0 } )  <-> 
( pi  e.  CC  /\  pi  =/=  0 ) )
11881185, 1186, 1187sylanbrc 698 . . . . . . 7  |-  ( n  e.  NN  ->  pi  e.  ( CC  \  {
0 } ) )
11891184, 1188eqeltrd 2701 . . . . . 6  |-  ( n  e.  NN  ->  (
( n  e.  NN  |->  pi ) `  n )  e.  ( CC  \  { 0 } ) )
11901189adantl 482 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( n  e.  NN  |->  pi ) `  n )  e.  ( CC  \  { 0 } ) )
11911155a1i 11 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  pi  e.  CC )
11921164a1i 11 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  pi  =/=  0 )
11931177, 1191, 1192divcld 10801 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( S. ( 0 (,) pi ) ( G `  s )  _d s  /  pi )  e.  CC )
11946fvmpt2 6291 . . . . . . 7  |-  ( ( n  e.  NN  /\  ( S. ( 0 (,) pi ) ( G `
 s )  _d s  /  pi )  e.  CC )  -> 
( E `  n
)  =  ( S. ( 0 (,) pi ) ( G `  s )  _d s  /  pi ) )
11951142, 1193, 1194syl2anc 693 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( E `
 n )  =  ( S. ( 0 (,) pi ) ( G `  s )  _d s  /  pi ) )
11961180eqcomd 2628 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( G `  s
)  _d s  =  ( ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s )  _d s ) `  n ) )
11971184eqcomd 2628 . . . . . . . 8  |-  ( n  e.  NN  ->  pi  =  ( ( n  e.  NN  |->  pi ) `
 n ) )
11981197adantl 482 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  pi  =  ( ( n  e.  NN  |->  pi ) `  n ) )
11991196, 1198oveq12d 6668 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( S. ( 0 (,) pi ) ( G `  s )  _d s  /  pi )  =  ( ( ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s
)  _d s ) `
 n )  / 
( ( n  e.  NN  |->  pi ) `  n ) ) )
12001195, 1199eqtrd 2656 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( E `
 n )  =  ( ( ( n  e.  NN  |->  S. ( 0 (,) pi ) ( G `  s
)  _d s ) `
 n )  / 
( ( n  e.  NN  |->  pi ) `  n ) ) )
12013, 4, 5, 8, 9, 2, 1149, 1152, 1163, 1165, 1181, 1190, 1200climdivf 39844 . . . 4  |-  ( ph  ->  E  ~~>  ( 0  /  pi ) )
12021155, 1164div0i 10759 . . . . 5  |-  ( 0  /  pi )  =  0
12031202a1i 11 . . . 4  |-  ( ph  ->  ( 0  /  pi )  =  0 )
12041201, 1203breqtrd 4679 . . 3  |-  ( ph  ->  E  ~~>  0 )
1205 fourierdlem104.z . . . . 5  |-  Z  =  ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s )
12061098mptex 6486 . . . . 5  |-  ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  m
) `  s )
)  _d s )  e.  _V
12071205, 1206eqeltri 2697 . . . 4  |-  Z  e. 
_V
12081207a1i 11 . . 3  |-  ( ph  ->  Z  e.  _V )
12091098mptex 6486 . . . . 5  |-  ( m  e.  NN  |->  ( Y  /  2 ) )  e.  _V
12101209a1i 11 . . . 4  |-  ( ph  ->  ( m  e.  NN  |->  ( Y  /  2
) )  e.  _V )
1211 limccl 23639 . . . . . 6  |-  ( ( F  |`  ( X (,) +oo ) ) lim CC  X )  C_  CC
12121211, 26sseldi 3601 . . . . 5  |-  ( ph  ->  Y  e.  CC )
12131212halfcld 11277 . . . 4  |-  ( ph  ->  ( Y  /  2
)  e.  CC )
1214 eqidd 2623 . . . . 5  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( m  e.  NN  |->  ( Y  / 
2 ) )  =  ( m  e.  NN  |->  ( Y  /  2
) ) )
1215 eqidd 2623 . . . . 5  |-  ( ( ( ph  /\  n  e.  ( ZZ>= `  1 )
)  /\  m  =  n )  ->  ( Y  /  2 )  =  ( Y  /  2
) )
12169eqcomi 2631 . . . . . . . 8  |-  ( ZZ>= ` 
1 )  =  NN
12171216eleq2i 2693 . . . . . . 7  |-  ( n  e.  ( ZZ>= `  1
)  <->  n  e.  NN )
12181217biimpi 206 . . . . . 6  |-  ( n  e.  ( ZZ>= `  1
)  ->  n  e.  NN )
12191218adantl 482 . . . . 5  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  n  e.  NN )
12201213adantr 481 . . . . 5  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( Y  /  2 )  e.  CC )
12211214, 1215, 1219, 1220fvmptd 6288 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( (
m  e.  NN  |->  ( Y  /  2 ) ) `  n )  =  ( Y  / 
2 ) )
12221, 2, 1210, 1213, 1221climconst 14274 . . 3  |-  ( ph  ->  ( m  e.  NN  |->  ( Y  /  2
) )  ~~>  ( Y  /  2 ) )
12231193, 6fmptd 6385 . . . . 5  |-  ( ph  ->  E : NN --> CC )
12241223adantr 481 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  E : NN
--> CC )
12251224, 1219ffvelrnd 6360 . . 3  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( E `  n )  e.  CC )
12261221, 1220eqeltrd 2701 . . 3  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( (
m  e.  NN  |->  ( Y  /  2 ) ) `  n )  e.  CC )
12271221oveq2d 6666 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( ( E `  n )  +  ( ( m  e.  NN  |->  ( Y  /  2 ) ) `
 n ) )  =  ( ( E `
 n )  +  ( Y  /  2
) ) )
1228803a1i 11 . . . . . 6  |-  ( ph  ->  ( 0 (,) pi )  e.  dom  vol )
1229 0red 10041 . . . . . . . . . . . . . 14  |-  ( s  e.  ( 0 (,) pi )  ->  0  e.  RR )
12301229rexrd 10089 . . . . . . . . . . . . 13  |-  ( s  e.  ( 0 (,) pi )  ->  0  e.  RR* )
123154a1i 11 . . . . . . . . . . . . 13  |-  ( s  e.  ( 0 (,) pi )  ->  pi  e.  RR* )
1232 id 22 . . . . . . . . . . . . 13  |-  ( s  e.  ( 0 (,) pi )  ->  s  e.  ( 0 (,) pi ) )
1233 ioogtlb 39717 . . . . . . . . . . . . 13  |-  ( ( 0  e.  RR*  /\  pi  e.  RR*  /\  s  e.  ( 0 (,) pi ) )  ->  0  <  s )
12341230, 1231, 1232, 1233syl3anc 1326 . . . . . . . . . . . 12  |-  ( s  e.  ( 0 (,) pi )  ->  0  <  s )
12351234gt0ne0d 10592 . . . . . . . . . . 11  |-  ( s  e.  ( 0 (,) pi )  ->  s  =/=  0 )
12361235neneqd 2799 . . . . . . . . . 10  |-  ( s  e.  ( 0 (,) pi )  ->  -.  s  =  0 )
1237 velsn 4193 . . . . . . . . . 10  |-  ( s  e.  { 0 }  <-> 
s  =  0 )
12381236, 1237sylnibr 319 . . . . . . . . 9  |-  ( s  e.  ( 0 (,) pi )  ->  -.  s  e.  { 0 } )
1239765, 1238eldifd 3585 . . . . . . . 8  |-  ( s  e.  ( 0 (,) pi )  ->  s  e.  ( ( -u pi [,] pi )  \  {
0 } ) )
12401239ssriv 3607 . . . . . . 7  |-  ( 0 (,) pi )  C_  ( ( -u pi [,] pi )  \  {
0 } )
12411240a1i 11 . . . . . 6  |-  ( ph  ->  ( 0 (,) pi )  C_  ( ( -u pi [,] pi )  \  { 0 } ) )
1242 fourierdlem104.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 ) ) ) ) ) ) )
12431234adantl 482 . . . . . . 7  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  0  <  s )
12441243iftrued 4094 . . . . . 6  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  if ( 0  <  s ,  Y ,  W )  =  Y )
1245 eqid 2622 . . . . . . . 8  |-  ( D `
 n )  =  ( D `  n
)
1246 0red 10041 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  0  e.  RR )
124712a1i 11 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  pi  e.  RR )
1248759, 12, 885ltleii 10160 . . . . . . . . 9  |-  0  <_  pi
12491248a1i 11 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  0  <_  pi )
1250 eqid 2622 . . . . . . . 8  |-  ( s  e.  ( 0 [,] pi )  |->  ( ( ( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  /  pi ) )  =  ( s  e.  ( 0 [,] pi )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) )
12511242, 1142, 1245, 1246, 1247, 1249, 1250dirkeritg 40319 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( ( D `  n ) `  s
)  _d s  =  ( ( ( s  e.  ( 0 [,] pi )  |->  ( ( ( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  /  pi ) ) `  pi )  -  ( (
s  e.  ( 0 [,] pi )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  0 ) ) )
1252 ubicc2 12289 . . . . . . . . . . 11  |-  ( ( 0  e.  RR*  /\  pi  e.  RR*  /\  0  <_  pi )  ->  pi  e.  ( 0 [,] pi ) )
125353, 54, 1248, 1252mp3an 1424 . . . . . . . . . 10  |-  pi  e.  ( 0 [,] pi )
1254 oveq1 6657 . . . . . . . . . . . . 13  |-  ( s  =  pi  ->  (
s  /  2 )  =  ( pi  / 
2 ) )
1255 oveq2 6658 . . . . . . . . . . . . . . . . . 18  |-  ( s  =  pi  ->  (
k  x.  s )  =  ( k  x.  pi ) )
12561255fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( s  =  pi  ->  ( sin `  ( k  x.  s ) )  =  ( sin `  (
k  x.  pi ) ) )
12571256oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( s  =  pi  ->  (
( sin `  (
k  x.  s ) )  /  k )  =  ( ( sin `  ( k  x.  pi ) )  /  k
) )
1258 elfzelz 12342 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( 1 ... n )  ->  k  e.  ZZ )
12591258zcnd 11483 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( 1 ... n )  ->  k  e.  CC )
12601155a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( 1 ... n )  ->  pi  e.  CC )
12611164a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  ( 1 ... n )  ->  pi  =/=  0 )
12621259, 1260, 1261divcan4d 10807 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  (
( k  x.  pi )  /  pi )  =  k )
12631262, 1258eqeltrd 2701 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 1 ... n )  ->  (
( k  x.  pi )  /  pi )  e.  ZZ )
12641259, 1260mulcld 10060 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  (
k  x.  pi )  e.  CC )
1265 sineq0 24273 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  x.  pi )  e.  CC  ->  (
( sin `  (
k  x.  pi ) )  =  0  <->  (
( k  x.  pi )  /  pi )  e.  ZZ ) )
12661264, 1265syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 1 ... n )  ->  (
( sin `  (
k  x.  pi ) )  =  0  <->  (
( k  x.  pi )  /  pi )  e.  ZZ ) )
12671263, 1266mpbird 247 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 1 ... n )  ->  ( sin `  ( k  x.  pi ) )  =  0 )
12681267oveq1d 6665 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( 1 ... n )  ->  (
( sin `  (
k  x.  pi ) )  /  k )  =  ( 0  / 
k ) )
1269 0red 10041 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  0  e.  RR )
1270 1red 10055 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  1  e.  RR )
12711258zred 11482 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  k  e.  RR )
127298a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  0  <  1 )
1273 elfzle1 12344 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  ( 1 ... n )  ->  1  <_  k )
12741269, 1270, 1271, 1272, 1273ltletrd 10197 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 1 ... n )  ->  0  <  k )
12751274gt0ne0d 10592 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( 1 ... n )  ->  k  =/=  0 )
12761259, 1275div0d 10800 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( 1 ... n )  ->  (
0  /  k )  =  0 )
12771268, 1276eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( k  e.  ( 1 ... n )  ->  (
( sin `  (
k  x.  pi ) )  /  k )  =  0 )
12781257, 1277sylan9eq 2676 . . . . . . . . . . . . . . 15  |-  ( ( s  =  pi  /\  k  e.  ( 1 ... n ) )  ->  ( ( sin `  ( k  x.  s
) )  /  k
)  =  0 )
12791278sumeq2dv 14433 . . . . . . . . . . . . . 14  |-  ( s  =  pi  ->  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
)  =  sum_ k  e.  ( 1 ... n
) 0 )
1280 fzfi 12771 . . . . . . . . . . . . . . . 16  |-  ( 1 ... n )  e. 
Fin
12811280olci 406 . . . . . . . . . . . . . . 15  |-  ( ( 1 ... n ) 
C_  ( ZZ>= `  .||  )  \/  ( 1 ... n
)  e.  Fin )
1282 sumz 14453 . . . . . . . . . . . . . . 15  |-  ( ( ( 1 ... n
)  C_  ( ZZ>= `  .||  )  \/  ( 1 ... n )  e. 
Fin )  ->  sum_ k  e.  ( 1 ... n
) 0  =  0 )
12831281, 1282ax-mp 5 . . . . . . . . . . . . . 14  |-  sum_ k  e.  ( 1 ... n
) 0  =  0
12841279, 1283syl6eq 2672 . . . . . . . . . . . . 13  |-  ( s  =  pi  ->  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
)  =  0 )
12851254, 1284oveq12d 6668 . . . . . . . . . . . 12  |-  ( s  =  pi  ->  (
( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  =  ( ( pi  /  2
)  +  0 ) )
12861285oveq1d 6665 . . . . . . . . . . 11  |-  ( s  =  pi  ->  (
( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi )  =  ( ( ( pi  /  2 )  +  0 )  /  pi ) )
1287 ovex 6678 . . . . . . . . . . 11  |-  ( ( ( pi  /  2
)  +  0 )  /  pi )  e. 
_V
12881286, 1250, 1287fvmpt 6282 . . . . . . . . . 10  |-  ( pi  e.  ( 0 [,] pi )  ->  (
( s  e.  ( 0 [,] pi ) 
|->  ( ( ( s  /  2 )  + 
sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  pi )  =  ( ( ( pi  /  2 )  +  0 )  /  pi ) )
12891253, 1288ax-mp 5 . . . . . . . . 9  |-  ( ( s  e.  ( 0 [,] pi )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  pi )  =  ( ( ( pi  /  2 )  +  0 )  /  pi )
1290 lbicc2 12288 . . . . . . . . . . 11  |-  ( ( 0  e.  RR*  /\  pi  e.  RR*  /\  0  <_  pi )  ->  0  e.  ( 0 [,] pi ) )
129153, 54, 1248, 1290mp3an 1424 . . . . . . . . . 10  |-  0  e.  ( 0 [,] pi )
1292 oveq1 6657 . . . . . . . . . . . . . . . 16  |-  ( s  =  0  ->  (
s  /  2 )  =  ( 0  / 
2 ) )
1293 2cn 11091 . . . . . . . . . . . . . . . . 17  |-  2  e.  CC
12941293, 238div0i 10759 . . . . . . . . . . . . . . . 16  |-  ( 0  /  2 )  =  0
12951292, 1294syl6eq 2672 . . . . . . . . . . . . . . 15  |-  ( s  =  0  ->  (
s  /  2 )  =  0 )
1296 oveq2 6658 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( s  =  0  ->  (
k  x.  s )  =  ( k  x.  0 ) )
12971259mul01d 10235 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( k  e.  ( 1 ... n )  ->  (
k  x.  0 )  =  0 )
12981296, 1297sylan9eq 2676 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( k  x.  s )  =  0 )
12991298fveq2d 6195 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( sin `  (
k  x.  s ) )  =  ( sin `  0 ) )
1300 sin0 14879 . . . . . . . . . . . . . . . . . . . 20  |-  ( sin `  0 )  =  0
13011299, 1300syl6eq 2672 . . . . . . . . . . . . . . . . . . 19  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( sin `  (
k  x.  s ) )  =  0 )
13021301oveq1d 6665 . . . . . . . . . . . . . . . . . 18  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( ( sin `  ( k  x.  s
) )  /  k
)  =  ( 0  /  k ) )
13031276adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( 0  / 
k )  =  0 )
13041302, 1303eqtrd 2656 . . . . . . . . . . . . . . . . 17  |-  ( ( s  =  0  /\  k  e.  ( 1 ... n ) )  ->  ( ( sin `  ( k  x.  s
) )  /  k
)  =  0 )
13051304sumeq2dv 14433 . . . . . . . . . . . . . . . 16  |-  ( s  =  0  ->  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
)  =  sum_ k  e.  ( 1 ... n
) 0 )
13061305, 1283syl6eq 2672 . . . . . . . . . . . . . . 15  |-  ( s  =  0  ->  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
)  =  0 )
13071295, 1306oveq12d 6668 . . . . . . . . . . . . . 14  |-  ( s  =  0  ->  (
( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  =  ( 0  +  0 ) )
1308 00id 10211 . . . . . . . . . . . . . 14  |-  ( 0  +  0 )  =  0
13091307, 1308syl6eq 2672 . . . . . . . . . . . . 13  |-  ( s  =  0  ->  (
( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  =  0 )
13101309oveq1d 6665 . . . . . . . . . . . 12  |-  ( s  =  0  ->  (
( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi )  =  ( 0  /  pi ) )
13111310, 1202syl6eq 2672 . . . . . . . . . . 11  |-  ( s  =  0  ->  (
( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi )  =  0 )
1312 c0ex 10034 . . . . . . . . . . 11  |-  0  e.  _V
13131311, 1250, 1312fvmpt 6282 . . . . . . . . . 10  |-  ( 0  e.  ( 0 [,] pi )  ->  (
( s  e.  ( 0 [,] pi ) 
|->  ( ( ( s  /  2 )  + 
sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  0 )  =  0 )
13141291, 1313ax-mp 5 . . . . . . . . 9  |-  ( ( s  e.  ( 0 [,] pi )  |->  ( ( ( s  / 
2 )  +  sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  0 )  =  0
13151289, 1314oveq12i 6662 . . . . . . . 8  |-  ( ( ( s  e.  ( 0 [,] pi ) 
|->  ( ( ( s  /  2 )  + 
sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  pi )  -  ( ( s  e.  ( 0 [,] pi )  |->  ( ( ( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  /  pi ) ) `  0
) )  =  ( ( ( ( pi 
/  2 )  +  0 )  /  pi )  -  0 )
13161315a1i 11 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( ( s  e.  ( 0 [,] pi ) 
|->  ( ( ( s  /  2 )  + 
sum_ k  e.  ( 1 ... n ) ( ( sin `  (
k  x.  s ) )  /  k ) )  /  pi ) ) `  pi )  -  ( ( s  e.  ( 0 [,] pi )  |->  ( ( ( s  /  2
)  +  sum_ k  e.  ( 1 ... n
) ( ( sin `  ( k  x.  s
) )  /  k
) )  /  pi ) ) `  0
) )  =  ( ( ( ( pi 
/  2 )  +  0 )  /  pi )  -  0 ) )
13171019recni 10052 . . . . . . . . . . . . 13  |-  ( pi 
/  2 )  e.  CC
13181317addid1i 10223 . . . . . . . . . . . 12  |-  ( ( pi  /  2 )  +  0 )  =  ( pi  /  2
)
13191318oveq1i 6660 . . . . . . . . . . 11  |-  ( ( ( pi  /  2
)  +  0 )  /  pi )  =  ( ( pi  / 
2 )  /  pi )
13201155, 1293, 1155, 238, 1164divdiv32i 10780 . . . . . . . . . . 11  |-  ( ( pi  /  2 )  /  pi )  =  ( ( pi  /  pi )  /  2
)
13211155, 1164dividi 10758 . . . . . . . . . . . 12  |-  ( pi 
/  pi )  =  1
13221321oveq1i 6660 . . . . . . . . . . 11  |-  ( ( pi  /  pi )  /  2 )  =  ( 1  /  2
)
13231319, 1320, 13223eqtri 2648 . . . . . . . . . 10  |-  ( ( ( pi  /  2
)  +  0 )  /  pi )  =  ( 1  /  2
)
13241323oveq1i 6660 . . . . . . . . 9  |-  ( ( ( ( pi  / 
2 )  +  0 )  /  pi )  -  0 )  =  ( ( 1  / 
2 )  -  0 )
1325 halfcn 11247 . . . . . . . . . 10  |-  ( 1  /  2 )  e.  CC
13261325subid1i 10353 . . . . . . . . 9  |-  ( ( 1  /  2 )  -  0 )  =  ( 1  /  2
)
13271324, 1326eqtri 2644 . . . . . . . 8  |-  ( ( ( ( pi  / 
2 )  +  0 )  /  pi )  -  0 )  =  ( 1  /  2
)
13281327a1i 11 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( ( ( pi  / 
2 )  +  0 )  /  pi )  -  0 )  =  ( 1  /  2
) )
13291251, 1316, 13283eqtrd 2660 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( ( D `  n ) `  s
)  _d s  =  ( 1  /  2
) )
133014, 15, 258, 259, 261, 826, 263, 265, 267, 39, 40, 41, 818, 817, 837, 593, 839, 841, 26, 37, 1228, 1241, 6, 1242, 27, 1244, 1329fourierdlem95 40418 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  ( ( E `  n )  +  ( Y  / 
2 ) )  =  S. ( 0 (,) pi ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s )
13311219, 1330syldan 487 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( ( E `  n )  +  ( Y  / 
2 ) )  =  S. ( 0 (,) pi ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s )
13321205a1i 11 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  Z  =  ( m  e.  NN  |->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s ) )
1333 fveq2 6191 . . . . . . . . . . . 12  |-  ( m  =  n  ->  ( D `  m )  =  ( D `  n ) )
13341333fveq1d 6193 . . . . . . . . . . 11  |-  ( m  =  n  ->  (
( D `  m
) `  s )  =  ( ( D `
 n ) `  s ) )
13351334oveq2d 6666 . . . . . . . . . 10  |-  ( m  =  n  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  m ) `
 s ) )  =  ( ( F `
 ( X  +  s ) )  x.  ( ( D `  n ) `  s
) ) )
13361335adantr 481 . . . . . . . . 9  |-  ( ( m  =  n  /\  s  e.  ( 0 (,) pi ) )  ->  ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  =  ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) ) )
13371336itgeq2dv 23548 . . . . . . . 8  |-  ( m  =  n  ->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s  =  S. ( 0 (,) pi ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s )
13381337adantl 482 . . . . . . 7  |-  ( ( ( ph  /\  n  e.  NN )  /\  m  =  n )  ->  S. ( 0 (,) pi ) ( ( F `
 ( X  +  s ) )  x.  ( ( D `  m ) `  s
) )  _d s  =  S. ( 0 (,) pi ) ( ( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  _d s )
133914adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  F : RR --> RR )
134015adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  X  e.  RR )
1341775adantl 482 . . . . . . . . . . . 12  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  RR )
13421340, 1341readdcld 10069 . . . . . . . . . . 11  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  ( X  +  s )  e.  RR )
13431339, 1342ffvelrnd 6360 . . . . . . . . . 10  |-  ( (
ph  /\  s  e.  ( 0 (,) pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
13441343adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
13451242dirkerf 40314 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  ( D `  n ) : RR --> RR )
13461345ad2antlr 763 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  ( D `  n ) : RR --> RR )
1347775adantl 482 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  s  e.  RR )
13481346, 1347ffvelrnd 6360 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  (
( D `  n
) `  s )  e.  RR )
13491344, 1348remulcld 10070 . . . . . . . 8  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( 0 (,) pi ) )  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  e.  RR )
135014adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  F : RR --> RR )
135115adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  X  e.  RR )
1352210sseli 3599 . . . . . . . . . . . . . 14  |-  ( s  e.  ( -u pi [,] pi )  ->  s  e.  RR )
13531352adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  s  e.  RR )
13541351, 1353readdcld 10069 . . . . . . . . . . . 12  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  ( X  +  s )  e.  RR )
13551350, 1354ffvelrnd 6360 . . . . . . . . . . 11  |-  ( (
ph  /\  s  e.  ( -u pi [,] pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
13561355adantlr 751 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
13571345ad2antlr 763 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  ( D `  n ) : RR --> RR )
13581352adantl 482 . . . . . . . . . . 11  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  s  e.  RR )
13591357, 1358ffvelrnd 6360 . . . . . . . . . 10  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( D `  n
) `  s )  e.  RR )
13601356, 1359remulcld 10070 . . . . . . . . 9  |-  ( ( ( ph  /\  n  e.  NN )  /\  s  e.  ( -u pi [,] pi ) )  ->  (
( F `  ( X  +  s )
)  x.  ( ( D `  n ) `
 s ) )  e.  RR )
136147a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  -u pi  e.  RR )
13621242dirkercncf 40324 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  ( D `  n )  e.  ( RR -cn-> RR ) )
13631362adantl 482 . . . . . . . . . 10  |-  ( (
ph  /\  n  e.  NN )  ->  ( D `
 n )  e.  ( RR -cn-> RR ) )
1364 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 ) ) )
13651361, 1247, 825, 1166, 258, 831, 832, 833, 834, 835, 80, 836, 1363, 1364fourierdlem84 40407 . . . . . . . . 9  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( -u pi [,] pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  e.  L^1 )
1366802, 804, 1360, 1365iblss 23571 . . . . . . . 8  |-  ( (
ph  /\  n  e.  NN )  ->  ( s  e.  ( 0 (,) pi )  |->  ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) ) )  e.  L^1 )
13671349, 1366itgrecl 23564 . . . . . . 7  |-  ( (
ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  _d s  e.  RR )
13681332, 1338, 1142, 1367fvmptd 6288 . . . . . 6  |-  ( (
ph  /\  n  e.  NN )  ->  ( Z `
 n )  =  S. ( 0 (,) pi ) ( ( F `  ( X  +  s ) )  x.  ( ( D `
 n ) `  s ) )  _d s )
13691368eqcomd 2628 . . . . 5  |-  ( (
ph  /\  n  e.  NN )  ->  S. ( 0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  _d s  =  ( Z `  n
) )
13701219, 1369syldan 487 . . . 4  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  S. (
0 (,) pi ) ( ( F `  ( X  +  s
) )  x.  (
( D `  n
) `  s )
)  _d s  =  ( Z `  n
) )
13711227, 1331, 13703eqtrrd 2661 . . 3  |-  ( (
ph  /\  n  e.  ( ZZ>= `  1 )
)  ->  ( Z `  n )  =  ( ( E `  n
)  +  ( ( m  e.  NN  |->  ( Y  /  2 ) ) `  n ) ) )
13721, 2, 1204, 1208, 1222, 1225, 1226, 1371climadd 14362 . 2  |-  ( ph  ->  Z  ~~>  ( 0  +  ( Y  /  2
) ) )
13731213addid2d 10237 . 2  |-  ( ph  ->  ( 0  +  ( Y  /  2 ) )  =  ( Y  /  2 ) )
13741372, 1373breqtrd 4679 1  |-  ( ph  ->  Z  ~~>  ( Y  / 
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