Users' Mathboxes Mathbox for Jeff Madsen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  sdclem2 Structured version   Visualization version   Unicode version

Theorem sdclem2 32135
Description: Lemma for sdc 32137. (Contributed by Jeff Madsen, 2-Sep-2009.)
Hypotheses
Ref Expression
sdc.1  |-  Z  =  ( ZZ>= `  M )
sdc.2  |-  ( g  =  ( f  |`  ( M ... n ) )  ->  ( ps  <->  ch ) )
sdc.3  |-  ( n  =  M  ->  ( ps 
<->  ta ) )
sdc.4  |-  ( n  =  k  ->  ( ps 
<->  th ) )
sdc.5  |-  ( ( g  =  h  /\  n  =  ( k  +  1 ) )  ->  ( ps  <->  si )
)
sdc.6  |-  ( ph  ->  A  e.  V )
sdc.7  |-  ( ph  ->  M  e.  ZZ )
sdc.8  |-  ( ph  ->  E. g ( g : { M } --> A  /\  ta ) )
sdc.9  |-  ( (
ph  /\  k  e.  Z )  ->  (
( g : ( M ... k ) --> A  /\  th )  ->  E. h ( h : ( M ... ( k  +  1 ) ) --> A  /\  g  =  ( h  |`  ( M ... k
) )  /\  si ) ) )
sdc.10  |-  J  =  { g  |  E. n  e.  Z  (
g : ( M ... n ) --> A  /\  ps ) }
sdc.11  |-  F  =  ( w  e.  Z ,  x  e.  J  |->  { h  |  E. k  e.  Z  (
h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) } )
sdc.12  |-  F/ k
ph
sdc.13  |-  ( ph  ->  G : Z --> J )
sdc.14  |-  ( ph  ->  ( G `  M
) : ( M ... M ) --> A )
sdc.15  |-  ( (
ph  /\  w  e.  Z )  ->  ( G `  ( w  +  1 ) )  e.  ( w F ( G `  w
) ) )
Assertion
Ref Expression
sdclem2  |-  ( ph  ->  E. f ( f : Z --> A  /\  A. n  e.  Z  ch ) )
Distinct variable groups:    f, g, h, k, n, w, x, A    h, J, k, w, x    f, M, g, h, k, n, w, x    ch, g    n, F, w, x    ps, f, h, k, x    si, f,
g, n, x    f, G, g, h, k, n, w, x    ph, n, w, x    th, n, w, x    h, V    ta, h, k, n, w, x   
f, Z, g, h, k, n, w, x
Allowed substitution hints:    ph( f, g, h, k)    ps( w, g, n)    ch( x, w, f, h, k, n)    th( f, g, h, k)    ta( f, g)    si( w, h, k)    F( f, g, h, k)    J( f, g, n)    V( x, w, f, g, k, n)

Proof of Theorem sdclem2
Dummy variable  m is distinct from all other variables.
StepHypRef Expression
1 sdc.12 . . 3  |-  F/ k
ph
2 sdc.13 . . . . . . . 8  |-  ( ph  ->  G : Z --> J )
32ffvelrnda 6037 . . . . . . 7  |-  ( (
ph  /\  k  e.  Z )  ->  ( G `  k )  e.  J )
4 sdc.10 . . . . . . . . 9  |-  J  =  { g  |  E. n  e.  Z  (
g : ( M ... n ) --> A  /\  ps ) }
54eleq2i 2541 . . . . . . . 8  |-  ( ( G `  k )  e.  J  <->  ( G `  k )  e.  {
g  |  E. n  e.  Z  ( g : ( M ... n ) --> A  /\  ps ) } )
6 nfcv 2612 . . . . . . . . . 10  |-  F/_ g Z
7 nfv 1769 . . . . . . . . . . 11  |-  F/ g ( G `  k
) : ( M ... n ) --> A
8 nfsbc1v 3275 . . . . . . . . . . 11  |-  F/ g
[. ( G `  k )  /  g ]. ps
97, 8nfan 2031 . . . . . . . . . 10  |-  F/ g ( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k )  /  g ]. ps )
106, 9nfrex 2848 . . . . . . . . 9  |-  F/ g E. n  e.  Z  ( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k )  /  g ]. ps )
11 fvex 5889 . . . . . . . . 9  |-  ( G `
 k )  e. 
_V
12 feq1 5720 . . . . . . . . . . 11  |-  ( g  =  ( G `  k )  ->  (
g : ( M ... n ) --> A  <-> 
( G `  k
) : ( M ... n ) --> A ) )
13 sbceq1a 3266 . . . . . . . . . . 11  |-  ( g  =  ( G `  k )  ->  ( ps 
<-> 
[. ( G `  k )  /  g ]. ps ) )
1412, 13anbi12d 725 . . . . . . . . . 10  |-  ( g  =  ( G `  k )  ->  (
( g : ( M ... n ) --> A  /\  ps )  <->  ( ( G `  k
) : ( M ... n ) --> A  /\  [. ( G `
 k )  / 
g ]. ps ) ) )
1514rexbidv 2892 . . . . . . . . 9  |-  ( g  =  ( G `  k )  ->  ( E. n  e.  Z  ( g : ( M ... n ) --> A  /\  ps )  <->  E. n  e.  Z  ( ( G `  k
) : ( M ... n ) --> A  /\  [. ( G `
 k )  / 
g ]. ps ) ) )
1610, 11, 15elabf 3172 . . . . . . . 8  |-  ( ( G `  k )  e.  { g  |  E. n  e.  Z  ( g : ( M ... n ) --> A  /\  ps ) } 
<->  E. n  e.  Z  ( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k )  /  g ]. ps ) )
175, 16bitri 257 . . . . . . 7  |-  ( ( G `  k )  e.  J  <->  E. n  e.  Z  ( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k
)  /  g ]. ps ) )
183, 17sylib 201 . . . . . 6  |-  ( (
ph  /\  k  e.  Z )  ->  E. n  e.  Z  ( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k
)  /  g ]. ps ) )
19 fdm 5745 . . . . . . . . . 10  |-  ( ( G `  k ) : ( M ... n ) --> A  ->  dom  ( G `  k
)  =  ( M ... n ) )
2019adantr 472 . . . . . . . . 9  |-  ( ( ( G `  k
) : ( M ... n ) --> A  /\  [. ( G `
 k )  / 
g ]. ps )  ->  dom  ( G `  k
)  =  ( M ... n ) )
21 fveq2 5879 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  M  ->  ( G `  x )  =  ( G `  M ) )
22 oveq2 6316 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  =  M  ->  ( M ... x )  =  ( M ... M
) )
2322mpteq1d 4477 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  M  ->  (
m  e.  ( M ... x )  |->  ( ( G `  m
) `  m )
)  =  ( m  e.  ( M ... M )  |->  ( ( G `  m ) `
 m ) ) )
2421, 23eqeq12d 2486 . . . . . . . . . . . . . . . . . 18  |-  ( x  =  M  ->  (
( G `  x
)  =  ( m  e.  ( M ... x )  |->  ( ( G `  m ) `
 m ) )  <-> 
( G `  M
)  =  ( m  e.  ( M ... M )  |->  ( ( G `  m ) `
 m ) ) ) )
2524imbi2d 323 . . . . . . . . . . . . . . . . 17  |-  ( x  =  M  ->  (
( ph  ->  ( G `
 x )  =  ( m  e.  ( M ... x ) 
|->  ( ( G `  m ) `  m
) ) )  <->  ( ph  ->  ( G `  M
)  =  ( m  e.  ( M ... M )  |->  ( ( G `  m ) `
 m ) ) ) ) )
26 fveq2 5879 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  w  ->  ( G `  x )  =  ( G `  w ) )
27 oveq2 6316 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  =  w  ->  ( M ... x )  =  ( M ... w
) )
2827mpteq1d 4477 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  w  ->  (
m  e.  ( M ... x )  |->  ( ( G `  m
) `  m )
)  =  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) ) )
2926, 28eqeq12d 2486 . . . . . . . . . . . . . . . . . 18  |-  ( x  =  w  ->  (
( G `  x
)  =  ( m  e.  ( M ... x )  |->  ( ( G `  m ) `
 m ) )  <-> 
( G `  w
)  =  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) ) ) )
3029imbi2d 323 . . . . . . . . . . . . . . . . 17  |-  ( x  =  w  ->  (
( ph  ->  ( G `
 x )  =  ( m  e.  ( M ... x ) 
|->  ( ( G `  m ) `  m
) ) )  <->  ( ph  ->  ( G `  w
)  =  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) ) ) ) )
31 fveq2 5879 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  ( w  + 
1 )  ->  ( G `  x )  =  ( G `  ( w  +  1
) ) )
32 oveq2 6316 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  =  ( w  + 
1 )  ->  ( M ... x )  =  ( M ... (
w  +  1 ) ) )
3332mpteq1d 4477 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  ( w  + 
1 )  ->  (
m  e.  ( M ... x )  |->  ( ( G `  m
) `  m )
)  =  ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) )
3431, 33eqeq12d 2486 . . . . . . . . . . . . . . . . . 18  |-  ( x  =  ( w  + 
1 )  ->  (
( G `  x
)  =  ( m  e.  ( M ... x )  |->  ( ( G `  m ) `
 m ) )  <-> 
( G `  (
w  +  1 ) )  =  ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) ) )
3534imbi2d 323 . . . . . . . . . . . . . . . . 17  |-  ( x  =  ( w  + 
1 )  ->  (
( ph  ->  ( G `
 x )  =  ( m  e.  ( M ... x ) 
|->  ( ( G `  m ) `  m
) ) )  <->  ( ph  ->  ( G `  (
w  +  1 ) )  =  ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) ) ) )
36 fveq2 5879 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  k  ->  ( G `  x )  =  ( G `  k ) )
37 oveq2 6316 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  =  k  ->  ( M ... x )  =  ( M ... k
) )
3837mpteq1d 4477 . . . . . . . . . . . . . . . . . . 19  |-  ( x  =  k  ->  (
m  e.  ( M ... x )  |->  ( ( G `  m
) `  m )
)  =  ( m  e.  ( M ... k )  |->  ( ( G `  m ) `
 m ) ) )
3936, 38eqeq12d 2486 . . . . . . . . . . . . . . . . . 18  |-  ( x  =  k  ->  (
( G `  x
)  =  ( m  e.  ( M ... x )  |->  ( ( G `  m ) `
 m ) )  <-> 
( G `  k
)  =  ( m  e.  ( M ... k )  |->  ( ( G `  m ) `
 m ) ) ) )
4039imbi2d 323 . . . . . . . . . . . . . . . . 17  |-  ( x  =  k  ->  (
( ph  ->  ( G `
 x )  =  ( m  e.  ( M ... x ) 
|->  ( ( G `  m ) `  m
) ) )  <->  ( ph  ->  ( G `  k
)  =  ( m  e.  ( M ... k )  |->  ( ( G `  m ) `
 m ) ) ) ) )
41 fveq2 5879 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( m  =  k  ->  ( G `  m )  =  ( G `  k ) )
42 id 22 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( m  =  k  ->  m  =  k )
4341, 42fveq12d 5885 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( m  =  k  ->  (
( G `  m
) `  m )  =  ( ( G `
 k ) `  k ) )
44 eqid 2471 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( m  e.  ( M ... M )  |->  ( ( G `  m ) `
 m ) )  =  ( m  e.  ( M ... M
)  |->  ( ( G `
 m ) `  m ) )
45 fvex 5889 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( G `  k ) `
 k )  e. 
_V
4643, 44, 45fvmpt 5963 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( k  e.  ( M ... M )  ->  (
( m  e.  ( M ... M ) 
|->  ( ( G `  m ) `  m
) ) `  k
)  =  ( ( G `  k ) `
 k ) )
4746adantl 473 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  k  e.  ( M ... M ) )  ->  ( (
m  e.  ( M ... M )  |->  ( ( G `  m
) `  m )
) `  k )  =  ( ( G `
 k ) `  k ) )
48 elfz1eq 11836 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( k  e.  ( M ... M )  ->  k  =  M )
4948adantl 473 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  k  e.  ( M ... M ) )  ->  k  =  M )
5049fveq2d 5883 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  k  e.  ( M ... M ) )  ->  ( G `  k )  =  ( G `  M ) )
5150fveq1d 5881 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  k  e.  ( M ... M ) )  ->  ( ( G `  k ) `  k )  =  ( ( G `  M
) `  k )
)
5247, 51eqtr2d 2506 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  k  e.  ( M ... M ) )  ->  ( ( G `  M ) `  k )  =  ( ( m  e.  ( M ... M ) 
|->  ( ( G `  m ) `  m
) ) `  k
) )
5352ex 441 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( k  e.  ( M ... M )  ->  ( ( G `
 M ) `  k )  =  ( ( m  e.  ( M ... M ) 
|->  ( ( G `  m ) `  m
) ) `  k
) ) )
541, 53ralrimi 2800 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  A. k  e.  ( M ... M ) ( ( G `  M ) `  k
)  =  ( ( m  e.  ( M ... M )  |->  ( ( G `  m
) `  m )
) `  k )
)
55 sdc.14 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( G `  M
) : ( M ... M ) --> A )
56 ffn 5739 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( G `  M ) : ( M ... M ) --> A  -> 
( G `  M
)  Fn  ( M ... M ) )
5755, 56syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( G `  M
)  Fn  ( M ... M ) )
58 fvex 5889 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( G `  m ) `
 m )  e. 
_V
5958, 44fnmpti 5716 . . . . . . . . . . . . . . . . . . . 20  |-  ( m  e.  ( M ... M )  |->  ( ( G `  m ) `
 m ) )  Fn  ( M ... M )
60 eqfnfv 5991 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( G `  M
)  Fn  ( M ... M )  /\  ( m  e.  ( M ... M )  |->  ( ( G `  m
) `  m )
)  Fn  ( M ... M ) )  ->  ( ( G `
 M )  =  ( m  e.  ( M ... M ) 
|->  ( ( G `  m ) `  m
) )  <->  A. k  e.  ( M ... M
) ( ( G `
 M ) `  k )  =  ( ( m  e.  ( M ... M ) 
|->  ( ( G `  m ) `  m
) ) `  k
) ) )
6157, 59, 60sylancl 675 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( G `  M )  =  ( m  e.  ( M ... M )  |->  ( ( G `  m
) `  m )
)  <->  A. k  e.  ( M ... M ) ( ( G `  M ) `  k
)  =  ( ( m  e.  ( M ... M )  |->  ( ( G `  m
) `  m )
) `  k )
) )
6254, 61mpbird 240 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( G `  M
)  =  ( m  e.  ( M ... M )  |->  ( ( G `  m ) `
 m ) ) )
6362a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( M  e.  ZZ  ->  ( ph  ->  ( G `  M )  =  ( m  e.  ( M ... M )  |->  ( ( G `  m
) `  m )
) ) )
64 sdc.1 . . . . . . . . . . . . . . . . . . . 20  |-  Z  =  ( ZZ>= `  M )
6564eleq2i 2541 . . . . . . . . . . . . . . . . . . 19  |-  ( w  e.  Z  <->  w  e.  ( ZZ>= `  M )
)
662ffvelrnda 6037 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  w  e.  Z )  ->  ( G `  w )  e.  J )
67 simpr 468 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  w  e.  Z )  ->  w  e.  Z )
68 3simpa 1027 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) )  /\  si )  ->  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) )
6968reximi 2852 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) )  /\  si )  ->  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) )
7069ss2abi 3487 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) } 
C_  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) ) }
71 fvex 5889 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ZZ>= `  M )  e.  _V
7264, 71eqeltri 2545 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  Z  e. 
_V
73 nfv 1769 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  F/ k  w  e.  Z
741, 73nfan 2031 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  F/ k ( ph  /\  w  e.  Z )
75 sdc.6 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ph  ->  A  e.  V )
7675adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( (
ph  /\  w  e.  Z )  ->  A  e.  V )
77 simpl 464 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) )  ->  h : ( M ... ( k  +  1 ) ) --> A )
78 ovex 6336 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( M ... ( k  +  1 ) )  e. 
_V
79 elmapg 7503 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( A  e.  V  /\  ( M ... ( k  +  1 ) )  e.  _V )  -> 
( h  e.  ( A  ^m  ( M ... ( k  +  1 ) ) )  <-> 
h : ( M ... ( k  +  1 ) ) --> A ) )
8078, 79mpan2 685 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( A  e.  V  ->  (
h  e.  ( A  ^m  ( M ... ( k  +  1 ) ) )  <->  h :
( M ... (
k  +  1 ) ) --> A ) )
8177, 80syl5ibr 229 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( A  e.  V  ->  (
( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) )  ->  h  e.  ( A  ^m  ( M ... ( k  +  1 ) ) ) ) )
8281abssdv 3489 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( A  e.  V  ->  { h  |  ( h : ( M ... (
k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  C_  ( A  ^m  ( M ... ( k  +  1 ) ) ) )
8376, 82syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( (
ph  /\  w  e.  Z )  ->  { h  |  ( h : ( M ... (
k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  C_  ( A  ^m  ( M ... ( k  +  1 ) ) ) )
84 ovex 6336 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( A  ^m  ( M ... ( k  +  1 ) ) )  e. 
_V
85 ssexg 4542 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( { h  |  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  C_  ( A  ^m  ( M ... (
k  +  1 ) ) )  /\  ( A  ^m  ( M ... ( k  +  1 ) ) )  e. 
_V )  ->  { h  |  ( h : ( M ... (
k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  e.  _V )
8683, 84, 85sylancl 675 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( (
ph  /\  w  e.  Z )  ->  { h  |  ( h : ( M ... (
k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  e.  _V )
8786a1d 25 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( (
ph  /\  w  e.  Z )  ->  (
k  e.  Z  ->  { h  |  (
h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  e.  _V )
)
8874, 87ralrimi 2800 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( (
ph  /\  w  e.  Z )  ->  A. k  e.  Z  { h  |  ( h : ( M ... (
k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  e.  _V )
89 abrexex2g 6789 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( Z  e.  _V  /\  A. k  e.  Z  {
h  |  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  e.  _V )  ->  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) ) }  e.  _V )
9072, 88, 89sylancr 676 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( (
ph  /\  w  e.  Z )  ->  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) ) }  e.  _V )
91 ssexg 4542 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( { h  |  E. k  e.  Z  (
h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) )  /\  si ) }  C_  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) ) }  /\  {
h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) }  e.  _V )  ->  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V )
9270, 90, 91sylancr 676 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  w  e.  Z )  ->  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V )
93 eqeq1 2475 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( x  =  ( G `  w )  ->  (
x  =  ( h  |`  ( M ... k
) )  <->  ( G `  w )  =  ( h  |`  ( M ... k ) ) ) )
94933anbi2d 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( x  =  ( G `  w )  ->  (
( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si )  <->  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) )  /\  si )
) )
9594rexbidv 2892 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( x  =  ( G `  w )  ->  ( E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si )  <->  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) )  /\  si )
) )
9695abbidv 2589 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( x  =  ( G `  w )  ->  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) }  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) } )
9796eleq1d 2533 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( x  =  ( G `  w )  ->  ( { h  |  E. k  e.  Z  (
h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V  <->  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V )
)
98 oveq2 6316 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( x  =  ( G `  w )  ->  (
w F x )  =  ( w F ( G `  w
) ) )
9998, 96eqeq12d 2486 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( x  =  ( G `  w )  ->  (
( w F x )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) }  <-> 
( w F ( G `  w ) )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) } ) )
10097, 99imbi12d 327 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( x  =  ( G `  w )  ->  (
( { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V  ->  (
w F x )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) } )  <->  ( { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V  ->  (
w F ( G `
 w ) )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) } ) ) )
101100imbi2d 323 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  =  ( G `  w )  ->  (
( w  e.  Z  ->  ( { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V  ->  (
w F x )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) } ) )  <->  ( w  e.  Z  ->  ( { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V  ->  ( w F ( G `
 w ) )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) } ) ) ) )
102 sdc.11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  F  =  ( w  e.  Z ,  x  e.  J  |->  { h  |  E. k  e.  Z  (
h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) } )
103102ovmpt4g 6438 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( w  e.  Z  /\  x  e.  J  /\  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k
) )  /\  si ) }  e.  _V )  ->  ( w F x )  =  {
h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k
) )  /\  si ) } )
1041033com12 1235 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( x  e.  J  /\  w  e.  Z  /\  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k
) )  /\  si ) }  e.  _V )  ->  ( w F x )  =  {
h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k
) )  /\  si ) } )
1051043exp 1230 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  e.  J  ->  (
w  e.  Z  -> 
( { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V  ->  (
w F x )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  x  =  ( h  |`  ( M ... k ) )  /\  si ) } ) ) )
106101, 105vtoclga 3099 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( G `  w )  e.  J  ->  (
w  e.  Z  -> 
( { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) }  e.  _V  ->  (
w F ( G `
 w ) )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) } ) ) )
10766, 67, 92, 106syl3c 62 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  w  e.  Z )  ->  (
w F ( G `
 w ) )  =  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) )  /\  si ) } )
108107, 70syl6eqss 3468 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  w  e.  Z )  ->  (
w F ( G `
 w ) ) 
C_  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) ) } )
109 sdc.15 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  w  e.  Z )  ->  ( G `  ( w  +  1 ) )  e.  ( w F ( G `  w
) ) )
110108, 109sseldd 3419 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  w  e.  Z )  ->  ( G `  ( w  +  1 ) )  e.  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) ) } )
111 fvex 5889 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( G `
 ( w  + 
1 ) )  e. 
_V
112 feq1 5720 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( h  =  ( G `  ( w  +  1
) )  ->  (
h : ( M ... ( k  +  1 ) ) --> A  <-> 
( G `  (
w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A ) )
113 reseq1 5105 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( h  =  ( G `  ( w  +  1
) )  ->  (
h  |`  ( M ... k ) )  =  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) ) )
114113eqeq2d 2481 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( h  =  ( G `  ( w  +  1
) )  ->  (
( G `  w
)  =  ( h  |`  ( M ... k
) )  <->  ( G `  w )  =  ( ( G `  (
w  +  1 ) )  |`  ( M ... k ) ) ) )
115112, 114anbi12d 725 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( h  =  ( G `  ( w  +  1
) )  ->  (
( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) )  <->  ( ( G `
 ( w  + 
1 ) ) : ( M ... (
k  +  1 ) ) --> A  /\  ( G `  w )  =  ( ( G `
 ( w  + 
1 ) )  |`  ( M ... k ) ) ) ) )
116115rexbidv 2892 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( h  =  ( G `  ( w  +  1
) )  ->  ( E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) )  <->  E. k  e.  Z  ( ( G `  ( w  +  1
) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) ) ) ) )
117111, 116elab 3173 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( G `  ( w  +  1 ) )  e.  { h  |  E. k  e.  Z  ( h : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( h  |`  ( M ... k ) ) ) }  <->  E. k  e.  Z  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( ( G `
 ( w  + 
1 ) )  |`  ( M ... k ) ) ) )
118110, 117sylib 201 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  w  e.  Z )  ->  E. k  e.  Z  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( G `  w )  =  ( ( G `
 ( w  + 
1 ) )  |`  ( M ... k ) ) ) )
119 nfv 1769 . . . . . . . . . . . . . . . . . . . . . 22  |-  F/ k ( ( G `  w )  =  ( m  e.  ( M ... w )  |->  ( ( G `  m
) `  m )
)  ->  ( G `  ( w  +  1 ) )  =  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) )
120 simprl 772 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A )
121 fzssp1 11867 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( M ... k )  C_  ( M ... ( k  +  1 ) )
122 fssres 5761 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( G `  (
w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( M ... k )  C_  ( M ... ( k  +  1 ) ) )  ->  ( ( G `
 ( w  + 
1 ) )  |`  ( M ... k ) ) : ( M ... k ) --> A )
123120, 121, 122sylancl 675 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) ) : ( M ... k ) --> A )
124 fdm 5745 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( G `  (
w  +  1 ) )  |`  ( M ... k ) ) : ( M ... k
) --> A  ->  dom  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( M ... k ) )
125123, 124syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  dom  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) )  =  ( M ... k ) )
126 eqid 2471 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) )
12758, 126fnmpti 5716 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) )  Fn  ( M ... w )
128 simprr 774 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) )  =  ( m  e.  ( M ... w )  |->  ( ( G `  m
) `  m )
) )
129128fneq1d 5676 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( (
( G `  (
w  +  1 ) )  |`  ( M ... k ) )  Fn  ( M ... w
)  <->  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) )  Fn  ( M ... w
) ) )
130127, 129mpbiri 241 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) )  Fn  ( M ... w ) )
131 fndm 5685 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( G `  (
w  +  1 ) )  |`  ( M ... k ) )  Fn  ( M ... w
)  ->  dom  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) )  =  ( M ... w ) )
132130, 131syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  dom  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) )  =  ( M ... w ) )
133125, 132eqtr3d 2507 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( M ... k )  =  ( M ... w ) )
134 simplr 770 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  k  e.  Z )
135134, 64syl6eleq 2559 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  k  e.  ( ZZ>= `  M )
)
136 fzopth 11861 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( k  e.  ( ZZ>= `  M
)  ->  ( ( M ... k )  =  ( M ... w
)  <->  ( M  =  M  /\  k  =  w ) ) )
137135, 136syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( ( M ... k )  =  ( M ... w
)  <->  ( M  =  M  /\  k  =  w ) ) )
138133, 137mpbid 215 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( M  =  M  /\  k  =  w ) )
139138simprd 470 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  k  =  w )
140139oveq1d 6323 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( k  +  1 )  =  ( w  +  1 ) )
141140oveq2d 6324 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( M ... ( k  +  1 ) )  =  ( M ... ( w  +  1 ) ) )
142 elfzp1 11872 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( k  e.  ( ZZ>= `  M
)  ->  ( x  e.  ( M ... (
k  +  1 ) )  <->  ( x  e.  ( M ... k
)  \/  x  =  ( k  +  1 ) ) ) )
143135, 142syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( x  e.  ( M ... (
k  +  1 ) )  <->  ( x  e.  ( M ... k
)  \/  x  =  ( k  +  1 ) ) ) )
144133reseq2d 5111 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( (
m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
)  |`  ( M ... k ) )  =  ( ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) )  |`  ( M ... w ) ) )
145 fzssp1 11867 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( M ... w )  C_  ( M ... ( w  +  1 ) )
146 resmpt 5160 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( M ... w ) 
C_  ( M ... ( w  +  1
) )  ->  (
( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) )  |`  ( M ... w ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) )
147145, 146ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
)  |`  ( M ... w ) )  =  ( m  e.  ( M ... w ) 
|->  ( ( G `  m ) `  m
) )
148144, 147syl6req 2522 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) )  =  ( ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) )  |`  ( M ... k ) ) )
149128, 148eqtrd 2505 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) )  =  ( ( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) )  |`  ( M ... k ) ) )
150149fveq1d 5881 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( (
( G `  (
w  +  1 ) )  |`  ( M ... k ) ) `  x )  =  ( ( ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) )  |`  ( M ... k ) ) `  x ) )
151 fvres 5893 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( x  e.  ( M ... k )  ->  (
( ( G `  ( w  +  1
) )  |`  ( M ... k ) ) `
 x )  =  ( ( G `  ( w  +  1
) ) `  x
) )
152 fvres 5893 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( x  e.  ( M ... k )  ->  (
( ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) )  |`  ( M ... k ) ) `  x )  =  ( ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) `
 x ) )
153151, 152eqeq12d 2486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( x  e.  ( M ... k )  ->  (
( ( ( G `
 ( w  + 
1 ) )  |`  ( M ... k ) ) `  x )  =  ( ( ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
)  |`  ( M ... k ) ) `  x )  <->  ( ( G `  ( w  +  1 ) ) `
 x )  =  ( ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) ) `  x ) ) )
154150, 153syl5ibcom 228 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( x  e.  ( M ... k
)  ->  ( ( G `  ( w  +  1 ) ) `
 x )  =  ( ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) ) `  x ) ) )
155140eqeq2d 2481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( x  =  ( k  +  1 )  <->  x  =  ( w  +  1
) ) )
156139, 135eqeltrrd 2550 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  w  e.  ( ZZ>= `  M )
)
157 peano2uz 11235 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( w  e.  ( ZZ>= `  M
)  ->  ( w  +  1 )  e.  ( ZZ>= `  M )
)
158 eluzfz2 11833 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( w  +  1 )  e.  ( ZZ>= `  M
)  ->  ( w  +  1 )  e.  ( M ... (
w  +  1 ) ) )
159 fveq2 5879 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( m  =  ( w  + 
1 )  ->  ( G `  m )  =  ( G `  ( w  +  1
) ) )
160 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( m  =  ( w  + 
1 )  ->  m  =  ( w  + 
1 ) )
161159, 160fveq12d 5885 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( m  =  ( w  + 
1 )  ->  (
( G `  m
) `  m )  =  ( ( G `
 ( w  + 
1 ) ) `  ( w  +  1
) ) )
162 eqid 2471 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) )  =  ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) )
163 fvex 5889 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( G `  ( w  +  1 ) ) `
 ( w  + 
1 ) )  e. 
_V
164161, 162, 163fvmpt 5963 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( w  +  1 )  e.  ( M ... ( w  +  1
) )  ->  (
( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) ) `  (
w  +  1 ) )  =  ( ( G `  ( w  +  1 ) ) `
 ( w  + 
1 ) ) )
165156, 157, 158, 1644syl 19 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( (
m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) `  ( w  +  1 ) )  =  ( ( G `
 ( w  + 
1 ) ) `  ( w  +  1
) ) )
166165eqcomd 2477 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( ( G `  ( w  +  1 ) ) `
 ( w  + 
1 ) )  =  ( ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) ) `  ( w  +  1
) ) )
167 fveq2 5879 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( x  =  ( w  + 
1 )  ->  (
( G `  (
w  +  1 ) ) `  x )  =  ( ( G `
 ( w  + 
1 ) ) `  ( w  +  1
) ) )
168 fveq2 5879 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( x  =  ( w  + 
1 )  ->  (
( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) ) `  x
)  =  ( ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) `  ( w  +  1 ) ) )
169167, 168eqeq12d 2486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( x  =  ( w  + 
1 )  ->  (
( ( G `  ( w  +  1
) ) `  x
)  =  ( ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) `  x )  <->  ( ( G `  (
w  +  1 ) ) `  ( w  +  1 ) )  =  ( ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) `
 ( w  + 
1 ) ) ) )
170166, 169syl5ibrcom 230 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( x  =  ( w  + 
1 )  ->  (
( G `  (
w  +  1 ) ) `  x )  =  ( ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) `
 x ) ) )
171155, 170sylbid 223 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( x  =  ( k  +  1 )  ->  (
( G `  (
w  +  1 ) ) `  x )  =  ( ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) `
 x ) ) )
172154, 171jaod 387 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( (
x  e.  ( M ... k )  \/  x  =  ( k  +  1 ) )  ->  ( ( G `
 ( w  + 
1 ) ) `  x )  =  ( ( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) ) `  x
) ) )
173143, 172sylbid 223 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( x  e.  ( M ... (
k  +  1 ) )  ->  ( ( G `  ( w  +  1 ) ) `
 x )  =  ( ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) ) `  x ) ) )
174173ralrimiv 2808 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  A. x  e.  ( M ... (
k  +  1 ) ) ( ( G `
 ( w  + 
1 ) ) `  x )  =  ( ( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) ) `  x
) )
175 ffn 5739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  -> 
( G `  (
w  +  1 ) )  Fn  ( M ... ( k  +  1 ) ) )
176175ad2antrl 742 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( G `  ( w  +  1 ) )  Fn  ( M ... ( k  +  1 ) ) )
17758, 162fnmpti 5716 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) )  Fn  ( M ... ( w  +  1
) )
178 eqfnfv2 5992 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( G `  (
w  +  1 ) )  Fn  ( M ... ( k  +  1 ) )  /\  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
)  Fn  ( M ... ( w  + 
1 ) ) )  ->  ( ( G `
 ( w  + 
1 ) )  =  ( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) )  <->  ( ( M ... ( k  +  1 ) )  =  ( M ... (
w  +  1 ) )  /\  A. x  e.  ( M ... (
k  +  1 ) ) ( ( G `
 ( w  + 
1 ) ) `  x )  =  ( ( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) ) `  x
) ) ) )
179176, 177, 178sylancl 675 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( ( G `  ( w  +  1 ) )  =  ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) )  <->  ( ( M ... ( k  +  1 ) )  =  ( M ... (
w  +  1 ) )  /\  A. x  e.  ( M ... (
k  +  1 ) ) ( ( G `
 ( w  + 
1 ) ) `  x )  =  ( ( m  e.  ( M ... ( w  +  1 ) ) 
|->  ( ( G `  m ) `  m
) ) `  x
) ) ) )
180141, 174, 179mpbir2and 936 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) ) ) )  ->  ( G `  ( w  +  1 ) )  =  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) )
181180expr 626 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A )  ->  (
( ( G `  ( w  +  1
) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) )  -> 
( G `  (
w  +  1 ) )  =  ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) ) )
182 eqeq1 2475 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( G `  w )  =  ( ( G `
 ( w  + 
1 ) )  |`  ( M ... k ) )  ->  ( ( G `  w )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) )  <->  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) )  =  ( m  e.  ( M ... w )  |->  ( ( G `  m
) `  m )
) ) )
183182imbi1d 324 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( G `  w )  =  ( ( G `
 ( w  + 
1 ) )  |`  ( M ... k ) )  ->  ( (
( G `  w
)  =  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) )  ->  ( G `  ( w  +  1
) )  =  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) )  <->  ( (
( G `  (
w  +  1 ) )  |`  ( M ... k ) )  =  ( m  e.  ( M ... w ) 
|->  ( ( G `  m ) `  m
) )  ->  ( G `  ( w  +  1 ) )  =  ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) ) ) ) )
184181, 183syl5ibrcom 230 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z
)  /\  ( G `  ( w  +  1 ) ) : ( M ... ( k  +  1 ) ) --> A )  ->  (
( G `  w
)  =  ( ( G `  ( w  +  1 ) )  |`  ( M ... k
) )  ->  (
( G `  w
)  =  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) )  ->  ( G `  ( w  +  1
) )  =  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) ) ) )
185184expimpd 614 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  w  e.  Z )  /\  k  e.  Z )  ->  (
( ( G `  ( w  +  1
) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) ) )  ->  ( ( G `  w )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) )  -> 
( G `  (
w  +  1 ) )  =  ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) ) ) )
186185ex 441 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  w  e.  Z )  ->  (
k  e.  Z  -> 
( ( ( G `
 ( w  + 
1 ) ) : ( M ... (
k  +  1 ) ) --> A  /\  ( G `  w )  =  ( ( G `
 ( w  + 
1 ) )  |`  ( M ... k ) ) )  ->  (
( G `  w
)  =  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) )  ->  ( G `  ( w  +  1
) )  =  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) ) ) ) )
18774, 119, 186rexlimd 2866 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  w  e.  Z )  ->  ( E. k  e.  Z  ( ( G `  ( w  +  1
) ) : ( M ... ( k  +  1 ) ) --> A  /\  ( G `
 w )  =  ( ( G `  ( w  +  1
) )  |`  ( M ... k ) ) )  ->  ( ( G `  w )  =  ( m  e.  ( M ... w
)  |->  ( ( G `
 m ) `  m ) )  -> 
( G `  (
w  +  1 ) )  =  ( m  e.  ( M ... ( w  +  1
) )  |->  ( ( G `  m ) `
 m ) ) ) ) )
188118, 187mpd 15 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  w  e.  Z )  ->  (
( G `  w
)  =  ( m  e.  ( M ... w )  |->  ( ( G `  m ) `
 m ) )  ->  ( G `  ( w  +  1
) )  =  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) ) )
189188expcom 442 . . . . . . . . . . . . . . . . . . 19  |-  ( w  e.  Z  ->  ( ph  ->  ( ( G `
 w )  =  ( m  e.  ( M ... w ) 
|->  ( ( G `  m ) `  m
) )  ->  ( G `  ( w  +  1 ) )  =  ( m  e.  ( M ... (
w  +  1 ) )  |->  ( ( G `
 m ) `  m ) ) ) ) )
19065, 189sylbir 218 . . . . . . . . . . . . . . . . . 18  |-  ( w  e.  ( ZZ>= `  M
)  ->  ( ph  ->  ( ( G `  w )  =  ( m  e.  ( M ... w )  |->  ( ( G `  m
) `  m )
)  ->  ( G `  ( w  +  1 ) )  =  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) ) ) )
191190a2d 28 . . . . . . . . . . . . . . . . 17  |-  ( w  e.  ( ZZ>= `  M
)  ->  ( ( ph  ->  ( G `  w )  =  ( m  e.  ( M ... w )  |->  ( ( G `  m
) `  m )
) )  ->  ( ph  ->  ( G `  ( w  +  1
) )  =  ( m  e.  ( M ... ( w  + 
1 ) )  |->  ( ( G `  m
) `  m )
) ) ) )
19225, 30, 35, 40, 63, 191uzind4 11240 . . . . . . . . . . . . . . . 16  |-  ( k  e.  ( ZZ>= `  M
)  ->  ( ph  ->  ( G `  k
)  =  ( m  e.  ( M ... k )  |->  ( ( G `  m ) `
 m ) ) ) )
193192, 64eleq2s 2567 . . . . . . . . . . . . . . 15  |-  ( k  e.  Z  ->  ( ph  ->  ( G `  k )  =  ( m  e.  ( M ... k )  |->  ( ( G `  m
) `  m )
) ) )
194193impcom 437 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  Z )  ->  ( G `  k )  =  ( m  e.  ( M ... k
)  |->  ( ( G `
 m ) `  m ) ) )
195194dmeqd 5042 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  Z )  ->  dom  ( G `  k )  =  dom  ( m  e.  ( M ... k )  |->  ( ( G `  m ) `
 m ) ) )
196 dmmptg 5339 . . . . . . . . . . . . . 14  |-  ( A. m  e.  ( M ... k ) ( ( G `  m ) `
 m )  e. 
_V  ->  dom  ( m  e.  ( M ... k
)  |->  ( ( G `
 m ) `  m ) )  =  ( M ... k
) )
19758a1i 11 . . . . . . . . . . . . . 14  |-  ( m  e.  ( M ... k )  ->  (
( G `  m
) `  m )  e.  _V )
198196, 197mprg 2770 . . . . . . . . . . . . 13  |-  dom  (
m  e.  ( M ... k )  |->  ( ( G `  m
) `  m )
)  =  ( M ... k )
199195, 198syl6eq 2521 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  Z )  ->  dom  ( G `  k )  =  ( M ... k ) )
200199eqeq1d 2473 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  Z )  ->  ( dom  ( G `  k
)  =  ( M ... n )  <->  ( M ... k )  =  ( M ... n ) ) )
201 simpr 468 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  Z )  ->  k  e.  Z )
202201, 64syl6eleq 2559 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  Z )  ->  k  e.  ( ZZ>= `  M )
)
203 fzopth 11861 . . . . . . . . . . . 12  |-  ( k  e.  ( ZZ>= `  M
)  ->  ( ( M ... k )  =  ( M ... n
)  <->  ( M  =  M  /\  k  =  n ) ) )
204202, 203syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  Z )  ->  (
( M ... k
)  =  ( M ... n )  <->  ( M  =  M  /\  k  =  n ) ) )
205200, 204bitrd 261 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  Z )  ->  ( dom  ( G `  k
)  =  ( M ... n )  <->  ( M  =  M  /\  k  =  n ) ) )
206 simpr 468 . . . . . . . . . 10  |-  ( ( M  =  M  /\  k  =  n )  ->  k  =  n )
207205, 206syl6bi 236 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  Z )  ->  ( dom  ( G `  k
)  =  ( M ... n )  -> 
k  =  n ) )
20820, 207syl5 32 . . . . . . . 8  |-  ( (
ph  /\  k  e.  Z )  ->  (
( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k )  /  g ]. ps )  ->  k  =  n ) )
209 oveq2 6316 . . . . . . . . . . . 12  |-  ( n  =  k  ->  ( M ... n )  =  ( M ... k
) )
210209feq2d 5725 . . . . . . . . . . 11  |-  ( n  =  k  ->  (
( G `  k
) : ( M ... n ) --> A  <-> 
( G `  k
) : ( M ... k ) --> A ) )
211 sdc.4 . . . . . . . . . . . 12  |-  ( n  =  k  ->  ( ps 
<->  th ) )
212211sbcbidv 3310 . . . . . . . . . . 11  |-  ( n  =  k  ->  ( [. ( G `  k
)  /  g ]. ps 
<-> 
[. ( G `  k )  /  g ]. th ) )
213210, 212anbi12d 725 . . . . . . . . . 10  |-  ( n  =  k  ->  (
( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k )  /  g ]. ps ) 
<->  ( ( G `  k ) : ( M ... k ) --> A  /\  [. ( G `  k )  /  g ]. th ) ) )
214213equcoms 1872 . . . . . . . . 9  |-  ( k  =  n  ->  (
( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k )  /  g ]. ps ) 
<->  ( ( G `  k ) : ( M ... k ) --> A  /\  [. ( G `  k )  /  g ]. th ) ) )
215214biimpcd 232 . . . . . . . 8  |-  ( ( ( G `  k
) : ( M ... n ) --> A  /\  [. ( G `
 k )  / 
g ]. ps )  -> 
( k  =  n  ->  ( ( G `
 k ) : ( M ... k
) --> A  /\  [. ( G `  k )  /  g ]. th ) ) )
216208, 215sylcom 29 . . . . . . 7  |-  ( (
ph  /\  k  e.  Z )  ->  (
( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k )  /  g ]. ps )  ->  ( ( G `
 k ) : ( M ... k
) --> A  /\  [. ( G `  k )  /  g ]. th ) ) )
217216rexlimdvw 2874 . . . . . 6  |-  ( (
ph  /\  k  e.  Z )  ->  ( E. n  e.  Z  ( ( G `  k ) : ( M ... n ) --> A  /\  [. ( G `  k )  /  g ]. ps )  ->  ( ( G `
 k ) : ( M ... k
) --> A  /\  [. ( G `  k )  /  g ]. th ) ) )
21818, 217mpd 15 . . . . 5  |-  ( (
ph  /\  k  e.  Z )  ->  (
( G `  k
) : ( M ... k ) --> A  /\  [. ( G `
 k )  / 
g ]. th ) )
219218simpld 466 . . . 4  |-  ( (
ph  /\  k  e.  Z )  ->  ( G `  k ) : ( M ... k ) --> A )
220 eluzfz2 11833 . . . . 5  |-  ( k  e.  ( ZZ>= `  M
)  ->  k  e.  ( M ... k ) )
221202, 220syl 17 . . . 4  |-  ( (
ph  /\  k  e.  Z )  ->  k  e.  ( M ... k
) )
222219, 221ffvelrnd 6038 . . 3  |-  ( (
ph  /\  k  e.  Z )  ->  (
( G `  k
) `  k )  e.  A )
22343cbvmptv 4488 . . 3  |-  ( m  e.  Z  |->  ( ( G `  m ) `
 m ) )  =  ( k  e.  Z  |->  ( ( G `
 k ) `  k ) )
2241, 222, 223fmptdf 6063 . 2  |-  ( ph  ->  ( m  e.  Z  |->  ( ( G `  m ) `  m
) ) : Z --> A )
225218simprd 470 . . . . . 6  |-  ( (
ph  /\  k  e.  Z )  ->  [. ( G `  k )  /  g ]. th )
226194, 225sbceq1dd 3261 . . . . 5  |-  ( (
ph  /\  k  e.  Z )  ->  [. (
m  e.  ( M ... k )  |->  ( ( G `  m
) `  m )
)  /  g ]. th )
227226ex 441 . . . 4  |-  ( ph  ->  ( k  e.  Z  ->  [. ( m  e.  ( M ... k
)  |->  ( ( G `
 m ) `  m ) )  / 
g ]. th ) )
2281, 227ralrimi 2800 . . 3  |-  ( ph  ->  A. k  e.  Z  [. ( m  e.  ( M ... k ) 
|->  ( ( G `  m ) `  m
) )  /  g ]. th )
229 mpteq1 4476 . . . . . 6  |-  ( ( M ... n )  =  ( M ... k )  ->  (
m  e.  ( M ... n )  |->  ( ( G `  m
) `  m )
)  =  ( m  e.  ( M ... k )  |->  ( ( G `  m ) `
 m ) ) )
230 dfsbcq 3257 . . . . . 6  |-  ( ( m  e.  ( M ... n )  |->  ( ( G `  m
) `  m )
)  =  ( m  e.  ( M ... k )  |->  ( ( G `  m ) `
 m ) )  ->  ( [. (
m  e.  ( M ... n )  |->  ( ( G `  m
) `  m )
)  /  g ]. ps 
<-> 
[. ( m  e.  ( M ... k
)  |->  ( ( G `
 m ) `  m ) )  / 
g ]. ps ) )
231209, 229, 2303syl 18 . . . . 5  |-  ( n  =  k  ->  ( [. ( m  e.  ( M ... n ) 
|->  ( ( G `  m ) `  m
) )  /  g ]. ps  <->  [. ( m  e.  ( M ... k
)  |->  ( ( G `
 m ) `  m ) )  / 
g ]. ps ) )
232211sbcbidv 3310 . . . . 5  |-  ( n  =  k  ->  ( [. ( m  e.  ( M ... k ) 
|->  ( ( G `  m ) `  m
) )  /  g ]. ps  <->  [. ( m  e.  ( M ... k
)  |->  ( ( G `
 m ) `  m ) )  / 
g ]. th ) )
233231, 232bitrd 261 . . . 4  |-  ( n  =  k  ->  ( [. ( m  e.  ( M ... n ) 
|->  ( ( G `  m ) `  m
) )  /  g ]. ps  <->  [. ( m  e.  ( M ... k
)  |->  ( ( G `
 m ) `  m ) )  / 
g ]. th ) )
234233cbvralv 3005 . . 3  |-  ( A. n  e.  Z  [. (
m  e.  ( M ... n )  |->  ( ( G `  m
) `  m )
)  /  g ]. ps 
<-> 
A. k  e.  Z  [. ( m  e.  ( M ... k ) 
|->  ( ( G `  m ) `  m
) )  /  g ]. th )
235228, 234sylibr 217 . 2  |-  ( ph  ->  A. n  e.  Z  [. ( m  e.  ( M ... n ) 
|->  ( ( G `  m ) `  m
) )  /  g ]. ps )
23672mptex 6152 . . 3  |-  ( m  e.  Z  |->  ( ( G `  m ) `
 m ) )  e.  _V
237 feq1 5720 . . . 4  |-  ( f  =  ( m  e.  Z  |->  ( ( G `
 m ) `  m ) )  -> 
( f : Z --> A 
<->  ( m  e.  Z  |->  ( ( G `  m ) `  m
) ) : Z --> A ) )
238 vex 3034 . . . . . . . 8  |-  f  e. 
_V
239238resex 5154 . . . . . . 7  |-  ( f  |`  ( M ... n
) )  e.  _V
240 sdc.2 . . . . . . 7  |-  ( g  =  ( f  |`  ( M ... n ) )  ->  ( ps  <->  ch ) )
241239, 240sbcie 3290 . . . . . 6  |-  ( [. ( f  |`  ( M ... n ) )  /  g ]. ps  <->  ch )
242 reseq1 5105 . . . . . . . 8  |-  ( f  =  ( m  e.  Z  |->  ( ( G `
 m ) `  m ) )  -> 
( f  |`  ( M ... n ) )  =  ( ( m  e.  Z  |->  ( ( G `  m ) `
 m ) )  |`  ( M ... n
) ) )
243 fzssuz 11865 . . . . . . . . . 10  |-  ( M ... n )  C_  ( ZZ>= `  M )
244243, 64sseqtr4i 3451 . . . . . . . . 9  |-  ( M ... n )  C_  Z
245 resmpt 5160 . . . . . . . . 9  |-  ( ( M ... n ) 
C_  Z  ->  (
( m  e.  Z  |->  ( ( G `  m ) `  m
) )  |`  ( M ... n ) )  =  ( m  e.  ( M ... n
)  |->  ( ( G `
 m ) `  m ) ) )
246244, 245ax-mp 5 . . . . . . . 8  |-  ( ( m  e.  Z  |->  ( ( G `  m
) `  m )
)  |`  ( M ... n ) )  =  ( m  e.  ( M ... n ) 
|->  ( ( G `  m ) `  m
) )
247242, 246syl6eq 2521 . . . . . . 7  |-  ( f  =  ( m  e.  Z  |->  ( ( G `
 m ) `  m ) )  -> 
( f  |`  ( M ... n ) )  =  ( m  e.  ( M ... n
)  |->  ( ( G `
 m ) `  m ) ) )
248247sbceq1d 3260 . . . . . 6  |-  ( f  =  ( m  e.  Z  |->  ( ( G `
 m ) `  m ) )  -> 
( [. ( f  |`  ( M ... n ) )  /  g ]. ps 
<-> 
[. ( m  e.  ( M ... n
)  |->  ( ( G `
 m ) `  m ) )  / 
g ]. ps ) )
249241, 248syl5bbr 267 . . . . 5  |-  ( f  =  ( m  e.  Z  |->  ( ( G `
 m ) `  m ) )  -> 
( ch  <->  [. ( m  e.  ( M ... n )  |->  ( ( G `  m ) `
 m ) )  /  g ]. ps ) )
250249ralbidv 2829 . . . 4  |-  ( f  =  ( m  e.  Z  |->  ( ( G `
 m ) `  m ) )  -> 
( A. n  e.  Z  ch  <->  A. n  e.  Z  [. ( m  e.  ( M ... n )  |->  ( ( G `  m ) `
 m ) )  /  g ]. ps ) )
251237, 250anbi12d 725 . . 3  |-  ( f  =  ( m  e.  Z  |->  ( ( G `
 m ) `  m ) )  -> 
( ( f : Z --> A  /\  A. n  e.  Z  ch ) 
<->  ( ( m  e.  Z  |->  ( ( G `
 m ) `  m ) ) : Z --> A  /\  A. n  e.  Z  [. (
m  e.  ( M ... n )  |->  ( ( G `  m
) `  m )
)  /  g ]. ps ) ) )
252236, 251spcev 3127 . 2  |-  ( ( ( m  e.  Z  |->  ( ( G `  m ) `  m
) ) : Z --> A  /\  A. n  e.  Z  [. ( m  e.  ( M ... n )  |->  ( ( G `  m ) `
 m ) )  /  g ]. ps )  ->  E. f ( f : Z --> A  /\  A. n  e.  Z  ch ) )
253224, 235, 252syl2anc 673 1  |-  ( ph  ->  E. f ( f : Z --> A  /\  A. n  e.  Z  ch ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 189    \/ wo 375    /\ wa 376    /\ w3a 1007    = wceq 1452   E.wex 1671   F/wnf 1675    e. wcel 1904   {cab 2457   A.wral 2756   E.wrex 2757   _Vcvv 3031   [.wsbc 3255    C_ wss 3390   {csn 3959    |-> cmpt 4454   dom cdm 4839    |` cres 4841    Fn wfn 5584   -->wf 5585   ` cfv 5589  (class class class)co 6308    |-> cmpt2 6310    ^m cmap 7490   1c1 9558    + caddc 9560   ZZcz 10961   ZZ>=cuz 11182   ...cfz 11810
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1677  ax-4 1690  ax-5 1766  ax-6 1813  ax-7 1859  ax-8 1906  ax-9 1913  ax-10 1932  ax-11 1937  ax-12 1950  ax-13 2104  ax-ext 2451  ax-rep 4508  ax-sep 4518  ax-nul 4527  ax-pow 4579  ax-pr 4639  ax-un 6602  ax-cnex 9613  ax-resscn 9614  ax-1cn 9615  ax-icn 9616  ax-addcl 9617  ax-addrcl 9618  ax-mulcl 9619  ax-mulrcl 9620  ax-mulcom 9621  ax-addass 9622  ax-mulass 9623  ax-distr 9624  ax-i2m1 9625  ax-1ne0 9626  ax-1rid 9627  ax-rnegex 9628  ax-rrecex 9629  ax-cnre 9630  ax-pre-lttri 9631  ax-pre-lttrn 9632  ax-pre-ltadd 9633  ax-pre-mulgt0 9634
This theorem depends on definitions:  df-bi 190  df-or 377  df-an 378  df-3or 1008  df-3an 1009  df-tru 1455  df-ex 1672  df-nf 1676  df-sb 1806  df-eu 2323  df-mo 2324  df-clab 2458  df-cleq 2464  df-clel 2467  df-nfc 2601  df-ne 2643  df-nel 2644  df-ral 2761  df-rex 2762  df-reu 2763  df-rab 2765  df-v 3033  df-sbc 3256  df-csb 3350  df-dif 3393  df-un 3395  df-in 3397  df-ss 3404  df-pss 3406  df-nul 3723  df-if 3873  df-pw 3944  df-sn 3960  df-pr 3962  df-tp 3964  df-op 3966  df-uni 4191  df-iun 4271  df-br 4396  df-opab 4455  df-mpt 4456  df-tr 4491  df-eprel 4750  df-id 4754  df-po 4760  df-so 4761  df-fr 4798  df-we 4800  df-xp 4845  df-rel 4846  df-cnv 4847  df-co 4848  df-dm 4849  df-rn 4850  df-res 4851  df-ima 4852  df-pred 5387  df-ord 5433  df-on 5434  df-lim 5435  df-suc 5436  df-iota 5553  df-fun 5591  df-fn 5592  df-f 5593  df-f1 5594  df-fo 5595  df-f1o 5596  df-fv 5597  df-riota 6270  df-ov 6311  df-oprab 6312  df-mpt2 6313  df-om 6712  df-1st 6812  df-2nd 6813  df-wrecs 7046  df-recs 7108  df-rdg 7146  df-er 7381  df-map 7492  df-en 7588  df-dom 7589  df-sdom 7590  df-pnf 9695  df-mnf 9696  df-xr 9697  df-ltxr 9698  df-le 9699  df-sub 9882  df-neg 9883  df-nn 10632  df-n0 10894  df-z 10962  df-uz 11183  df-fz 11811
This theorem is referenced by:  sdclem1  32136
  Copyright terms: Public domain W3C validator