Users' Mathboxes Mathbox for Brendan Leahy < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  poimirlem31 Structured version   Visualization version   Unicode version

Theorem poimirlem31 33440
Description: Lemma for poimir 33442, assigning values to the vertices of the tessellation that meet the hypotheses of both poimirlem30 33439 and poimirlem28 33437. Equation (2) of [Kulpa] p. 547. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0  |-  ( ph  ->  N  e.  NN )
poimir.i  |-  I  =  ( ( 0 [,] 1 )  ^m  (
1 ... N ) )
poimir.r  |-  R  =  ( Xt_ `  (
( 1 ... N
)  X.  { (
topGen `  ran  (,) ) } ) )
poimir.1  |-  ( ph  ->  F  e.  ( ( Rt  I )  Cn  R
) )
poimir.2  |-  ( (
ph  /\  ( n  e.  ( 1 ... N
)  /\  z  e.  I  /\  ( z `  n )  =  0 ) )  ->  (
( F `  z
) `  n )  <_  0 )
poimirlem31.p  |-  P  =  ( ( 1st `  ( G `  k )
)  oF  +  ( ( ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( 2nd `  ( G `
 k ) )
" ( ( j  +  1 ) ... N ) )  X. 
{ 0 } ) ) )
poimirlem31.3  |-  ( ph  ->  G : NN --> ( ( NN0  ^m  ( 1 ... N ) )  X.  { f  |  f : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) } ) )
poimirlem31.4  |-  ( (
ph  /\  k  e.  NN )  ->  ran  ( 1st `  ( G `  k ) )  C_  ( 0..^ k ) )
poimirlem31.5  |-  ( (
ph  /\  ( k  e.  NN  /\  i  e.  ( 0 ... N
) ) )  ->  E. j  e.  (
0 ... N ) i  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )
Assertion
Ref Expression
poimirlem31  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
)  /\  r  e.  {  <_  ,  `'  <_  } ) )  ->  E. j  e.  ( 0 ... N
) 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) )
Distinct variable groups:    f, i,
j, k, n, z    ph, j, n    j, F, n    j, N, n    ph, i, k    f, N, i, k    ph, z    f, F, k, z    z, N    i, r, j, k, n, z, ph    a, b, f, i, j, k, n, r, z, F    G, a, b, f, i, j, k, n, r, z    I, a, b, f, i, j, k, n, r, z    N, a, b, r    R, a, b, f, i, j, k, n, r, z    P, a, b, f, i, n, r, z
Allowed substitution hints:    ph( f, a, b)    P( j, k)

Proof of Theorem poimirlem31
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elpri 4197 . . . 4  |-  ( r  e.  {  <_  ,  `'  <_  }  ->  ( r  =  <_  \/  r  =  `'  <_  ) )
2 simprr 796 . . . . . . 7  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  ->  n  e.  ( 1 ... N ) )
3 1eluzge0 11732 . . . . . . . . . . 11  |-  1  e.  ( ZZ>= `  0 )
4 fzss1 12380 . . . . . . . . . . 11  |-  ( 1  e.  ( ZZ>= `  0
)  ->  ( 1 ... N )  C_  ( 0 ... N
) )
53, 4ax-mp 5 . . . . . . . . . 10  |-  ( 1 ... N )  C_  ( 0 ... N
)
65sseli 3599 . . . . . . . . 9  |-  ( n  e.  ( 1 ... N )  ->  n  e.  ( 0 ... N
) )
76anim2i 593 . . . . . . . 8  |-  ( ( k  e.  NN  /\  n  e.  ( 1 ... N ) )  ->  ( k  e.  NN  /\  n  e.  ( 0 ... N
) ) )
8 eleq1 2689 . . . . . . . . . . . . 13  |-  ( i  =  n  ->  (
i  e.  ( 0 ... N )  <->  n  e.  ( 0 ... N
) ) )
98anbi2d 740 . . . . . . . . . . . 12  |-  ( i  =  n  ->  (
( k  e.  NN  /\  i  e.  ( 0 ... N ) )  <-> 
( k  e.  NN  /\  n  e.  ( 0 ... N ) ) ) )
109anbi2d 740 . . . . . . . . . . 11  |-  ( i  =  n  ->  (
( ph  /\  (
k  e.  NN  /\  i  e.  ( 0 ... N ) ) )  <->  ( ph  /\  ( k  e.  NN  /\  n  e.  ( 0 ... N ) ) ) ) )
11 eqeq1 2626 . . . . . . . . . . . 12  |-  ( i  =  n  ->  (
i  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  <->  n  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) ) )
1211rexbidv 3052 . . . . . . . . . . 11  |-  ( i  =  n  ->  ( E. j  e.  (
0 ... N ) i  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  <->  E. j  e.  ( 0 ... N ) n  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )
) )
1310, 12imbi12d 334 . . . . . . . . . 10  |-  ( i  =  n  ->  (
( ( ph  /\  ( k  e.  NN  /\  i  e.  ( 0 ... N ) ) )  ->  E. j  e.  ( 0 ... N
) i  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )  <->  ( ( ph  /\  ( k  e.  NN  /\  n  e.  ( 0 ... N
) ) )  ->  E. j  e.  (
0 ... N ) n  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) ) ) )
14 poimirlem31.5 . . . . . . . . . 10  |-  ( (
ph  /\  ( k  e.  NN  /\  i  e.  ( 0 ... N
) ) )  ->  E. j  e.  (
0 ... N ) i  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )
1513, 14chvarv 2263 . . . . . . . . 9  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 0 ... N
) ) )  ->  E. j  e.  (
0 ... N ) n  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )
16 elfzle1 12344 . . . . . . . . . . . . 13  |-  ( n  e.  ( 1 ... N )  ->  1  <_  n )
17 1re 10039 . . . . . . . . . . . . . 14  |-  1  e.  RR
18 elfzelz 12342 . . . . . . . . . . . . . . 15  |-  ( n  e.  ( 1 ... N )  ->  n  e.  ZZ )
1918zred 11482 . . . . . . . . . . . . . 14  |-  ( n  e.  ( 1 ... N )  ->  n  e.  RR )
20 lenlt 10116 . . . . . . . . . . . . . 14  |-  ( ( 1  e.  RR  /\  n  e.  RR )  ->  ( 1  <_  n  <->  -.  n  <  1 ) )
2117, 19, 20sylancr 695 . . . . . . . . . . . . 13  |-  ( n  e.  ( 1 ... N )  ->  (
1  <_  n  <->  -.  n  <  1 ) )
2216, 21mpbid 222 . . . . . . . . . . . 12  |-  ( n  e.  ( 1 ... N )  ->  -.  n  <  1 )
23 elsni 4194 . . . . . . . . . . . . 13  |-  ( n  e.  { 0 }  ->  n  =  0 )
24 0lt1 10550 . . . . . . . . . . . . 13  |-  0  <  1
2523, 24syl6eqbr 4692 . . . . . . . . . . . 12  |-  ( n  e.  { 0 }  ->  n  <  1
)
2622, 25nsyl 135 . . . . . . . . . . 11  |-  ( n  e.  ( 1 ... N )  ->  -.  n  e.  { 0 } )
27 ltso 10118 . . . . . . . . . . . . . . 15  |-  <  Or  RR
28 snfi 8038 . . . . . . . . . . . . . . . . 17  |-  { 0 }  e.  Fin
29 fzfi 12771 . . . . . . . . . . . . . . . . . 18  |-  ( 1 ... N )  e. 
Fin
30 rabfi 8185 . . . . . . . . . . . . . . . . . 18  |-  ( ( 1 ... N )  e.  Fin  ->  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) }  e.  Fin )
3129, 30ax-mp 5 . . . . . . . . . . . . . . . . 17  |-  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) }  e.  Fin
32 unfi 8227 . . . . . . . . . . . . . . . . 17  |-  ( ( { 0 }  e.  Fin  /\  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) }  e.  Fin )  ->  ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  e.  Fin )
3328, 31, 32mp2an 708 . . . . . . . . . . . . . . . 16  |-  ( { 0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  e.  Fin
34 c0ex 10034 . . . . . . . . . . . . . . . . . 18  |-  0  e.  _V
3534snid 4208 . . . . . . . . . . . . . . . . 17  |-  0  e.  { 0 }
36 elun1 3780 . . . . . . . . . . . . . . . . 17  |-  ( 0  e.  { 0 }  ->  0  e.  ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) )
37 ne0i 3921 . . . . . . . . . . . . . . . . 17  |-  ( 0  e.  ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  ->  ( {
0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  =/=  (/) )
3835, 36, 37mp2b 10 . . . . . . . . . . . . . . . 16  |-  ( { 0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  =/=  (/)
39 0re 10040 . . . . . . . . . . . . . . . . . 18  |-  0  e.  RR
40 snssi 4339 . . . . . . . . . . . . . . . . . 18  |-  ( 0  e.  RR  ->  { 0 }  C_  RR )
4139, 40ax-mp 5 . . . . . . . . . . . . . . . . 17  |-  { 0 }  C_  RR
42 ssrab2 3687 . . . . . . . . . . . . . . . . . 18  |-  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } 
C_  ( 1 ... N )
4318ssriv 3607 . . . . . . . . . . . . . . . . . . 19  |-  ( 1 ... N )  C_  ZZ
44 zssre 11384 . . . . . . . . . . . . . . . . . . 19  |-  ZZ  C_  RR
4543, 44sstri 3612 . . . . . . . . . . . . . . . . . 18  |-  ( 1 ... N )  C_  RR
4642, 45sstri 3612 . . . . . . . . . . . . . . . . 17  |-  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } 
C_  RR
4741, 46unssi 3788 . . . . . . . . . . . . . . . 16  |-  ( { 0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  C_  RR
4833, 38, 473pm3.2i 1239 . . . . . . . . . . . . . . 15  |-  ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  e.  Fin  /\  ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  =/=  (/)  /\  ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  C_  RR )
49 fisupcl 8375 . . . . . . . . . . . . . . 15  |-  ( (  <  Or  RR  /\  ( ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  e.  Fin  /\  ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  =/=  (/)  /\  ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  C_  RR )
)  ->  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  e.  ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) )
5027, 48, 49mp2an 708 . . . . . . . . . . . . . 14  |-  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  e.  ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } )
51 eleq1 2689 . . . . . . . . . . . . . 14  |-  ( n  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( n  e.  ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } )  <->  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  e.  ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ) )
5250, 51mpbiri 248 . . . . . . . . . . . . 13  |-  ( n  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  n  e.  ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) )
53 elun 3753 . . . . . . . . . . . . 13  |-  ( n  e.  ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  <->  ( n  e. 
{ 0 }  \/  n  e.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) )
5452, 53sylib 208 . . . . . . . . . . . 12  |-  ( n  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( n  e.  { 0 }  \/  n  e.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) )
55 oveq2 6658 . . . . . . . . . . . . . . . 16  |-  ( a  =  n  ->  (
1 ... a )  =  ( 1 ... n
) )
5655raleqdv 3144 . . . . . . . . . . . . . . 15  |-  ( a  =  n  ->  ( A. b  e.  (
1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  <->  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
5756elrab 3363 . . . . . . . . . . . . . 14  |-  ( n  e.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) }  <->  ( n  e.  ( 1 ... N
)  /\  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
58 elfzuz 12338 . . . . . . . . . . . . . . . 16  |-  ( n  e.  ( 1 ... N )  ->  n  e.  ( ZZ>= `  1 )
)
59 eluzfz2 12349 . . . . . . . . . . . . . . . 16  |-  ( n  e.  ( ZZ>= `  1
)  ->  n  e.  ( 1 ... n
) )
6058, 59syl 17 . . . . . . . . . . . . . . 15  |-  ( n  e.  ( 1 ... N )  ->  n  e.  ( 1 ... n
) )
61 simpl 473 . . . . . . . . . . . . . . . 16  |-  ( ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  -> 
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b ) )
6261ralimi 2952 . . . . . . . . . . . . . . 15  |-  ( A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  ->  A. b  e.  (
1 ... n ) 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  b
) )
63 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( b  =  n  ->  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  =  ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
) )
6463breq2d 4665 . . . . . . . . . . . . . . . 16  |-  ( b  =  n  ->  (
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  <->  0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
6564rspcva 3307 . . . . . . . . . . . . . . 15  |-  ( ( n  e.  ( 1 ... n )  /\  A. b  e.  ( 1 ... n ) 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  b
) )  ->  0  <_  ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
) )
6660, 62, 65syl2an 494 . . . . . . . . . . . . . 14  |-  ( ( n  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) )
6757, 66sylbi 207 . . . . . . . . . . . . 13  |-  ( n  e.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) }  ->  0  <_  ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
) )
6867orim2i 540 . . . . . . . . . . . 12  |-  ( ( n  e.  { 0 }  \/  n  e. 
{ a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } )  -> 
( n  e.  {
0 }  \/  0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
) ) )
6954, 68syl 17 . . . . . . . . . . 11  |-  ( n  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( n  e.  { 0 }  \/  0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
) ) )
70 orel1 397 . . . . . . . . . . 11  |-  ( -.  n  e.  { 0 }  ->  ( (
n  e.  { 0 }  \/  0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
) )  ->  0  <_  ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
) ) )
7126, 69, 70syl2im 40 . . . . . . . . . 10  |-  ( n  e.  ( 1 ... N )  ->  (
n  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
7271reximdv 3016 . . . . . . . . 9  |-  ( n  e.  ( 1 ... N )  ->  ( E. j  e.  (
0 ... N ) n  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  E. j  e.  ( 0 ... N
) 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
7315, 72syl5 34 . . . . . . . 8  |-  ( n  e.  ( 1 ... N )  ->  (
( ph  /\  (
k  e.  NN  /\  n  e.  ( 0 ... N ) ) )  ->  E. j  e.  ( 0 ... N
) 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
747, 73sylan2i 687 . . . . . . 7  |-  ( n  e.  ( 1 ... N )  ->  (
( ph  /\  (
k  e.  NN  /\  n  e.  ( 1 ... N ) ) )  ->  E. j  e.  ( 0 ... N
) 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
752, 74mpcom 38 . . . . . 6  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  ->  E. j  e.  (
0 ... N ) 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
) )
76 breq 4655 . . . . . . 7  |-  ( r  =  <_  ->  ( 0 r ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <->  0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
7776rexbidv 3052 . . . . . 6  |-  ( r  =  <_  ->  ( E. j  e.  ( 0 ... N ) 0 r ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <->  E. j  e.  ( 0 ... N ) 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
7875, 77syl5ibrcom 237 . . . . 5  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  -> 
( r  =  <_  ->  E. j  e.  ( 0 ... N ) 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
79 poimir.0 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  N  e.  NN )
8079nnzd 11481 . . . . . . . . . . . . . . 15  |-  ( ph  ->  N  e.  ZZ )
81 elfzm1b 12418 . . . . . . . . . . . . . . 15  |-  ( ( n  e.  ZZ  /\  N  e.  ZZ )  ->  ( n  e.  ( 1 ... N )  <-> 
( n  -  1 )  e.  ( 0 ... ( N  - 
1 ) ) ) )
8218, 80, 81syl2anr 495 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
n  e.  ( 1 ... N )  <->  ( n  -  1 )  e.  ( 0 ... ( N  -  1 ) ) ) )
8382biimpd 219 . . . . . . . . . . . . 13  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
n  e.  ( 1 ... N )  -> 
( n  -  1 )  e.  ( 0 ... ( N  - 
1 ) ) ) )
8483ex 450 . . . . . . . . . . . 12  |-  ( ph  ->  ( n  e.  ( 1 ... N )  ->  ( n  e.  ( 1 ... N
)  ->  ( n  -  1 )  e.  ( 0 ... ( N  -  1 ) ) ) ) )
8584pm2.43d 53 . . . . . . . . . . 11  |-  ( ph  ->  ( n  e.  ( 1 ... N )  ->  ( n  - 
1 )  e.  ( 0 ... ( N  -  1 ) ) ) )
8679nncnd 11036 . . . . . . . . . . . . . . 15  |-  ( ph  ->  N  e.  CC )
87 npcan1 10455 . . . . . . . . . . . . . . 15  |-  ( N  e.  CC  ->  (
( N  -  1 )  +  1 )  =  N )
8886, 87syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( N  - 
1 )  +  1 )  =  N )
89 nnm1nn0 11334 . . . . . . . . . . . . . . . . 17  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  NN0 )
9079, 89syl 17 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( N  -  1 )  e.  NN0 )
9190nn0zd 11480 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( N  -  1 )  e.  ZZ )
92 uzid 11702 . . . . . . . . . . . . . . 15  |-  ( ( N  -  1 )  e.  ZZ  ->  ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
93 peano2uz 11741 . . . . . . . . . . . . . . 15  |-  ( ( N  -  1 )  e.  ( ZZ>= `  ( N  -  1 ) )  ->  ( ( N  -  1 )  +  1 )  e.  ( ZZ>= `  ( N  -  1 ) ) )
9491, 92, 933syl 18 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( N  - 
1 )  +  1 )  e.  ( ZZ>= `  ( N  -  1
) ) )
9588, 94eqeltrrd 2702 . . . . . . . . . . . . 13  |-  ( ph  ->  N  e.  ( ZZ>= `  ( N  -  1
) ) )
96 fzss2 12381 . . . . . . . . . . . . 13  |-  ( N  e.  ( ZZ>= `  ( N  -  1 ) )  ->  ( 0 ... ( N  - 
1 ) )  C_  ( 0 ... N
) )
9795, 96syl 17 . . . . . . . . . . . 12  |-  ( ph  ->  ( 0 ... ( N  -  1 ) )  C_  ( 0 ... N ) )
9897sseld 3602 . . . . . . . . . . 11  |-  ( ph  ->  ( ( n  - 
1 )  e.  ( 0 ... ( N  -  1 ) )  ->  ( n  - 
1 )  e.  ( 0 ... N ) ) )
9985, 98syld 47 . . . . . . . . . 10  |-  ( ph  ->  ( n  e.  ( 1 ... N )  ->  ( n  - 
1 )  e.  ( 0 ... N ) ) )
10099anim2d 589 . . . . . . . . 9  |-  ( ph  ->  ( ( k  e.  NN  /\  n  e.  ( 1 ... N
) )  ->  (
k  e.  NN  /\  ( n  -  1
)  e.  ( 0 ... N ) ) ) )
101100imp 445 . . . . . . . 8  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  -> 
( k  e.  NN  /\  ( n  -  1 )  e.  ( 0 ... N ) ) )
102 ovex 6678 . . . . . . . . 9  |-  ( n  -  1 )  e. 
_V
103 eleq1 2689 . . . . . . . . . . . 12  |-  ( i  =  ( n  - 
1 )  ->  (
i  e.  ( 0 ... N )  <->  ( n  -  1 )  e.  ( 0 ... N
) ) )
104103anbi2d 740 . . . . . . . . . . 11  |-  ( i  =  ( n  - 
1 )  ->  (
( k  e.  NN  /\  i  e.  ( 0 ... N ) )  <-> 
( k  e.  NN  /\  ( n  -  1 )  e.  ( 0 ... N ) ) ) )
105104anbi2d 740 . . . . . . . . . 10  |-  ( i  =  ( n  - 
1 )  ->  (
( ph  /\  (
k  e.  NN  /\  i  e.  ( 0 ... N ) ) )  <->  ( ph  /\  ( k  e.  NN  /\  ( n  -  1 )  e.  ( 0 ... N ) ) ) ) )
106 eqeq1 2626 . . . . . . . . . . 11  |-  ( i  =  ( n  - 
1 )  ->  (
i  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  <->  ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) ) )
107106rexbidv 3052 . . . . . . . . . 10  |-  ( i  =  ( n  - 
1 )  ->  ( E. j  e.  (
0 ... N ) i  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  <->  E. j  e.  ( 0 ... N ) ( n  -  1 )  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )
) )
108105, 107imbi12d 334 . . . . . . . . 9  |-  ( i  =  ( n  - 
1 )  ->  (
( ( ph  /\  ( k  e.  NN  /\  i  e.  ( 0 ... N ) ) )  ->  E. j  e.  ( 0 ... N
) i  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )  <->  ( ( ph  /\  ( k  e.  NN  /\  ( n  -  1 )  e.  ( 0 ... N
) ) )  ->  E. j  e.  (
0 ... N ) ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) ) ) )
109102, 108, 14vtocl 3259 . . . . . . . 8  |-  ( (
ph  /\  ( k  e.  NN  /\  ( n  -  1 )  e.  ( 0 ... N
) ) )  ->  E. j  e.  (
0 ... N ) ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )
110101, 109syldan 487 . . . . . . 7  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  ->  E. j  e.  (
0 ... N ) ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )
111 eleq1 2689 . . . . . . . . . . . . . . . 16  |-  ( ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( (
n  -  1 )  e.  ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  <->  sup ( ( { 0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  e.  ( { 0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ) )
11250, 111mpbiri 248 . . . . . . . . . . . . . . 15  |-  ( ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( n  -  1 )  e.  ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) )
113 elun 3753 . . . . . . . . . . . . . . . 16  |-  ( ( n  -  1 )  e.  ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  <->  ( ( n  -  1 )  e. 
{ 0 }  \/  ( n  -  1
)  e.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) )
114102elsn 4192 . . . . . . . . . . . . . . . . 17  |-  ( ( n  -  1 )  e.  { 0 }  <-> 
( n  -  1 )  =  0 )
115 oveq2 6658 . . . . . . . . . . . . . . . . . . 19  |-  ( a  =  ( n  - 
1 )  ->  (
1 ... a )  =  ( 1 ... (
n  -  1 ) ) )
116115raleqdv 3144 . . . . . . . . . . . . . . . . . 18  |-  ( a  =  ( n  - 
1 )  ->  ( A. b  e.  (
1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  <->  A. b  e.  ( 1 ... (
n  -  1 ) ) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
117116elrab 3363 . . . . . . . . . . . . . . . . 17  |-  ( ( n  -  1 )  e.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) }  <->  ( (
n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
118114, 117orbi12i 543 . . . . . . . . . . . . . . . 16  |-  ( ( ( n  -  1 )  e.  { 0 }  \/  ( n  -  1 )  e. 
{ a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } )  <->  ( (
n  -  1 )  =  0  \/  (
( n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) ) )
119113, 118bitri 264 . . . . . . . . . . . . . . 15  |-  ( ( n  -  1 )  e.  ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  <->  ( ( n  -  1 )  =  0  \/  ( ( n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) ) )
120112, 119sylib 208 . . . . . . . . . . . . . 14  |-  ( ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( (
n  -  1 )  =  0  \/  (
( n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) ) )
121120a1i 11 . . . . . . . . . . . . 13  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  ( ( n  - 
1 )  =  0  \/  ( ( n  -  1 )  e.  ( 1 ... N
)  /\  A. b  e.  ( 1 ... (
n  -  1 ) ) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) ) ) )
122 ltm1 10863 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  RR  ->  (
n  -  1 )  <  n )
123 peano2rem 10348 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  RR  ->  (
n  -  1 )  e.  RR )
124 ltnle 10117 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( n  -  1 )  e.  RR  /\  n  e.  RR )  ->  ( ( n  - 
1 )  <  n  <->  -.  n  <_  ( n  -  1 ) ) )
125123, 124mpancom 703 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  RR  ->  (
( n  -  1 )  <  n  <->  -.  n  <_  ( n  -  1 ) ) )
126122, 125mpbid 222 . . . . . . . . . . . . . . . . 17  |-  ( n  e.  RR  ->  -.  n  <_  ( n  - 
1 ) )
12719, 126syl 17 . . . . . . . . . . . . . . . 16  |-  ( n  e.  ( 1 ... N )  ->  -.  n  <_  ( n  - 
1 ) )
128 breq2 4657 . . . . . . . . . . . . . . . . 17  |-  ( ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( n  <_  ( n  -  1 )  <->  n  <_  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )
) )
129128notbid 308 . . . . . . . . . . . . . . . 16  |-  ( ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( -.  n  <_  ( n  - 
1 )  <->  -.  n  <_  sup ( ( { 0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) ) )
130127, 129syl5ibcom 235 . . . . . . . . . . . . . . 15  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  -.  n  <_  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) ) )
131 elun2 3781 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) }  ->  n  e.  ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) )
132 fimaxre2 10969 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } )  C_  RR  /\  ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  e.  Fin )  ->  E. x  e.  RR  A. y  e.  ( { 0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) y  <_  x
)
13347, 33, 132mp2an 708 . . . . . . . . . . . . . . . . . . . 20  |-  E. x  e.  RR  A. y  e.  ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) y  <_  x
13447, 38, 1333pm3.2i 1239 . . . . . . . . . . . . . . . . . . 19  |-  ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  C_  RR  /\  ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  =/=  (/)  /\  E. x  e.  RR  A. y  e.  ( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) y  <_  x )
135134suprubii 10998 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )  ->  n  <_  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )
136131, 135syl 17 . . . . . . . . . . . . . . . . 17  |-  ( n  e.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) }  ->  n  <_  sup ( ( { 0 }  u.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  ) )
137136con3i 150 . . . . . . . . . . . . . . . 16  |-  ( -.  n  <_  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  -.  n  e.  {
a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } )
138 ianor 509 . . . . . . . . . . . . . . . . 17  |-  ( -.  ( n  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) )  <->  ( -.  n  e.  ( 1 ... N )  \/ 
-.  A. b  e.  ( 1 ... n ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
139138, 57xchnxbir 323 . . . . . . . . . . . . . . . 16  |-  ( -.  n  e.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) }  <-> 
( -.  n  e.  ( 1 ... N
)  \/  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
140137, 139sylib 208 . . . . . . . . . . . . . . 15  |-  ( -.  n  <_  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  ( -.  n  e.  ( 1 ... N
)  \/  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
141130, 140syl6 35 . . . . . . . . . . . . . 14  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  ( -.  n  e.  ( 1 ... N
)  \/  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) ) )
142 pm2.63 829 . . . . . . . . . . . . . . 15  |-  ( ( n  e.  ( 1 ... N )  \/ 
-.  A. b  e.  ( 1 ... n ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  ( ( -.  n  e.  ( 1 ... N )  \/ 
-.  A. b  e.  ( 1 ... n ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  -.  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
143142orcs 409 . . . . . . . . . . . . . 14  |-  ( n  e.  ( 1 ... N )  ->  (
( -.  n  e.  ( 1 ... N
)  \/  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  -.  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
144141, 143syld 47 . . . . . . . . . . . . 13  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  -.  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
145121, 144jcad 555 . . . . . . . . . . . 12  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  ( ( ( n  -  1 )  =  0  \/  ( ( n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )  /\  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) ) )
146 andir 912 . . . . . . . . . . . . . 14  |-  ( ( ( ( n  - 
1 )  =  0  \/  ( ( n  -  1 )  e.  ( 1 ... N
)  /\  A. b  e.  ( 1 ... (
n  -  1 ) ) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )  /\  -.  A. b  e.  ( 1 ... n ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  <-> 
( ( ( n  -  1 )  =  0  /\  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  \/  ( ( ( n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  /\  -.  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) ) )
147 1p0e1 11133 . . . . . . . . . . . . . . . . . 18  |-  ( 1  +  0 )  =  1
14818zcnd 11483 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  ( 1 ... N )  ->  n  e.  CC )
149 ax-1cn 9994 . . . . . . . . . . . . . . . . . . . . 21  |-  1  e.  CC
150 0cn 10032 . . . . . . . . . . . . . . . . . . . . 21  |-  0  e.  CC
151 subadd 10284 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( n  e.  CC  /\  1  e.  CC  /\  0  e.  CC )  ->  (
( n  -  1 )  =  0  <->  (
1  +  0 )  =  n ) )
152149, 150, 151mp3an23 1416 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  CC  ->  (
( n  -  1 )  =  0  <->  (
1  +  0 )  =  n ) )
153148, 152syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  =  0  <->  (
1  +  0 )  =  n ) )
154153biimpa 501 . . . . . . . . . . . . . . . . . 18  |-  ( ( n  e.  ( 1 ... N )  /\  ( n  -  1
)  =  0 )  ->  ( 1  +  0 )  =  n )
155147, 154syl5reqr 2671 . . . . . . . . . . . . . . . . 17  |-  ( ( n  e.  ( 1 ... N )  /\  ( n  -  1
)  =  0 )  ->  n  =  1 )
156 1z 11407 . . . . . . . . . . . . . . . . . . . . . 22  |-  1  e.  ZZ
157 fzsn 12383 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( 1  e.  ZZ  ->  (
1 ... 1 )  =  { 1 } )
158156, 157ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 1 ... 1 )  =  { 1 }
159 oveq2 6658 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  =  1  ->  (
1 ... n )  =  ( 1 ... 1
) )
160 sneq 4187 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  =  1  ->  { n }  =  { 1 } )
161158, 159, 1603eqtr4a 2682 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  =  1  ->  (
1 ... n )  =  { n } )
162161raleqdv 3144 . . . . . . . . . . . . . . . . . . 19  |-  ( n  =  1  ->  ( A. b  e.  (
1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  <->  A. b  e.  { n }  (
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
163162notbid 308 . . . . . . . . . . . . . . . . . 18  |-  ( n  =  1  ->  ( -.  A. b  e.  ( 1 ... n ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  <->  -.  A. b  e.  { n }  (
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
164163biimpd 219 . . . . . . . . . . . . . . . . 17  |-  ( n  =  1  ->  ( -.  A. b  e.  ( 1 ... n ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  ->  -.  A. b  e.  {
n }  ( 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
165155, 164syl 17 . . . . . . . . . . . . . . . 16  |-  ( ( n  e.  ( 1 ... N )  /\  ( n  -  1
)  =  0 )  ->  ( -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  ->  -.  A. b  e.  {
n }  ( 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
166165expimpd 629 . . . . . . . . . . . . . . 15  |-  ( n  e.  ( 1 ... N )  ->  (
( ( n  - 
1 )  =  0  /\  -.  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) )  ->  -.  A. b  e.  { n }  ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
167 ralun 3795 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( A. b  e.  ( 1 ... ( n  -  1 ) ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  /\  A. b  e.  { n }  ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) )  ->  A. b  e.  ( ( 1 ... ( n  -  1 ) )  u.  {
n } ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )
168 npcan1 10455 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( n  e.  CC  ->  (
( n  -  1 )  +  1 )  =  n )
169148, 168syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  +  1 )  =  n )
170169, 58eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  +  1 )  e.  ( ZZ>= `  1
) )
171 peano2zm 11420 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( n  e.  ZZ  ->  (
n  -  1 )  e.  ZZ )
172 uzid 11702 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  -  1 )  e.  ZZ  ->  (
n  -  1 )  e.  ( ZZ>= `  (
n  -  1 ) ) )
173 peano2uz 11741 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( n  -  1 )  e.  ( ZZ>= `  (
n  -  1 ) )  ->  ( (
n  -  1 )  +  1 )  e.  ( ZZ>= `  ( n  -  1 ) ) )
17418, 171, 172, 1734syl 19 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  +  1 )  e.  ( ZZ>= `  (
n  -  1 ) ) )
175169, 174eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( n  e.  ( 1 ... N )  ->  n  e.  ( ZZ>= `  ( n  -  1 ) ) )
176 fzsplit2 12366 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( n  - 
1 )  +  1 )  e.  ( ZZ>= ` 
1 )  /\  n  e.  ( ZZ>= `  ( n  -  1 ) ) )  ->  ( 1 ... n )  =  ( ( 1 ... ( n  -  1 ) )  u.  (
( ( n  - 
1 )  +  1 ) ... n ) ) )
177170, 175, 176syl2anc 693 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  e.  ( 1 ... N )  ->  (
1 ... n )  =  ( ( 1 ... ( n  -  1 ) )  u.  (
( ( n  - 
1 )  +  1 ) ... n ) ) )
178169oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( n  e.  ( 1 ... N )  ->  (
( ( n  - 
1 )  +  1 ) ... n )  =  ( n ... n ) )
179 fzsn 12383 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( n  e.  ZZ  ->  (
n ... n )  =  { n } )
18018, 179syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( n  e.  ( 1 ... N )  ->  (
n ... n )  =  { n } )
181178, 180eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( n  e.  ( 1 ... N )  ->  (
( ( n  - 
1 )  +  1 ) ... n )  =  { n }
)
182181uneq2d 3767 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  e.  ( 1 ... N )  ->  (
( 1 ... (
n  -  1 ) )  u.  ( ( ( n  -  1 )  +  1 ) ... n ) )  =  ( ( 1 ... ( n  - 
1 ) )  u. 
{ n } ) )
183177, 182eqtrd 2656 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  e.  ( 1 ... N )  ->  (
1 ... n )  =  ( ( 1 ... ( n  -  1 ) )  u.  {
n } ) )
184183raleqdv 3144 . . . . . . . . . . . . . . . . . . . 20  |-  ( n  e.  ( 1 ... N )  ->  ( A. b  e.  (
1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  <->  A. b  e.  ( ( 1 ... ( n  -  1 ) )  u.  {
n } ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
185167, 184syl5ibr 236 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  ( 1 ... N )  ->  (
( A. b  e.  ( 1 ... (
n  -  1 ) ) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
)  /\  A. b  e.  { n }  (
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  A. b  e.  ( 1 ... n ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
186185expdimp 453 . . . . . . . . . . . . . . . . . 18  |-  ( ( n  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  ( A. b  e.  { n }  (
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  ->  A. b  e.  (
1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
187186con3d 148 . . . . . . . . . . . . . . . . 17  |-  ( ( n  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  ( -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  ->  -.  A. b  e.  {
n }  ( 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
188187adantrl 752 . . . . . . . . . . . . . . . 16  |-  ( ( n  e.  ( 1 ... N )  /\  ( ( n  - 
1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... (
n  -  1 ) ) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )  -> 
( -.  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
)  ->  -.  A. b  e.  { n }  (
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
189188expimpd 629 . . . . . . . . . . . . . . 15  |-  ( n  e.  ( 1 ... N )  ->  (
( ( ( n  -  1 )  e.  ( 1 ... N
)  /\  A. b  e.  ( 1 ... (
n  -  1 ) ) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) )  /\  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  -.  A. b  e.  { n }  (
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
190166, 189jaod 395 . . . . . . . . . . . . . 14  |-  ( n  e.  ( 1 ... N )  ->  (
( ( ( n  -  1 )  =  0  /\  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  \/  ( ( ( n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  /\  -.  A. b  e.  ( 1 ... n
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )  ->  -.  A. b  e.  {
n }  ( 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) ) )
191146, 190syl5bi 232 . . . . . . . . . . . . 13  |-  ( n  e.  ( 1 ... N )  ->  (
( ( ( n  -  1 )  =  0  \/  ( ( n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )  /\  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  -.  A. b  e.  { n }  (
0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )
192 fveq2 6191 . . . . . . . . . . . . . . . . . 18  |-  ( b  =  n  ->  ( P `  b )  =  ( P `  n ) )
193192neeq1d 2853 . . . . . . . . . . . . . . . . 17  |-  ( b  =  n  ->  (
( P `  b
)  =/=  0  <->  ( P `  n )  =/=  0 ) )
19464, 193anbi12d 747 . . . . . . . . . . . . . . . 16  |-  ( b  =  n  ->  (
( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 )  <->  ( 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  /\  ( P `  n )  =/=  0
) ) )
195194ralsng 4218 . . . . . . . . . . . . . . 15  |-  ( n  e.  ( 1 ... N )  ->  ( A. b  e.  { n }  ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
)  <->  ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
)  /\  ( P `  n )  =/=  0
) ) )
196195notbid 308 . . . . . . . . . . . . . 14  |-  ( n  e.  ( 1 ... N )  ->  ( -.  A. b  e.  {
n }  ( 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
)  <->  -.  ( 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  /\  ( P `  n )  =/=  0
) ) )
197 ianor 509 . . . . . . . . . . . . . . 15  |-  ( -.  ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  /\  ( P `  n )  =/=  0 )  <->  ( -.  0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  \/  -.  ( P `  n )  =/=  0 ) )
198 nne 2798 . . . . . . . . . . . . . . . 16  |-  ( -.  ( P `  n
)  =/=  0  <->  ( P `  n )  =  0 )
199198orbi2i 541 . . . . . . . . . . . . . . 15  |-  ( ( -.  0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  \/ 
-.  ( P `  n )  =/=  0
)  <->  ( -.  0  <_  ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
)  \/  ( P `
 n )  =  0 ) )
200197, 199bitri 264 . . . . . . . . . . . . . 14  |-  ( -.  ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  /\  ( P `  n )  =/=  0 )  <->  ( -.  0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  \/  ( P `
 n )  =  0 ) )
201196, 200syl6bb 276 . . . . . . . . . . . . 13  |-  ( n  e.  ( 1 ... N )  ->  ( -.  A. b  e.  {
n }  ( 0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
)  <->  ( -.  0  <_  ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
)  \/  ( P `
 n )  =  0 ) ) )
202191, 201sylibd 229 . . . . . . . . . . . 12  |-  ( n  e.  ( 1 ... N )  ->  (
( ( ( n  -  1 )  =  0  \/  ( ( n  -  1 )  e.  ( 1 ... N )  /\  A. b  e.  ( 1 ... ( n  - 
1 ) ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) ) )  /\  -.  A. b  e.  ( 1 ... n ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) )  ->  ( -.  0  <_  ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
)  \/  ( P `
 n )  =  0 ) ) )
203145, 202syld 47 . . . . . . . . . . 11  |-  ( n  e.  ( 1 ... N )  ->  (
( n  -  1 )  =  sup (
( { 0 }  u.  { a  e.  ( 1 ... N
)  |  A. b  e.  ( 1 ... a
) ( 0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  b
)  /\  ( P `  b )  =/=  0
) } ) ,  RR ,  <  )  ->  ( -.  0  <_ 
( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
)  \/  ( P `
 n )  =  0 ) ) )
204203ad2antlr 763 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( (
n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( -.  0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  \/  ( P `
 n )  =  0 ) ) )
205 poimir.1 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  F  e.  ( ( Rt  I )  Cn  R
) )
206 poimir.r . . . . . . . . . . . . . . . . . . . . . 22  |-  R  =  ( Xt_ `  (
( 1 ... N
)  X.  { (
topGen `  ran  (,) ) } ) )
207 retop 22565 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( topGen ` 
ran  (,) )  e.  Top
208207fconst6 6095 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( 1 ... N )  X.  { ( topGen ` 
ran  (,) ) } ) : ( 1 ... N ) --> Top
209 pttop 21385 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( 1 ... N
)  e.  Fin  /\  ( ( 1 ... N )  X.  {
( topGen `  ran  (,) ) } ) : ( 1 ... N ) --> Top )  ->  ( Xt_ `  ( ( 1 ... N )  X. 
{ ( topGen `  ran  (,) ) } ) )  e.  Top )
21029, 208, 209mp2an 708 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( Xt_ `  ( ( 1 ... N )  X.  {
( topGen `  ran  (,) ) } ) )  e. 
Top
211206, 210eqeltri 2697 . . . . . . . . . . . . . . . . . . . . 21  |-  R  e. 
Top
212 poimir.i . . . . . . . . . . . . . . . . . . . . . 22  |-  I  =  ( ( 0 [,] 1 )  ^m  (
1 ... N ) )
213 reex 10027 . . . . . . . . . . . . . . . . . . . . . . 23  |-  RR  e.  _V
214 unitssre 12319 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( 0 [,] 1 )  C_  RR
215 mapss 7900 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( RR  e.  _V  /\  ( 0 [,] 1
)  C_  RR )  ->  ( ( 0 [,] 1 )  ^m  (
1 ... N ) ) 
C_  ( RR  ^m  ( 1 ... N
) ) )
216213, 214, 215mp2an 708 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( 0 [,] 1 )  ^m  ( 1 ... N ) )  C_  ( RR  ^m  (
1 ... N ) )
217212, 216eqsstri 3635 . . . . . . . . . . . . . . . . . . . . 21  |-  I  C_  ( RR  ^m  (
1 ... N ) )
218 uniretop 22566 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  RR  =  U. ( topGen `  ran  (,) )
219206, 218ptuniconst 21401 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( 1 ... N
)  e.  Fin  /\  ( topGen `  ran  (,) )  e.  Top )  ->  ( RR  ^m  ( 1 ... N ) )  = 
U. R )
22029, 207, 219mp2an 708 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( RR 
^m  ( 1 ... N ) )  = 
U. R
221220restuni 20966 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( R  e.  Top  /\  I  C_  ( RR  ^m  ( 1 ... N
) ) )  ->  I  =  U. ( Rt  I ) )
222211, 217, 221mp2an 708 . . . . . . . . . . . . . . . . . . . 20  |-  I  = 
U. ( Rt  I )
223222, 220cnf 21050 . . . . . . . . . . . . . . . . . . 19  |-  ( F  e.  ( ( Rt  I )  Cn  R )  ->  F : I --> ( RR  ^m  (
1 ... N ) ) )
224205, 223syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  F : I --> ( RR 
^m  ( 1 ... N ) ) )
225224ad2antrr 762 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  F : I --> ( RR 
^m  ( 1 ... N ) ) )
226 simplr 792 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  k  e.  NN )
227 elfzelz 12342 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( x  e.  ( 0 ... k )  ->  x  e.  ZZ )
228227zred 11482 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  e.  ( 0 ... k )  ->  x  e.  RR )
229228adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  x  e.  RR )
230 nnre 11027 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( k  e.  NN  ->  k  e.  RR )
231230adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  k  e.  RR )
232 nnne0 11053 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( k  e.  NN  ->  k  =/=  0 )
233232adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  k  =/=  0 )
234229, 231, 233redivcld 10853 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  ( x  /  k
)  e.  RR )
235 elfzle1 12344 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  e.  ( 0 ... k )  ->  0  <_  x )
236228, 235jca 554 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( x  e.  ( 0 ... k )  ->  (
x  e.  RR  /\  0  <_  x ) )
237 nnrp 11842 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( k  e.  NN  ->  k  e.  RR+ )
238237rpregt0d 11878 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( k  e.  NN  ->  (
k  e.  RR  /\  0  <  k ) )
239 divge0 10892 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( x  e.  RR  /\  0  <_  x )  /\  ( k  e.  RR  /\  0  <  k ) )  ->  0  <_  ( x  /  k ) )
240236, 238, 239syl2an 494 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  0  <_  ( x  /  k ) )
241 elfzle2 12345 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  e.  ( 0 ... k )  ->  x  <_  k )
242241adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  x  <_  k )
243 1red 10055 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  1  e.  RR )
244237adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  k  e.  RR+ )
245229, 243, 244ledivmuld 11925 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  ( ( x  / 
k )  <_  1  <->  x  <_  ( k  x.  1 ) ) )
246 nncn 11028 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( k  e.  NN  ->  k  e.  CC )
247246mulid1d 10057 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( k  e.  NN  ->  (
k  x.  1 )  =  k )
248247breq2d 4665 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( k  e.  NN  ->  (
x  <_  ( k  x.  1 )  <->  x  <_  k ) )
249248adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  ( x  <_  (
k  x.  1 )  <-> 
x  <_  k )
)
250245, 249bitrd 268 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  ( ( x  / 
k )  <_  1  <->  x  <_  k ) )
251242, 250mpbird 247 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  ( x  /  k
)  <_  1 )
25239, 17elicc2i 12239 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( x  /  k )  e.  ( 0 [,] 1 )  <->  ( (
x  /  k )  e.  RR  /\  0  <_  ( x  /  k
)  /\  ( x  /  k )  <_ 
1 ) )
253234, 240, 251, 252syl3anbrc 1246 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( x  e.  ( 0 ... k )  /\  k  e.  NN )  ->  ( x  /  k
)  e.  ( 0 [,] 1 ) )
254253ancoms 469 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( k  e.  NN  /\  x  e.  ( 0 ... k ) )  ->  ( x  / 
k )  e.  ( 0 [,] 1 ) )
255 elsni 4194 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( y  e.  { k }  ->  y  =  k )
256255oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( y  e.  { k }  ->  ( x  / 
y )  =  ( x  /  k ) )
257256eleq1d 2686 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  e.  { k }  ->  ( ( x  /  y )  e.  ( 0 [,] 1
)  <->  ( x  / 
k )  e.  ( 0 [,] 1 ) ) )
258254, 257syl5ibrcom 237 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN  /\  x  e.  ( 0 ... k ) )  ->  ( y  e. 
{ k }  ->  ( x  /  y )  e.  ( 0 [,] 1 ) ) )
259258impr 649 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN  /\  ( x  e.  (
0 ... k )  /\  y  e.  { k } ) )  -> 
( x  /  y
)  e.  ( 0 [,] 1 ) )
260226, 259sylan 488 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  j  e.  (
0 ... N ) )  /\  ( x  e.  ( 0 ... k
)  /\  y  e.  { k } ) )  ->  ( x  / 
y )  e.  ( 0 [,] 1 ) )
261 elun 3753 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( y  e.  ( { 1 }  u.  { 0 } )  <->  ( y  e.  { 1 }  \/  y  e.  { 0 } ) )
262 fzofzp1 12565 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  e.  ( 0..^ k )  ->  ( x  +  1 )  e.  ( 0 ... k
) )
263 elsni 4194 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( y  e.  { 1 }  ->  y  =  1 )
264263oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( y  e.  { 1 }  ->  ( x  +  y )  =  ( x  +  1 ) )
265264eleq1d 2686 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( y  e.  { 1 }  ->  ( ( x  +  y )  e.  ( 0 ... k
)  <->  ( x  + 
1 )  e.  ( 0 ... k ) ) )
266262, 265syl5ibrcom 237 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( x  e.  ( 0..^ k )  ->  ( y  e.  { 1 }  ->  ( x  +  y )  e.  ( 0 ... k ) ) )
267 elfzonn0 12512 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( x  e.  ( 0..^ k )  ->  x  e.  NN0 )
268267nn0cnd 11353 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( x  e.  ( 0..^ k )  ->  x  e.  CC )
269268addid1d 10236 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( x  e.  ( 0..^ k )  ->  ( x  +  0 )  =  x )
270 elfzofz 12485 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( x  e.  ( 0..^ k )  ->  x  e.  ( 0 ... k
) )
271269, 270eqeltrd 2701 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  e.  ( 0..^ k )  ->  ( x  +  0 )  e.  ( 0 ... k
) )
272 elsni 4194 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( y  e.  { 0 }  ->  y  =  0 )
273272oveq2d 6666 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( y  e.  { 0 }  ->  ( x  +  y )  =  ( x  +  0 ) )
274273eleq1d 2686 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( y  e.  { 0 }  ->  ( ( x  +  y )  e.  ( 0 ... k
)  <->  ( x  + 
0 )  e.  ( 0 ... k ) ) )
275271, 274syl5ibrcom 237 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( x  e.  ( 0..^ k )  ->  ( y  e.  { 0 }  ->  ( x  +  y )  e.  ( 0 ... k ) ) )
276266, 275jaod 395 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( x  e.  ( 0..^ k )  ->  ( (
y  e.  { 1 }  \/  y  e. 
{ 0 } )  ->  ( x  +  y )  e.  ( 0 ... k ) ) )
277261, 276syl5bi 232 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( x  e.  ( 0..^ k )  ->  ( y  e.  ( { 1 }  u.  { 0 } )  ->  ( x  +  y )  e.  ( 0 ... k
) ) )
278277imp 445 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( x  e.  ( 0..^ k )  /\  y  e.  ( { 1 }  u.  { 0 } ) )  ->  (
x  +  y )  e.  ( 0 ... k ) )
279278adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  j  e.  (
0 ... N ) )  /\  ( x  e.  ( 0..^ k )  /\  y  e.  ( { 1 }  u.  { 0 } ) ) )  ->  ( x  +  y )  e.  ( 0 ... k
) )
280 poimirlem31.3 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ph  ->  G : NN --> ( ( NN0  ^m  ( 1 ... N ) )  X.  { f  |  f : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) } ) )
281280ffvelrnda 6359 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  k  e.  NN )  ->  ( G `
 k )  e.  ( ( NN0  ^m  ( 1 ... N
) )  X.  {
f  |  f : ( 1 ... N
)
-1-1-onto-> ( 1 ... N
) } ) )
282 xp1st 7198 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( G `  k )  e.  ( ( NN0 
^m  ( 1 ... N ) )  X. 
{ f  |  f : ( 1 ... N ) -1-1-onto-> ( 1 ... N
) } )  -> 
( 1st `  ( G `  k )
)  e.  ( NN0 
^m  ( 1 ... N ) ) )
283 elmapfn 7880 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( 1st `  ( G `
 k ) )  e.  ( NN0  ^m  ( 1 ... N
) )  ->  ( 1st `  ( G `  k ) )  Fn  ( 1 ... N
) )
284281, 282, 2833syl 18 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  k  e.  NN )  ->  ( 1st `  ( G `  k
) )  Fn  (
1 ... N ) )
285 poimirlem31.4 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  k  e.  NN )  ->  ran  ( 1st `  ( G `  k ) )  C_  ( 0..^ k ) )
286 df-f 5892 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( 1st `  ( G `
 k ) ) : ( 1 ... N ) --> ( 0..^ k )  <->  ( ( 1st `  ( G `  k ) )  Fn  ( 1 ... N
)  /\  ran  ( 1st `  ( G `  k
) )  C_  (
0..^ k ) ) )
287284, 285, 286sylanbrc 698 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  k  e.  NN )  ->  ( 1st `  ( G `  k
) ) : ( 1 ... N ) --> ( 0..^ k ) )
288287adantr 481 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  ( 1st `  ( G `  k ) ) : ( 1 ... N
) --> ( 0..^ k ) )
289 1ex 10035 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  1  e.  _V
290289fconst 6091 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  X.  { 1 } ) : ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) ) --> { 1 }
29134fconst 6091 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( 2nd `  ( G `  k )
) " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) : ( ( 2nd `  ( G `
 k ) )
" ( ( j  +  1 ) ... N ) ) --> { 0 }
292290, 291pm3.2i 471 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  X.  { 1 } ) : ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) ) --> { 1 }  /\  (
( ( 2nd `  ( G `  k )
) " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) : ( ( 2nd `  ( G `
 k ) )
" ( ( j  +  1 ) ... N ) ) --> { 0 } )
293 xp2nd 7199 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( G `  k )  e.  ( ( NN0 
^m  ( 1 ... N ) )  X. 
{ f  |  f : ( 1 ... N ) -1-1-onto-> ( 1 ... N
) } )  -> 
( 2nd `  ( G `  k )
)  e.  { f  |  f : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) } )
294281, 293syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  k  e.  NN )  ->  ( 2nd `  ( G `  k
) )  e.  {
f  |  f : ( 1 ... N
)
-1-1-onto-> ( 1 ... N
) } )
295 fvex 6201 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( 2nd `  ( G `  k
) )  e.  _V
296 f1oeq1 6127 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( f  =  ( 2nd `  ( G `  k )
)  ->  ( f : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  <->  ( 2nd `  ( G `  k )
) : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) ) )
297295, 296elab 3350 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( 2nd `  ( G `
 k ) )  e.  { f  |  f : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) }  <-> 
( 2nd `  ( G `  k )
) : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) )
298294, 297sylib 208 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  k  e.  NN )  ->  ( 2nd `  ( G `  k
) ) : ( 1 ... N ) -1-1-onto-> ( 1 ... N ) )
299 dff1o3 6143 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( 2nd `  ( G `
 k ) ) : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  <->  ( ( 2nd `  ( G `  k
) ) : ( 1 ... N )
-onto-> ( 1 ... N
)  /\  Fun  `' ( 2nd `  ( G `
 k ) ) ) )
300299simprbi 480 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( 2nd `  ( G `
 k ) ) : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  ->  Fun  `' ( 2nd `  ( G `
 k ) ) )
301 imain 5974 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( Fun  `' ( 2nd `  ( G `  k )
)  ->  ( ( 2nd `  ( G `  k ) ) "
( ( 1 ... j )  i^i  (
( j  +  1 ) ... N ) ) )  =  ( ( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  i^i  ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) ) ) )
302298, 300, 3013syl 18 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( 2nd `  ( G `
 k ) )
" ( ( 1 ... j )  i^i  ( ( j  +  1 ) ... N
) ) )  =  ( ( ( 2nd `  ( G `  k
) ) " (
1 ... j ) )  i^i  ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) ) ) )
303 elfznn0 12433 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( j  e.  ( 0 ... N )  ->  j  e.  NN0 )
304303nn0red 11352 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( j  e.  ( 0 ... N )  ->  j  e.  RR )
305304ltp1d 10954 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( j  e.  ( 0 ... N )  ->  j  <  ( j  +  1 ) )
306 fzdisj 12368 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( j  <  ( j  +  1 )  ->  (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... N ) )  =  (/) )
307305, 306syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( j  e.  ( 0 ... N )  ->  (
( 1 ... j
)  i^i  ( (
j  +  1 ) ... N ) )  =  (/) )
308307imaeq2d 5466 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( j  e.  ( 0 ... N )  ->  (
( 2nd `  ( G `  k )
) " ( ( 1 ... j )  i^i  ( ( j  +  1 ) ... N ) ) )  =  ( ( 2nd `  ( G `  k
) ) " (/) ) )
309 ima0 5481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( 2nd `  ( G `
 k ) )
" (/) )  =  (/)
310308, 309syl6eq 2672 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( j  e.  ( 0 ... N )  ->  (
( 2nd `  ( G `  k )
) " ( ( 1 ... j )  i^i  ( ( j  +  1 ) ... N ) ) )  =  (/) )
311302, 310sylan9req 2677 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  i^i  ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) ) )  =  (/) )
312 fun 6066 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) )  X. 
{ 1 } ) : ( ( 2nd `  ( G `  k
) ) " (
1 ... j ) ) --> { 1 }  /\  ( ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) )  X.  { 0 } ) : ( ( 2nd `  ( G `  k )
) " ( ( j  +  1 ) ... N ) ) --> { 0 } )  /\  ( ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) )  i^i  ( ( 2nd `  ( G `  k )
) " ( ( j  +  1 ) ... N ) ) )  =  (/) )  -> 
( ( ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( 2nd `  ( G `
 k ) )
" ( ( j  +  1 ) ... N ) )  X. 
{ 0 } ) ) : ( ( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  u.  ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) ) ) --> ( { 1 }  u.  {
0 } ) )
313292, 311, 312sylancr 695 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( ( ( 2nd `  ( G `  k
) ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( 2nd `  ( G `  k )
) " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) : ( ( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  u.  ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) ) ) --> ( { 1 }  u.  {
0 } ) )
314 imaundi 5545 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( 2nd `  ( G `
 k ) )
" ( ( 1 ... j )  u.  ( ( j  +  1 ) ... N
) ) )  =  ( ( ( 2nd `  ( G `  k
) ) " (
1 ... j ) )  u.  ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) ) )
315 nn0p1nn 11332 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( j  e.  NN0  ->  ( j  +  1 )  e.  NN )
316303, 315syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( j  e.  ( 0 ... N )  ->  (
j  +  1 )  e.  NN )
317 nnuz 11723 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  NN  =  ( ZZ>= `  1 )
318316, 317syl6eleq 2711 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( j  e.  ( 0 ... N )  ->  (
j  +  1 )  e.  ( ZZ>= `  1
) )
319 elfzuz3 12339 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( j  e.  ( 0 ... N )  ->  N  e.  ( ZZ>= `  j )
)
320 fzsplit2 12366 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( j  +  1 )  e.  ( ZZ>= ` 
1 )  /\  N  e.  ( ZZ>= `  j )
)  ->  ( 1 ... N )  =  ( ( 1 ... j )  u.  (
( j  +  1 ) ... N ) ) )
321318, 319, 320syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( j  e.  ( 0 ... N )  ->  (
1 ... N )  =  ( ( 1 ... j )  u.  (
( j  +  1 ) ... N ) ) )
322321imaeq2d 5466 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( j  e.  ( 0 ... N )  ->  (
( 2nd `  ( G `  k )
) " ( 1 ... N ) )  =  ( ( 2nd `  ( G `  k
) ) " (
( 1 ... j
)  u.  ( ( j  +  1 ) ... N ) ) ) )
323 f1ofo 6144 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( 2nd `  ( G `
 k ) ) : ( 1 ... N ) -1-1-onto-> ( 1 ... N
)  ->  ( 2nd `  ( G `  k
) ) : ( 1 ... N )
-onto-> ( 1 ... N
) )
324 foima 6120 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( 2nd `  ( G `
 k ) ) : ( 1 ... N ) -onto-> ( 1 ... N )  -> 
( ( 2nd `  ( G `  k )
) " ( 1 ... N ) )  =  ( 1 ... N ) )
325298, 323, 3243syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( 2nd `  ( G `
 k ) )
" ( 1 ... N ) )  =  ( 1 ... N
) )
326322, 325sylan9req 2677 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( j  e.  ( 0 ... N )  /\  ( ph  /\  k  e.  NN ) )  -> 
( ( 2nd `  ( G `  k )
) " ( ( 1 ... j )  u.  ( ( j  +  1 ) ... N ) ) )  =  ( 1 ... N ) )
327326ancoms 469 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( 2nd `  ( G `  k )
) " ( ( 1 ... j )  u.  ( ( j  +  1 ) ... N ) ) )  =  ( 1 ... N ) )
328314, 327syl5eqr 2670 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  u.  ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) ) )  =  ( 1 ... N ) )
329328feq2d 6031 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( ( ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( 2nd `  ( G `
 k ) )
" ( ( j  +  1 ) ... N ) )  X. 
{ 0 } ) ) : ( ( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  u.  ( ( 2nd `  ( G `  k
) ) " (
( j  +  1 ) ... N ) ) ) --> ( { 1 }  u.  {
0 } )  <->  ( (
( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( ( 2nd `  ( G `  k )
) " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) : ( 1 ... N ) --> ( { 1 }  u.  { 0 } ) ) )
330313, 329mpbid 222 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( ( ( 2nd `  ( G `  k
) ) " (
1 ... j ) )  X.  { 1 } )  u.  ( ( ( 2nd `  ( G `  k )
) " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) : ( 1 ... N ) --> ( { 1 }  u.  { 0 } ) )
331 fzfid 12772 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
1 ... N )  e. 
Fin )
332 inidm 3822 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( 1 ... N )  i^i  ( 1 ... N ) )  =  ( 1 ... N
)
333279, 288, 330, 331, 331, 332off 6912 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( 1st `  ( G `  k )
)  oF  +  ( ( ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( 2nd `  ( G `
 k ) )
" ( ( j  +  1 ) ... N ) )  X. 
{ 0 } ) ) ) : ( 1 ... N ) --> ( 0 ... k
) )
334 poimirlem31.p . . . . . . . . . . . . . . . . . . . . 21  |-  P  =  ( ( 1st `  ( G `  k )
)  oF  +  ( ( ( ( 2nd `  ( G `
 k ) )
" ( 1 ... j ) )  X. 
{ 1 } )  u.  ( ( ( 2nd `  ( G `
 k ) )
" ( ( j  +  1 ) ... N ) )  X. 
{ 0 } ) ) )
335334feq1i 6036 . . . . . . . . . . . . . . . . . . . 20  |-  ( P : ( 1 ... N ) --> ( 0 ... k )  <->  ( ( 1st `  ( G `  k ) )  oF  +  ( ( ( ( 2nd `  ( G `  k )
) " ( 1 ... j ) )  X.  { 1 } )  u.  ( ( ( 2nd `  ( G `  k )
) " ( ( j  +  1 ) ... N ) )  X.  { 0 } ) ) ) : ( 1 ... N
) --> ( 0 ... k ) )
336333, 335sylibr 224 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  P : ( 1 ... N ) --> ( 0 ... k ) )
337 vex 3203 . . . . . . . . . . . . . . . . . . . . 21  |-  k  e. 
_V
338337fconst 6091 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( 1 ... N )  X.  { k } ) : ( 1 ... N ) --> { k }
339338a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( 1 ... N
)  X.  { k } ) : ( 1 ... N ) --> { k } )
340260, 336, 339, 331, 331, 332off 6912 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) : ( 1 ... N
) --> ( 0 [,] 1 ) )
341212eleq2i 2693 . . . . . . . . . . . . . . . . . . 19  |-  ( ( P  oF  / 
( ( 1 ... N )  X.  {
k } ) )  e.  I  <->  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) )  e.  ( ( 0 [,] 1 )  ^m  (
1 ... N ) ) )
342 ovex 6678 . . . . . . . . . . . . . . . . . . . 20  |-  ( 0 [,] 1 )  e. 
_V
343 ovex 6678 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1 ... N )  e. 
_V
344342, 343elmap 7886 . . . . . . . . . . . . . . . . . . 19  |-  ( ( P  oF  / 
( ( 1 ... N )  X.  {
k } ) )  e.  ( ( 0 [,] 1 )  ^m  ( 1 ... N
) )  <->  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) : ( 1 ... N
) --> ( 0 [,] 1 ) )
345341, 344bitri 264 . . . . . . . . . . . . . . . . . 18  |-  ( ( P  oF  / 
( ( 1 ... N )  X.  {
k } ) )  e.  I  <->  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) : ( 1 ... N
) --> ( 0 [,] 1 ) )
346340, 345sylibr 224 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) )  e.  I )
347225, 346ffvelrnd 6360 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) )  e.  ( RR  ^m  ( 1 ... N
) ) )
348 elmapi 7879 . . . . . . . . . . . . . . . 16  |-  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) )  e.  ( RR  ^m  ( 1 ... N
) )  ->  ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) : ( 1 ... N ) --> RR )
349347, 348syl 17 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) : ( 1 ... N ) --> RR )
350349ffvelrnda 6359 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  j  e.  (
0 ... N ) )  /\  n  e.  ( 1 ... N ) )  ->  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  e.  RR )
351350an32s 846 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  e.  RR )
352 0red 10041 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  0  e.  RR )
353351, 352ltnled 10184 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <  0  <->  -.  0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
354 ltle 10126 . . . . . . . . . . . . 13  |-  ( ( ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
)  e.  RR  /\  0  e.  RR )  ->  ( ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <  0  ->  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) )
355351, 39, 354sylancl 694 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <  0  ->  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) )
356353, 355sylbird 250 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( -.  0  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  ->  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) )
357246, 232div0d 10800 . . . . . . . . . . . . . . 15  |-  ( k  e.  NN  ->  (
0  /  k )  =  0 )
358 oveq1 6657 . . . . . . . . . . . . . . . 16  |-  ( ( P `  n )  =  0  ->  (
( P `  n
)  /  k )  =  ( 0  / 
k ) )
359358eqeq1d 2624 . . . . . . . . . . . . . . 15  |-  ( ( P `  n )  =  0  ->  (
( ( P `  n )  /  k
)  =  0  <->  (
0  /  k )  =  0 ) )
360357, 359syl5ibrcom 237 . . . . . . . . . . . . . 14  |-  ( k  e.  NN  ->  (
( P `  n
)  =  0  -> 
( ( P `  n )  /  k
)  =  0 ) )
361360ad3antlr 767 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( ( P `  n )  =  0  ->  (
( P `  n
)  /  k )  =  0 ) )
362 ffn 6045 . . . . . . . . . . . . . . . . 17  |-  ( P : ( 1 ... N ) --> ( 0 ... k )  ->  P  Fn  ( 1 ... N ) )
363336, 362syl 17 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  P  Fn  ( 1 ... N
) )
364 fnconstg 6093 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  _V  ->  (
( 1 ... N
)  X.  { k } )  Fn  (
1 ... N ) )
365337, 364mp1i 13 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 0 ... N
) )  ->  (
( 1 ... N
)  X.  { k } )  Fn  (
1 ... N ) )
366 eqidd 2623 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  j  e.  (
0 ... N ) )  /\  n  e.  ( 1 ... N ) )  ->  ( P `  n )  =  ( P `  n ) )
367337fvconst2 6469 . . . . . . . . . . . . . . . . 17  |-  ( n  e.  ( 1 ... N )  ->  (
( ( 1 ... N )  X.  {
k } ) `  n )  =  k )
368367adantl 482 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  j  e.  (
0 ... N ) )  /\  n  e.  ( 1 ... N ) )  ->  ( (
( 1 ... N
)  X.  { k } ) `  n
)  =  k )
369363, 365, 331, 331, 332, 366, 368ofval 6906 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  j  e.  (
0 ... N ) )  /\  n  e.  ( 1 ... N ) )  ->  ( ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) `  n )  =  ( ( P `  n
)  /  k ) )
370369an32s 846 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) `  n )  =  ( ( P `  n
)  /  k ) )
371370eqeq1d 2624 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( (
( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) `  n )  =  0  <->  ( ( P `  n )  /  k )  =  0 ) )
372361, 371sylibrd 249 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( ( P `  n )  =  0  ->  (
( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) `  n )  =  0 ) )
373 simplll 798 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ph )
374 simplr 792 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  n  e.  ( 1 ... N
) )
375346adantlr 751 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) )  e.  I )
376 ovex 6678 . . . . . . . . . . . . . 14  |-  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) )  e. 
_V
377 eleq1 2689 . . . . . . . . . . . . . . . . 17  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( z  e.  I  <->  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  e.  I ) )
378 fveq1 6190 . . . . . . . . . . . . . . . . . . 19  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( z `  n )  =  ( ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) `  n ) )
379378eqeq1d 2624 . . . . . . . . . . . . . . . . . 18  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( (
z `  n )  =  0  <->  ( ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) `  n )  =  0 ) )
380 fveq2 6191 . . . . . . . . . . . . . . . . . . . 20  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( F `  z )  =  ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) )
381380fveq1d 6193 . . . . . . . . . . . . . . . . . . 19  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( ( F `  z ) `  n )  =  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) )
382381breq1d 4663 . . . . . . . . . . . . . . . . . 18  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( (
( F `  z
) `  n )  <_  0  <->  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <_  0 ) )
383379, 382imbi12d 334 . . . . . . . . . . . . . . . . 17  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( (
( z `  n
)  =  0  -> 
( ( F `  z ) `  n
)  <_  0 )  <-> 
( ( ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) `  n )  =  0  ->  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <_  0 ) ) )
384377, 383imbi12d 334 . . . . . . . . . . . . . . . 16  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( (
z  e.  I  -> 
( ( z `  n )  =  0  ->  ( ( F `
 z ) `  n )  <_  0
) )  <->  ( ( P  oF  /  (
( 1 ... N
)  X.  { k } ) )  e.  I  ->  ( (
( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) `  n )  =  0  ->  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) ) ) )
385384imbi2d 330 . . . . . . . . . . . . . . 15  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( (
n  e.  ( 1 ... N )  -> 
( z  e.  I  ->  ( ( z `  n )  =  0  ->  ( ( F `
 z ) `  n )  <_  0
) ) )  <->  ( n  e.  ( 1 ... N
)  ->  ( ( P  oF  /  (
( 1 ... N
)  X.  { k } ) )  e.  I  ->  ( (
( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) `  n )  =  0  ->  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) ) ) ) )
386385imbi2d 330 . . . . . . . . . . . . . 14  |-  ( z  =  ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  ->  ( ( ph  ->  ( n  e.  ( 1 ... N
)  ->  ( z  e.  I  ->  ( ( z `  n )  =  0  ->  (
( F `  z
) `  n )  <_  0 ) ) ) )  <->  ( ph  ->  ( n  e.  ( 1 ... N )  -> 
( ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) )  e.  I  -> 
( ( ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) `  n )  =  0  ->  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <_  0 ) ) ) ) ) )
387 poimir.2 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( n  e.  ( 1 ... N
)  /\  z  e.  I  /\  ( z `  n )  =  0 ) )  ->  (
( F `  z
) `  n )  <_  0 )
3883873exp2 1285 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( n  e.  ( 1 ... N )  ->  ( z  e.  I  ->  ( (
z `  n )  =  0  ->  (
( F `  z
) `  n )  <_  0 ) ) ) )
389376, 386, 388vtocl 3259 . . . . . . . . . . . . 13  |-  ( ph  ->  ( n  e.  ( 1 ... N )  ->  ( ( P  oF  /  (
( 1 ... N
)  X.  { k } ) )  e.  I  ->  ( (
( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) `  n )  =  0  ->  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) ) ) )
390373, 374, 375, 389syl3c 66 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( (
( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) `  n )  =  0  ->  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) )
391372, 390syld 47 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( ( P `  n )  =  0  ->  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) )
392356, 391jaod 395 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( ( -.  0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  \/  ( P `  n
)  =  0 )  ->  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <_  0 ) )
393204, 392syld 47 . . . . . . . . 9  |-  ( ( ( ( ph  /\  k  e.  NN )  /\  n  e.  (
1 ... N ) )  /\  j  e.  ( 0 ... N ) )  ->  ( (
n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) )
394393reximdva 3017 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  NN )  /\  n  e.  ( 1 ... N
) )  ->  ( E. j  e.  (
0 ... N ) ( n  -  1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  | 
A. b  e.  ( 1 ... a ) ( 0  <_  (
( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  E. j  e.  ( 0 ... N
) ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <_  0 ) )
395394anasss 679 . . . . . . 7  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  -> 
( E. j  e.  ( 0 ... N
) ( n  - 
1 )  =  sup ( ( { 0 }  u.  { a  e.  ( 1 ... N )  |  A. b  e.  ( 1 ... a ) ( 0  <_  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 b )  /\  ( P `  b )  =/=  0 ) } ) ,  RR ,  <  )  ->  E. j  e.  ( 0 ... N
) ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <_  0 ) )
396110, 395mpd 15 . . . . . 6  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  ->  E. j  e.  (
0 ... N ) ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 )
397 breq 4655 . . . . . . . 8  |-  ( r  =  `'  <_  ->  ( 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <->  0 `'  <_  ( ( F `  ( P  oF  /  ( ( 1 ... N )  X. 
{ k } ) ) ) `  n
) ) )
398 fvex 6201 . . . . . . . . 9  |-  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  e. 
_V
39934, 398brcnv 5305 . . . . . . . 8  |-  ( 0 `'  <_  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <->  ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <_  0 )
400397, 399syl6bb 276 . . . . . . 7  |-  ( r  =  `'  <_  ->  ( 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <->  ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <_ 
0 ) )
401400rexbidv 3052 . . . . . 6  |-  ( r  =  `'  <_  ->  ( E. j  e.  ( 0 ... N ) 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n )  <->  E. j  e.  ( 0 ... N
) ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
)  <_  0 ) )
402396, 401syl5ibrcom 237 . . . . 5  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  -> 
( r  =  `'  <_  ->  E. j  e.  ( 0 ... N ) 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
40378, 402jaod 395 . . . 4  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  -> 
( ( r  =  <_  \/  r  =  `'  <_  )  ->  E. j  e.  ( 0 ... N
) 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) )
4041, 403syl5 34 . . 3  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
) ) )  -> 
( r  e.  {  <_  ,  `'  <_  }  ->  E. j  e.  ( 0 ... N ) 0 r ( ( F `
 ( P  oF  /  ( (
1 ... N )  X. 
{ k } ) ) ) `  n
) ) )
405404exp32 631 . 2  |-  ( ph  ->  ( k  e.  NN  ->  ( n  e.  ( 1 ... N )  ->  ( r  e. 
{  <_  ,  `'  <_  }  ->  E. j  e.  ( 0 ... N
) 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) ) ) ) )
4064053imp2 1282 1  |-  ( (
ph  /\  ( k  e.  NN  /\  n  e.  ( 1 ... N
)  /\  r  e.  {  <_  ,  `'  <_  } ) )  ->  E. j  e.  ( 0 ... N
) 0 r ( ( F `  ( P  oF  /  (
( 1 ... N
)  X.  { k } ) ) ) `
 n ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990   {cab 2608    =/= wne 2794   A.wral 2912   E.wrex 2913   {crab 2916   _Vcvv 3200    u. cun 3572    i^i cin 3573    C_ wss 3574   (/)c0 3915   {csn 4177   {cpr 4179   U.cuni 4436   class class class wbr 4653    Or wor 5034    X. cxp 5112   `'ccnv 5113   ran crn 5115   "cima 5117   Fun wfun 5882    Fn wfn 5883   -->wf 5884   -onto->wfo 5886   -1-1-onto->wf1o 5887   ` cfv 5888  (class class class)co 6650    oFcof 6895   1stc1st 7166   2ndc2nd 7167    ^m cmap 7857   Fincfn 7955   supcsup 8346   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941    < clt 10074    <_ cle 10075    - cmin 10266    / cdiv 10684   NNcn 11020   NN0cn0 11292   ZZcz 11377   ZZ>=cuz 11687   RR+crp 11832   (,)cioo 12175   [,]cicc 12178   ...cfz 12326  ..^cfzo 12465   ↾t crest 16081   topGenctg 16098   Xt_cpt 16099   Topctop 20698    Cn ccn 21028
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-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
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  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-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-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-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-oadd 7564  df-er 7742  df-map 7859  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fi 8317  df-sup 8348  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-n0 11293  df-z 11378  df-uz 11688  df-rp 11833  df-ioo 12179  df-icc 12182  df-fz 12327  df-fzo 12466  df-rest 16083  df-topgen 16104  df-pt 16105  df-top 20699  df-topon 20716  df-bases 20750  df-cn 21031
This theorem is referenced by:  poimirlem32  33441
  Copyright terms: Public domain W3C validator