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

Theorem fourierdlem74 40397
Description: Given a piecewise smooth function  F, the derived function  H has a limit at the upper bound of each interval of the partition  Q. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem74.xre  |-  ( ph  ->  X  e.  RR )
fourierdlem74.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 ) ) ) } )
fourierdlem74.f  |-  ( ph  ->  F : RR --> RR )
fourierdlem74.x  |-  ( ph  ->  X  e.  ran  V
)
fourierdlem74.y  |-  ( ph  ->  Y  e.  RR )
fourierdlem74.w  |-  ( ph  ->  W  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
fourierdlem74.h  |-  H  =  ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  / 
s ) ) )
fourierdlem74.m  |-  ( ph  ->  M  e.  NN )
fourierdlem74.v  |-  ( ph  ->  V  e.  ( P `
 M ) )
fourierdlem74.r  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 ( i  +  1 ) ) ) )
fourierdlem74.q  |-  Q  =  ( i  e.  ( 0 ... M ) 
|->  ( ( V `  i )  -  X
) )
fourierdlem74.o  |-  O  =  ( 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 ) ) ) } )
fourierdlem74.g  |-  G  =  ( RR  _D  F
)
fourierdlem74.gcn  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( G  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> RR )
fourierdlem74.e  |-  ( ph  ->  E  e.  ( ( G  |`  ( -oo (,) X ) ) lim CC  X ) )
fourierdlem74.a  |-  A  =  if ( ( V `
 ( i  +  1 ) )  =  X ,  E , 
( ( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  /  ( Q `
 ( i  +  1 ) ) ) )
Assertion
Ref Expression
fourierdlem74  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  A  e.  ( ( H  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
Distinct variable groups:    E, s    F, s    H, s    i, M, m, p    M, s, i    Q, i, p    Q, s    R, s    i, V, p    V, s    W, s   
i, X, m, p    X, s    Y, s    ph, i,
s
Allowed substitution hints:    ph( m, p)    A( i, m, s, p)    P( i, m, s, p)    Q( m)    R( i, m, p)    E( i, m, p)    F( i, m, p)    G( i, m, s, p)    H( i, m, p)    O( i, m, s, p)    V( m)    W( i, m, p)    Y( i, m, p)

Proof of Theorem fourierdlem74
Dummy variables  x  j are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elfzofz 12485 . . . . . 6  |-  ( i  e.  ( 0..^ M )  ->  i  e.  ( 0 ... M
) )
2 pire 24210 . . . . . . . . . . . 12  |-  pi  e.  RR
32renegcli 10342 . . . . . . . . . . 11  |-  -u pi  e.  RR
43a1i 11 . . . . . . . . . 10  |-  ( ph  -> 
-u pi  e.  RR )
5 fourierdlem74.xre . . . . . . . . . 10  |-  ( ph  ->  X  e.  RR )
64, 5readdcld 10069 . . . . . . . . 9  |-  ( ph  ->  ( -u pi  +  X )  e.  RR )
72a1i 11 . . . . . . . . . 10  |-  ( ph  ->  pi  e.  RR )
87, 5readdcld 10069 . . . . . . . . 9  |-  ( ph  ->  ( pi  +  X
)  e.  RR )
96, 8iccssred 39727 . . . . . . . 8  |-  ( ph  ->  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  C_  RR )
109adantr 481 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( -u pi  +  X
) [,] ( pi  +  X ) ) 
C_  RR )
11 fourierdlem74.p . . . . . . . . 9  |-  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 ) ) ) } )
12 fourierdlem74.m . . . . . . . . 9  |-  ( ph  ->  M  e.  NN )
13 fourierdlem74.v . . . . . . . . 9  |-  ( ph  ->  V  e.  ( P `
 M ) )
1411, 12, 13fourierdlem15 40339 . . . . . . . 8  |-  ( ph  ->  V : ( 0 ... M ) --> ( ( -u pi  +  X ) [,] (
pi  +  X ) ) )
1514ffvelrnda 6359 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( V `  i )  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) ) )
1610, 15sseldd 3604 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( V `  i )  e.  RR )
171, 16sylan2 491 . . . . 5  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  e.  RR )
1817adantr 481 . . . 4  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( V `  i )  e.  RR )
195ad2antrr 762 . . . 4  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  X  e.  RR )
2011fourierdlem2 40326 . . . . . . . . . 10  |-  ( 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 ) ) ) ) ) )
2112, 20syl 17 . . . . . . . . 9  |-  ( 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 ) ) ) ) ) )
2213, 21mpbid 222 . . . . . . . 8  |-  ( 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 ) ) ) ) )
2322simprrd 797 . . . . . . 7  |-  ( ph  ->  A. i  e.  ( 0..^ M ) ( V `  i )  <  ( V `  ( i  +  1 ) ) )
2423r19.21bi 2932 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  <  ( V `  ( i  +  1 ) ) )
2524adantr 481 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( V `  i )  <  ( V `  (
i  +  1 ) ) )
26 eqcom 2629 . . . . . . 7  |-  ( ( V `  ( i  +  1 ) )  =  X  <->  X  =  ( V `  ( i  +  1 ) ) )
2726biimpi 206 . . . . . 6  |-  ( ( V `  ( i  +  1 ) )  =  X  ->  X  =  ( V `  ( i  +  1 ) ) )
2827adantl 482 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  X  =  ( V `  ( i  +  1 ) ) )
2925, 28breqtrrd 4681 . . . 4  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( V `  i )  <  X )
30 fourierdlem74.f . . . . . 6  |-  ( ph  ->  F : RR --> RR )
31 ioossre 12235 . . . . . . 7  |-  ( ( V `  i ) (,) X )  C_  RR
3231a1i 11 . . . . . 6  |-  ( ph  ->  ( ( V `  i ) (,) X
)  C_  RR )
3330, 32fssresd 6071 . . . . 5  |-  ( ph  ->  ( F  |`  (
( V `  i
) (,) X ) ) : ( ( V `  i ) (,) X ) --> RR )
3433ad2antrr 762 . . . 4  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( F  |`  ( ( V `
 i ) (,) X ) ) : ( ( V `  i ) (,) X
) --> RR )
35 limcresi 23649 . . . . . . . 8  |-  ( ( F  |`  ( -oo (,) X ) ) lim CC  X )  C_  (
( ( F  |`  ( -oo (,) X ) )  |`  ( ( V `  i ) (,) X ) ) lim CC  X )
36 fourierdlem74.w . . . . . . . 8  |-  ( ph  ->  W  e.  ( ( F  |`  ( -oo (,) X ) ) lim CC  X ) )
3735, 36sseldi 3601 . . . . . . 7  |-  ( ph  ->  W  e.  ( ( ( F  |`  ( -oo (,) X ) )  |`  ( ( V `  i ) (,) X
) ) lim CC  X
) )
3837adantr 481 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  W  e.  ( ( ( F  |`  ( -oo (,) X ) )  |`  ( ( V `  i ) (,) X ) ) lim CC  X ) )
39 mnfxr 10096 . . . . . . . . . 10  |- -oo  e.  RR*
4039a1i 11 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  -> -oo  e.  RR* )
4117rexrd 10089 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  e.  RR* )
4217mnfltd 11958 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  -> -oo  <  ( V `
 i ) )
4340, 41, 42xrltled 39486 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  -> -oo  <_  ( V `
 i ) )
44 iooss1 12210 . . . . . . . . 9  |-  ( ( -oo  e.  RR*  /\ -oo  <_  ( V `  i
) )  ->  (
( V `  i
) (,) X ) 
C_  ( -oo (,) X ) )
4540, 43, 44syl2anc 693 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 i ) (,) X )  C_  ( -oo (,) X ) )
4645resabs1d 5428 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( F  |`  ( -oo (,) X
) )  |`  (
( V `  i
) (,) X ) )  =  ( F  |`  ( ( V `  i ) (,) X
) ) )
4746oveq1d 6665 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( F  |`  ( -oo (,) X ) )  |`  ( ( V `  i ) (,) X
) ) lim CC  X
)  =  ( ( F  |`  ( ( V `  i ) (,) X ) ) lim CC  X ) )
4838, 47eleqtrd 2703 . . . . 5  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  W  e.  ( ( F  |`  (
( V `  i
) (,) X ) ) lim CC  X ) )
4948adantr 481 . . . 4  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  W  e.  ( ( F  |`  ( ( V `  i ) (,) X
) ) lim CC  X
) )
50 eqid 2622 . . . 4  |-  ( RR 
_D  ( F  |`  ( ( V `  i ) (,) X
) ) )  =  ( RR  _D  ( F  |`  ( ( V `
 i ) (,) X ) ) )
51 ax-resscn 9993 . . . . . . . . . 10  |-  RR  C_  CC
5251a1i 11 . . . . . . . . 9  |-  ( ph  ->  RR  C_  CC )
5330, 52fssd 6057 . . . . . . . . 9  |-  ( ph  ->  F : RR --> CC )
54 ssid 3624 . . . . . . . . . 10  |-  RR  C_  RR
5554a1i 11 . . . . . . . . 9  |-  ( ph  ->  RR  C_  RR )
56 eqid 2622 . . . . . . . . . 10  |-  ( TopOpen ` fld )  =  ( TopOpen ` fld )
5756tgioo2 22606 . . . . . . . . . 10  |-  ( topGen ` 
ran  (,) )  =  ( ( TopOpen ` fld )t  RR )
5856, 57dvres 23675 . . . . . . . . 9  |-  ( ( ( RR  C_  CC  /\  F : RR --> CC )  /\  ( RR  C_  RR  /\  ( ( V `
 i ) (,) X )  C_  RR ) )  ->  ( RR  _D  ( F  |`  ( ( V `  i ) (,) X
) ) )  =  ( ( RR  _D  F )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( V `  i ) (,) X ) ) ) )
5952, 53, 55, 32, 58syl22anc 1327 . . . . . . . 8  |-  ( ph  ->  ( RR  _D  ( F  |`  ( ( V `
 i ) (,) X ) ) )  =  ( ( RR 
_D  F )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( V `  i ) (,) X ) ) ) )
60 fourierdlem74.g . . . . . . . . . . 11  |-  G  =  ( RR  _D  F
)
6160eqcomi 2631 . . . . . . . . . 10  |-  ( RR 
_D  F )  =  G
62 ioontr 39736 . . . . . . . . . 10  |-  ( ( int `  ( topGen ` 
ran  (,) ) ) `  ( ( V `  i ) (,) X
) )  =  ( ( V `  i
) (,) X )
6361, 62reseq12i 5394 . . . . . . . . 9  |-  ( ( RR  _D  F )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( V `  i ) (,) X ) ) )  =  ( G  |`  ( ( V `  i ) (,) X
) )
6463a1i 11 . . . . . . . 8  |-  ( ph  ->  ( ( RR  _D  F )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( V `  i ) (,) X ) ) )  =  ( G  |`  ( ( V `  i ) (,) X
) ) )
6559, 64eqtrd 2656 . . . . . . 7  |-  ( ph  ->  ( RR  _D  ( F  |`  ( ( V `
 i ) (,) X ) ) )  =  ( G  |`  ( ( V `  i ) (,) X
) ) )
6665dmeqd 5326 . . . . . 6  |-  ( ph  ->  dom  ( RR  _D  ( F  |`  ( ( V `  i ) (,) X ) ) )  =  dom  ( G  |`  ( ( V `
 i ) (,) X ) ) )
6766ad2antrr 762 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  dom  ( RR  _D  ( F  |`  ( ( V `
 i ) (,) X ) ) )  =  dom  ( G  |`  ( ( V `  i ) (,) X
) ) )
68 fourierdlem74.gcn . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( G  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) : ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) --> RR )
6968adantr 481 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( G  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR )
70 oveq2 6658 . . . . . . . . . 10  |-  ( ( V `  ( i  +  1 ) )  =  X  ->  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) )  =  ( ( V `
 i ) (,) X ) )
7170reseq2d 5396 . . . . . . . . 9  |-  ( ( V `  ( i  +  1 ) )  =  X  ->  ( G  |`  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) ) )  =  ( G  |`  (
( V `  i
) (,) X ) ) )
7271, 70feq12d 6033 . . . . . . . 8  |-  ( ( V `  ( i  +  1 ) )  =  X  ->  (
( G  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR  <->  ( G  |`  ( ( V `  i ) (,) X ) ) : ( ( V `  i ) (,) X
) --> RR ) )
7372adantl 482 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  (
( G  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) : ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) --> RR  <->  ( G  |`  ( ( V `  i ) (,) X ) ) : ( ( V `  i ) (,) X
) --> RR ) )
7469, 73mpbid 222 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( G  |`  ( ( V `
 i ) (,) X ) ) : ( ( V `  i ) (,) X
) --> RR )
75 fdm 6051 . . . . . 6  |-  ( ( G  |`  ( ( V `  i ) (,) X ) ) : ( ( V `  i ) (,) X
) --> RR  ->  dom  ( G  |`  ( ( V `  i ) (,) X ) )  =  ( ( V `
 i ) (,) X ) )
7674, 75syl 17 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  dom  ( G  |`  ( ( V `  i ) (,) X ) )  =  ( ( V `
 i ) (,) X ) )
7767, 76eqtrd 2656 . . . 4  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  dom  ( RR  _D  ( F  |`  ( ( V `
 i ) (,) X ) ) )  =  ( ( V `
 i ) (,) X ) )
78 limcresi 23649 . . . . . . . 8  |-  ( ( G  |`  ( -oo (,) X ) ) lim CC  X )  C_  (
( ( G  |`  ( -oo (,) X ) )  |`  ( ( V `  i ) (,) X ) ) lim CC  X )
7945resabs1d 5428 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( G  |`  ( -oo (,) X
) )  |`  (
( V `  i
) (,) X ) )  =  ( G  |`  ( ( V `  i ) (,) X
) ) )
8079oveq1d 6665 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( G  |`  ( -oo (,) X ) )  |`  ( ( V `  i ) (,) X
) ) lim CC  X
)  =  ( ( G  |`  ( ( V `  i ) (,) X ) ) lim CC  X ) )
8178, 80syl5sseq 3653 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( G  |`  ( -oo (,) X
) ) lim CC  X
)  C_  ( ( G  |`  ( ( V `
 i ) (,) X ) ) lim CC  X ) )
82 fourierdlem74.e . . . . . . . 8  |-  ( ph  ->  E  e.  ( ( G  |`  ( -oo (,) X ) ) lim CC  X ) )
8382adantr 481 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  E  e.  ( ( G  |`  ( -oo (,) X ) ) lim
CC  X ) )
8481, 83sseldd 3604 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  E  e.  ( ( G  |`  (
( V `  i
) (,) X ) ) lim CC  X ) )
8559, 64eqtr2d 2657 . . . . . . . 8  |-  ( ph  ->  ( G  |`  (
( V `  i
) (,) X ) )  =  ( RR 
_D  ( F  |`  ( ( V `  i ) (,) X
) ) ) )
8685oveq1d 6665 . . . . . . 7  |-  ( ph  ->  ( ( G  |`  ( ( V `  i ) (,) X
) ) lim CC  X
)  =  ( ( RR  _D  ( F  |`  ( ( V `  i ) (,) X
) ) ) lim CC  X ) )
8786adantr 481 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( G  |`  ( ( V `  i ) (,) X
) ) lim CC  X
)  =  ( ( RR  _D  ( F  |`  ( ( V `  i ) (,) X
) ) ) lim CC  X ) )
8884, 87eleqtrd 2703 . . . . 5  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  E  e.  ( ( RR  _D  ( F  |`  ( ( V `
 i ) (,) X ) ) ) lim
CC  X ) )
8988adantr 481 . . . 4  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  E  e.  ( ( RR  _D  ( F  |`  ( ( V `  i ) (,) X ) ) ) lim CC  X ) )
90 eqid 2622 . . . 4  |-  ( s  e.  ( ( ( V `  i )  -  X ) (,) 0 )  |->  ( ( ( ( F  |`  ( ( V `  i ) (,) X
) ) `  ( X  +  s )
)  -  W )  /  s ) )  =  ( s  e.  ( ( ( V `
 i )  -  X ) (,) 0
)  |->  ( ( ( ( F  |`  (
( V `  i
) (,) X ) ) `  ( X  +  s ) )  -  W )  / 
s ) )
91 oveq2 6658 . . . . . . 7  |-  ( x  =  s  ->  ( X  +  x )  =  ( X  +  s ) )
9291fveq2d 6195 . . . . . 6  |-  ( x  =  s  ->  (
( F  |`  (
( V `  i
) (,) X ) ) `  ( X  +  x ) )  =  ( ( F  |`  ( ( V `  i ) (,) X
) ) `  ( X  +  s )
) )
9392oveq1d 6665 . . . . 5  |-  ( x  =  s  ->  (
( ( F  |`  ( ( V `  i ) (,) X
) ) `  ( X  +  x )
)  -  W )  =  ( ( ( F  |`  ( ( V `  i ) (,) X ) ) `  ( X  +  s
) )  -  W
) )
9493cbvmptv 4750 . . . 4  |-  ( x  e.  ( ( ( V `  i )  -  X ) (,) 0 )  |->  ( ( ( F  |`  (
( V `  i
) (,) X ) ) `  ( X  +  x ) )  -  W ) )  =  ( s  e.  ( ( ( V `
 i )  -  X ) (,) 0
)  |->  ( ( ( F  |`  ( ( V `  i ) (,) X ) ) `  ( X  +  s
) )  -  W
) )
95 id 22 . . . . 5  |-  ( x  =  s  ->  x  =  s )
9695cbvmptv 4750 . . . 4  |-  ( x  e.  ( ( ( V `  i )  -  X ) (,) 0 )  |->  x )  =  ( s  e.  ( ( ( V `
 i )  -  X ) (,) 0
)  |->  s )
9718, 19, 29, 34, 49, 50, 77, 89, 90, 94, 96fourierdlem60 40383 . . 3  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  E  e.  ( ( s  e.  ( ( ( V `
 i )  -  X ) (,) 0
)  |->  ( ( ( ( F  |`  (
( V `  i
) (,) X ) ) `  ( X  +  s ) )  -  W )  / 
s ) ) lim CC  0 ) )
98 fourierdlem74.a . . . . 5  |-  A  =  if ( ( V `
 ( i  +  1 ) )  =  X ,  E , 
( ( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  /  ( Q `
 ( i  +  1 ) ) ) )
99 iftrue 4092 . . . . 5  |-  ( ( V `  ( i  +  1 ) )  =  X  ->  if ( ( V `  ( i  +  1 ) )  =  X ,  E ,  ( ( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  /  ( Q `
 ( i  +  1 ) ) ) )  =  E )
10098, 99syl5eq 2668 . . . 4  |-  ( ( V `  ( i  +  1 ) )  =  X  ->  A  =  E )
101100adantl 482 . . 3  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  A  =  E )
102 fourierdlem74.h . . . . . . 7  |-  H  =  ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  / 
s ) ) )
103102reseq1i 5392 . . . . . 6  |-  ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  =  ( ( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  / 
s ) ) )  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )
104103a1i 11 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( H  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )  =  ( ( s  e.  ( -u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) )
105 ioossicc 12259 . . . . . . . 8  |-  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  C_  ( ( Q `  i ) [,] ( Q `  ( i  +  1 ) ) )
1063rexri 10097 . . . . . . . . . 10  |-  -u pi  e.  RR*
107106a1i 11 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  -u pi  e.  RR* )
1082rexri 10097 . . . . . . . . . 10  |-  pi  e.  RR*
109108a1i 11 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  pi  e.  RR* )
1103a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  -u pi  e.  RR )
1112a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  pi  e.  RR )
1125adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  X  e.  RR )
11316, 112resubcld 10458 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  -  X )  e.  RR )
1144recnd 10068 . . . . . . . . . . . . . . . 16  |-  ( ph  -> 
-u pi  e.  CC )
1155recnd 10068 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  X  e.  CC )
116114, 115pncand 10393 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( -u pi  +  X )  -  X
)  =  -u pi )
117116eqcomd 2628 . . . . . . . . . . . . . 14  |-  ( ph  -> 
-u pi  =  ( ( -u pi  +  X )  -  X
) )
118117adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  -u pi  =  ( ( -u pi  +  X )  -  X ) )
1196adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( -u pi  +  X )  e.  RR )
1208adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
pi  +  X )  e.  RR )
121 elicc2 12238 . . . . . . . . . . . . . . . . 17  |-  ( ( ( -u pi  +  X )  e.  RR  /\  ( pi  +  X
)  e.  RR )  ->  ( ( V `
 i )  e.  ( ( -u pi  +  X ) [,] (
pi  +  X ) )  <->  ( ( V `
 i )  e.  RR  /\  ( -u pi  +  X )  <_ 
( V `  i
)  /\  ( V `  i )  <_  (
pi  +  X ) ) ) )
122119, 120, 121syl2anc 693 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  e.  ( (
-u pi  +  X
) [,] ( pi  +  X ) )  <-> 
( ( V `  i )  e.  RR  /\  ( -u pi  +  X )  <_  ( V `  i )  /\  ( V `  i
)  <_  ( pi  +  X ) ) ) )
12315, 122mpbid 222 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  e.  RR  /\  ( -u pi  +  X
)  <_  ( V `  i )  /\  ( V `  i )  <_  ( pi  +  X
) ) )
124123simp2d 1074 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( -u pi  +  X )  <_  ( V `  i ) )
125119, 16, 112, 124lesub1dd 10643 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( -u pi  +  X
)  -  X )  <_  ( ( V `
 i )  -  X ) )
126118, 125eqbrtrd 4675 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  -u pi  <_  ( ( V `  i )  -  X
) )
127123simp3d 1075 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( V `  i )  <_  ( pi  +  X
) )
12816, 120, 112, 127lesub1dd 10643 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  -  X )  <_  ( ( pi  +  X )  -  X ) )
129111recnd 10068 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  pi  e.  CC )
130115adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  X  e.  CC )
131129, 130pncand 10393 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( pi  +  X
)  -  X )  =  pi )
132128, 131breqtrd 4679 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  -  X )  <_  pi )
133110, 111, 113, 126, 132eliccd 39726 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  -  X )  e.  ( -u pi [,] pi ) )
134 fourierdlem74.q . . . . . . . . . . 11  |-  Q  =  ( i  e.  ( 0 ... M ) 
|->  ( ( V `  i )  -  X
) )
135133, 134fmptd 6385 . . . . . . . . . 10  |-  ( ph  ->  Q : ( 0 ... M ) --> (
-u pi [,] pi ) )
136135adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Q : ( 0 ... M ) --> ( -u pi [,] pi ) )
137 simpr 477 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  i  e.  ( 0..^ M ) )
138107, 109, 136, 137fourierdlem8 40332 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i ) [,] ( Q `  (
i  +  1 ) ) )  C_  ( -u pi [,] pi ) )
139105, 138syl5ss 3614 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  C_  ( -u pi [,] pi ) )
140139resmptd 5452 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( s  e.  ( -u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )  =  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) ) )
141140adantr 481 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  (
( s  e.  (
-u pi [,] pi )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  / 
s ) ) )  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) ) )
1421adantl 482 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  i  e.  ( 0 ... M ) )
1431, 113sylan2 491 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 i )  -  X )  e.  RR )
144134fvmpt2 6291 . . . . . . . . 9  |-  ( ( i  e.  ( 0 ... M )  /\  ( ( V `  i )  -  X
)  e.  RR )  ->  ( Q `  i )  =  ( ( V `  i
)  -  X ) )
145142, 143, 144syl2anc 693 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  =  ( ( V `  i
)  -  X ) )
146145adantr 481 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( Q `  i )  =  ( ( V `
 i )  -  X ) )
147 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( i  =  j  ->  ( V `  i )  =  ( V `  j ) )
148147oveq1d 6665 . . . . . . . . . . . . 13  |-  ( i  =  j  ->  (
( V `  i
)  -  X )  =  ( ( V `
 j )  -  X ) )
149148cbvmptv 4750 . . . . . . . . . . . 12  |-  ( i  e.  ( 0 ... M )  |->  ( ( V `  i )  -  X ) )  =  ( j  e.  ( 0 ... M
)  |->  ( ( V `
 j )  -  X ) )
150134, 149eqtri 2644 . . . . . . . . . . 11  |-  Q  =  ( j  e.  ( 0 ... M ) 
|->  ( ( V `  j )  -  X
) )
151150a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Q  =  ( j  e.  ( 0 ... M )  |->  ( ( V `  j
)  -  X ) ) )
152 fveq2 6191 . . . . . . . . . . . 12  |-  ( j  =  ( i  +  1 )  ->  ( V `  j )  =  ( V `  ( i  +  1 ) ) )
153152oveq1d 6665 . . . . . . . . . . 11  |-  ( j  =  ( i  +  1 )  ->  (
( V `  j
)  -  X )  =  ( ( V `
 ( i  +  1 ) )  -  X ) )
154153adantl 482 . . . . . . . . . 10  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  j  =  ( i  +  1 ) )  ->  (
( V `  j
)  -  X )  =  ( ( V `
 ( i  +  1 ) )  -  X ) )
155 fzofzp1 12565 . . . . . . . . . . 11  |-  ( i  e.  ( 0..^ M )  ->  ( i  +  1 )  e.  ( 0 ... M
) )
156155adantl 482 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( i  +  1 )  e.  ( 0 ... M ) )
15722simpld 475 . . . . . . . . . . . . . 14  |-  ( ph  ->  V  e.  ( RR 
^m  ( 0 ... M ) ) )
158 elmapi 7879 . . . . . . . . . . . . . 14  |-  ( V  e.  ( RR  ^m  ( 0 ... M
) )  ->  V : ( 0 ... M ) --> RR )
159157, 158syl 17 . . . . . . . . . . . . 13  |-  ( ph  ->  V : ( 0 ... M ) --> RR )
160159adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  V : ( 0 ... M ) --> RR )
161160, 156ffvelrnd 6360 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  ( i  +  1 ) )  e.  RR )
1625adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  X  e.  RR )
163161, 162resubcld 10458 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 ( i  +  1 ) )  -  X )  e.  RR )
164151, 154, 156, 163fvmptd 6288 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  ( i  +  1 ) )  =  ( ( V `  (
i  +  1 ) )  -  X ) )
165164adantr 481 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( Q `  ( i  +  1 ) )  =  ( ( V `
 ( i  +  1 ) )  -  X ) )
166 oveq1 6657 . . . . . . . . 9  |-  ( ( V `  ( i  +  1 ) )  =  X  ->  (
( V `  (
i  +  1 ) )  -  X )  =  ( X  -  X ) )
167166adantl 482 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  (
( V `  (
i  +  1 ) )  -  X )  =  ( X  -  X ) )
168115ad2antrr 762 . . . . . . . . . 10  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  ( i  +  1 ) )  =  X )  ->  X  e.  CC )
169168subidd 10380 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  ( i  +  1 ) )  =  X )  -> 
( X  -  X
)  =  0 )
1701, 169sylanl2 683 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( X  -  X )  =  0 )
171165, 167, 1703eqtrd 2660 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( Q `  ( i  +  1 ) )  =  0 )
172146, 171oveq12d 6668 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )  =  ( ( ( V `  i )  -  X ) (,) 0 ) )
173 simplr 792 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  /\  s  =  0 )  ->  s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )
174 fourierdlem74.o . . . . . . . . . . . . 13  |-  O  =  ( 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 ) ) ) } )
17512adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  = 
0 )  ->  M  e.  NN )
1764, 7, 5, 11, 174, 12, 13, 134fourierdlem14 40338 . . . . . . . . . . . . . 14  |-  ( ph  ->  Q  e.  ( O `
 M ) )
177176adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  = 
0 )  ->  Q  e.  ( O `  M
) )
178 simpr 477 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  s  = 
0 )  ->  s  =  0 )
179 fourierdlem74.x . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  X  e.  ran  V
)
180 ffn 6045 . . . . . . . . . . . . . . . . . . 19  |-  ( V : ( 0 ... M ) --> ( (
-u pi  +  X
) [,] ( pi  +  X ) )  ->  V  Fn  (
0 ... M ) )
181 fvelrnb 6243 . . . . . . . . . . . . . . . . . . 19  |-  ( V  Fn  ( 0 ... M )  ->  ( X  e.  ran  V  <->  E. i  e.  ( 0 ... M
) ( V `  i )  =  X ) )
18214, 180, 1813syl 18 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( X  e.  ran  V  <->  E. i  e.  (
0 ... M ) ( V `  i )  =  X ) )
183179, 182mpbid 222 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  E. i  e.  ( 0 ... M ) ( V `  i
)  =  X )
184 simpr 477 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  i  e.  ( 0 ... M
) )
185134fvmpt2 6291 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( i  e.  ( 0 ... M )  /\  ( ( V `  i )  -  X
)  e.  ( -u pi [,] pi ) )  ->  ( Q `  i )  =  ( ( V `  i
)  -  X ) )
186184, 133, 185syl2anc 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( Q `  i )  =  ( ( V `
 i )  -  X ) )
187186adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  ( Q `  i )  =  ( ( V `
 i )  -  X ) )
188 oveq1 6657 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( V `  i )  =  X  ->  (
( V `  i
)  -  X )  =  ( X  -  X ) )
189188adantl 482 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  (
( V `  i
)  -  X )  =  ( X  -  X ) )
190115subidd 10380 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( X  -  X
)  =  0 )
191190ad2antrr 762 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  ( X  -  X )  =  0 )
192187, 189, 1913eqtrd 2660 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  i  e.  ( 0 ... M
) )  /\  ( V `  i )  =  X )  ->  ( Q `  i )  =  0 )
193192ex 450 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  (
( V `  i
)  =  X  -> 
( Q `  i
)  =  0 ) )
194193reximdva 3017 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( E. i  e.  ( 0 ... M
) ( V `  i )  =  X  ->  E. i  e.  ( 0 ... M ) ( Q `  i
)  =  0 ) )
195183, 194mpd 15 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  E. i  e.  ( 0 ... M ) ( Q `  i
)  =  0 )
196113, 134fmptd 6385 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  Q : ( 0 ... M ) --> RR )
197 ffn 6045 . . . . . . . . . . . . . . . . 17  |-  ( Q : ( 0 ... M ) --> RR  ->  Q  Fn  ( 0 ... M ) )
198 fvelrnb 6243 . . . . . . . . . . . . . . . . 17  |-  ( Q  Fn  ( 0 ... M )  ->  (
0  e.  ran  Q  <->  E. i  e.  ( 0 ... M ) ( Q `  i )  =  0 ) )
199196, 197, 1983syl 18 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( 0  e.  ran  Q  <->  E. i  e.  (
0 ... M ) ( Q `  i )  =  0 ) )
200195, 199mpbird 247 . . . . . . . . . . . . . . 15  |-  ( ph  ->  0  e.  ran  Q
)
201200adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  s  = 
0 )  ->  0  e.  ran  Q )
202178, 201eqeltrd 2701 . . . . . . . . . . . . 13  |-  ( (
ph  /\  s  = 
0 )  ->  s  e.  ran  Q )
203174, 175, 177, 202fourierdlem12 40336 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  s  =  0 )  /\  i  e.  ( 0..^ M ) )  ->  -.  s  e.  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) )
204203an32s 846 . . . . . . . . . . 11  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  =  0 )  ->  -.  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )
205204adantlr 751 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  /\  s  =  0 )  ->  -.  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )
206173, 205pm2.65da 600 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  -.  s  =  0 )
207206adantlr 751 . . . . . . . 8  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  -.  s  =  0
)
208207iffalsed 4097 . . . . . . 7  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  =  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )
209 elioore 12205 . . . . . . . . . . . 12  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  ->  s  e.  RR )
210209adantl 482 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
s  e.  RR )
211 0red 10041 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
0  e.  RR )
212 elioo3g 12204 . . . . . . . . . . . . . . 15  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  <->  ( (
( Q `  i
)  e.  RR*  /\  ( Q `  ( i  +  1 ) )  e.  RR*  /\  s  e.  RR* )  /\  (
( Q `  i
)  <  s  /\  s  <  ( Q `  ( i  +  1 ) ) ) ) )
213212biimpi 206 . . . . . . . . . . . . . 14  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  ->  (
( ( Q `  i )  e.  RR*  /\  ( Q `  (
i  +  1 ) )  e.  RR*  /\  s  e.  RR* )  /\  (
( Q `  i
)  <  s  /\  s  <  ( Q `  ( i  +  1 ) ) ) ) )
214213simprrd 797 . . . . . . . . . . . . 13  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  ->  s  <  ( Q `  (
i  +  1 ) ) )
215214adantl 482 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
s  <  ( Q `  ( i  +  1 ) ) )
216171adantr 481 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( Q `  (
i  +  1 ) )  =  0 )
217215, 216breqtrd 4679 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
s  <  0 )
218210, 211, 217ltnsymd 10186 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  -.  0  <  s )
219218iffalsed 4097 . . . . . . . . 9  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  if ( 0  <  s ,  Y ,  W )  =  W )
220219oveq2d 6666 . . . . . . . 8  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  =  ( ( F `  ( X  +  s ) )  -  W ) )
221220oveq1d 6665 . . . . . . 7  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( ( ( F `
 ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s )  =  ( ( ( F `  ( X  +  s ) )  -  W )  / 
s ) )
22241ad2antrr 762 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( V `  i
)  e.  RR* )
2235rexrd 10089 . . . . . . . . . . . 12  |-  ( ph  ->  X  e.  RR* )
224223ad3antrrr 766 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  X  e.  RR* )
225162ad2antrr 762 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  X  e.  RR )
226225, 210readdcld 10069 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( X  +  s )  e.  RR )
227115adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  X  e.  CC )
228 iccssre 12255 . . . . . . . . . . . . . . . . . . 19  |-  ( (
-u pi  e.  RR  /\  pi  e.  RR )  ->  ( -u pi [,] pi )  C_  RR )
2293, 2, 228mp2an 708 . . . . . . . . . . . . . . . . . 18  |-  ( -u pi [,] pi )  C_  RR
230229, 51sstri 3612 . . . . . . . . . . . . . . . . 17  |-  ( -u pi [,] pi )  C_  CC
231186, 133eqeltrd 2701 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  i  e.  ( 0 ... M
) )  ->  ( Q `  i )  e.  ( -u pi [,] pi ) )
2321, 231sylan2 491 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  e.  (
-u pi [,] pi ) )
233230, 232sseldi 3601 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  e.  CC )
234227, 233addcomd 10238 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( X  +  ( Q `  i ) )  =  ( ( Q `  i )  +  X ) )
235145oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i )  +  X )  =  ( ( ( V `  i )  -  X
)  +  X ) )
23617recnd 10068 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  e.  CC )
237236, 227npcand 10396 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( ( V `  i )  -  X )  +  X )  =  ( V `  i ) )
238234, 235, 2373eqtrrd 2661 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  i )  =  ( X  +  ( Q `
 i ) ) )
239238adantr 481 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( V `  i )  =  ( X  +  ( Q `  i ) ) )
240145, 143eqeltrd 2701 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  i )  e.  RR )
241240adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( Q `  i )  e.  RR )
242209adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  e.  RR )
2435ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  X  e.  RR )
244213simprld 795 . . . . . . . . . . . . . . 15  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  ->  ( Q `  i )  <  s )
245244adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( Q `  i )  <  s )
246241, 242, 243, 245ltadd2dd 10196 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( X  +  ( Q `  i ) )  < 
( X  +  s ) )
247239, 246eqbrtrd 4675 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( V `  i )  <  ( X  +  s ) )
248247adantlr 751 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( V `  i
)  <  ( X  +  s ) )
249 ltaddneg 10251 . . . . . . . . . . . . 13  |-  ( ( s  e.  RR  /\  X  e.  RR )  ->  ( s  <  0  <->  ( X  +  s )  <  X ) )
250210, 225, 249syl2anc 693 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( s  <  0  <->  ( X  +  s )  <  X ) )
251217, 250mpbid 222 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( X  +  s )  <  X )
252222, 224, 226, 248, 251eliood 39720 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( X  +  s )  e.  ( ( V `  i ) (,) X ) )
253 fvres 6207 . . . . . . . . . . 11  |-  ( ( X  +  s )  e.  ( ( V `
 i ) (,) X )  ->  (
( F  |`  (
( V `  i
) (,) X ) ) `  ( X  +  s ) )  =  ( F `  ( X  +  s
) ) )
254253eqcomd 2628 . . . . . . . . . 10  |-  ( ( X  +  s )  e.  ( ( V `
 i ) (,) X )  ->  ( F `  ( X  +  s ) )  =  ( ( F  |`  ( ( V `  i ) (,) X
) ) `  ( X  +  s )
) )
255252, 254syl 17 . . . . . . . . 9  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( F `  ( X  +  s )
)  =  ( ( F  |`  ( ( V `  i ) (,) X ) ) `  ( X  +  s
) ) )
256255oveq1d 6665 . . . . . . . 8  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( ( F `  ( X  +  s
) )  -  W
)  =  ( ( ( F  |`  (
( V `  i
) (,) X ) ) `  ( X  +  s ) )  -  W ) )
257256oveq1d 6665 . . . . . . 7  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( ( ( F `
 ( X  +  s ) )  -  W )  /  s
)  =  ( ( ( ( F  |`  ( ( V `  i ) (,) X
) ) `  ( X  +  s )
)  -  W )  /  s ) )
258208, 221, 2573eqtrd 2660 . . . . . 6  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  =  ( ( ( ( F  |`  ( ( V `  i ) (,) X
) ) `  ( X  +  s )
)  -  W )  /  s ) )
259172, 258mpteq12dva 4732 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  (
s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )  =  ( s  e.  ( ( ( V `  i
)  -  X ) (,) 0 )  |->  ( ( ( ( F  |`  ( ( V `  i ) (,) X
) ) `  ( X  +  s )
)  -  W )  /  s ) ) )
260104, 141, 2593eqtrd 2660 . . . 4  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  ( H  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )  =  ( s  e.  ( ( ( V `  i )  -  X
) (,) 0 ) 
|->  ( ( ( ( F  |`  ( ( V `  i ) (,) X ) ) `  ( X  +  s
) )  -  W
)  /  s ) ) )
261260, 171oveq12d 6668 . . 3  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  (
( H  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 ( i  +  1 ) ) )  =  ( ( s  e.  ( ( ( V `  i )  -  X ) (,) 0 )  |->  ( ( ( ( F  |`  ( ( V `  i ) (,) X
) ) `  ( X  +  s )
)  -  W )  /  s ) ) lim
CC  0 ) )
26297, 101, 2613eltr4d 2716 . 2  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  =  X )  ->  A  e.  ( ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
263 eqid 2622 . . . . 5  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) ) )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `
 ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) ) )
264 eqid 2622 . . . . 5  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  s )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  s )
265 eqid 2622 . . . . 5  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  =  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )
26630adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  F : RR --> RR )
2675adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  X  e.  RR )
268209adantl 482 . . . . . . . . . . 11  |-  ( (
ph  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  e.  RR )
269267, 268readdcld 10069 . . . . . . . . . 10  |-  ( (
ph  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( X  +  s )  e.  RR )
270266, 269ffvelrnd 6360 . . . . . . . . 9  |-  ( (
ph  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( F `  ( X  +  s ) )  e.  RR )
271270recnd 10068 . . . . . . . 8  |-  ( (
ph  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( F `  ( X  +  s ) )  e.  CC )
272271adantlr 751 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( F `  ( X  +  s ) )  e.  CC )
2732723adantl3 1219 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( F `  ( X  +  s ) )  e.  CC )
274 fourierdlem74.y . . . . . . . . . 10  |-  ( ph  ->  Y  e.  RR )
275274recnd 10068 . . . . . . . . 9  |-  ( ph  ->  Y  e.  CC )
276 limccl 23639 . . . . . . . . . 10  |-  ( ( F  |`  ( -oo (,) X ) ) lim CC  X )  C_  CC
277276, 36sseldi 3601 . . . . . . . . 9  |-  ( ph  ->  W  e.  CC )
278275, 277ifcld 4131 . . . . . . . 8  |-  ( ph  ->  if ( 0  < 
s ,  Y ,  W )  e.  CC )
279278adantr 481 . . . . . . 7  |-  ( (
ph  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  if ( 0  <  s ,  Y ,  W )  e.  CC )
2802793ad2antl1 1223 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  if ( 0  <  s ,  Y ,  W )  e.  CC )
281273, 280subcld 10392 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  (
( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  e.  CC )
282209recnd 10068 . . . . . . 7  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  ->  s  e.  CC )
283282adantl 482 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  e.  CC )
284 velsn 4193 . . . . . . . 8  |-  ( s  e.  { 0 }  <-> 
s  =  0 )
285206, 284sylnibr 319 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  -.  s  e.  { 0 } )
2862853adantl3 1219 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  -.  s  e.  { 0 } )
287283, 286eldifd 3585 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  e.  ( CC  \  {
0 } ) )
288 eqid 2622 . . . . . . . . . 10  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  ( F `
 ( X  +  s ) ) )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( F `  ( X  +  s
) ) )
289 eqid 2622 . . . . . . . . . 10  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  W )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  W )
290 eqid 2622 . . . . . . . . . 10  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  ( ( F `  ( X  +  s ) )  -  W ) )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `
 ( X  +  s ) )  -  W ) )
291277ad2antrr 762 . . . . . . . . . 10  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  W  e.  CC )
29230adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  F : RR --> RR )
293 ioossre 12235 . . . . . . . . . . . 12  |-  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  C_  RR
294293a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  C_  RR )
29541adantr 481 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( V `  i )  e.  RR* )
296161rexrd 10089 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  ( i  +  1 ) )  e.  RR* )
297296adantr 481 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( V `  ( i  +  1 ) )  e.  RR* )
298269adantlr 751 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( X  +  s )  e.  RR )
299196adantr 481 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Q : ( 0 ... M ) --> RR )
300299, 156ffvelrnd 6360 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  ( i  +  1 ) )  e.  RR )
301300adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( Q `  ( i  +  1 ) )  e.  RR )
302214adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  <  ( Q `  (
i  +  1 ) ) )
303242, 301, 243, 302ltadd2dd 10196 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( X  +  s )  <  ( X  +  ( Q `  ( i  +  1 ) ) ) )
304164oveq2d 6666 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( X  +  ( Q `  ( i  +  1 ) ) )  =  ( X  +  ( ( V `
 ( i  +  1 ) )  -  X ) ) )
305161recnd 10068 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  ( i  +  1 ) )  e.  CC )
306227, 305pncan3d 10395 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( X  +  ( ( V `  ( i  +  1 ) )  -  X
) )  =  ( V `  ( i  +  1 ) ) )
307304, 306eqtrd 2656 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( X  +  ( Q `  ( i  +  1 ) ) )  =  ( V `
 ( i  +  1 ) ) )
308307adantr 481 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( X  +  ( Q `  ( i  +  1 ) ) )  =  ( V `  (
i  +  1 ) ) )
309303, 308breqtrd 4679 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( X  +  s )  <  ( V `  (
i  +  1 ) ) )
310295, 297, 298, 247, 309eliood 39720 . . . . . . . . . . 11  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( X  +  s )  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )
311 ioossre 12235 . . . . . . . . . . . 12  |-  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) )  C_  RR
312311a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 i ) (,) ( V `  (
i  +  1 ) ) )  C_  RR )
313242, 302ltned 10173 . . . . . . . . . . 11  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  =/=  ( Q `  (
i  +  1 ) ) )
314 fourierdlem74.r . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( V `
 ( i  +  1 ) ) ) )
315307eqcomd 2628 . . . . . . . . . . . . 13  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( V `  ( i  +  1 ) )  =  ( X  +  ( Q `
 ( i  +  1 ) ) ) )
316315oveq2d 6666 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( F  |`  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) ) lim CC  ( V `  ( i  +  1 ) ) )  =  ( ( F  |`  ( ( V `  i ) (,) ( V `  (
i  +  1 ) ) ) ) lim CC  ( X  +  ( Q `  ( i  +  1 ) ) ) ) )
317314, 316eleqtrd 2703 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( F  |`  (
( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) ) lim CC  ( X  +  ( Q `  ( i  +  1 ) ) ) ) )
318300recnd 10068 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  ( i  +  1 ) )  e.  CC )
319292, 162, 294, 288, 310, 312, 313, 317, 318fourierdlem53 40376 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  R  e.  ( ( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  ( F `  ( X  +  s )
) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
320 ioosscn 39716 . . . . . . . . . . . 12  |-  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  C_  CC
321320a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  C_  CC )
322277adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  W  e.  CC )
323289, 321, 322, 318constlimc 39856 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  W  e.  ( ( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  W ) lim CC  ( Q `  ( i  +  1 ) ) ) )
324288, 289, 290, 272, 291, 319, 323sublimc 39884 . . . . . . . . 9  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( R  -  W )  e.  ( ( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  ( ( F `  ( X  +  s
) )  -  W
) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
325324adantr 481 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  ( R  -  W )  e.  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `
 ( X  +  s ) )  -  W ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
326 iftrue 4092 . . . . . . . . . 10  |-  ( ( V `  ( i  +  1 ) )  <  X  ->  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y )  =  W )
327326oveq2d 6666 . . . . . . . . 9  |-  ( ( V `  ( i  +  1 ) )  <  X  ->  ( R  -  if (
( V `  (
i  +  1 ) )  <  X ,  W ,  Y )
)  =  ( R  -  W ) )
328327adantl 482 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  ( R  -  if (
( V `  (
i  +  1 ) )  <  X ,  W ,  Y )
)  =  ( R  -  W ) )
329209adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
s  e.  RR )
330 0red 10041 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
0  e.  RR )
331300ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( Q `  (
i  +  1 ) )  e.  RR )
332214adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
s  <  ( Q `  ( i  +  1 ) ) )
333164adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  ( Q `  ( i  +  1 ) )  =  ( ( V `
 ( i  +  1 ) )  -  X ) )
334161adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  ( V `  ( i  +  1 ) )  e.  RR )
3355ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  X  e.  RR )
336 simpr 477 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  ( V `  ( i  +  1 ) )  <  X )
337334, 335, 336ltled 10185 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  ( V `  ( i  +  1 ) )  <_  X )
338334, 335suble0d 10618 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  (
( ( V `  ( i  +  1 ) )  -  X
)  <_  0  <->  ( V `  ( i  +  1 ) )  <_  X
) )
339337, 338mpbird 247 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  (
( V `  (
i  +  1 ) )  -  X )  <_  0 )
340333, 339eqbrtrd 4675 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  ( Q `  ( i  +  1 ) )  <_  0 )
341340adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( Q `  (
i  +  1 ) )  <_  0 )
342329, 331, 330, 332, 341ltletrd 10197 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
s  <  0 )
343329, 330, 342ltnsymd 10186 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  -.  0  <  s )
344343iffalsed 4097 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  if ( 0  <  s ,  Y ,  W )  =  W )
345344oveq2d 6666 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `  ( i  +  1 ) )  <  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  =  ( ( F `  ( X  +  s ) )  -  W ) )
346345mpteq2dva 4744 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  (
s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) ) )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `  ( X  +  s )
)  -  W ) ) )
347346oveq1d 6665 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  (
( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) ) ) lim CC  ( Q `  ( i  +  1 ) ) )  =  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `  ( X  +  s )
)  -  W ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
348325, 328, 3473eltr4d 2716 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  ( V `
 ( i  +  1 ) )  < 
X )  ->  ( R  -  if (
( V `  (
i  +  1 ) )  <  X ,  W ,  Y )
)  e.  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
3493483adantl3 1219 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  ( V `  ( i  +  1 ) )  <  X )  -> 
( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  e.  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
350 simpl1 1064 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  ->  ph )
351 simpl2 1065 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  -> 
i  e.  ( 0..^ M ) )
3525ad2antrr 762 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  ->  X  e.  RR )
3533523adantl3 1219 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  ->  X  e.  RR )
354161adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  -> 
( V `  (
i  +  1 ) )  e.  RR )
3553543adantl3 1219 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  -> 
( V `  (
i  +  1 ) )  e.  RR )
356 neqne 2802 . . . . . . . . . . 11  |-  ( -.  ( V `  (
i  +  1 ) )  =  X  -> 
( V `  (
i  +  1 ) )  =/=  X )
357356necomd 2849 . . . . . . . . . 10  |-  ( -.  ( V `  (
i  +  1 ) )  =  X  ->  X  =/=  ( V `  ( i  +  1 ) ) )
358357adantr 481 . . . . . . . . 9  |-  ( ( -.  ( V `  ( i  +  1 ) )  =  X  /\  -.  ( V `
 ( i  +  1 ) )  < 
X )  ->  X  =/=  ( V `  (
i  +  1 ) ) )
3593583ad2antl3 1225 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  ->  X  =/=  ( V `  ( i  +  1 ) ) )
360 simpr 477 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  ->  -.  ( V `  (
i  +  1 ) )  <  X )
361353, 355, 359, 360lttri5d 39513 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  ->  X  <  ( V `  ( i  +  1 ) ) )
362 eqid 2622 . . . . . . . 8  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  if ( 0  <  s ,  Y ,  W ) )  =  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  if ( 0  <  s ,  Y ,  W ) )
363272adantlr 751 . . . . . . . 8  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( F `  ( X  +  s )
)  e.  CC )
364278ad3antrrr 766 . . . . . . . 8  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  if ( 0  <  s ,  Y ,  W )  e.  CC )
365319adantr 481 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  R  e.  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( F `  ( X  +  s
) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
366 eqid 2622 . . . . . . . . . . 11  |-  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  Y )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  Y )
367275adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Y  e.  CC )
368366, 321, 367, 318constlimc 39856 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  Y  e.  ( ( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  Y ) lim CC  ( Q `  ( i  +  1 ) ) ) )
369368adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  Y  e.  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  Y ) lim CC  ( Q `  ( i  +  1 ) ) ) )
3705ad2antrr 762 . . . . . . . . . . 11  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  X  e.  RR )
371161adantr 481 . . . . . . . . . . 11  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  ( V `  ( i  +  1 ) )  e.  RR )
372 simpr 477 . . . . . . . . . . 11  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  X  <  ( V `  (
i  +  1 ) ) )
373370, 371, 372ltnsymd 10186 . . . . . . . . . 10  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  -.  ( V `  ( i  +  1 ) )  <  X )
374373iffalsed 4097 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y )  =  Y )
375 0red 10041 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
0  e.  RR )
376240ad2antrr 762 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( Q `  i
)  e.  RR )
377209adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
s  e.  RR )
378190eqcomd 2628 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  0  =  ( X  -  X ) )
379378ad2antrr 762 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  0  =  ( X  -  X ) )
38017adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  ( V `  i )  e.  RR )
38141ad2antrr 762 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  -.  X  <_  ( V `
 i ) )  ->  ( V `  i )  e.  RR* )
382296ad2antrr 762 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  -.  X  <_  ( V `
 i ) )  ->  ( V `  ( i  +  1 ) )  e.  RR* )
383162ad2antrr 762 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  -.  X  <_  ( V `
 i ) )  ->  X  e.  RR )
384 simpr 477 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  -.  X  <_  ( V `  i
) )  ->  -.  X  <_  ( V `  i ) )
38517adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  -.  X  <_  ( V `  i
) )  ->  ( V `  i )  e.  RR )
3865ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  -.  X  <_  ( V `  i
) )  ->  X  e.  RR )
387385, 386ltnled 10184 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  -.  X  <_  ( V `  i
) )  ->  (
( V `  i
)  <  X  <->  -.  X  <_  ( V `  i
) ) )
388384, 387mpbird 247 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  -.  X  <_  ( V `  i
) )  ->  ( V `  i )  <  X )
389388adantlr 751 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  -.  X  <_  ( V `
 i ) )  ->  ( V `  i )  <  X
)
390 simplr 792 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  -.  X  <_  ( V `
 i ) )  ->  X  <  ( V `  ( i  +  1 ) ) )
391381, 382, 383, 389, 390eliood 39720 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  -.  X  <_  ( V `
 i ) )  ->  X  e.  ( ( V `  i
) (,) ( V `
 ( i  +  1 ) ) ) )
39211, 12, 13, 179fourierdlem12 40336 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  -.  X  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )
393392ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  -.  X  <_  ( V `
 i ) )  ->  -.  X  e.  ( ( V `  i ) (,) ( V `  ( i  +  1 ) ) ) )
394391, 393condan 835 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  X  <_  ( V `  i
) )
395370, 380, 370, 394lesub1dd 10643 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  ( X  -  X )  <_  ( ( V `  i )  -  X
) )
396379, 395eqbrtrd 4675 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  0  <_  ( ( V `  i )  -  X
) )
397145eqcomd 2628 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( ( V `
 i )  -  X )  =  ( Q `  i ) )
398397adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  (
( V `  i
)  -  X )  =  ( Q `  i ) )
399396, 398breqtrd 4679 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  0  <_  ( Q `  i
) )
400399adantr 481 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
0  <_  ( Q `  i ) )
401244adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
( Q `  i
)  <  s )
402375, 376, 377, 400, 401lelttrd 10195 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  -> 
0  <  s )
403402iftrued 4094 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  <  ( V `  ( i  +  1 ) ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) ) )  ->  if ( 0  <  s ,  Y ,  W )  =  Y )
404403mpteq2dva 4744 . . . . . . . . . 10  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  (
s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  if ( 0  <  s ,  Y ,  W ) )  =  ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  Y ) )
405404oveq1d 6665 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  (
( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  if ( 0  < 
s ,  Y ,  W ) ) lim CC  ( Q `  ( i  +  1 ) ) )  =  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  Y ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
406369, 374, 4053eltr4d 2716 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y )  e.  ( ( s  e.  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) )  |->  if ( 0  <  s ,  Y ,  W ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
407288, 362, 263, 363, 364, 365, 406sublimc 39884 . . . . . . 7  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  X  < 
( V `  (
i  +  1 ) ) )  ->  ( R  -  if (
( V `  (
i  +  1 ) )  <  X ,  W ,  Y )
)  e.  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
408350, 351, 361, 407syl21anc 1325 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  -.  ( V `  ( i  +  1 ) )  <  X )  -> 
( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  e.  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
409349, 408pm2.61dan 832 . . . . 5  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  e.  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
410321, 264, 318idlimc 39858 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( Q `  ( i  +  1 ) )  e.  ( ( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  s ) lim CC  ( Q `  ( i  +  1 ) ) ) )
4114103adant3 1081 . . . . 5  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( Q `  ( i  +  1 ) )  e.  ( ( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  s ) lim CC  ( Q `  ( i  +  1 ) ) ) )
4121643adant3 1081 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( Q `  ( i  +  1 ) )  =  ( ( V `  (
i  +  1 ) )  -  X ) )
4133053adant3 1081 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( V `  ( i  +  1 ) )  e.  CC )
4142273adant3 1081 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  X  e.  CC )
4153563ad2ant3 1084 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( V `  ( i  +  1 ) )  =/=  X
)
416413, 414, 415subne0d 10401 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( ( V `
 ( i  +  1 ) )  -  X )  =/=  0
)
417412, 416eqnetrd 2861 . . . . 5  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( Q `  ( i  +  1 ) )  =/=  0
)
4182063adantl3 1219 . . . . . 6  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  -.  s  =  0 )
419418neqned 2801 . . . . 5  |-  ( ( ( ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `
 ( i  +  1 ) )  =  X )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  =/=  0 )
420263, 264, 265, 281, 287, 409, 411, 417, 419divlimc 39888 . . . 4  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( ( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  / 
( Q `  (
i  +  1 ) ) )  e.  ( ( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
421 iffalse 4095 . . . . . 6  |-  ( -.  ( V `  (
i  +  1 ) )  =  X  ->  if ( ( V `  ( i  +  1 ) )  =  X ,  E ,  ( ( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  /  ( Q `
 ( i  +  1 ) ) ) )  =  ( ( R  -  if ( ( V `  (
i  +  1 ) )  <  X ,  W ,  Y )
)  /  ( Q `
 ( i  +  1 ) ) ) )
42298, 421syl5eq 2668 . . . . 5  |-  ( -.  ( V `  (
i  +  1 ) )  =  X  ->  A  =  ( ( R  -  if (
( V `  (
i  +  1 ) )  <  X ,  W ,  Y )
)  /  ( Q `
 ( i  +  1 ) ) ) )
4234223ad2ant3 1084 . . . 4  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  A  =  ( ( R  -  if ( ( V `  ( i  +  1 ) )  <  X ,  W ,  Y ) )  /  ( Q `
 ( i  +  1 ) ) ) )
424 ioossre 12235 . . . . . . . . . . . . 13  |-  ( -oo (,) X )  C_  RR
425424a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  ( -oo (,) X
)  C_  RR )
42630, 425fssresd 6071 . . . . . . . . . . 11  |-  ( ph  ->  ( F  |`  ( -oo (,) X ) ) : ( -oo (,) X ) --> RR )
427424, 52syl5ss 3614 . . . . . . . . . . 11  |-  ( ph  ->  ( -oo (,) X
)  C_  CC )
42839a1i 11 . . . . . . . . . . . 12  |-  ( ph  -> -oo  e.  RR* )
4295mnfltd 11958 . . . . . . . . . . . 12  |-  ( ph  -> -oo  <  X )
43056, 428, 5, 429lptioo2cn 39877 . . . . . . . . . . 11  |-  ( ph  ->  X  e.  ( (
limPt `  ( TopOpen ` fld ) ) `  ( -oo (,) X ) ) )
431426, 427, 430, 36limcrecl 39861 . . . . . . . . . 10  |-  ( ph  ->  W  e.  RR )
43230, 5, 274, 431, 102fourierdlem9 40333 . . . . . . . . 9  |-  ( ph  ->  H : ( -u pi [,] pi ) --> RR )
433432adantr 481 . . . . . . . 8  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  H : (
-u pi [,] pi )
--> RR )
434433, 139feqresmpt 6250 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( H `  s ) ) )
435139sselda 3603 . . . . . . . . . 10  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  e.  ( -u pi [,] pi ) )
436 0cnd 10033 . . . . . . . . . . 11  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  0  e.  CC )
437278ad2antrr 762 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  if ( 0  <  s ,  Y ,  W )  e.  CC )
438272, 437subcld 10392 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  (
( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  e.  CC )
439282adantl 482 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  e.  CC )
440206neqned 2801 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  s  =/=  0 )
441438, 439, 440divcld 10801 . . . . . . . . . . 11  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  (
( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s )  e.  CC )
442436, 441ifcld 4131 . . . . . . . . . 10  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  e.  CC )
443102fvmpt2 6291 . . . . . . . . . 10  |-  ( ( s  e.  ( -u pi [,] pi )  /\  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  e.  CC )  ->  ( H `  s )  =  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )
444435, 442, 443syl2anc 693 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( H `  s )  =  if ( s  =  0 ,  0 ,  ( ( ( F `
 ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )
445206iffalsed 4097 . . . . . . . . 9  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  if ( s  =  0 ,  0 ,  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )  =  ( ( ( F `  ( X  +  s )
)  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) )
446444, 445eqtrd 2656 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  ->  ( H `  s )  =  ( ( ( F `  ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  / 
s ) )
447446mpteq2dva 4744 . . . . . . 7  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( H `  s ) )  =  ( s  e.  ( ( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) 
|->  ( ( ( F `
 ( X  +  s ) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )
448434, 447eqtrd 2656 . . . . . 6  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )
4494483adant3 1081 . . . . 5  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) )  =  ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) )
450449oveq1d 6665 . . . 4  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  ( ( H  |`  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) ) ) lim CC  ( Q `  ( i  +  1 ) ) )  =  ( ( s  e.  ( ( Q `  i ) (,) ( Q `  ( i  +  1 ) ) )  |->  ( ( ( F `  ( X  +  s
) )  -  if ( 0  <  s ,  Y ,  W ) )  /  s ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
451420, 423, 4503eltr4d 2716 . . 3  |-  ( (
ph  /\  i  e.  ( 0..^ M )  /\  -.  ( V `  (
i  +  1 ) )  =  X )  ->  A  e.  ( ( H  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
4524513expa 1265 . 2  |-  ( ( ( ph  /\  i  e.  ( 0..^ M ) )  /\  -.  ( V `  ( i  +  1 ) )  =  X )  ->  A  e.  ( ( H  |`  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) ) lim CC  ( Q `  ( i  +  1 ) ) ) )
453262, 452pm2.61dan 832 1  |-  ( (
ph  /\  i  e.  ( 0..^ M ) )  ->  A  e.  ( ( H  |`  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) ) ) lim CC  ( Q `
 ( i  +  1 ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990    =/= wne 2794   A.wral 2912   E.wrex 2913   {crab 2916    C_ wss 3574   ifcif 4086   {csn 4177   class class class wbr 4653    |-> cmpt 4729   dom cdm 5114   ran crn 5115    |` cres 5116    Fn wfn 5883   -->wf 5884   ` cfv 5888  (class class class)co 6650    ^m cmap 7857   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939   -oocmnf 10072   RR*cxr 10073    < clt 10074    <_ cle 10075    - cmin 10266   -ucneg 10267    / cdiv 10684   NNcn 11020   (,)cioo 12175   [,]cicc 12178   ...cfz 12326  ..^cfzo 12465   picpi 14797   TopOpenctopn 16082   topGenctg 16098  ℂfldccnfld 19746   intcnt 20821   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-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014  ax-addf 10015  ax-mulf 10016
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-iin 4523  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-fi 8317  df-sup 8348  df-inf 8349  df-oi 8415  df-card 8765  df-cda 8990  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-4 11081  df-5 11082  df-6 11083  df-7 11084  df-8 11085  df-9 11086  df-n0 11293  df-z 11378  df-dec 11494  df-uz 11688  df-q 11789  df-rp 11833  df-xneg 11946  df-xadd 11947  df-xmul 11948  df-ioo 12179  df-ioc 12180  df-ico 12181  df-icc 12182  df-fz 12327  df-fzo 12466  df-fl 12593  df-seq 12802  df-exp 12861  df-fac 13061  df-bc 13090  df-hash 13118  df-shft 13807  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-limsup 14202  df-clim 14219  df-rlim 14220  df-sum 14417  df-ef 14798  df-sin 14800  df-cos 14801  df-pi 14803  df-struct 15859  df-ndx 15860  df-slot 15861  df-base 15863  df-sets 15864  df-ress 15865  df-plusg 15954  df-mulr 15955  df-starv 15956  df-sca 15957  df-vsca 15958  df-ip 15959  df-tset 15960  df-ple 15961  df-ds 15964  df-unif 15965  df-hom 15966  df-cco 15967  df-rest 16083  df-topn 16084  df-0g 16102  df-gsum 16103  df-topgen 16104  df-pt 16105  df-prds 16108  df-xrs 16162  df-qtop 16167  df-imas 16168  df-xps 16170  df-mre 16246  df-mrc 16247  df-acs 16249  df-mgm 17242  df-sgrp 17284  df-mnd 17295  df-submnd 17336  df-mulg 17541  df-cntz 17750  df-cmn 18195  df-psmet 19738  df-xmet 19739  df-met 19740  df-bl 19741  df-mopn 19742  df-fbas 19743  df-fg 19744  df-cnfld 19747  df-top 20699  df-topon 20716  df-topsp 20737  df-bases 20750  df-cld 20823  df-ntr 20824  df-cls 20825  df-nei 20902  df-lp 20940  df-perf 20941  df-cn 21031  df-cnp 21032  df-haus 21119  df-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-limc 23630  df-dv 23631
This theorem is referenced by:  fourierdlem88  40411  fourierdlem103  40426  fourierdlem104  40427
  Copyright terms: Public domain W3C validator