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

Theorem fourierdlem20 37277
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 3524 . . . 4  |-  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) }  C_  (
0..^ M )
3 fzossfz 11877 . . . . . . . 8  |-  ( 0..^ M )  C_  (
0 ... M )
4 fzssz 36840 . . . . . . . 8  |-  ( 0 ... M )  C_  ZZ
53, 4sstri 3451 . . . . . . 7  |-  ( 0..^ M )  C_  ZZ
62, 5sstri 3451 . . . . . 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 10916 . . . . . . . . . 10  |-  0  e.  ZZ
9 0le0 10666 . . . . . . . . . 10  |-  0  <_  0
10 eluz2 11133 . . . . . . . . . 10  |-  ( 0  e.  ( ZZ>= `  0
)  <->  ( 0  e.  ZZ  /\  0  e.  ZZ  /\  0  <_ 
0 ) )
118, 8, 9, 10mpbir3an 1179 . . . . . . . . 9  |-  0  e.  ( ZZ>= `  0 )
1211a1i 11 . . . . . . . 8  |-  ( ph  ->  0  e.  ( ZZ>= ` 
0 ) )
13 fourierdlem20.m . . . . . . . . 9  |-  ( ph  ->  M  e.  NN )
1413nnzd 11007 . . . . . . . 8  |-  ( ph  ->  M  e.  ZZ )
1513nngt0d 10620 . . . . . . . 8  |-  ( ph  ->  0  <  M )
16 elfzo2 11862 . . . . . . . 8  |-  ( 0  e.  ( 0..^ M )  <->  ( 0  e.  ( ZZ>= `  0 )  /\  M  e.  ZZ  /\  0  <  M ) )
1712, 14, 15, 16syl3anbrc 1181 . . . . . . 7  |-  ( ph  ->  0  e.  ( 0..^ M ) )
18 fourierdlem20.q . . . . . . . . 9  |-  ( ph  ->  Q : ( 0 ... M ) --> RR )
193, 17sseldi 3440 . . . . . . . . 9  |-  ( ph  ->  0  e.  ( 0 ... M ) )
2018, 19ffvelrnd 6010 . . . . . . . 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 9673 . . . . . . . . . . . . . . 15  |-  ( ph  ->  A  e.  RR* )
24 fourierdlem20.b . . . . . . . . . . . . . . . 16  |-  ( ph  ->  B  e.  RR )
2524rexrd 9673 . . . . . . . . . . . . . . 15  |-  ( ph  ->  B  e.  RR* )
26 fourierdlem20.aleb . . . . . . . . . . . . . . 15  |-  ( ph  ->  A  <_  B )
27 lbicc2 11690 . . . . . . . . . . . . . . 15  |-  ( ( A  e.  RR*  /\  B  e.  RR*  /\  A  <_  B )  ->  A  e.  ( A [,] B
) )
2823, 25, 26, 27syl3anc 1230 . . . . . . . . . . . . . 14  |-  ( ph  ->  A  e.  ( A [,] B ) )
29 ubicc2 11691 . . . . . . . . . . . . . . 15  |-  ( ( A  e.  RR*  /\  B  e.  RR*  /\  A  <_  B )  ->  B  e.  ( A [,] B
) )
3023, 25, 26, 29syl3anc 1230 . . . . . . . . . . . . . 14  |-  ( ph  ->  B  e.  ( A [,] B ) )
3128, 30jca 530 . . . . . . . . . . . . 13  |-  ( ph  ->  ( A  e.  ( A [,] B )  /\  B  e.  ( A [,] B ) ) )
32 prssg 4127 . . . . . . . . . . . . . 14  |-  ( ( A  e.  RR*  /\  B  e.  RR* )  ->  (
( A  e.  ( A [,] B )  /\  B  e.  ( A [,] B ) )  <->  { A ,  B }  C_  ( A [,] B ) ) )
3323, 25, 32syl2anc 659 . . . . . . . . . . . . 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 3660 . . . . . . . . . . . . . 14  |-  ( ran 
Q  i^i  ( A (,) B ) )  C_  ( A (,) B )
36 ioossicc 11664 . . . . . . . . . . . . . 14  |-  ( A (,) B )  C_  ( A [,] B )
3735, 36sstri 3451 . . . . . . . . . . . . 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 3619 . . . . . . . . . . 11  |-  ( ph  ->  ( { A ,  B }  u.  ( ran  Q  i^i  ( A (,) B ) ) )  C_  ( A [,] B ) )
4022, 39syl5eqss 3486 . . . . . . . . . 10  |-  ( ph  ->  T  C_  ( A [,] B ) )
4121, 24iccssred 36907 . . . . . . . . . 10  |-  ( ph  ->  ( A [,] B
)  C_  RR )
4240, 41sstrd 3452 . . . . . . . . 9  |-  ( ph  ->  T  C_  RR )
43 fourierdlem20.s . . . . . . . . . . 11  |-  ( ph  ->  S  Isom  <  ,  <  ( ( 0 ... N
) ,  T ) )
44 isof1o 6204 . . . . . . . . . . 11  |-  ( S 
Isom  <  ,  <  (
( 0 ... N
) ,  T )  ->  S : ( 0 ... N ) -1-1-onto-> T )
45 f1of 5799 . . . . . . . . . . 11  |-  ( S : ( 0 ... N ) -1-1-onto-> T  ->  S :
( 0 ... N
) --> T )
4643, 44, 453syl 18 . . . . . . . . . 10  |-  ( ph  ->  S : ( 0 ... N ) --> T )
47 fourierdlem20.j . . . . . . . . . . 11  |-  ( ph  ->  J  e.  ( 0..^ N ) )
48 elfzofz 11874 . . . . . . . . . . 11  |-  ( J  e.  ( 0..^ N )  ->  J  e.  ( 0 ... N
) )
4947, 48syl 17 . . . . . . . . . 10  |-  ( ph  ->  J  e.  ( 0 ... N ) )
5046, 49ffvelrnd 6010 . . . . . . . . 9  |-  ( ph  ->  ( S `  J
)  e.  T )
5142, 50sseldd 3443 . . . . . . . 8  |-  ( ph  ->  ( S `  J
)  e.  RR )
52 fourierdlem20.q0 . . . . . . . 8  |-  ( ph  ->  ( Q `  0
)  <_  A )
5340, 50sseldd 3443 . . . . . . . . 9  |-  ( ph  ->  ( S `  J
)  e.  ( A [,] B ) )
54 iccgelb 11635 . . . . . . . . 9  |-  ( ( A  e.  RR*  /\  B  e.  RR*  /\  ( S `
 J )  e.  ( A [,] B
) )  ->  A  <_  ( S `  J
) )
5523, 25, 53, 54syl3anc 1230 . . . . . . . 8  |-  ( ph  ->  A  <_  ( S `  J ) )
5620, 21, 51, 52, 55letrd 9773 . . . . . . 7  |-  ( ph  ->  ( Q `  0
)  <_  ( S `  J ) )
57 fveq2 5849 . . . . . . . . 9  |-  ( k  =  0  ->  ( Q `  k )  =  ( Q ` 
0 ) )
5857breq1d 4405 . . . . . . . 8  |-  ( k  =  0  ->  (
( Q `  k
)  <_  ( S `  J )  <->  ( Q `  0 )  <_ 
( S `  J
) ) )
5958elrab 3207 . . . . . . 7  |-  ( 0  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } 
<->  ( 0  e.  ( 0..^ M )  /\  ( Q `  0 )  <_  ( S `  J ) ) )
6017, 56, 59sylanbrc 662 . . . . . 6  |-  ( ph  ->  0  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } )
61 ne0i 3744 . . . . . 6  |-  ( 0  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  ->  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  =/=  (/) )
6260, 61syl 17 . . . . 5  |-  ( ph  ->  { k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) }  =/=  (/) )
6313nnred 10591 . . . . . 6  |-  ( ph  ->  M  e.  RR )
642sseli 3438 . . . . . . . . 9  |-  ( j  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  ->  j  e.  ( 0..^ M ) )
65 elfzo0le 11898 . . . . . . . . 9  |-  ( j  e.  ( 0..^ M )  ->  j  <_  M )
6664, 65syl 17 . . . . . . . 8  |-  ( j  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  ->  j  <_  M
)
6766adantl 464 . . . . . . 7  |-  ( (
ph  /\  j  e.  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } )  ->  j  <_  M
)
6867ralrimiva 2818 . . . . . 6  |-  ( ph  ->  A. j  e.  {
k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } j  <_  M )
69 breq2 4399 . . . . . . . 8  |-  ( x  =  M  ->  (
j  <_  x  <->  j  <_  M ) )
7069ralbidv 2843 . . . . . . 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 3160 . . . . . 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 659 . . . . 5  |-  ( ph  ->  E. x  e.  RR  A. j  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } j  <_  x )
73 suprzcl 10983 . . . . 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 1230 . . . 4  |-  ( ph  ->  sup ( { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } ,  RR ,  <  )  e.  {
k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } )
752, 74sseldi 3440 . . 3  |-  ( ph  ->  sup ( { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } ,  RR ,  <  )  e.  ( 0..^ M ) )
761, 75syl5eqel 2494 . 2  |-  ( ph  ->  I  e.  ( 0..^ M ) )
773, 76sseldi 3440 . . . . 5  |-  ( ph  ->  I  e.  ( 0 ... M ) )
7818, 77ffvelrnd 6010 . . . 4  |-  ( ph  ->  ( Q `  I
)  e.  RR )
7978rexrd 9673 . . 3  |-  ( ph  ->  ( Q `  I
)  e.  RR* )
80 fzofzp1 11946 . . . . . 6  |-  ( I  e.  ( 0..^ M )  ->  ( I  +  1 )  e.  ( 0 ... M
) )
8176, 80syl 17 . . . . 5  |-  ( ph  ->  ( I  +  1 )  e.  ( 0 ... M ) )
8218, 81ffvelrnd 6010 . . . 4  |-  ( ph  ->  ( Q `  (
I  +  1 ) )  e.  RR )
8382rexrd 9673 . . 3  |-  ( ph  ->  ( Q `  (
I  +  1 ) )  e.  RR* )
841, 74syl5eqel 2494 . . . . 5  |-  ( ph  ->  I  e.  { k  e.  ( 0..^ M )  |  ( Q `
 k )  <_ 
( S `  J
) } )
85 nfrab1 2988 . . . . . . . 8  |-  F/_ k { k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) }
86 nfcv 2564 . . . . . . . 8  |-  F/_ k RR
87 nfcv 2564 . . . . . . . 8  |-  F/_ k  <
8885, 86, 87nfsup 7944 . . . . . . 7  |-  F/_ k sup ( { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } ,  RR ,  <  )
891, 88nfcxfr 2562 . . . . . 6  |-  F/_ k
I
90 nfcv 2564 . . . . . 6  |-  F/_ k
( 0..^ M )
91 nfcv 2564 . . . . . . . 8  |-  F/_ k Q
9291, 89nffv 5856 . . . . . . 7  |-  F/_ k
( Q `  I
)
93 nfcv 2564 . . . . . . 7  |-  F/_ k  <_
94 nfcv 2564 . . . . . . 7  |-  F/_ k
( S `  J
)
9592, 93, 94nfbr 4439 . . . . . 6  |-  F/ k ( Q `  I
)  <_  ( S `  J )
96 fveq2 5849 . . . . . . 7  |-  ( k  =  I  ->  ( Q `  k )  =  ( Q `  I ) )
9796breq1d 4405 . . . . . 6  |-  ( k  =  I  ->  (
( Q `  k
)  <_  ( S `  J )  <->  ( Q `  I )  <_  ( S `  J )
) )
9889, 90, 95, 97elrabf 3205 . . . . 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 461 . . 3  |-  ( ph  ->  ( Q `  I
)  <_  ( S `  J ) )
101 simpr 459 . . . . . 6  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  ->  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1 ) ) )
10283adantr 463 . . . . . . 7  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  -> 
( Q `  (
I  +  1 ) )  e.  RR* )
103 iccssxr 11661 . . . . . . . . . 10  |-  ( A [,] B )  C_  RR*
10440, 103syl6ss 3454 . . . . . . . . 9  |-  ( ph  ->  T  C_  RR* )
105 fzofzp1 11946 . . . . . . . . . . 11  |-  ( J  e.  ( 0..^ N )  ->  ( J  +  1 )  e.  ( 0 ... N
) )
10647, 105syl 17 . . . . . . . . . 10  |-  ( ph  ->  ( J  +  1 )  e.  ( 0 ... N ) )
10746, 106ffvelrnd 6010 . . . . . . . . 9  |-  ( ph  ->  ( S `  ( J  +  1 ) )  e.  T )
108104, 107sseldd 3443 . . . . . . . 8  |-  ( ph  ->  ( S `  ( J  +  1 ) )  e.  RR* )
109108adantr 463 . . . . . . 7  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  -> 
( S `  ( J  +  1 ) )  e.  RR* )
110 xrltnle 9683 . . . . . . 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 659 . . . . . 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 36840 . . . . . 6  |-  ( 0 ... N )  C_  ZZ
114 f1ofo 5806 . . . . . . . . . 10  |-  ( S : ( 0 ... N ) -1-1-onto-> T  ->  S :
( 0 ... N
) -onto-> T )
11543, 44, 1143syl 18 . . . . . . . . 9  |-  ( ph  ->  S : ( 0 ... N ) -onto-> T )
116115adantr 463 . . . . . . . 8  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  S :
( 0 ... N
) -onto-> T )
117 ffun 5716 . . . . . . . . . . . . . 14  |-  ( Q : ( 0 ... M ) --> RR  ->  Fun 
Q )
11818, 117syl 17 . . . . . . . . . . . . 13  |-  ( ph  ->  Fun  Q )
119 fdm 5718 . . . . . . . . . . . . . . . 16  |-  ( Q : ( 0 ... M ) --> RR  ->  dom 
Q  =  ( 0 ... M ) )
12018, 119syl 17 . . . . . . . . . . . . . . 15  |-  ( ph  ->  dom  Q  =  ( 0 ... M ) )
121120eqcomd 2410 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( 0 ... M
)  =  dom  Q
)
12281, 121eleqtrd 2492 . . . . . . . . . . . . 13  |-  ( ph  ->  ( I  +  1 )  e.  dom  Q
)
123 fvelrn 6002 . . . . . . . . . . . . 13  |-  ( ( Fun  Q  /\  (
I  +  1 )  e.  dom  Q )  ->  ( Q `  ( I  +  1
) )  e.  ran  Q )
124118, 122, 123syl2anc 659 . . . . . . . . . . . 12  |-  ( ph  ->  ( Q `  (
I  +  1 ) )  e.  ran  Q
)
125124adantr 463 . . . . . . . . . . 11  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  ran  Q )
12623adantr 463 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  A  e.  RR* )
12725adantr 463 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  B  e.  RR* )
12882adantr 463 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  RR )
12941, 53sseldd 3443 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( S `  J
)  e.  RR )
1304sseli 3438 . . . . . . . . . . . . . . . . . . . 20  |-  ( I  e.  ( 0 ... M )  ->  I  e.  ZZ )
131 zre 10909 . . . . . . . . . . . . . . . . . . . 20  |-  ( I  e.  ZZ  ->  I  e.  RR )
13277, 130, 1313syl 18 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  I  e.  RR )
133132adantr 463 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  -.  ( S `  J )  <  ( Q `  (
I  +  1 ) ) )  ->  I  e.  RR )
134133ltp1d 10516 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  -.  ( S `  J )  <  ( Q `  (
I  +  1 ) ) )  ->  I  <  ( I  +  1 ) )
135134adantlr 713 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  ->  I  <  ( I  + 
1 ) )
136 simplr 754 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  -> 
( Q `  (
I  +  1 ) )  e.  RR )
137129ad2antrr 724 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  -> 
( S `  J
)  e.  RR )
138 simpr 459 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  ->  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )
139136, 137, 138nltled 9767 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  -> 
( Q `  (
I  +  1 ) )  <_  ( S `  J ) )
140132adantr 463 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  I  e.  RR )
141 1red 9641 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  1  e.  RR )
142140, 141readdcld 9653 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  e.  RR )
143 elfzoelz 11859 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( j  e.  ( 0..^ M )  ->  j  e.  ZZ )
144143zred 11008 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( j  e.  ( 0..^ M )  ->  j  e.  RR )
145144ssriv 3446 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( 0..^ M )  C_  RR
1462, 145sstri 3451 . . . . . . . . . . . . . . . . . . . . . 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 463 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) }  =/=  (/) )
14972adantr 463 . . . . . . . . . . . . . . . . . . . . 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 463 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( Q `  ( I  +  1 ) )  e.  RR )
151129adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  J )  e.  RR )
15224adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  B  e.  RR )
153 simpr 459 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)
15442, 107sseldd 3443 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( S `  ( J  +  1 ) )  e.  RR )
155154adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  ( J  +  1 ) )  e.  RR )
156 elfzoelz 11859 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( J  e.  ( 0..^ N )  ->  J  e.  ZZ )
157 zre 10909 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( J  e.  ZZ  ->  J  e.  RR )
15847, 156, 1573syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ph  ->  J  e.  RR )
159158ltp1d 10516 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  J  <  ( J  +  1 ) )
160 isorel 6205 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 1228 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( J  <  ( J  +  1 )  <-> 
( S `  J
)  <  ( S `  ( J  +  1 ) ) ) )
162159, 161mpbid 210 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( S `  J
)  <  ( S `  ( J  +  1 ) ) )
163162adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  J )  <  ( S `  ( J  +  1 ) ) )
16440, 107sseldd 3443 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ph  ->  ( S `  ( J  +  1 ) )  e.  ( A [,] B ) )
165 iccleub 11634 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( A  e.  RR*  /\  B  e.  RR*  /\  ( S `
 ( J  + 
1 ) )  e.  ( A [,] B
) )  ->  ( S `  ( J  +  1 ) )  <_  B )
16623, 25, 164, 165syl3anc 1230 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  ( S `  ( J  +  1 ) )  <_  B )
167166adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  ( J  +  1 ) )  <_  B
)
168151, 155, 152, 163, 167ltletrd 9776 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( S `  J )  <  B
)
169150, 151, 152, 153, 168lelttrd 9774 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( Q `  ( I  +  1 ) )  <  B
)
170169adantr 463 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J ) )  /\  -.  ( I  +  1 )  e.  ( 0..^ M ) )  -> 
( Q `  (
I  +  1 ) )  <  B )
17124adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  B  e.  RR )
17282adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  ( Q `  ( I  +  1 ) )  e.  RR )
173 fourierdlem20.qm . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ph  ->  B  <_  ( Q `  M ) )
174173adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  B  <_  ( Q `  M
) )
17514adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  M  e.  ZZ )
17681adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  e.  ( 0 ... M ) )
177 fzval3 11921 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( M  e.  ZZ  ->  (
0 ... M )  =  ( 0..^ ( M  +  1 ) ) )
17814, 177syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ph  ->  ( 0 ... M
)  =  ( 0..^ ( M  +  1 ) ) )
179178adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
0 ... M )  =  ( 0..^ ( M  +  1 ) ) )
180176, 179eleqtrd 2492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  e.  ( 0..^ ( M  +  1 ) ) )
181 simpr 459 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  -.  ( I  +  1
)  e.  ( 0..^ M ) )
182180, 181jca 530 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
( I  +  1 )  e.  ( 0..^ ( M  +  1 ) )  /\  -.  ( I  +  1
)  e.  ( 0..^ M ) ) )
183 elfzonelfzo 11949 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( M  e.  ZZ  ->  (
( ( I  + 
1 )  e.  ( 0..^ ( M  + 
1 ) )  /\  -.  ( I  +  1 )  e.  ( 0..^ M ) )  -> 
( I  +  1 )  e.  ( M..^ ( M  +  1 ) ) ) )
184175, 182, 183sylc 59 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  e.  ( M..^ ( M  +  1 ) ) )
185 fzval3 11921 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( M  e.  ZZ  ->  ( M ... M )  =  ( M..^ ( M  +  1 ) ) )
18614, 185syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ph  ->  ( M ... M
)  =  ( M..^ ( M  +  1 ) ) )
187186eqcomd 2410 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ph  ->  ( M..^ ( M  +  1 ) )  =  ( M ... M ) )
188187adantr 463 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  ( M..^ ( M  +  1 ) )  =  ( M ... M ) )
189184, 188eleqtrd 2492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  e.  ( M ... M ) )
190 elfz1eq 11751 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( I  +  1 )  e.  ( M ... M )  ->  (
I  +  1 )  =  M )
191189, 190syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  (
I  +  1 )  =  M )
192191eqcomd 2410 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  M  =  ( I  + 
1 ) )
193192fveq2d 5853 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  ( Q `  M )  =  ( Q `  ( I  +  1
) ) )
194174, 193breqtrd 4419 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  B  <_  ( Q `  (
I  +  1 ) ) )
195171, 172, 194lensymd 9768 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  -.  (
I  +  1 )  e.  ( 0..^ M ) )  ->  -.  ( Q `  ( I  +  1 ) )  <  B )
196195adantlr 713 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J ) )  /\  -.  ( I  +  1 )  e.  ( 0..^ M ) )  ->  -.  ( Q `  (
I  +  1 ) )  <  B )
197170, 196condan 795 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  e.  ( 0..^ M ) )
198 nfcv 2564 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/_ k  +
199 nfcv 2564 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/_ k
1
20089, 198, 199nfov 6304 . . . . . . . . . . . . . . . . . . . . . . 23  |-  F/_ k
( I  +  1 )
20191, 200nffv 5856 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  F/_ k
( Q `  (
I  +  1 ) )
202201, 93, 94nfbr 4439 . . . . . . . . . . . . . . . . . . . . . . 23  |-  F/ k ( Q `  (
I  +  1 ) )  <_  ( S `  J )
203 fveq2 5849 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( k  =  ( I  + 
1 )  ->  ( Q `  k )  =  ( Q `  ( I  +  1
) ) )
204203breq1d 4405 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( k  =  ( I  + 
1 )  ->  (
( Q `  k
)  <_  ( S `  J )  <->  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
) )
205200, 90, 202, 204elrabf 3205 . . . . . . . . . . . . . . . . . . . . . 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 662 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  e. 
{ k  e.  ( 0..^ M )  |  ( Q `  k
)  <_  ( S `  J ) } )
207 suprub 10544 . . . . . . . . . . . . . . . . . . . . 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 1233 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  <_  sup ( { k  e.  ( 0..^ M )  |  ( Q `  k )  <_  ( S `  J ) } ,  RR ,  <  ) )
209208, 1syl6breqr 4435 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  ( I  +  1 )  <_  I )
210142, 140, 209lensymd 9768 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J )
)  ->  -.  I  <  ( I  +  1 ) )
211210adantlr 713 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  ( Q `  ( I  +  1 ) )  <_  ( S `  J ) )  ->  -.  I  <  ( I  +  1 ) )
212139, 211syldan 468 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  /\  -.  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )  ->  -.  I  <  ( I  +  1 ) )
213135, 212condan 795 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  e.  RR )  ->  ( S `  J )  <  ( Q `  ( I  +  1 ) ) )
21482, 213mpdan 666 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( S `  J
)  <  ( Q `  ( I  +  1 ) ) )
21521, 129, 82, 55, 214lelttrd 9774 . . . . . . . . . . . . 13  |-  ( ph  ->  A  <  ( Q `
 ( I  + 
1 ) ) )
216215adantr 463 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  A  <  ( Q `  ( I  +  1 ) ) )
217154adantr 463 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( S `  ( J  +  1 ) )  e.  RR )
21824adantr 463 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  B  e.  RR )
219 simpr 459 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )
220166adantr 463 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( S `  ( J  +  1 ) )  <_  B
)
221128, 217, 218, 219, 220ltletrd 9776 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  <  B
)
222126, 127, 128, 216, 221eliood 36900 . . . . . . . . . . 11  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  ( A (,) B ) )
223125, 222elind 3627 . . . . . . . . . 10  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  ( ran  Q  i^i  ( A (,) B ) ) )
224 elun2 3611 . . . . . . . . . 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 17 . . . . . . . . 9  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  ( { A ,  B }  u.  ( ran  Q  i^i  ( A (,) B ) ) ) )
226225, 22syl6eleqr 2501 . . . . . . . 8  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  ( Q `  ( I  +  1 ) )  e.  T
)
227 foelrn 6028 . . . . . . . 8  |-  ( ( S : ( 0 ... N ) -onto-> T  /\  ( Q `  ( I  +  1
) )  e.  T
)  ->  E. j  e.  ( 0 ... N
) ( Q `  ( I  +  1
) )  =  ( S `  j ) )
228116, 226, 227syl2anc 659 . . . . . . 7  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  E. j  e.  ( 0 ... N
) ( Q `  ( I  +  1
) )  =  ( S `  j ) )
229214adantr 463 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  ( S `  J )  <  ( Q `  ( I  +  1 ) ) )
230 simpr 459 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )
231229, 230breqtrd 4419 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  ( S `  J )  <  ( S `  j )
)
232231adantlr 713 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  ( 0 ... N
) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( S `  J
)  <  ( S `  j ) )
23343ad2antrr 724 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... N
) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  ->  S  Isom  <  ,  <  ( ( 0 ... N
) ,  T ) )
23449anim1i 566 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  j  e.  ( 0 ... N
) )  ->  ( J  e.  ( 0 ... N )  /\  j  e.  ( 0 ... N ) ) )
235234adantr 463 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( 0 ... N
) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( J  e.  ( 0 ... N )  /\  j  e.  ( 0 ... N ) ) )
236 isorel 6205 . . . . . . . . . . . . 13  |-  ( ( S  Isom  <  ,  <  ( ( 0 ... N
) ,  T )  /\  ( J  e.  ( 0 ... N
)  /\  j  e.  ( 0 ... N
) ) )  -> 
( J  <  j  <->  ( S `  J )  <  ( S `  j ) ) )
237233, 235, 236syl2anc 659 . . . . . . . . . . . 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 717 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  /\  ( Q `  ( I  +  1
) )  =  ( S `  j ) )  ->  J  <  j )
240 eqcom 2411 . . . . . . . . . . . . . . . 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 464 . . . . . . . . . . . . . 14  |-  ( ( ( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( S `  j
)  =  ( Q `
 ( I  + 
1 ) ) )
243 simpl 455 . . . . . . . . . . . . . 14  |-  ( ( ( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) ) )
244242, 243eqbrtrd 4415 . . . . . . . . . . . . 13  |-  ( ( ( Q `  (
I  +  1 ) )  <  ( S `
 ( J  + 
1 ) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( S `  j
)  <  ( S `  ( J  +  1 ) ) )
245244adantll 712 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  ( Q `  ( I  +  1 ) )  =  ( S `  j ) )  -> 
( S `  j
)  <  ( S `  ( J  +  1 ) ) )
246245adantlr 713 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  /\  ( Q `  ( I  +  1
) )  =  ( S `  j ) )  ->  ( S `  j )  <  ( S `  ( J  +  1 ) ) )
24743ad2antrr 724 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  S  Isom  <  ,  <  ( ( 0 ... N ) ,  T ) )
248 simpr 459 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  j  e.  ( 0 ... N ) )
249106ad2antrr 724 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  ( J  + 
1 )  e.  ( 0 ... N ) )
250 isorel 6205 . . . . . . . . . . . . 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 1228 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  ( j  < 
( J  +  1 )  <->  ( S `  j )  <  ( S `  ( J  +  1 ) ) ) )
252251adantr 463 . . . . . . . . . . 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 530 . . . . . . . . 9  |-  ( ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  /\  ( Q `  ( I  +  1
) )  =  ( S `  j ) )  ->  ( J  <  j  /\  j  < 
( J  +  1 ) ) )
255254ex 432 . . . . . . . 8  |-  ( ( ( ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1
) ) )  /\  j  e.  ( 0 ... N ) )  ->  ( ( Q `
 ( I  + 
1 ) )  =  ( S `  j
)  ->  ( J  <  j  /\  j  < 
( J  +  1 ) ) ) )
256255reximdva 2879 . . . . . . 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 3504 . . . . . 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 62 . . . . 5  |-  ( (
ph  /\  ( Q `  ( I  +  1 ) )  <  ( S `  ( J  +  1 ) ) )  ->  E. j  e.  ZZ  ( J  < 
j  /\  j  <  ( J  +  1 ) ) )
260112, 259syldan 468 . . . 4  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  ->  E. j  e.  ZZ  ( J  <  j  /\  j  <  ( J  + 
1 ) ) )
261 simplr 754 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  ZZ )  /\  ( J  <  j  /\  j  <  ( J  +  1 ) ) )  -> 
j  e.  ZZ )
26247, 156syl 17 . . . . . . . . 9  |-  ( ph  ->  J  e.  ZZ )
263262ad2antrr 724 . . . . . . . 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 758 . . . . . . . 8  |-  ( ( ( ph  /\  j  e.  ZZ )  /\  ( J  <  j  /\  j  <  ( J  +  1 ) ) )  -> 
j  <  ( J  +  1 ) )
266 btwnnz 10980 . . . . . . . 8  |-  ( ( J  e.  ZZ  /\  J  <  j  /\  j  <  ( J  +  1 ) )  ->  -.  j  e.  ZZ )
267263, 264, 265, 266syl3anc 1230 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  ZZ )  /\  ( J  <  j  /\  j  <  ( J  +  1 ) ) )  ->  -.  j  e.  ZZ )
268261, 267pm2.65da 574 . . . . . 6  |-  ( (
ph  /\  j  e.  ZZ )  ->  -.  ( J  <  j  /\  j  <  ( J  +  1 ) ) )
269268nrexdv 2860 . . . . 5  |-  ( ph  ->  -.  E. j  e.  ZZ  ( J  < 
j  /\  j  <  ( J  +  1 ) ) )
270269adantr 463 . . . 4  |-  ( (
ph  /\  -.  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1
) ) )  ->  -.  E. j  e.  ZZ  ( J  <  j  /\  j  <  ( J  + 
1 ) ) )
271260, 270condan 795 . . 3  |-  ( ph  ->  ( S `  ( J  +  1 ) )  <_  ( Q `  ( I  +  1 ) ) )
272 ioossioo 11670 . . 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 1231 . 2  |-  ( ph  ->  ( ( S `  J ) (,) ( S `  ( J  +  1 ) ) )  C_  ( ( Q `  I ) (,) ( Q `  (
I  +  1 ) ) ) )
274 fveq2 5849 . . . . 5  |-  ( i  =  I  ->  ( Q `  i )  =  ( Q `  I ) )
275 oveq1 6285 . . . . . 6  |-  ( i  =  I  ->  (
i  +  1 )  =  ( I  + 
1 ) )
276275fveq2d 5853 . . . . 5  |-  ( i  =  I  ->  ( Q `  ( i  +  1 ) )  =  ( Q `  ( I  +  1
) ) )
277274, 276oveq12d 6296 . . . 4  |-  ( i  =  I  ->  (
( Q `  i
) (,) ( Q `
 ( i  +  1 ) ) )  =  ( ( Q `
 I ) (,) ( Q `  (
I  +  1 ) ) ) )
278277sseq2d 3470 . . 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 3160 . 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 659 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 367    = wceq 1405    e. wcel 1842    =/= wne 2598   A.wral 2754   E.wrex 2755   {crab 2758    u. cun 3412    i^i cin 3413    C_ wss 3414   (/)c0 3738   {cpr 3974   class class class wbr 4395   dom cdm 4823   ran crn 4824   Fun wfun 5563   -->wf 5565   -onto->wfo 5567   -1-1-onto->wf1o 5568   ` cfv 5569    Isom wiso 5570  (class class class)co 6278   supcsup 7934   RRcr 9521   0cc0 9522   1c1 9523    + caddc 9525   RR*cxr 9657    < clt 9658    <_ cle 9659   NNcn 10576   ZZcz 10905   ZZ>=cuz 11127   (,)cioo 11582   [,]cicc 11585   ...cfz 11726  ..^cfzo 11854
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1639  ax-4 1652  ax-5 1725  ax-6 1771  ax-7 1814  ax-8 1844  ax-9 1846  ax-10 1861  ax-11 1866  ax-12 1878  ax-13 2026  ax-ext 2380  ax-sep 4517  ax-nul 4525  ax-pow 4572  ax-pr 4630  ax-un 6574  ax-cnex 9578  ax-resscn 9579  ax-1cn 9580  ax-icn 9581  ax-addcl 9582  ax-addrcl 9583  ax-mulcl 9584  ax-mulrcl 9585  ax-mulcom 9586  ax-addass 9587  ax-mulass 9588  ax-distr 9589  ax-i2m1 9590  ax-1ne0 9591  ax-1rid 9592  ax-rnegex 9593  ax-rrecex 9594  ax-cnre 9595  ax-pre-lttri 9596  ax-pre-lttrn 9597  ax-pre-ltadd 9598  ax-pre-mulgt0 9599  ax-pre-sup 9600
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 975  df-3an 976  df-tru 1408  df-ex 1634  df-nf 1638  df-sb 1764  df-eu 2242  df-mo 2243  df-clab 2388  df-cleq 2394  df-clel 2397  df-nfc 2552  df-ne 2600  df-nel 2601  df-ral 2759  df-rex 2760  df-reu 2761  df-rmo 2762  df-rab 2763  df-v 3061  df-sbc 3278  df-csb 3374  df-dif 3417  df-un 3419  df-in 3421  df-ss 3428  df-pss 3430  df-nul 3739  df-if 3886  df-pw 3957  df-sn 3973  df-pr 3975  df-tp 3977  df-op 3979  df-uni 4192  df-iun 4273  df-br 4396  df-opab 4454  df-mpt 4455  df-tr 4490  df-eprel 4734  df-id 4738  df-po 4744  df-so 4745  df-fr 4782  df-we 4784  df-xp 4829  df-rel 4830  df-cnv 4831  df-co 4832  df-dm 4833  df-rn 4834  df-res 4835  df-ima 4836  df-pred 5367  df-ord 5413  df-on 5414  df-lim 5415  df-suc 5416  df-iota 5533  df-fun 5571  df-fn 5572  df-f 5573  df-f1 5574  df-fo 5575  df-f1o 5576  df-fv 5577  df-isom 5578  df-riota 6240  df-ov 6281  df-oprab 6282  df-mpt2 6283  df-om 6684  df-1st 6784  df-2nd 6785  df-wrecs 7013  df-recs 7075  df-rdg 7113  df-er 7348  df-en 7555  df-dom 7556  df-sdom 7557  df-sup 7935  df-pnf 9660  df-mnf 9661  df-xr 9662  df-ltxr 9663  df-le 9664  df-sub 9843  df-neg 9844  df-nn 10577  df-n0 10837  df-z 10906  df-uz 11128  df-ioo 11586  df-icc 11589  df-fz 11727  df-fzo 11855
This theorem is referenced by:  fourierdlem50  37307
  Copyright terms: Public domain W3C validator