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

Theorem fourierdlem20 32112
Description: Every interval in the partition  S is included in an interval of the partition  Q. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem20.m  |-  ( ph  ->  M  e.  NN )
fourierdlem20.a  |-  ( ph  ->  A  e.  RR )
fourierdlem20.b  |-  ( ph  ->  B  e.  RR )
fourierdlem20.aleb  |-  ( ph  ->  A  <_  B )
fourierdlem20.q  |-  ( ph  ->  Q : ( 0 ... M ) --> RR )
fourierdlem20.q0  |-  ( ph  ->  ( Q `  0
)  <_  A )
fourierdlem20.qm  |-  ( ph  ->  B  <_  ( Q `  M ) )
fourierdlem20.j  |-  ( ph  ->  J  e.  ( 0..^ N ) )
fourierdlem20.t  |-  T  =  ( { A ,  B }  u.  ( ran  Q  i^i  ( A (,) B ) ) )
fourierdlem20.s  |-  ( ph  ->  S  Isom  <  ,  <  ( ( 0 ... N
) ,  T ) )
fourierdlem20.i  |-  I  =  sup ( { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } ,  RR ,  <  )
Assertion
Ref Expression
fourierdlem20  |-  ( ph  ->  E. i  e.  ( 0..^ M ) ( ( S `  J
) (,) ( S `
 ( J  + 
1 ) ) ) 
C_  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )
Distinct variable groups:    i, I    i, J    k, J    i, M    k, M    Q, i    Q, k    S, i    S, k
Allowed substitution hints:    ph( i, k)    A( i, k)    B( i, k)    T( i, k)    I(
k)    N( i, k)

Proof of Theorem fourierdlem20
Dummy variables  j  x are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem20.i . . 3  |-  I  =  sup ( { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } ,  RR ,  <  )
2 ssrab2 3581 . . . 4  |-  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) }  C_  (
0..^ M )
3 fzossfz 11844 . . . . . . . 8  |-  ( 0..^ M )  C_  (
0 ... M )
4 fzssz 31669 . . . . . . . 8  |-  ( 0 ... M )  C_  ZZ
53, 4sstri 3508 . . . . . . 7  |-  ( 0..^ M )  C_  ZZ
62, 5sstri 3508 . . . . . 6  |-  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) }  C_  ZZ
76a1i 11 . . . . 5  |-  ( ph  ->  { k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) }  C_  ZZ )
8 0z 10896 . . . . . . . . . 10  |-  0  e.  ZZ
9 0le0 10646 . . . . . . . . . 10  |-  0  <_  0
10 eluz2 11112 . . . . . . . . . 10  |-  ( 0  e.  ( ZZ>= `  0
)  <->  ( 0  e.  ZZ  /\  0  e.  ZZ  /\  0  <_ 
0 ) )
118, 8, 9, 10mpbir3an 1178 . . . . . . . . 9  |-  0  e.  ( ZZ>= `  0 )
1211a1i 11 . . . . . . . 8  |-  ( ph  ->  0  e.  ( ZZ>= ` 
0 ) )
13 fourierdlem20.m . . . . . . . . 9  |-  ( ph  ->  M  e.  NN )
1413nnzd 10989 . . . . . . . 8  |-  ( ph  ->  M  e.  ZZ )
1513nngt0d 10600 . . . . . . . 8  |-  ( ph  ->  0  <  M )
16 elfzo2 11829 . . . . . . . 8  |-  ( 0  e.  ( 0..^ M )  <->  ( 0  e.  ( ZZ>= `  0 )  /\  M  e.  ZZ  /\  0  <  M ) )
1712, 14, 15, 16syl3anbrc 1180 . . . . . . 7  |-  ( ph  ->  0  e.  ( 0..^ M ) )
18 fourierdlem20.q . . . . . . . . 9  |-  ( ph  ->  Q : ( 0 ... M ) --> RR )
193, 17sseldi 3497 . . . . . . . . 9  |-  ( ph  ->  0  e.  ( 0 ... M ) )
2018, 19ffvelrnd 6033 . . . . . . . 8  |-  ( ph  ->  ( Q `  0
)  e.  RR )
21 fourierdlem20.a . . . . . . . 8  |-  ( ph  ->  A  e.  RR )
22 fourierdlem20.t . . . . . . . . . . 11  |-  T  =  ( { A ,  B }  u.  ( ran  Q  i^i  ( A (,) B ) ) )
2321rexrd 9660 . . . . . . . . . . . . . . 15  |-  ( ph  ->  A  e.  RR* )
24 fourierdlem20.b . . . . . . . . . . . . . . . 16  |-  ( ph  ->  B  e.  RR )
2524rexrd 9660 . . . . . . . . . . . . . . 15  |-  ( ph  ->  B  e.  RR* )
26 fourierdlem20.aleb . . . . . . . . . . . . . . 15  |-  ( ph  ->  A  <_  B )
27 lbicc2 11661 . . . . . . . . . . . . . . 15  |-  ( ( A  e.  RR*  /\  B  e.  RR*  /\  A  <_  B )  ->  A  e.  ( A [,] B
) )
2823, 25, 26, 27syl3anc 1228 . . . . . . . . . . . . . 14  |-  ( ph  ->  A  e.  ( A [,] B ) )
29 ubicc2 11662 . . . . . . . . . . . . . . 15  |-  ( ( A  e.  RR*  /\  B  e.  RR*  /\  A  <_  B )  ->  B  e.  ( A [,] B
) )
3023, 25, 26, 29syl3anc 1228 . . . . . . . . . . . . . 14  |-  ( ph  ->  B  e.  ( A [,] B ) )
3128, 30jca 532 . . . . . . . . . . . . 13  |-  ( ph  ->  ( A  e.  ( A [,] B )  /\  B  e.  ( A [,] B ) ) )
32 prssg 4187 . . . . . . . . . . . . . 14  |-  ( ( A  e.  RR*  /\  B  e.  RR* )  ->  (
( A  e.  ( A [,] B )  /\  B  e.  ( A [,] B ) )  <->  { A ,  B }  C_  ( A [,] B ) ) )
3323, 25, 32syl2anc 661 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( A  e.  ( A [,] B
)  /\  B  e.  ( A [,] B ) )  <->  { A ,  B }  C_  ( A [,] B ) ) )
3431, 33mpbid 210 . . . . . . . . . . . 12  |-  ( ph  ->  { A ,  B }  C_  ( A [,] B ) )
35 inss2 3715 . . . . . . . . . . . . . 14  |-  ( ran 
Q  i^i  ( A (,) B ) )  C_  ( A (,) B )
36 ioossicc 11635 . . . . . . . . . . . . . 14  |-  ( A (,) B )  C_  ( A [,] B )
3735, 36sstri 3508 . . . . . . . . . . . . 13  |-  ( ran 
Q  i^i  ( A (,) B ) )  C_  ( A [,] B )
3837a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  ( ran  Q  i^i  ( A (,) B ) )  C_  ( A [,] B ) )
3934, 38unssd 3676 . . . . . . . . . . 11  |-  ( ph  ->  ( { A ,  B }  u.  ( ran  Q  i^i  ( A (,) B ) ) )  C_  ( A [,] B ) )
4022, 39syl5eqss 3543 . . . . . . . . . 10  |-  ( ph  ->  T  C_  ( A [,] B ) )
4121, 24iccssred 31742 . . . . . . . . . 10  |-  ( ph  ->  ( A [,] B
)  C_  RR )
4240, 41sstrd 3509 . . . . . . . . 9  |-  ( ph  ->  T  C_  RR )
43 fourierdlem20.s . . . . . . . . . . 11  |-  ( ph  ->  S  Isom  <  ,  <  ( ( 0 ... N
) ,  T ) )
44 isof1o 6222 . . . . . . . . . . 11  |-  ( S 
Isom  <  ,  <  (
( 0 ... N
) ,  T )  ->  S : ( 0 ... N ) -1-1-onto-> T )
45 f1of 5822 . . . . . . . . . . 11  |-  ( S : ( 0 ... N ) -1-1-onto-> T  ->  S :
( 0 ... N
) --> T )
4643, 44, 453syl 20 . . . . . . . . . 10  |-  ( ph  ->  S : ( 0 ... N ) --> T )
47 fourierdlem20.j . . . . . . . . . . 11  |-  ( ph  ->  J  e.  ( 0..^ N ) )
48 elfzofz 11841 . . . . . . . . . . 11  |-  ( J  e.  ( 0..^ N )  ->  J  e.  ( 0 ... N
) )
4947, 48syl 16 . . . . . . . . . 10  |-  ( ph  ->  J  e.  ( 0 ... N ) )
5046, 49ffvelrnd 6033 . . . . . . . . 9  |-  ( ph  ->  ( S `  J
)  e.  T )
5142, 50sseldd 3500 . . . . . . . 8  |-  ( ph  ->  ( S `  J
)  e.  RR )
52 fourierdlem20.q0 . . . . . . . 8  |-  ( ph  ->  ( Q `  0
)  <_  A )
5340, 50sseldd 3500 . . . . . . . . 9  |-  ( ph  ->  ( S `  J
)  e.  ( A [,] B ) )
54 iccgelb 11606 . . . . . . . . 9  |-  ( ( A  e.  RR*  /\  B  e.  RR*  /\  ( S `
 J )  e.  ( A [,] B
) )  ->  A  <_  ( S `  J
) )
5523, 25, 53, 54syl3anc 1228 . . . . . . . 8  |-  ( ph  ->  A  <_  ( S `  J ) )
5620, 21, 51, 52, 55letrd 9756 . . . . . . 7  |-  ( ph  ->  ( Q `  0
)  <_  ( S `  J ) )
57 fveq2 5872 . . . . . . . . 9  |-  ( k  =  0  ->  ( Q `  k )  =  ( Q ` 
0 ) )
5857breq1d 4466 . . . . . . . 8  |-  ( k  =  0  ->  (
( Q `  k
)  <_  ( S `  J )  <->  ( Q `  0 )  <_ 
( S `  J
) ) )
5958elrab 3257 . . . . . . 7  |-  ( 0  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } 
<->  ( 0  e.  ( 0..^ M )  /\  ( Q `  0 )  <_  ( S `  J ) ) )
6017, 56, 59sylanbrc 664 . . . . . 6  |-  ( ph  ->  0  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } )
61 ne0i 3799 . . . . . 6  |-  ( 0  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  ->  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  =/=  (/) )
6260, 61syl 16 . . . . 5  |-  ( ph  ->  { k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) }  =/=  (/) )
6313nnred 10571 . . . . . 6  |-  ( ph  ->  M  e.  RR )
642sseli 3495 . . . . . . . . 9  |-  ( j  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  ->  j  e.  ( 0..^ M ) )
65 elfzo0le 11865 . . . . . . . . 9  |-  ( j  e.  ( 0..^ M )  ->  j  <_  M )
6664, 65syl 16 . . . . . . . 8  |-  ( j  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  ->  j  <_  M
)
6766adantl 466 . . . . . . 7  |-  ( (
ph  /\  j  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } )  ->  j  <_  M
)
6867ralrimiva 2871 . . . . . 6  |-  ( ph  ->  A. j  e.  {
k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } j  <_  M )
69 breq2 4460 . . . . . . . 8  |-  ( x  =  M  ->  (
j  <_  x  <->  j  <_  M ) )
7069ralbidv 2896 . . . . . . 7  |-  ( x  =  M  ->  ( A. j  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } j  <_  x 
<-> 
A. j  e.  {
k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } j  <_  M ) )
7170rspcev 3210 . . . . . 6  |-  ( ( M  e.  RR  /\  A. j  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } j  <_  M )  ->  E. x  e.  RR  A. j  e. 
{ k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) } j  <_  x )
7263, 68, 71syl2anc 661 . . . . 5  |-  ( ph  ->  E. x  e.  RR  A. j  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } j  <_  x )
73 suprzcl 10963 . . . . 5  |-  ( ( { k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) }  C_  ZZ  /\  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  =/=  (/)  /\  E. x  e.  RR  A. j  e. 
{ k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) } j  <_  x )  ->  sup ( { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } ,  RR ,  <  )  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } )
747, 62, 72, 73syl3anc 1228 . . . 4  |-  ( ph  ->  sup ( { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } ,  RR ,  <  )  e.  {
k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } )
752, 74sseldi 3497 . . 3  |-  ( ph  ->  sup ( { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } ,  RR ,  <  )  e.  ( 0..^ M ) )
761, 75syl5eqel 2549 . 2  |-  ( ph  ->  I  e.  ( 0..^ M ) )
773, 76sseldi 3497 . . . . 5  |-  ( ph  ->  I  e.  ( 0 ... M ) )
7818, 77ffvelrnd 6033 . . . 4  |-  ( ph  ->  ( Q `  I
)  e.  RR )
7978rexrd 9660 . . 3  |-  ( ph  ->  ( Q `  I
)  e.  RR* )
80 fzofzp1 11912 . . . . . 6  |-  ( I  e.  ( 0..^ M )  ->  ( I  +  1 )  e.  ( 0 ... M
) )
8176, 80syl 16 . . . . 5  |-  ( ph  ->  ( I  +  1 )  e.  ( 0 ... M ) )
8218, 81ffvelrnd 6033 . . . 4  |-  ( ph  ->  ( Q `  (
I  +  1 ) )  e.  RR )
8382rexrd 9660 . . 3  |-  ( ph  ->  ( Q `  (
I  +  1 ) )  e.  RR* )
841, 74syl5eqel 2549 . . . . 5  |-  ( ph  ->  I  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } )
85 nfrab1 3038 . . . . . . . 8  |-  F/_ k { k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) }
86 nfcv 2619 . . . . . . . 8  |-  F/_ k RR
87 nfcv 2619 . . . . . . . 8  |-  F/_ k  <
8885, 86, 87nfsup 7928 . . . . . . 7  |-  F/_ k sup ( { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } ,  RR ,  <  )
891, 88nfcxfr 2617 . . . . . 6  |-  F/_ k
I
90 nfcv 2619 . . . . . 6  |-  F/_ k
( 0..^ M )
91 nfcv 2619 . . . . . . . 8  |-  F/_ k Q
9291, 89nffv 5879 . . . . . . 7  |-  F/_ k
( Q `  I
)
93 nfcv 2619 . . . . . . 7  |-  F/_ k  <_
94 nfcv 2619 . . . . . . 7  |-  F/_ k
( S `  J
)
9592, 93, 94nfbr 4500 . . . . . 6  |-  F/ k ( Q `  I
)  <_  ( S `  J )
96 fveq2 5872 . . . . . . 7  |-  ( k  =  I  ->  ( Q `  k )  =  ( Q `  I ) )
9796breq1d 4466 . . . . . 6  |-  ( k  =  I  ->  (
( Q `  k
)  <_  ( S `  J )  <->  ( Q `  I )  <_  ( S `  J )
) )
9889, 90, 95, 97elrabf 3255 . . . . 5  |-  ( I  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } 
<->  ( I  e.  ( 0..^ M )  /\  ( Q `  I )  <_  ( S `  J ) ) )
9984, 98sylib 196 . . . 4  |-  ( ph  ->  ( I  e.  ( 0..^ M )  /\  ( Q `  I )  <_  ( S `  J ) ) )
10099simprd 463 . . 3  |-  ( ph  ->  ( Q `  I
)  <_  ( S `  J ) )
101 simpr 461 . . . . . 6  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  ->  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1 ) ) )
10283adantr 465 . . . . . . 7  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  -> 
( Q `  (
I  +  1 ) )  e.  RR* )
103 iccssxr 11632 . . . . . . . . . 10  |-  ( A [,] B )  C_  RR*
10440, 103syl6ss 3511 . . . . . . . . 9  |-  ( ph  ->  T  C_  RR* )
105 fzofzp1 11912 . . . . . . . . . . 11  |-  ( J  e.  ( 0..^ N )  ->  ( J  +  1 )  e.  ( 0 ... N
) )
10647, 105syl 16 . . . . . . . . . 10  |-  ( ph  ->  ( J  +  1 )  e.  ( 0 ... N ) )
10746, 106ffvelrnd 6033 . . . . . . . . 9  |-  ( ph  ->  ( S `  ( J  +  1 ) )  e.  T )
108104, 107sseldd 3500 . . . . . . . 8  |-  ( ph  ->  ( S `  ( J  +  1 ) )  e.  RR* )
109108adantr 465 . . . . . . 7  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  -> 
( S `  ( J  +  1 ) )  e.  RR* )
110 xrltnle 9670 . . . . . . 7  |-  ( ( ( Q `  (
I  +  1 ) )  e.  RR*  /\  ( S `  ( J  +  1 ) )  e.  RR* )  ->  (
( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) )  <->  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) ) )
111102, 109, 110syl2anc 661 . . . . . 6  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  -> 
( ( Q `  ( I  +  1
) )  <  ( S `  ( J  +  1 ) )  <->  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1 ) ) ) )
112101, 111mpbird 232 . . . . 5  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  -> 
( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) ) )
113 fzssz 31669 . . . . . 6  |-  ( 0 ... N )  C_  ZZ
114 f1ofo 5829 . . . . . . . . . 10  |-  ( S : ( 0 ... N ) -1-1-onto-> T  ->  S :
( 0 ... N
) -onto-> T )
11543, 44, 1143syl 20 . . . . . . . . 9  |-  ( ph  ->  S : ( 0 ... N ) -onto-> T )
116115adantr 465 . . . . . . . 8  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  S :
( 0 ... N
) -onto-> T )
117 ffun 5739 . . . . . . . . . . . . . 14  |-  ( Q : ( 0 ... M ) --> RR  ->  Fun 
Q )
11818, 117syl 16 . . . . . . . . . . . . 13  |-  ( ph  ->  Fun  Q )
119 fdm 5741 . . . . . . . . . . . . . . . 16  |-  ( Q : ( 0 ... M ) --> RR  ->  dom 
Q  =  ( 0 ... M ) )
12018, 119syl 16 . . . . . . . . . . . . . . 15  |-  ( ph  ->  dom  Q  =  ( 0 ... M ) )
121120eqcomd 2465 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( 0 ... M
)  =  dom  Q
)
12281, 121eleqtrd 2547 . . . . . . . . . . . . 13  |-  ( ph  ->  ( I  +  1 )  e.  dom  Q
)
123 fvelrn 6025 . . . . . . . . . . . . 13  |-  ( ( Fun  Q  /\  (
I  +  1 )  e.  dom  Q )  ->  ( Q `  ( I  +  1
) )  e.  ran  Q )
124118, 122, 123syl2anc 661 . . . . . . . . . . . 12  |-  ( ph  ->  ( Q `  (
I  +  1 ) )  e.  ran  Q
)
125124adantr 465 . . . . . . . . . . 11  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  ran  Q )
12623adantr 465 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  A  e.  RR* )
12725adantr 465 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  B  e.  RR* )
12882adantr 465 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  RR )
12941, 53sseldd 3500 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( S `  J
)  e.  RR )
1304sseli 3495 . . . . . . . . . . . . . . . . . . . 20  |-  ( I  e.  ( 0 ... M )  ->  I  e.  ZZ )
131 zre 10889 . . . . . . . . . . . . . . . . . . . 20  |-  ( I  e.  ZZ  ->  I  e.  RR )
13277, 130, 1313syl 20 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  I  e.  RR )
133132adantr 465 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  -.  ( S `  J )  <  ( Q `  (
I  +  1 ) ) )  ->  I  e.  RR )
134133ltp1d 10496 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  -.  ( S `  J )  <  ( Q `  (
I  +  1 ) ) )  ->  I  <  ( I  +  1 ) )
135134adantlr 714 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  ->  I  <  ( I  + 
1 ) )
136 simplr 755 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  -> 
( Q `  (
I  +  1 ) )  e.  RR )
137129ad2antrr 725 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  -> 
( S `  J
)  e.  RR )
138 simpr 461 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  ->  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )
139136, 137, 138nltled 31680 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  -> 
( Q `  (
I  +  1 ) )  <_  ( S `  J ) )
140132adantr 465 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  I  e.  RR )
141 1red 9628 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  1  e.  RR )
142140, 141readdcld 9640 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  e.  RR )
143 elfzoelz 11826 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( j  e.  ( 0..^ M )  ->  j  e.  ZZ )
144143zred 10990 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( j  e.  ( 0..^ M )  ->  j  e.  RR )
145144ssriv 3503 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( 0..^ M )  C_  RR
1462, 145sstri 3508 . . . . . . . . . . . . . . . . . . . . . 22  |-  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) }  C_  RR
147146a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  C_  RR )
14862adantr 465 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  =/=  (/) )
14972adantr 465 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  E. x  e.  RR  A. j  e. 
{ k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) } j  <_  x )
15082adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( Q `  ( I  +  1 ) )  e.  RR )
151129adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  J )  e.  RR )
15224adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  B  e.  RR )
153 simpr 461 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)
15442, 107sseldd 3500 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( S `  ( J  +  1 ) )  e.  RR )
155154adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  ( J  +  1 ) )  e.  RR )
156 elfzoelz 11826 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( J  e.  ( 0..^ N )  ->  J  e.  ZZ )
157 zre 10889 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( J  e.  ZZ  ->  J  e.  RR )
15847, 156, 1573syl 20 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  J  e.  RR )
159158ltp1d 10496 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  J  <  ( J  +  1 ) )
160 isorel 6223 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( S  Isom  <  ,  <  ( ( 0 ... N
) ,  T )  /\  ( J  e.  ( 0 ... N
)  /\  ( J  +  1 )  e.  ( 0 ... N
) ) )  -> 
( J  <  ( J  +  1 )  <-> 
( S `  J
)  <  ( S `  ( J  +  1 ) ) ) )
16143, 49, 106, 160syl12anc 1226 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( J  <  ( J  +  1 )  <-> 
( S `  J
)  <  ( S `  ( J  +  1 ) ) ) )
162159, 161mpbid 210 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( S `  J
)  <  ( S `  ( J  +  1 ) ) )
163162adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  J )  <  ( S `  ( J  +  1 ) ) )
16440, 107sseldd 3500 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( S `  ( J  +  1 ) )  e.  ( A [,] B ) )
165 iccleub 11605 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( A  e.  RR*  /\  B  e.  RR*  /\  ( S `
 ( J  + 
1 ) )  e.  ( A [,] B
) )  ->  ( S `  ( J  +  1 ) )  <_  B )
16623, 25, 164, 165syl3anc 1228 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( S `  ( J  +  1 ) )  <_  B )
167166adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  ( J  +  1 ) )  <_  B
)
168151, 155, 152, 163, 167ltletrd 9759 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  J )  <  B
)
169150, 151, 152, 153, 168lelttrd 9757 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( Q `  ( I  +  1 ) )  <  B
)
170169adantr 465 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J ) )  /\  -.  ( I  +  1 )  e.  ( 0..^ M ) )  -> 
( Q `  (
I  +  1 ) )  <  B )
17124adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  B  e.  RR )
17282adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  ( Q `  ( I  +  1 ) )  e.  RR )
173 fourierdlem20.qm . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  B  <_  ( Q `  M ) )
174173adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  B  <_  ( Q `  M
) )
17514adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  M  e.  ZZ )
17681adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  e.  ( 0 ... M ) )
177 fzval3 11888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( M  e.  ZZ  ->  (
0 ... M )  =  ( 0..^ ( M  +  1 ) ) )
17814, 177syl 16 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ph  ->  ( 0 ... M
)  =  ( 0..^ ( M  +  1 ) ) )
179178adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
0 ... M )  =  ( 0..^ ( M  +  1 ) ) )
180176, 179eleqtrd 2547 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  e.  ( 0..^ ( M  +  1 ) ) )
181 simpr 461 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  -.  ( I  +  1
)  e.  ( 0..^ M ) )
182180, 181jca 532 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
( I  +  1 )  e.  ( 0..^ ( M  +  1 ) )  /\  -.  ( I  +  1
)  e.  ( 0..^ M ) ) )
183 elfzonelfzo 11915 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( M  e.  ZZ  ->  (
( ( I  + 
1 )  e.  ( 0..^ ( M  + 
1 ) )  /\  -.  ( I  +  1 )  e.  ( 0..^ M ) )  -> 
( I  +  1 )  e.  ( M..^ ( M  +  1 ) ) ) )
184175, 182, 183sylc 60 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  e.  ( M..^ ( M  +  1 ) ) )
185 fzval3 11888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( M  e.  ZZ  ->  ( M ... M )  =  ( M..^ ( M  +  1 ) ) )
18614, 185syl 16 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ph  ->  ( M ... M
)  =  ( M..^ ( M  +  1 ) ) )
187186eqcomd 2465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  ->  ( M..^ ( M  +  1 ) )  =  ( M ... M ) )
188187adantr 465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  ( M..^ ( M  +  1 ) )  =  ( M ... M ) )
189184, 188eleqtrd 2547 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  e.  ( M ... M ) )
190 elfz1eq 11722 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( I  +  1 )  e.  ( M ... M )  ->  (
I  +  1 )  =  M )
191189, 190syl 16 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  =  M )
192191eqcomd 2465 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  M  =  ( I  + 
1 ) )
193192fveq2d 5876 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  ( Q `  M )  =  ( Q `  ( I  +  1
) ) )
194174, 193breqtrd 4480 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  B  <_  ( Q `  (
I  +  1 ) ) )
195171, 172, 194leimnltd 31675 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  -.  ( Q `  ( I  +  1 ) )  <  B )
196195adantlr 714 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J ) )  /\  -.  ( I  +  1 )  e.  ( 0..^ M ) )  ->  -.  ( Q `  (
I  +  1 ) )  <  B )
197170, 196condan 794 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  e.  ( 0..^ M ) )
198 nfcv 2619 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/_ k  +
199 nfcv 2619 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/_ k
1
20089, 198, 199nfov 6322 . . . . . . . . . . . . . . . . . . . . . . 23  |-  F/_ k
( I  +  1 )
20191, 200nffv 5879 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/_ k
( Q `  (
I  +  1 ) )
202201, 93, 94nfbr 4500 . . . . . . . . . . . . . . . . . . . . . . 23  |-  F/ k ( Q `  (
I  +  1 ) )  <_  ( S `  J )
203 fveq2 5872 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( k  =  ( I  + 
1 )  ->  ( Q `  k )  =  ( Q `  ( I  +  1
) ) )
204203breq1d 4466 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( k  =  ( I  + 
1 )  ->  (
( Q `  k
)  <_  ( S `  J )  <->  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
) )
205200, 90, 202, 204elrabf 3255 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( I  +  1 )  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } 
<->  ( ( I  + 
1 )  e.  ( 0..^ M )  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J ) ) )
206197, 153, 205sylanbrc 664 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  e. 
{ k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) } )
207 suprub 10524 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  C_  RR  /\  {
k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  =/=  (/) 
/\  E. x  e.  RR  A. j  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } j  <_  x )  /\  (
I  +  1 )  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } )  ->  (
I  +  1 )  <_  sup ( { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } ,  RR ,  <  ) )
208147, 148, 149, 206, 207syl31anc 1231 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  <_  sup ( { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } ,  RR ,  <  ) )
209208, 1syl6breqr 4496 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  <_  I )
210142, 140, 209leimnltd 31675 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  -.  I  <  ( I  +  1 ) )
211210adantlr 714 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J ) )  ->  -.  I  <  ( I  +  1 ) )
212139, 211syldan 470 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  ->  -.  I  <  ( I  +  1 ) )
213135, 212condan 794 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  ->  ( S `  J )  <  ( Q `  ( I  +  1 ) ) )
21482, 213mpdan 668 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )
21521, 129, 82, 55, 214lelttrd 9757 . . . . . . . . . . . . 13  |-  ( ph  ->  A  <  ( Q `
 ( I  + 
1 ) ) )
216215adantr 465 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  A  <  ( Q `  ( I  +  1 ) ) )
217154adantr 465 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( S `  ( J  +  1 ) )  e.  RR )
21824adantr 465 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  B  e.  RR )
219 simpr 461 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )
220166adantr 465 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( S `  ( J  +  1 ) )  <_  B
)
221128, 217, 218, 219, 220ltletrd 9759 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  <  B
)
222126, 127, 128, 216, 221eliood 31734 . . . . . . . . . . 11  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  ( A (,) B ) )
223125, 222elind 3684 . . . . . . . . . 10  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  ( ran  Q  i^i  ( A (,) B ) ) )
224 elun2 3668 . . . . . . . . . 10  |-  ( ( Q `  ( I  +  1 ) )  e.  ( ran  Q  i^i  ( A (,) B
) )  ->  ( Q `  ( I  +  1 ) )  e.  ( { A ,  B }  u.  ( ran  Q  i^i  ( A (,) B ) ) ) )
225223, 224syl 16 . . . . . . . . 9  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  ( { A ,  B }  u.  ( ran  Q  i^i  ( A (,) B ) ) ) )
226225, 22syl6eleqr 2556 . . . . . . . 8  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  T
)
227 foelrn 6051 . . . . . . . 8  |-  ( ( S : ( 0 ... N ) -onto-> T  /\  ( Q `  ( I  +  1
) )  e.  T
)  ->  E. j  e.  ( 0 ... N
) ( Q `  ( I  +  1
) )  =  ( S `  j ) )
228116, 226, 227syl2anc 661 . . . . . . 7  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  E. j  e.  ( 0 ... N
) ( Q `  ( I  +  1
) )  =  ( S `  j ) )
229214adantr 465 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  ( S `  J )  <  ( Q `  ( I  +  1 ) ) )
230 simpr 461 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )
231229, 230breqtrd 4480 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  ( S `  J )  <  ( S `  j )
)
232231adantlr 714 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  ( 0 ... N
) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( S `  J
)  <  ( S `  j ) )
23343ad2antrr 725 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... N
) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  S  Isom  <  ,  <  ( ( 0 ... N
) ,  T ) )
23449anim1i 568 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 0 ... N
) )  ->  ( J  e.  ( 0 ... N )  /\  j  e.  ( 0 ... N ) ) )
235234adantr 465 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... N
) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( J  e.  ( 0 ... N )  /\  j  e.  ( 0 ... N ) ) )
236 isorel 6223 . . . . . . . . . . . . 13  |-  ( ( S  Isom  <  ,  <  ( ( 0 ... N
) ,  T )  /\  ( J  e.  ( 0 ... N
)  /\  j  e.  ( 0 ... N
) ) )  -> 
( J  <  j  <->  ( S `  J )  <  ( S `  j ) ) )
237233, 235, 236syl2anc 661 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  ( 0 ... N
) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( J  <  j  <->  ( S `  J )  <  ( S `  j ) ) )
238232, 237mpbird 232 . . . . . . . . . . 11  |-  ( ( ( ph  /\  j  e.  ( 0 ... N
) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  J  <  j )
239238adantllr 718 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  /\  ( Q `  ( I  +  1
) )  =  ( S `  j ) )  ->  J  <  j )
240 eqcom 2466 . . . . . . . . . . . . . . . 16  |-  ( ( Q `  ( I  +  1 ) )  =  ( S `  j )  <->  ( S `  j )  =  ( Q `  ( I  +  1 ) ) )
241240biimpi 194 . . . . . . . . . . . . . . 15  |-  ( ( Q `  ( I  +  1 ) )  =  ( S `  j )  ->  ( S `  j )  =  ( Q `  ( I  +  1
) ) )
242241adantl 466 . . . . . . . . . . . . . 14  |-  ( ( ( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( S `  j
)  =  ( Q `
 ( I  + 
1 ) ) )
243 simpl 457 . . . . . . . . . . . . . 14  |-  ( ( ( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) ) )
244242, 243eqbrtrd 4476 . . . . . . . . . . . . 13  |-  ( ( ( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( S `  j
)  <  ( S `  ( J  +  1 ) ) )
245244adantll 713 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( S `  j
)  <  ( S `  ( J  +  1 ) ) )
246245adantlr 714 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  /\  ( Q `  ( I  +  1
) )  =  ( S `  j ) )  ->  ( S `  j )  <  ( S `  ( J  +  1 ) ) )
24743ad2antrr 725 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  S  Isom  <  ,  <  ( ( 0 ... N ) ,  T ) )
248 simpr 461 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  j  e.  ( 0 ... N ) )
249106ad2antrr 725 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  ( J  + 
1 )  e.  ( 0 ... N ) )
250 isorel 6223 . . . . . . . . . . . . 13  |-  ( ( S  Isom  <  ,  <  ( ( 0 ... N
) ,  T )  /\  ( j  e.  ( 0 ... N
)  /\  ( J  +  1 )  e.  ( 0 ... N
) ) )  -> 
( j  <  ( J  +  1 )  <-> 
( S `  j
)  <  ( S `  ( J  +  1 ) ) ) )
251247, 248, 249, 250syl12anc 1226 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  ( j  < 
( J  +  1 )  <->  ( S `  j )  <  ( S `  ( J  +  1 ) ) ) )
252251adantr 465 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  /\  ( Q `  ( I  +  1
) )  =  ( S `  j ) )  ->  ( j  <  ( J  +  1 )  <->  ( S `  j )  <  ( S `  ( J  +  1 ) ) ) )
253246, 252mpbird 232 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  /\  ( Q `  ( I  +  1
) )  =  ( S `  j ) )  ->  j  <  ( J  +  1 ) )
254239, 253jca 532 . . . . . . . . 9  |-  ( ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  /\  ( Q `  ( I  +  1
) )  =  ( S `  j ) )  ->  ( J  <  j  /\  j  < 
( J  +  1 ) ) )
255254ex 434 . . . . . . . 8  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  ( ( Q `
 ( I  + 
1 ) )  =  ( S `  j
)  ->  ( J  <  j  /\  j  < 
( J  +  1 ) ) ) )
256255reximdva 2932 . . . . . . 7  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( E. j  e.  ( 0 ... N ) ( Q `  ( I  +  1 ) )  =  ( S `  j )  ->  E. j  e.  ( 0 ... N
) ( J  < 
j  /\  j  <  ( J  +  1 ) ) ) )
257228, 256mpd 15 . . . . . 6  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  E. j  e.  ( 0 ... N
) ( J  < 
j  /\  j  <  ( J  +  1 ) ) )
258 ssrexv 3561 . . . . . 6  |-  ( ( 0 ... N ) 
C_  ZZ  ->  ( E. j  e.  ( 0 ... N ) ( J  <  j  /\  j  <  ( J  + 
1 ) )  ->  E. j  e.  ZZ  ( J  <  j  /\  j  <  ( J  + 
1 ) ) ) )
259113, 257, 258mpsyl 63 . . . . 5  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  E. j  e.  ZZ  ( J  < 
j  /\  j  <  ( J  +  1 ) ) )
260112, 259syldan 470 . . . 4  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  ->  E. j  e.  ZZ  ( J  <  j  /\  j  <  ( J  + 
1 ) ) )
261 simplr 755 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  ZZ )  /\  ( J  <  j  /\  j  <  ( J  +  1 ) ) )  -> 
j  e.  ZZ )
26247, 156syl 16 . . . . . . . . 9  |-  ( ph  ->  J  e.  ZZ )
263262ad2antrr 725 . . . . . . . 8  |-  ( ( ( ph  /\  j  e.  ZZ )  /\  ( J  <  j  /\  j  <  ( J  +  1 ) ) )  ->  J  e.  ZZ )
264 simprl 756 . . . . . . . 8  |-  ( ( ( ph  /\  j  e.  ZZ )  /\  ( J  <  j  /\  j  <  ( J  +  1 ) ) )  ->  J  <  j )
265 simprr 757 . . . . . . . 8  |-  ( ( ( ph  /\  j  e.  ZZ )  /\  ( J  <  j  /\  j  <  ( J  +  1 ) ) )  -> 
j  <  ( J  +  1 ) )
266 btwnnz 10960 . . . . . . . 8  |-  ( ( J  e.  ZZ  /\  J  <  j  /\  j  <  ( J  +  1 ) )  ->  -.  j  e.  ZZ )
267263, 264, 265, 266syl3anc 1228 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  ZZ )  /\  ( J  <  j  /\  j  <  ( J  +  1 ) ) )  ->  -.  j  e.  ZZ )
268261, 267pm2.65da 576 . . . . . 6  |-  ( (
ph  /\  j  e.  ZZ )  ->  -.  ( J  <  j  /\  j  <  ( J  +  1 ) ) )
269268nrexdv 2913 . . . . 5  |-  ( ph  ->  -.  E. j  e.  ZZ  ( J  < 
j  /\  j  <  ( J  +  1 ) ) )
270269adantr 465 . . . 4  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  ->  -.  E. j  e.  ZZ  ( J  <  j  /\  j  <  ( J  + 
1 ) ) )
271260, 270condan 794 . . 3  |-  ( ph  ->  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1 ) ) )
272 ioossioo 11641 . . 3  |-  ( ( ( ( Q `  I )  e.  RR*  /\  ( Q `  (
I  +  1 ) )  e.  RR* )  /\  ( ( Q `  I )  <_  ( S `  J )  /\  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1 ) ) ) )  ->  ( ( S `
 J ) (,) ( S `  ( J  +  1 ) ) )  C_  (
( Q `  I
) (,) ( Q `
 ( I  + 
1 ) ) ) )
27379, 83, 100, 271, 272syl22anc 1229 . 2  |-  ( ph  ->  ( ( S `  J ) (,) ( S `  ( J  +  1 ) ) )  C_  ( ( Q `  I ) (,) ( Q `  (
I  +  1 ) ) ) )
274 fveq2 5872 . . . . 5  |-  ( i  =  I  ->  ( Q `  i )  =  ( Q `  I ) )
275 oveq1 6303 . . . . . 6  |-  ( i  =  I  ->  (
i  +  1 )  =  ( I  + 
1 ) )
276275fveq2d 5876 . . . . 5  |-  ( i  =  I  ->  ( Q `  ( i  +  1 ) )  =  ( Q `  ( I  +  1
) ) )
277274, 276oveq12d 6314 . . . 4  |-  ( i  =  I  ->  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )  =  ( ( Q `
 I ) (,) ( Q `  (
I  +  1 ) ) ) )
278277sseq2d 3527 . . 3  |-  ( i  =  I  ->  (
( ( S `  J ) (,) ( S `  ( J  +  1 ) ) )  C_  ( ( Q `  i ) (,) ( Q `  (
i  +  1 ) ) )  <->  ( ( S `  J ) (,) ( S `  ( J  +  1 ) ) )  C_  (
( Q `  I
) (,) ( Q `
 ( I  + 
1 ) ) ) ) )
279278rspcev 3210 . 2  |-  ( ( I  e.  ( 0..^ M )  /\  (
( S `  J
) (,) ( S `
 ( J  + 
1 ) ) ) 
C_  ( ( Q `
 I ) (,) ( Q `  (
I  +  1 ) ) ) )  ->  E. i  e.  (
0..^ M ) ( ( S `  J
) (,) ( S `
 ( J  + 
1 ) ) ) 
C_  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )
28076, 273, 279syl2anc 661 1  |-  ( ph  ->  E. i  e.  ( 0..^ M ) ( ( S `  J
) (,) ( S `
 ( J  + 
1 ) ) ) 
C_  ( ( Q `
 i ) (,) ( Q `  (
i  +  1 ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    = wceq 1395    e. wcel 1819    =/= wne 2652   A.wral 2807   E.wrex 2808   {crab 2811    u. cun 3469    i^i cin 3470    C_ wss 3471   (/)c0 3793   {cpr 4034   class class class wbr 4456   dom cdm 5008   ran crn 5009   Fun wfun 5588   -->wf 5590   -onto->wfo 5592   -1-1-onto->wf1o 5593   ` cfv 5594    Isom wiso 5595  (class class class)co 6296   supcsup 7918   RRcr 9508   0cc0 9509   1c1 9510    + caddc 9512   RR*cxr 9644    < clt 9645    <_ cle 9646   NNcn 10556   ZZcz 10885   ZZ>=cuz 11106   (,)cioo 11554   [,]cicc 11557   ...cfz 11697  ..^cfzo 11821
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1619  ax-4 1632  ax-5 1705  ax-6 1748  ax-7 1791  ax-8 1821  ax-9 1823  ax-10 1838  ax-11 1843  ax-12 1855  ax-13 2000  ax-ext 2435  ax-sep 4578  ax-nul 4586  ax-pow 4634  ax-pr 4695  ax-un 6591  ax-cnex 9565  ax-resscn 9566  ax-1cn 9567  ax-icn 9568  ax-addcl 9569  ax-addrcl 9570  ax-mulcl 9571  ax-mulrcl 9572  ax-mulcom 9573  ax-addass 9574  ax-mulass 9575  ax-distr 9576  ax-i2m1 9577  ax-1ne0 9578  ax-1rid 9579  ax-rnegex 9580  ax-rrecex 9581  ax-cnre 9582  ax-pre-lttri 9583  ax-pre-lttrn 9584  ax-pre-ltadd 9585  ax-pre-mulgt0 9586  ax-pre-sup 9587
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 974  df-3an 975  df-tru 1398  df-ex 1614  df-nf 1618  df-sb 1741  df-eu 2287  df-mo 2288  df-clab 2443  df-cleq 2449  df-clel 2452  df-nfc 2607  df-ne 2654  df-nel 2655  df-ral 2812  df-rex 2813  df-reu 2814  df-rmo 2815  df-rab 2816  df-v 3111  df-sbc 3328  df-csb 3431  df-dif 3474  df-un 3476  df-in 3478  df-ss 3485  df-pss 3487  df-nul 3794  df-if 3945  df-pw 4017  df-sn 4033  df-pr 4035  df-tp 4037  df-op 4039  df-uni 4252  df-iun 4334  df-br 4457  df-opab 4516  df-mpt 4517  df-tr 4551  df-eprel 4800  df-id 4804  df-po 4809  df-so 4810  df-fr 4847  df-we 4849  df-ord 4890  df-on 4891  df-lim 4892  df-suc 4893  df-xp 5014  df-rel 5015  df-cnv 5016  df-co 5017  df-dm 5018  df-rn 5019  df-res 5020  df-ima 5021  df-iota 5557  df-fun 5596  df-fn 5597  df-f 5598  df-f1 5599  df-fo 5600  df-f1o 5601  df-fv 5602  df-isom 5603  df-riota 6258  df-ov 6299  df-oprab 6300  df-mpt2 6301  df-om 6700  df-1st 6799  df-2nd 6800  df-recs 7060  df-rdg 7094  df-er 7329  df-en 7536  df-dom 7537  df-sdom 7538  df-sup 7919  df-pnf 9647  df-mnf 9648  df-xr 9649  df-ltxr 9650  df-le 9651  df-sub 9826  df-neg 9827  df-nn 10557  df-n0 10817  df-z 10886  df-uz 11107  df-ioo 11558  df-icc 11561  df-fz 11698  df-fzo 11822
This theorem is referenced by:  fourierdlem50  32142
  Copyright terms: Public domain W3C validator