MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  seqcoll Unicode version

Theorem seqcoll 11417
Description: The function  F contains a sparse set of non-zero values to be summed. The function  G is an order isomorphism from the set of non-zero values of  F to a 1-based finite sequence, and  H collects these non-zero values together. Under these conditions, the sum over the values in  H yields the same result as the sum over the original set  F. (Contributed by Mario Carneiro, 2-Apr-2014.)
Hypotheses
Ref Expression
seqcoll.1  |-  ( (
ph  /\  k  e.  S )  ->  ( Z  .+  k )  =  k )
seqcoll.1b  |-  ( (
ph  /\  k  e.  S )  ->  (
k  .+  Z )  =  k )
seqcoll.c  |-  ( (
ph  /\  ( k  e.  S  /\  n  e.  S ) )  -> 
( k  .+  n
)  e.  S )
seqcoll.a  |-  ( ph  ->  Z  e.  S )
seqcoll.2  |-  ( ph  ->  G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A ) )
seqcoll.3  |-  ( ph  ->  N  e.  ( 1 ... ( # `  A
) ) )
seqcoll.4  |-  ( ph  ->  A  C_  ( ZZ>= `  M ) )
seqcoll.5  |-  ( (
ph  /\  k  e.  ( M ... ( G `
 ( # `  A
) ) ) )  ->  ( F `  k )  e.  S
)
seqcoll.6  |-  ( (
ph  /\  k  e.  ( ( M ... ( G `  ( # `  A ) ) ) 
\  A ) )  ->  ( F `  k )  =  Z )
seqcoll.7  |-  ( (
ph  /\  n  e.  ( 1 ... ( # `
 A ) ) )  ->  ( H `  n )  =  ( F `  ( G `
 n ) ) )
Assertion
Ref Expression
seqcoll  |-  ( ph  ->  (  seq  M ( 
.+  ,  F ) `
 ( G `  N ) )  =  (  seq  1 ( 
.+  ,  H ) `
 N ) )
Distinct variable groups:    k, n, A    k, F, n    k, G, n    n, H    k, M, n    .+ , k, n    ph, k, n    S, k, n    k, Z
Allowed substitution hints:    H( k)    N( k, n)    Z( n)

Proof of Theorem seqcoll
Dummy variables  m  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 seqcoll.3 . 2  |-  ( ph  ->  N  e.  ( 1 ... ( # `  A
) ) )
2 elfznn 10835 . . . 4  |-  ( N  e.  ( 1 ... ( # `  A
) )  ->  N  e.  NN )
31, 2syl 15 . . 3  |-  ( ph  ->  N  e.  NN )
4 eleq1 2356 . . . . . 6  |-  ( y  =  1  ->  (
y  e.  ( 1 ... ( # `  A
) )  <->  1  e.  ( 1 ... ( # `
 A ) ) ) )
5 fveq2 5541 . . . . . . . 8  |-  ( y  =  1  ->  ( G `  y )  =  ( G ` 
1 ) )
65fveq2d 5545 . . . . . . 7  |-  ( y  =  1  ->  (  seq  M (  .+  ,  F ) `  ( G `  y )
)  =  (  seq 
M (  .+  ,  F ) `  ( G `  1 )
) )
7 fveq2 5541 . . . . . . 7  |-  ( y  =  1  ->  (  seq  1 (  .+  ,  H ) `  y
)  =  (  seq  1 (  .+  ,  H ) `  1
) )
86, 7eqeq12d 2310 . . . . . 6  |-  ( y  =  1  ->  (
(  seq  M (  .+  ,  F ) `  ( G `  y ) )  =  (  seq  1 (  .+  ,  H ) `  y
)  <->  (  seq  M
(  .+  ,  F
) `  ( G `  1 ) )  =  (  seq  1
(  .+  ,  H
) `  1 )
) )
94, 8imbi12d 311 . . . . 5  |-  ( y  =  1  ->  (
( y  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  y ) )  =  (  seq  1 (  .+  ,  H ) `  y
) )  <->  ( 1  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  1 )
)  =  (  seq  1 (  .+  ,  H ) `  1
) ) ) )
109imbi2d 307 . . . 4  |-  ( y  =  1  ->  (
( ph  ->  ( y  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  y )
)  =  (  seq  1 (  .+  ,  H ) `  y
) ) )  <->  ( ph  ->  ( 1  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  1 ) )  =  (  seq  1 (  .+  ,  H ) `  1
) ) ) ) )
11 eleq1 2356 . . . . . 6  |-  ( y  =  m  ->  (
y  e.  ( 1 ... ( # `  A
) )  <->  m  e.  ( 1 ... ( # `
 A ) ) ) )
12 fveq2 5541 . . . . . . . 8  |-  ( y  =  m  ->  ( G `  y )  =  ( G `  m ) )
1312fveq2d 5545 . . . . . . 7  |-  ( y  =  m  ->  (  seq  M (  .+  ,  F ) `  ( G `  y )
)  =  (  seq 
M (  .+  ,  F ) `  ( G `  m )
) )
14 fveq2 5541 . . . . . . 7  |-  ( y  =  m  ->  (  seq  1 (  .+  ,  H ) `  y
)  =  (  seq  1 (  .+  ,  H ) `  m
) )
1513, 14eqeq12d 2310 . . . . . 6  |-  ( y  =  m  ->  (
(  seq  M (  .+  ,  F ) `  ( G `  y ) )  =  (  seq  1 (  .+  ,  H ) `  y
)  <->  (  seq  M
(  .+  ,  F
) `  ( G `  m ) )  =  (  seq  1 ( 
.+  ,  H ) `
 m ) ) )
1611, 15imbi12d 311 . . . . 5  |-  ( y  =  m  ->  (
( y  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  y ) )  =  (  seq  1 (  .+  ,  H ) `  y
) )  <->  ( m  e.  ( 1 ... ( # `
 A ) )  ->  (  seq  M
(  .+  ,  F
) `  ( G `  m ) )  =  (  seq  1 ( 
.+  ,  H ) `
 m ) ) ) )
1716imbi2d 307 . . . 4  |-  ( y  =  m  ->  (
( ph  ->  ( y  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  y )
)  =  (  seq  1 (  .+  ,  H ) `  y
) ) )  <->  ( ph  ->  ( m  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  m ) )  =  (  seq  1 (  .+  ,  H ) `  m
) ) ) ) )
18 eleq1 2356 . . . . . 6  |-  ( y  =  ( m  + 
1 )  ->  (
y  e.  ( 1 ... ( # `  A
) )  <->  ( m  +  1 )  e.  ( 1 ... ( # `
 A ) ) ) )
19 fveq2 5541 . . . . . . . 8  |-  ( y  =  ( m  + 
1 )  ->  ( G `  y )  =  ( G `  ( m  +  1
) ) )
2019fveq2d 5545 . . . . . . 7  |-  ( y  =  ( m  + 
1 )  ->  (  seq  M (  .+  ,  F ) `  ( G `  y )
)  =  (  seq 
M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) ) )
21 fveq2 5541 . . . . . . 7  |-  ( y  =  ( m  + 
1 )  ->  (  seq  1 (  .+  ,  H ) `  y
)  =  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) ) )
2220, 21eqeq12d 2310 . . . . . 6  |-  ( y  =  ( m  + 
1 )  ->  (
(  seq  M (  .+  ,  F ) `  ( G `  y ) )  =  (  seq  1 (  .+  ,  H ) `  y
)  <->  (  seq  M
(  .+  ,  F
) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 ( 
.+  ,  H ) `
 ( m  + 
1 ) ) ) )
2318, 22imbi12d 311 . . . . 5  |-  ( y  =  ( m  + 
1 )  ->  (
( y  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  y ) )  =  (  seq  1 (  .+  ,  H ) `  y
) )  <->  ( (
m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) ) ) ) )
2423imbi2d 307 . . . 4  |-  ( y  =  ( m  + 
1 )  ->  (
( ph  ->  ( y  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  y )
)  =  (  seq  1 (  .+  ,  H ) `  y
) ) )  <->  ( ph  ->  ( ( m  + 
1 )  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) ) ) ) ) )
25 eleq1 2356 . . . . . 6  |-  ( y  =  N  ->  (
y  e.  ( 1 ... ( # `  A
) )  <->  N  e.  ( 1 ... ( # `
 A ) ) ) )
26 fveq2 5541 . . . . . . . 8  |-  ( y  =  N  ->  ( G `  y )  =  ( G `  N ) )
2726fveq2d 5545 . . . . . . 7  |-  ( y  =  N  ->  (  seq  M (  .+  ,  F ) `  ( G `  y )
)  =  (  seq 
M (  .+  ,  F ) `  ( G `  N )
) )
28 fveq2 5541 . . . . . . 7  |-  ( y  =  N  ->  (  seq  1 (  .+  ,  H ) `  y
)  =  (  seq  1 (  .+  ,  H ) `  N
) )
2927, 28eqeq12d 2310 . . . . . 6  |-  ( y  =  N  ->  (
(  seq  M (  .+  ,  F ) `  ( G `  y ) )  =  (  seq  1 (  .+  ,  H ) `  y
)  <->  (  seq  M
(  .+  ,  F
) `  ( G `  N ) )  =  (  seq  1 ( 
.+  ,  H ) `
 N ) ) )
3025, 29imbi12d 311 . . . . 5  |-  ( y  =  N  ->  (
( y  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  y ) )  =  (  seq  1 (  .+  ,  H ) `  y
) )  <->  ( N  e.  ( 1 ... ( # `
 A ) )  ->  (  seq  M
(  .+  ,  F
) `  ( G `  N ) )  =  (  seq  1 ( 
.+  ,  H ) `
 N ) ) ) )
3130imbi2d 307 . . . 4  |-  ( y  =  N  ->  (
( ph  ->  ( y  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  y )
)  =  (  seq  1 (  .+  ,  H ) `  y
) ) )  <->  ( ph  ->  ( N  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  N ) )  =  (  seq  1 (  .+  ,  H ) `  N
) ) ) ) )
32 seqcoll.1 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  S )  ->  ( Z  .+  k )  =  k )
33 seqcoll.a . . . . . . . . 9  |-  ( ph  ->  Z  e.  S )
34 seqcoll.4 . . . . . . . . . 10  |-  ( ph  ->  A  C_  ( ZZ>= `  M ) )
35 seqcoll.2 . . . . . . . . . . . . 13  |-  ( ph  ->  G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A ) )
36 isof1o 5838 . . . . . . . . . . . . 13  |-  ( G 
Isom  <  ,  <  (
( 1 ... ( # `
 A ) ) ,  A )  ->  G : ( 1 ... ( # `  A
) ) -1-1-onto-> A )
3735, 36syl 15 . . . . . . . . . . . 12  |-  ( ph  ->  G : ( 1 ... ( # `  A
) ) -1-1-onto-> A )
38 f1of 5488 . . . . . . . . . . . 12  |-  ( G : ( 1 ... ( # `  A
) ) -1-1-onto-> A  ->  G :
( 1 ... ( # `
 A ) ) --> A )
3937, 38syl 15 . . . . . . . . . . 11  |-  ( ph  ->  G : ( 1 ... ( # `  A
) ) --> A )
40 elfzuz2 10817 . . . . . . . . . . . . 13  |-  ( N  e.  ( 1 ... ( # `  A
) )  ->  ( # `
 A )  e.  ( ZZ>= `  1 )
)
411, 40syl 15 . . . . . . . . . . . 12  |-  ( ph  ->  ( # `  A
)  e.  ( ZZ>= ` 
1 ) )
42 eluzfz1 10819 . . . . . . . . . . . 12  |-  ( (
# `  A )  e.  ( ZZ>= `  1 )  ->  1  e.  ( 1 ... ( # `  A
) ) )
4341, 42syl 15 . . . . . . . . . . 11  |-  ( ph  ->  1  e.  ( 1 ... ( # `  A
) ) )
44 ffvelrn 5679 . . . . . . . . . . 11  |-  ( ( G : ( 1 ... ( # `  A
) ) --> A  /\  1  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  1
)  e.  A )
4539, 43, 44syl2anc 642 . . . . . . . . . 10  |-  ( ph  ->  ( G `  1
)  e.  A )
4634, 45sseldd 3194 . . . . . . . . 9  |-  ( ph  ->  ( G `  1
)  e.  ( ZZ>= `  M ) )
47 eluzle 10256 . . . . . . . . . . . . 13  |-  ( (
# `  A )  e.  ( ZZ>= `  1 )  ->  1  <_  ( # `  A
) )
4841, 47syl 15 . . . . . . . . . . . 12  |-  ( ph  ->  1  <_  ( # `  A
) )
49 elfzelz 10814 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( 1 ... ( # `  A
) )  ->  k  e.  ZZ )
5049ssriv 3197 . . . . . . . . . . . . . . . 16  |-  ( 1 ... ( # `  A
) )  C_  ZZ
51 zssre 10047 . . . . . . . . . . . . . . . 16  |-  ZZ  C_  RR
5250, 51sstri 3201 . . . . . . . . . . . . . . 15  |-  ( 1 ... ( # `  A
) )  C_  RR
5352a1i 10 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( 1 ... ( # `
 A ) ) 
C_  RR )
54 ressxr 8892 . . . . . . . . . . . . . 14  |-  RR  C_  RR*
5553, 54syl6ss 3204 . . . . . . . . . . . . 13  |-  ( ph  ->  ( 1 ... ( # `
 A ) ) 
C_  RR* )
56 eluzelre 10255 . . . . . . . . . . . . . . . 16  |-  ( k  e.  ( ZZ>= `  M
)  ->  k  e.  RR )
5756ssriv 3197 . . . . . . . . . . . . . . 15  |-  ( ZZ>= `  M )  C_  RR
5834, 57syl6ss 3204 . . . . . . . . . . . . . 14  |-  ( ph  ->  A  C_  RR )
5958, 54syl6ss 3204 . . . . . . . . . . . . 13  |-  ( ph  ->  A  C_  RR* )
60 eluzfz2 10820 . . . . . . . . . . . . . 14  |-  ( (
# `  A )  e.  ( ZZ>= `  1 )  ->  ( # `  A
)  e.  ( 1 ... ( # `  A
) ) )
6141, 60syl 15 . . . . . . . . . . . . 13  |-  ( ph  ->  ( # `  A
)  e.  ( 1 ... ( # `  A
) ) )
62 leisorel 11414 . . . . . . . . . . . . 13  |-  ( ( G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A )  /\  ( ( 1 ... ( # `  A
) )  C_  RR*  /\  A  C_ 
RR* )  /\  (
1  e.  ( 1 ... ( # `  A
) )  /\  ( # `
 A )  e.  ( 1 ... ( # `
 A ) ) ) )  ->  (
1  <_  ( # `  A
)  <->  ( G ` 
1 )  <_  ( G `  ( # `  A
) ) ) )
6335, 55, 59, 43, 61, 62syl122anc 1191 . . . . . . . . . . . 12  |-  ( ph  ->  ( 1  <_  ( # `
 A )  <->  ( G `  1 )  <_ 
( G `  ( # `
 A ) ) ) )
6448, 63mpbid 201 . . . . . . . . . . 11  |-  ( ph  ->  ( G `  1
)  <_  ( G `  ( # `  A
) ) )
65 ffvelrn 5679 . . . . . . . . . . . . . . 15  |-  ( ( G : ( 1 ... ( # `  A
) ) --> A  /\  ( # `  A )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  ( # `
 A ) )  e.  A )
6639, 61, 65syl2anc 642 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( G `  ( # `
 A ) )  e.  A )
6734, 66sseldd 3194 . . . . . . . . . . . . 13  |-  ( ph  ->  ( G `  ( # `
 A ) )  e.  ( ZZ>= `  M
) )
68 eluzelz 10254 . . . . . . . . . . . . 13  |-  ( ( G `  ( # `  A ) )  e.  ( ZZ>= `  M )  ->  ( G `  ( # `
 A ) )  e.  ZZ )
6967, 68syl 15 . . . . . . . . . . . 12  |-  ( ph  ->  ( G `  ( # `
 A ) )  e.  ZZ )
70 elfz5 10806 . . . . . . . . . . . 12  |-  ( ( ( G `  1
)  e.  ( ZZ>= `  M )  /\  ( G `  ( # `  A
) )  e.  ZZ )  ->  ( ( G `
 1 )  e.  ( M ... ( G `  ( # `  A
) ) )  <->  ( G `  1 )  <_ 
( G `  ( # `
 A ) ) ) )
7146, 69, 70syl2anc 642 . . . . . . . . . . 11  |-  ( ph  ->  ( ( G ` 
1 )  e.  ( M ... ( G `
 ( # `  A
) ) )  <->  ( G `  1 )  <_ 
( G `  ( # `
 A ) ) ) )
7264, 71mpbird 223 . . . . . . . . . 10  |-  ( ph  ->  ( G `  1
)  e.  ( M ... ( G `  ( # `  A ) ) ) )
73 fveq2 5541 . . . . . . . . . . . . 13  |-  ( k  =  ( G ` 
1 )  ->  ( F `  k )  =  ( F `  ( G `  1 ) ) )
7473eleq1d 2362 . . . . . . . . . . . 12  |-  ( k  =  ( G ` 
1 )  ->  (
( F `  k
)  e.  S  <->  ( F `  ( G `  1
) )  e.  S
) )
7574imbi2d 307 . . . . . . . . . . 11  |-  ( k  =  ( G ` 
1 )  ->  (
( ph  ->  ( F `
 k )  e.  S )  <->  ( ph  ->  ( F `  ( G `  1 )
)  e.  S ) ) )
76 seqcoll.5 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  ( M ... ( G `
 ( # `  A
) ) ) )  ->  ( F `  k )  e.  S
)
7776expcom 424 . . . . . . . . . . 11  |-  ( k  e.  ( M ... ( G `  ( # `  A ) ) )  ->  ( ph  ->  ( F `  k )  e.  S ) )
7875, 77vtoclga 2862 . . . . . . . . . 10  |-  ( ( G `  1 )  e.  ( M ... ( G `  ( # `  A ) ) )  ->  ( ph  ->  ( F `  ( G `
 1 ) )  e.  S ) )
7972, 78mpcom 32 . . . . . . . . 9  |-  ( ph  ->  ( F `  ( G `  1 )
)  e.  S )
80 eluzelz 10254 . . . . . . . . . . . . . . . . . 18  |-  ( ( G `  1 )  e.  ( ZZ>= `  M
)  ->  ( G `  1 )  e.  ZZ )
8146, 80syl 15 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( G `  1
)  e.  ZZ )
82 peano2zm 10078 . . . . . . . . . . . . . . . . 17  |-  ( ( G `  1 )  e.  ZZ  ->  (
( G `  1
)  -  1 )  e.  ZZ )
8381, 82syl 15 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( G ` 
1 )  -  1 )  e.  ZZ )
8483zred 10133 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( G ` 
1 )  -  1 )  e.  RR )
8581zred 10133 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( G `  1
)  e.  RR )
8669zred 10133 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( G `  ( # `
 A ) )  e.  RR )
8785lem1d 9706 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( G ` 
1 )  -  1 )  <_  ( G `  1 ) )
8884, 85, 86, 87, 64letrd 8989 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( G ` 
1 )  -  1 )  <_  ( G `  ( # `  A
) ) )
89 eluz 10257 . . . . . . . . . . . . . . 15  |-  ( ( ( ( G ` 
1 )  -  1 )  e.  ZZ  /\  ( G `  ( # `  A ) )  e.  ZZ )  ->  (
( G `  ( # `
 A ) )  e.  ( ZZ>= `  (
( G `  1
)  -  1 ) )  <->  ( ( G `
 1 )  - 
1 )  <_  ( G `  ( # `  A
) ) ) )
9083, 69, 89syl2anc 642 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( G `  ( # `  A ) )  e.  ( ZZ>= `  ( ( G ` 
1 )  -  1 ) )  <->  ( ( G `  1 )  -  1 )  <_ 
( G `  ( # `
 A ) ) ) )
9188, 90mpbird 223 . . . . . . . . . . . . 13  |-  ( ph  ->  ( G `  ( # `
 A ) )  e.  ( ZZ>= `  (
( G `  1
)  -  1 ) ) )
92 fzss2 10847 . . . . . . . . . . . . 13  |-  ( ( G `  ( # `  A ) )  e.  ( ZZ>= `  ( ( G `  1 )  -  1 ) )  ->  ( M ... ( ( G ` 
1 )  -  1 ) )  C_  ( M ... ( G `  ( # `  A ) ) ) )
9391, 92syl 15 . . . . . . . . . . . 12  |-  ( ph  ->  ( M ... (
( G `  1
)  -  1 ) )  C_  ( M ... ( G `  ( # `
 A ) ) ) )
9493sselda 3193 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  ( M ... ( ( G `  1 )  -  1 ) ) )  ->  k  e.  ( M ... ( G `
 ( # `  A
) ) ) )
95 eluzel2 10251 . . . . . . . . . . . . . . 15  |-  ( ( G `  1 )  e.  ( ZZ>= `  M
)  ->  M  e.  ZZ )
9646, 95syl 15 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  ZZ )
97 elfzm11 10869 . . . . . . . . . . . . . 14  |-  ( ( M  e.  ZZ  /\  ( G `  1 )  e.  ZZ )  -> 
( k  e.  ( M ... ( ( G `  1 )  -  1 ) )  <-> 
( k  e.  ZZ  /\  M  <_  k  /\  k  <  ( G ` 
1 ) ) ) )
9896, 81, 97syl2anc 642 . . . . . . . . . . . . 13  |-  ( ph  ->  ( k  e.  ( M ... ( ( G `  1 )  -  1 ) )  <-> 
( k  e.  ZZ  /\  M  <_  k  /\  k  <  ( G ` 
1 ) ) ) )
99 simp3 957 . . . . . . . . . . . . . 14  |-  ( ( k  e.  ZZ  /\  M  <_  k  /\  k  <  ( G `  1
) )  ->  k  <  ( G `  1
) )
100 f1ocnv 5501 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( G : ( 1 ... ( # `  A
) ) -1-1-onto-> A  ->  `' G : A -1-1-onto-> ( 1 ... ( # `
 A ) ) )
10137, 100syl 15 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  `' G : A -1-1-onto-> ( 1 ... ( # `  A
) ) )
102 f1of 5488 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( `' G : A -1-1-onto-> ( 1 ... ( # `  A
) )  ->  `' G : A --> ( 1 ... ( # `  A
) ) )
103101, 102syl 15 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  `' G : A --> ( 1 ... ( # `  A
) ) )
104 ffvelrn 5679 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( `' G : A --> ( 1 ... ( # `  A
) )  /\  k  e.  A )  ->  ( `' G `  k )  e.  ( 1 ... ( # `  A
) ) )
105103, 104sylan 457 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  k  e.  A )  ->  ( `' G `  k )  e.  ( 1 ... ( # `  A
) ) )
106 elfznn 10835 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( `' G `  k )  e.  ( 1 ... ( # `  A
) )  ->  ( `' G `  k )  e.  NN )
107105, 106syl 15 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  A )  ->  ( `' G `  k )  e.  NN )
108107nnge1d 9804 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  A )  ->  1  <_  ( `' G `  k ) )
10935adantr 451 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  A )  ->  G  Isom  <  ,  <  (
( 1 ... ( # `
 A ) ) ,  A ) )
11055adantr 451 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  A )  ->  (
1 ... ( # `  A
) )  C_  RR* )
11159adantr 451 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  A )  ->  A  C_ 
RR* )
11243adantr 451 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  k  e.  A )  ->  1  e.  ( 1 ... ( # `
 A ) ) )
113 leisorel 11414 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A )  /\  ( ( 1 ... ( # `  A
) )  C_  RR*  /\  A  C_ 
RR* )  /\  (
1  e.  ( 1 ... ( # `  A
) )  /\  ( `' G `  k )  e.  ( 1 ... ( # `  A
) ) ) )  ->  ( 1  <_ 
( `' G `  k )  <->  ( G `  1 )  <_ 
( G `  ( `' G `  k ) ) ) )
114109, 110, 111, 112, 105, 113syl122anc 1191 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  A )  ->  (
1  <_  ( `' G `  k )  <->  ( G `  1 )  <_  ( G `  ( `' G `  k ) ) ) )
115108, 114mpbid 201 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  A )  ->  ( G `  1 )  <_  ( G `  ( `' G `  k ) ) )
116 f1ocnvfv2 5809 . . . . . . . . . . . . . . . . . . 19  |-  ( ( G : ( 1 ... ( # `  A
) ) -1-1-onto-> A  /\  k  e.  A )  ->  ( G `  ( `' G `  k )
)  =  k )
11737, 116sylan 457 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  A )  ->  ( G `  ( `' G `  k )
)  =  k )
118115, 117breqtrd 4063 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  A )  ->  ( G `  1 )  <_  k )
11985adantr 451 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  A )  ->  ( G `  1 )  e.  RR )
12058sselda 3193 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  A )  ->  k  e.  RR )
121119, 120lenltd 8981 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  A )  ->  (
( G `  1
)  <_  k  <->  -.  k  <  ( G `  1
) ) )
122118, 121mpbid 201 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  k  e.  A )  ->  -.  k  <  ( G ` 
1 ) )
123122ex 423 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( k  e.  A  ->  -.  k  <  ( G `  1 )
) )
124123con2d 107 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( k  <  ( G `  1 )  ->  -.  k  e.  A
) )
12599, 124syl5 28 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( k  e.  ZZ  /\  M  <_ 
k  /\  k  <  ( G `  1 ) )  ->  -.  k  e.  A ) )
12698, 125sylbid 206 . . . . . . . . . . . 12  |-  ( ph  ->  ( k  e.  ( M ... ( ( G `  1 )  -  1 ) )  ->  -.  k  e.  A ) )
127126imp 418 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  ( M ... ( ( G `  1 )  -  1 ) ) )  ->  -.  k  e.  A )
128 eldif 3175 . . . . . . . . . . 11  |-  ( k  e.  ( ( M ... ( G `  ( # `  A ) ) )  \  A
)  <->  ( k  e.  ( M ... ( G `  ( # `  A
) ) )  /\  -.  k  e.  A
) )
12994, 127, 128sylanbrc 645 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  ( M ... ( ( G `  1 )  -  1 ) ) )  ->  k  e.  ( ( M ... ( G `  ( # `  A ) ) ) 
\  A ) )
130 seqcoll.6 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  ( ( M ... ( G `  ( # `  A ) ) ) 
\  A ) )  ->  ( F `  k )  =  Z )
131129, 130syldan 456 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  ( M ... ( ( G `  1 )  -  1 ) ) )  ->  ( F `  k )  =  Z )
13232, 33, 46, 79, 131seqid 11107 . . . . . . . 8  |-  ( ph  ->  (  seq  M ( 
.+  ,  F )  |`  ( ZZ>= `  ( G `  1 ) ) )  =  seq  ( G `  1 )
(  .+  ,  F
) )
133132fveq1d 5543 . . . . . . 7  |-  ( ph  ->  ( (  seq  M
(  .+  ,  F
)  |`  ( ZZ>= `  ( G `  1 )
) ) `  ( G `  1 )
)  =  (  seq  ( G `  1
) (  .+  ,  F ) `  ( G `  1 )
) )
134 uzid 10258 . . . . . . . . 9  |-  ( ( G `  1 )  e.  ZZ  ->  ( G `  1 )  e.  ( ZZ>= `  ( G `  1 ) ) )
13581, 134syl 15 . . . . . . . 8  |-  ( ph  ->  ( G `  1
)  e.  ( ZZ>= `  ( G `  1 ) ) )
136 fvres 5558 . . . . . . . 8  |-  ( ( G `  1 )  e.  ( ZZ>= `  ( G `  1 )
)  ->  ( (  seq  M (  .+  ,  F )  |`  ( ZZ>=
`  ( G ` 
1 ) ) ) `
 ( G ` 
1 ) )  =  (  seq  M ( 
.+  ,  F ) `
 ( G ` 
1 ) ) )
137135, 136syl 15 . . . . . . 7  |-  ( ph  ->  ( (  seq  M
(  .+  ,  F
)  |`  ( ZZ>= `  ( G `  1 )
) ) `  ( G `  1 )
)  =  (  seq 
M (  .+  ,  F ) `  ( G `  1 )
) )
138 seq1 11075 . . . . . . . . 9  |-  ( ( G `  1 )  e.  ZZ  ->  (  seq  ( G `  1
) (  .+  ,  F ) `  ( G `  1 )
)  =  ( F `
 ( G ` 
1 ) ) )
13981, 138syl 15 . . . . . . . 8  |-  ( ph  ->  (  seq  ( G `
 1 ) ( 
.+  ,  F ) `
 ( G ` 
1 ) )  =  ( F `  ( G `  1 )
) )
140 fveq2 5541 . . . . . . . . . . . 12  |-  ( n  =  1  ->  ( H `  n )  =  ( H ` 
1 ) )
141 fveq2 5541 . . . . . . . . . . . . 13  |-  ( n  =  1  ->  ( G `  n )  =  ( G ` 
1 ) )
142141fveq2d 5545 . . . . . . . . . . . 12  |-  ( n  =  1  ->  ( F `  ( G `  n ) )  =  ( F `  ( G `  1 )
) )
143140, 142eqeq12d 2310 . . . . . . . . . . 11  |-  ( n  =  1  ->  (
( H `  n
)  =  ( F `
 ( G `  n ) )  <->  ( H `  1 )  =  ( F `  ( G `  1 )
) ) )
144143imbi2d 307 . . . . . . . . . 10  |-  ( n  =  1  ->  (
( ph  ->  ( H `
 n )  =  ( F `  ( G `  n )
) )  <->  ( ph  ->  ( H `  1
)  =  ( F `
 ( G ` 
1 ) ) ) ) )
145 seqcoll.7 . . . . . . . . . . 11  |-  ( (
ph  /\  n  e.  ( 1 ... ( # `
 A ) ) )  ->  ( H `  n )  =  ( F `  ( G `
 n ) ) )
146145expcom 424 . . . . . . . . . 10  |-  ( n  e.  ( 1 ... ( # `  A
) )  ->  ( ph  ->  ( H `  n )  =  ( F `  ( G `
 n ) ) ) )
147144, 146vtoclga 2862 . . . . . . . . 9  |-  ( 1  e.  ( 1 ... ( # `  A
) )  ->  ( ph  ->  ( H ` 
1 )  =  ( F `  ( G `
 1 ) ) ) )
14843, 147mpcom 32 . . . . . . . 8  |-  ( ph  ->  ( H `  1
)  =  ( F `
 ( G ` 
1 ) ) )
149139, 148eqtr4d 2331 . . . . . . 7  |-  ( ph  ->  (  seq  ( G `
 1 ) ( 
.+  ,  F ) `
 ( G ` 
1 ) )  =  ( H `  1
) )
150133, 137, 1493eqtr3d 2336 . . . . . 6  |-  ( ph  ->  (  seq  M ( 
.+  ,  F ) `
 ( G ` 
1 ) )  =  ( H `  1
) )
151 1z 10069 . . . . . . 7  |-  1  e.  ZZ
152 seq1 11075 . . . . . . 7  |-  ( 1  e.  ZZ  ->  (  seq  1 (  .+  ,  H ) `  1
)  =  ( H `
 1 ) )
153151, 152ax-mp 8 . . . . . 6  |-  (  seq  1 (  .+  ,  H ) `  1
)  =  ( H `
 1 )
154150, 153syl6eqr 2346 . . . . 5  |-  ( ph  ->  (  seq  M ( 
.+  ,  F ) `
 ( G ` 
1 ) )  =  (  seq  1 ( 
.+  ,  H ) `
 1 ) )
155154a1d 22 . . . 4  |-  ( ph  ->  ( 1  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  1 ) )  =  (  seq  1 (  .+  ,  H ) `  1
) ) )
156 simplr 731 . . . . . . . . . . 11  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  m  e.  NN )
157 nnuz 10279 . . . . . . . . . . 11  |-  NN  =  ( ZZ>= `  1 )
158156, 157syl6eleq 2386 . . . . . . . . . 10  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  m  e.  ( ZZ>= ` 
1 ) )
159 nnz 10061 . . . . . . . . . . . 12  |-  ( m  e.  NN  ->  m  e.  ZZ )
160159ad2antlr 707 . . . . . . . . . . 11  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  m  e.  ZZ )
161 elfzuz3 10811 . . . . . . . . . . . 12  |-  ( ( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  ( # `
 A )  e.  ( ZZ>= `  ( m  +  1 ) ) )
162161adantl 452 . . . . . . . . . . 11  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( # `  A )  e.  ( ZZ>= `  (
m  +  1 ) ) )
163 peano2uzr 10290 . . . . . . . . . . 11  |-  ( ( m  e.  ZZ  /\  ( # `  A )  e.  ( ZZ>= `  (
m  +  1 ) ) )  ->  ( # `
 A )  e.  ( ZZ>= `  m )
)
164160, 162, 163syl2anc 642 . . . . . . . . . 10  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( # `  A )  e.  ( ZZ>= `  m
) )
165 elfzuzb 10808 . . . . . . . . . 10  |-  ( m  e.  ( 1 ... ( # `  A
) )  <->  ( m  e.  ( ZZ>= `  1 )  /\  ( # `  A
)  e.  ( ZZ>= `  m ) ) )
166158, 164, 165sylanbrc 645 . . . . . . . . 9  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  m  e.  ( 1 ... ( # `  A
) ) )
167166ex 423 . . . . . . . 8  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  m  e.  ( 1 ... ( # `
 A ) ) ) )
168167imim1d 69 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( m  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  m )
)  =  (  seq  1 (  .+  ,  H ) `  m
) )  ->  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  m )
)  =  (  seq  1 (  .+  ,  H ) `  m
) ) ) )
169 oveq1 5881 . . . . . . . . . 10  |-  ( (  seq  M (  .+  ,  F ) `  ( G `  m )
)  =  (  seq  1 (  .+  ,  H ) `  m
)  ->  ( (  seq  M (  .+  ,  F ) `  ( G `  m )
)  .+  ( H `  ( m  +  1 ) ) )  =  ( (  seq  1
(  .+  ,  H
) `  m )  .+  ( H `  (
m  +  1 ) ) ) )
170 simpll 730 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  ph )
171 seqcoll.1b . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  S )  ->  (
k  .+  Z )  =  k )
172170, 171sylan 457 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  S )  ->  ( k  .+  Z
)  =  k )
17334ad2antrr 706 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  A  C_  ( ZZ>= `  M
) )
17439ad2antrr 706 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  G : ( 1 ... ( # `  A
) ) --> A )
175 ffvelrn 5679 . . . . . . . . . . . . . . . 16  |-  ( ( G : ( 1 ... ( # `  A
) ) --> A  /\  m  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  m
)  e.  A )
176174, 166, 175syl2anc 642 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  m
)  e.  A )
177173, 176sseldd 3194 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  m
)  e.  ( ZZ>= `  M ) )
178 nnre 9769 . . . . . . . . . . . . . . . . . . 19  |-  ( m  e.  NN  ->  m  e.  RR )
179178ad2antlr 707 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  m  e.  RR )
180179ltp1d 9703 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  m  <  ( m  + 
1 ) )
18135ad2antrr 706 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A ) )
182 simpr 447 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )
183 isorel 5839 . . . . . . . . . . . . . . . . . 18  |-  ( ( G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A )  /\  ( m  e.  (
1 ... ( # `  A
) )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) ) )  ->  ( m  < 
( m  +  1 )  <->  ( G `  m )  <  ( G `  ( m  +  1 ) ) ) )
184181, 166, 182, 183syl12anc 1180 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( m  <  (
m  +  1 )  <-> 
( G `  m
)  <  ( G `  ( m  +  1 ) ) ) )
185180, 184mpbid 201 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  m
)  <  ( G `  ( m  +  1 ) ) )
186 eluzelz 10254 . . . . . . . . . . . . . . . . . 18  |-  ( ( G `  m )  e.  ( ZZ>= `  M
)  ->  ( G `  m )  e.  ZZ )
187177, 186syl 15 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  m
)  e.  ZZ )
188 ffvelrn 5679 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( G : ( 1 ... ( # `  A
) ) --> A  /\  ( m  +  1
)  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  (
m  +  1 ) )  e.  A )
189174, 182, 188syl2anc 642 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  (
m  +  1 ) )  e.  A )
190173, 189sseldd 3194 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  (
m  +  1 ) )  e.  ( ZZ>= `  M ) )
191 eluzelz 10254 . . . . . . . . . . . . . . . . . 18  |-  ( ( G `  ( m  +  1 ) )  e.  ( ZZ>= `  M
)  ->  ( G `  ( m  +  1 ) )  e.  ZZ )
192190, 191syl 15 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  (
m  +  1 ) )  e.  ZZ )
193 zltlem1 10086 . . . . . . . . . . . . . . . . 17  |-  ( ( ( G `  m
)  e.  ZZ  /\  ( G `  ( m  +  1 ) )  e.  ZZ )  -> 
( ( G `  m )  <  ( G `  ( m  +  1 ) )  <-> 
( G `  m
)  <_  ( ( G `  ( m  +  1 ) )  -  1 ) ) )
194187, 192, 193syl2anc 642 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  m )  <  ( G `  ( m  +  1 ) )  <-> 
( G `  m
)  <_  ( ( G `  ( m  +  1 ) )  -  1 ) ) )
195185, 194mpbid 201 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  m
)  <_  ( ( G `  ( m  +  1 ) )  -  1 ) )
196 peano2zm 10078 . . . . . . . . . . . . . . . . 17  |-  ( ( G `  ( m  +  1 ) )  e.  ZZ  ->  (
( G `  (
m  +  1 ) )  -  1 )  e.  ZZ )
197192, 196syl 15 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  ( m  +  1
) )  -  1 )  e.  ZZ )
198 eluz 10257 . . . . . . . . . . . . . . . 16  |-  ( ( ( G `  m
)  e.  ZZ  /\  ( ( G `  ( m  +  1
) )  -  1 )  e.  ZZ )  ->  ( ( ( G `  ( m  +  1 ) )  -  1 )  e.  ( ZZ>= `  ( G `  m ) )  <->  ( G `  m )  <_  (
( G `  (
m  +  1 ) )  -  1 ) ) )
199187, 197, 198syl2anc 642 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( ( G `
 ( m  + 
1 ) )  - 
1 )  e.  (
ZZ>= `  ( G `  m ) )  <->  ( G `  m )  <_  (
( G `  (
m  +  1 ) )  -  1 ) ) )
200195, 199mpbird 223 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  ( m  +  1
) )  -  1 )  e.  ( ZZ>= `  ( G `  m ) ) )
201197zred 10133 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  ( m  +  1
) )  -  1 )  e.  RR )
202192zred 10133 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  (
m  +  1 ) )  e.  RR )
20386ad2antrr 706 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  ( # `
 A ) )  e.  RR )
204202lem1d 9706 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  ( m  +  1
) )  -  1 )  <_  ( G `  ( m  +  1 ) ) )
205 elfzle2 10816 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (
m  +  1 )  <_  ( # `  A
) )
206205adantl 452 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( m  +  1 )  <_  ( # `  A
) )
20755ad2antrr 706 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( 1 ... ( # `
 A ) ) 
C_  RR* )
20859ad2antrr 706 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  A  C_  RR* )
20961ad2antrr 706 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( # `  A )  e.  ( 1 ... ( # `  A
) ) )
210 leisorel 11414 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A )  /\  ( ( 1 ... ( # `  A
) )  C_  RR*  /\  A  C_ 
RR* )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  ( # `
 A )  e.  ( 1 ... ( # `
 A ) ) ) )  ->  (
( m  +  1 )  <_  ( # `  A
)  <->  ( G `  ( m  +  1
) )  <_  ( G `  ( # `  A
) ) ) )
211181, 207, 208, 182, 209, 210syl122anc 1191 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( m  + 
1 )  <_  ( # `
 A )  <->  ( G `  ( m  +  1 ) )  <_  ( G `  ( # `  A
) ) ) )
212206, 211mpbid 201 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  (
m  +  1 ) )  <_  ( G `  ( # `  A
) ) )
213201, 202, 203, 204, 212letrd 8989 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  ( m  +  1
) )  -  1 )  <_  ( G `  ( # `  A
) ) )
21469ad2antrr 706 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  ( # `
 A ) )  e.  ZZ )
215 eluz 10257 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( G `  ( m  +  1
) )  -  1 )  e.  ZZ  /\  ( G `  ( # `  A ) )  e.  ZZ )  ->  (
( G `  ( # `
 A ) )  e.  ( ZZ>= `  (
( G `  (
m  +  1 ) )  -  1 ) )  <->  ( ( G `
 ( m  + 
1 ) )  - 
1 )  <_  ( G `  ( # `  A
) ) ) )
216197, 214, 215syl2anc 642 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  ( # `  A ) )  e.  ( ZZ>= `  ( ( G `  ( m  +  1
) )  -  1 ) )  <->  ( ( G `  ( m  +  1 ) )  -  1 )  <_ 
( G `  ( # `
 A ) ) ) )
217213, 216mpbird 223 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  ( # `
 A ) )  e.  ( ZZ>= `  (
( G `  (
m  +  1 ) )  -  1 ) ) )
218 uztrn 10260 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( G `  ( # `
 A ) )  e.  ( ZZ>= `  (
( G `  (
m  +  1 ) )  -  1 ) )  /\  ( ( G `  ( m  +  1 ) )  -  1 )  e.  ( ZZ>= `  ( G `  m ) ) )  ->  ( G `  ( # `  A ) )  e.  ( ZZ>= `  ( G `  m ) ) )
219217, 200, 218syl2anc 642 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  ( # `
 A ) )  e.  ( ZZ>= `  ( G `  m )
) )
220 fzss2 10847 . . . . . . . . . . . . . . . . . 18  |-  ( ( G `  ( # `  A ) )  e.  ( ZZ>= `  ( G `  m ) )  -> 
( M ... ( G `  m )
)  C_  ( M ... ( G `  ( # `
 A ) ) ) )
221219, 220syl 15 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( M ... ( G `  m )
)  C_  ( M ... ( G `  ( # `
 A ) ) ) )
222221sselda 3193 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( M ... ( G `  m
) ) )  -> 
k  e.  ( M ... ( G `  ( # `  A ) ) ) )
223170, 76sylan 457 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( M ... ( G `  ( # `
 A ) ) ) )  ->  ( F `  k )  e.  S )
224222, 223syldan 456 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( M ... ( G `  m
) ) )  -> 
( F `  k
)  e.  S )
225 seqcoll.c . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( k  e.  S  /\  n  e.  S ) )  -> 
( k  .+  n
)  e.  S )
226170, 225sylan 457 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  ( k  e.  S  /\  n  e.  S
) )  ->  (
k  .+  n )  e.  S )
227177, 224, 226seqcl 11082 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  m ) )  e.  S )
228 simplll 734 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( (
( G `  m
)  +  1 ) ... ( ( G `
 ( m  + 
1 ) )  - 
1 ) ) )  ->  ph )
229 elfzuz 10810 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( ( ( G `  m )  +  1 ) ... ( ( G `  ( m  +  1
) )  -  1 ) )  ->  k  e.  ( ZZ>= `  ( ( G `  m )  +  1 ) ) )
230 peano2uz 10288 . . . . . . . . . . . . . . . . . . 19  |-  ( ( G `  m )  e.  ( ZZ>= `  M
)  ->  ( ( G `  m )  +  1 )  e.  ( ZZ>= `  M )
)
231177, 230syl 15 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  m )  +  1 )  e.  ( ZZ>= `  M ) )
232 uztrn 10260 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  ( ZZ>= `  ( ( G `  m )  +  1 ) )  /\  (
( G `  m
)  +  1 )  e.  ( ZZ>= `  M
) )  ->  k  e.  ( ZZ>= `  M )
)
233229, 231, 232syl2anr 464 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( (
( G `  m
)  +  1 ) ... ( ( G `
 ( m  + 
1 ) )  - 
1 ) ) )  ->  k  e.  (
ZZ>= `  M ) )
234 elfzuz3 10811 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( ( ( G `  m )  +  1 ) ... ( ( G `  ( m  +  1
) )  -  1 ) )  ->  (
( G `  (
m  +  1 ) )  -  1 )  e.  ( ZZ>= `  k
) )
235 uztrn 10260 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( G `  ( # `
 A ) )  e.  ( ZZ>= `  (
( G `  (
m  +  1 ) )  -  1 ) )  /\  ( ( G `  ( m  +  1 ) )  -  1 )  e.  ( ZZ>= `  k )
)  ->  ( G `  ( # `  A
) )  e.  (
ZZ>= `  k ) )
236217, 234, 235syl2an 463 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( (
( G `  m
)  +  1 ) ... ( ( G `
 ( m  + 
1 ) )  - 
1 ) ) )  ->  ( G `  ( # `  A ) )  e.  ( ZZ>= `  k ) )
237 elfzuzb 10808 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( M ... ( G `  ( # `  A ) ) )  <-> 
( k  e.  (
ZZ>= `  M )  /\  ( G `  ( # `  A ) )  e.  ( ZZ>= `  k )
) )
238233, 236, 237sylanbrc 645 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( (
( G `  m
)  +  1 ) ... ( ( G `
 ( m  + 
1 ) )  - 
1 ) ) )  ->  k  e.  ( M ... ( G `
 ( # `  A
) ) ) )
239 elfzle1 10815 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( ( ( G `  m )  +  1 ) ... ( ( G `  ( m  +  1
) )  -  1 ) )  ->  (
( G `  m
)  +  1 )  <_  k )
240 elfzle2 10816 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( ( ( G `  m )  +  1 ) ... ( ( G `  ( m  +  1
) )  -  1 ) )  ->  k  <_  ( ( G `  ( m  +  1
) )  -  1 ) )
241239, 240jca 518 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  ( ( ( G `  m )  +  1 ) ... ( ( G `  ( m  +  1
) )  -  1 ) )  ->  (
( ( G `  m )  +  1 )  <_  k  /\  k  <_  ( ( G `
 ( m  + 
1 ) )  - 
1 ) ) )
242159ad2antlr 707 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  ->  m  e.  ZZ )
243103ad2antrr 706 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  ->  `' G : A --> ( 1 ... ( # `  A
) ) )
244 simprr 733 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
k  e.  A )
245243, 244, 104syl2anc 642 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( `' G `  k )  e.  ( 1 ... ( # `  A ) ) )
246 elfzelz 10814 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( `' G `  k )  e.  ( 1 ... ( # `  A
) )  ->  ( `' G `  k )  e.  ZZ )
247245, 246syl 15 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( `' G `  k )  e.  ZZ )
248 btwnnz 10104 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( m  e.  ZZ  /\  m  <  ( `' G `  k )  /\  ( `' G `  k )  <  ( m  + 
1 ) )  ->  -.  ( `' G `  k )  e.  ZZ )
2492483expib 1154 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( m  e.  ZZ  ->  (
( m  <  ( `' G `  k )  /\  ( `' G `  k )  <  (
m  +  1 ) )  ->  -.  ( `' G `  k )  e.  ZZ ) )
250249con2d 107 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( m  e.  ZZ  ->  (
( `' G `  k )  e.  ZZ  ->  -.  ( m  < 
( `' G `  k )  /\  ( `' G `  k )  <  ( m  + 
1 ) ) ) )
251242, 247, 250sylc 56 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  ->  -.  ( m  <  ( `' G `  k )  /\  ( `' G `  k )  <  (
m  +  1 ) ) )
25235ad2antrr 706 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  ->  G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A ) )
253166adantrr 697 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  ->  m  e.  ( 1 ... ( # `  A
) ) )
254 isorel 5839 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A )  /\  ( m  e.  (
1 ... ( # `  A
) )  /\  ( `' G `  k )  e.  ( 1 ... ( # `  A
) ) ) )  ->  ( m  < 
( `' G `  k )  <->  ( G `  m )  <  ( G `  ( `' G `  k )
) ) )
255252, 253, 245, 254syl12anc 1180 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( m  <  ( `' G `  k )  <-> 
( G `  m
)  <  ( G `  ( `' G `  k ) ) ) )
25637ad2antrr 706 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  ->  G : ( 1 ... ( # `  A
) ) -1-1-onto-> A )
257256, 244, 116syl2anc 642 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( G `  ( `' G `  k ) )  =  k )
258257breq2d 4051 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( ( G `  m )  <  ( G `  ( `' G `  k )
)  <->  ( G `  m )  <  k
) )
259187adantrr 697 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( G `  m
)  e.  ZZ )
26034ad2antrr 706 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  ->  A  C_  ( ZZ>= `  M
) )
261260, 244sseldd 3194 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
k  e.  ( ZZ>= `  M ) )
262 eluzelz 10254 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( k  e.  ( ZZ>= `  M
)  ->  k  e.  ZZ )
263261, 262syl 15 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
k  e.  ZZ )
264 zltp1le 10083 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( G `  m
)  e.  ZZ  /\  k  e.  ZZ )  ->  ( ( G `  m )  <  k  <->  ( ( G `  m
)  +  1 )  <_  k ) )
265259, 263, 264syl2anc 642 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( ( G `  m )  <  k  <->  ( ( G `  m
)  +  1 )  <_  k ) )
266255, 258, 2653bitrd 270 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( m  <  ( `' G `  k )  <-> 
( ( G `  m )  +  1 )  <_  k )
)
267182adantrr 697 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )
268 isorel 5839 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( G  Isom  <  ,  <  ( ( 1 ... ( # `
 A ) ) ,  A )  /\  ( ( `' G `  k )  e.  ( 1 ... ( # `  A ) )  /\  ( m  +  1
)  e.  ( 1 ... ( # `  A
) ) ) )  ->  ( ( `' G `  k )  <  ( m  + 
1 )  <->  ( G `  ( `' G `  k ) )  < 
( G `  (
m  +  1 ) ) ) )
269252, 245, 267, 268syl12anc 1180 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( ( `' G `  k )  <  (
m  +  1 )  <-> 
( G `  ( `' G `  k ) )  <  ( G `
 ( m  + 
1 ) ) ) )
270257breq1d 4049 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( ( G `  ( `' G `  k ) )  <  ( G `
 ( m  + 
1 ) )  <->  k  <  ( G `  ( m  +  1 ) ) ) )
271192adantrr 697 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( G `  (
m  +  1 ) )  e.  ZZ )
272 zltlem1 10086 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( k  e.  ZZ  /\  ( G `  ( m  +  1 ) )  e.  ZZ )  -> 
( k  <  ( G `  ( m  +  1 ) )  <-> 
k  <_  ( ( G `  ( m  +  1 ) )  -  1 ) ) )
273263, 271, 272syl2anc 642 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( k  <  ( G `  ( m  +  1 ) )  <-> 
k  <_  ( ( G `  ( m  +  1 ) )  -  1 ) ) )
274269, 270, 2733bitrd 270 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( ( `' G `  k )  <  (
m  +  1 )  <-> 
k  <_  ( ( G `  ( m  +  1 ) )  -  1 ) ) )
275266, 274anbi12d 691 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  -> 
( ( m  < 
( `' G `  k )  /\  ( `' G `  k )  <  ( m  + 
1 ) )  <->  ( (
( G `  m
)  +  1 )  <_  k  /\  k  <_  ( ( G `  ( m  +  1
) )  -  1 ) ) ) )
276251, 275mtbid 291 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  /\  k  e.  A ) )  ->  -.  ( ( ( G `
 m )  +  1 )  <_  k  /\  k  <_  ( ( G `  ( m  +  1 ) )  -  1 ) ) )
277276expr 598 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( k  e.  A  ->  -.  ( ( ( G `  m )  +  1 )  <_ 
k  /\  k  <_  ( ( G `  (
m  +  1 ) )  -  1 ) ) ) )
278277con2d 107 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( ( ( G `  m )  +  1 )  <_ 
k  /\  k  <_  ( ( G `  (
m  +  1 ) )  -  1 ) )  ->  -.  k  e.  A ) )
279241, 278syl5 28 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( k  e.  ( ( ( G `  m )  +  1 ) ... ( ( G `  ( m  +  1 ) )  -  1 ) )  ->  -.  k  e.  A ) )
280279imp 418 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( (
( G `  m
)  +  1 ) ... ( ( G `
 ( m  + 
1 ) )  - 
1 ) ) )  ->  -.  k  e.  A )
281238, 280, 128sylanbrc 645 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( (
( G `  m
)  +  1 ) ... ( ( G `
 ( m  + 
1 ) )  - 
1 ) ) )  ->  k  e.  ( ( M ... ( G `  ( # `  A
) ) )  \  A ) )
282228, 281, 130syl2anc 642 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  m  e.  NN )  /\  ( m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  /\  k  e.  ( (
( G `  m
)  +  1 ) ... ( ( G `
 ( m  + 
1 ) )  - 
1 ) ) )  ->  ( F `  k )  =  Z )
283172, 177, 200, 227, 282seqid2 11108 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  m ) )  =  (  seq 
M (  .+  ,  F ) `  (
( G `  (
m  +  1 ) )  -  1 ) ) )
284283oveq1d 5889 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( (  seq  M
(  .+  ,  F
) `  ( G `  m ) )  .+  ( F `  ( G `
 ( m  + 
1 ) ) ) )  =  ( (  seq  M (  .+  ,  F ) `  (
( G `  (
m  +  1 ) )  -  1 ) )  .+  ( F `
 ( G `  ( m  +  1
) ) ) ) )
285 fveq2 5541 . . . . . . . . . . . . . . . . . 18  |-  ( n  =  ( m  + 
1 )  ->  ( H `  n )  =  ( H `  ( m  +  1
) ) )
286 fveq2 5541 . . . . . . . . . . . . . . . . . . 19  |-  ( n  =  ( m  + 
1 )  ->  ( G `  n )  =  ( G `  ( m  +  1
) ) )
287286fveq2d 5545 . . . . . . . . . . . . . . . . . 18  |-  ( n  =  ( m  + 
1 )  ->  ( F `  ( G `  n ) )  =  ( F `  ( G `  ( m  +  1 ) ) ) )
288285, 287eqeq12d 2310 . . . . . . . . . . . . . . . . 17  |-  ( n  =  ( m  + 
1 )  ->  (
( H `  n
)  =  ( F `
 ( G `  n ) )  <->  ( H `  ( m  +  1 ) )  =  ( F `  ( G `
 ( m  + 
1 ) ) ) ) )
289288imbi2d 307 . . . . . . . . . . . . . . . 16  |-  ( n  =  ( m  + 
1 )  ->  (
( ph  ->  ( H `
 n )  =  ( F `  ( G `  n )
) )  <->  ( ph  ->  ( H `  (
m  +  1 ) )  =  ( F `
 ( G `  ( m  +  1
) ) ) ) ) )
290289, 146vtoclga 2862 . . . . . . . . . . . . . . 15  |-  ( ( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  ( ph  ->  ( H `  ( m  +  1
) )  =  ( F `  ( G `
 ( m  + 
1 ) ) ) ) )
291290impcom 419 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( m  +  1 )  e.  ( 1 ... ( # `
 A ) ) )  ->  ( H `  ( m  +  1 ) )  =  ( F `  ( G `
 ( m  + 
1 ) ) ) )
292291adantlr 695 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( H `  (
m  +  1 ) )  =  ( F `
 ( G `  ( m  +  1
) ) ) )
293292oveq2d 5890 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( (  seq  M
(  .+  ,  F
) `  ( G `  m ) )  .+  ( H `  ( m  +  1 ) ) )  =  ( (  seq  M (  .+  ,  F ) `  ( G `  m )
)  .+  ( F `  ( G `  (
m  +  1 ) ) ) ) )
29496ad2antrr 706 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  ->  M  e.  ZZ )
295192zcnd 10134 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  (
m  +  1 ) )  e.  CC )
296 ax-1cn 8811 . . . . . . . . . . . . . . 15  |-  1  e.  CC
297 npcan 9076 . . . . . . . . . . . . . . 15  |-  ( ( ( G `  (
m  +  1 ) )  e.  CC  /\  1  e.  CC )  ->  ( ( ( G `
 ( m  + 
1 ) )  - 
1 )  +  1 )  =  ( G `
 ( m  + 
1 ) ) )
298295, 296, 297sylancl 643 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( ( G `
 ( m  + 
1 ) )  - 
1 )  +  1 )  =  ( G `
 ( m  + 
1 ) ) )
299 uztrn 10260 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( G `  ( m  +  1
) )  -  1 )  e.  ( ZZ>= `  ( G `  m ) )  /\  ( G `
 m )  e.  ( ZZ>= `  M )
)  ->  ( ( G `  ( m  +  1 ) )  -  1 )  e.  ( ZZ>= `  M )
)
300200, 177, 299syl2anc 642 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( G `  ( m  +  1
) )  -  1 )  e.  ( ZZ>= `  M ) )
301 eluzp1p1 10269 . . . . . . . . . . . . . . 15  |-  ( ( ( G `  (
m  +  1 ) )  -  1 )  e.  ( ZZ>= `  M
)  ->  ( (
( G `  (
m  +  1 ) )  -  1 )  +  1 )  e.  ( ZZ>= `  ( M  +  1 ) ) )
302300, 301syl 15 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( ( ( G `
 ( m  + 
1 ) )  - 
1 )  +  1 )  e.  ( ZZ>= `  ( M  +  1
) ) )
303298, 302eqeltrrd 2371 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( G `  (
m  +  1 ) )  e.  ( ZZ>= `  ( M  +  1
) ) )
304 seqm1 11079 . . . . . . . . . . . . 13  |-  ( ( M  e.  ZZ  /\  ( G `  ( m  +  1 ) )  e.  ( ZZ>= `  ( M  +  1 ) ) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  ( (  seq  M (  .+  ,  F ) `  (
( G `  (
m  +  1 ) )  -  1 ) )  .+  ( F `
 ( G `  ( m  +  1
) ) ) ) )
305294, 303, 304syl2anc 642 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  ( (  seq  M (  .+  ,  F ) `  (
( G `  (
m  +  1 ) )  -  1 ) )  .+  ( F `
 ( G `  ( m  +  1
) ) ) ) )
306284, 293, 3053eqtr4rd 2339 . . . . . . . . . . 11  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  ( (  seq  M (  .+  ,  F ) `  ( G `  m )
)  .+  ( H `  ( m  +  1 ) ) ) )
307 seqp1 11077 . . . . . . . . . . . 12  |-  ( m  e.  ( ZZ>= `  1
)  ->  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) )  =  ( (  seq  1 (  .+  ,  H ) `  m
)  .+  ( H `  ( m  +  1 ) ) ) )
308158, 307syl 15 . . . . . . . . . . 11  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
(  seq  1 ( 
.+  ,  H ) `
 ( m  + 
1 ) )  =  ( (  seq  1
(  .+  ,  H
) `  m )  .+  ( H `  (
m  +  1 ) ) ) )
309306, 308eqeq12d 2310 . . . . . . . . . 10  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( (  seq  M
(  .+  ,  F
) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 ( 
.+  ,  H ) `
 ( m  + 
1 ) )  <->  ( (  seq  M (  .+  ,  F ) `  ( G `  m )
)  .+  ( H `  ( m  +  1 ) ) )  =  ( (  seq  1
(  .+  ,  H
) `  m )  .+  ( H `  (
m  +  1 ) ) ) ) )
310169, 309syl5ibr 212 . . . . . . . . 9  |-  ( ( ( ph  /\  m  e.  NN )  /\  (
m  +  1 )  e.  ( 1 ... ( # `  A
) ) )  -> 
( (  seq  M
(  .+  ,  F
) `  ( G `  m ) )  =  (  seq  1 ( 
.+  ,  H ) `
 m )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) ) ) )
311310ex 423 . . . . . . . 8  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (
(  seq  M (  .+  ,  F ) `  ( G `  m ) )  =  (  seq  1 (  .+  ,  H ) `  m
)  ->  (  seq  M (  .+  ,  F
) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 ( 
.+  ,  H ) `
 ( m  + 
1 ) ) ) ) )
312311a2d 23 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( ( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  m )
)  =  (  seq  1 (  .+  ,  H ) `  m
) )  ->  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) ) ) ) )
313168, 312syld 40 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( m  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  m )
)  =  (  seq  1 (  .+  ,  H ) `  m
) )  ->  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) ) ) ) )
314313expcom 424 . . . . 5  |-  ( m  e.  NN  ->  ( ph  ->  ( ( m  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  m )
)  =  (  seq  1 (  .+  ,  H ) `  m
) )  ->  (
( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) ) ) ) ) )
315314a2d 23 . . . 4  |-  ( m  e.  NN  ->  (
( ph  ->  ( m  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  m )
)  =  (  seq  1 (  .+  ,  H ) `  m
) ) )  -> 
( ph  ->  ( ( m  +  1 )  e.  ( 1 ... ( # `  A
) )  ->  (  seq  M (  .+  ,  F ) `  ( G `  ( m  +  1 ) ) )  =  (  seq  1 (  .+  ,  H ) `  (
m  +  1 ) ) ) ) ) )
31610, 17, 24, 31, 155, 315nnind 9780 . . 3  |-  ( N  e.  NN  ->  ( ph  ->  ( N  e.  ( 1 ... ( # `
 A ) )  ->  (  seq  M
(  .+  ,  F
) `  ( G `  N ) )  =  (  seq  1 ( 
.+  ,  H ) `
 N ) ) ) )
3173, 316mpcom 32 . 2  |-  ( ph  ->  ( N  e.  ( 1 ... ( # `  A ) )  -> 
(  seq  M (  .+  ,  F ) `  ( G `  N ) )  =  (  seq  1 (  .+  ,  H ) `  N
) ) )
3181, 317mpd 14 1  |-  ( ph  ->  (  seq  M ( 
.+  ,  F ) `
 ( G `  N ) )  =  (  seq  1 ( 
.+  ,  H ) `
 N ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 176    /\ wa 358    /\ w3a 934    = wceq 1632    e. wcel 1696    \ cdif 3162    C_ wss 3165   class class class wbr 4039   `'ccnv 4704    |` cres 4707   -->wf 5267   -1-1-onto->wf1o 5270   ` cfv 5271    Isom wiso 5272  (class class class)co 5874   CCcc 8751   RRcr 8752   1c1 8754    + caddc 8756   RR*cxr 8882    < clt 8883    <_ cle 8884    - cmin 9053   NNcn 9762   ZZcz 10040   ZZ>=cuz 10246   ...cfz 10798    seq cseq 11062   #chash 11353
This theorem is referenced by:  seqcoll2  11418  summolem2a  12204  prodmolem2a  24157
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1536  ax-5 1547  ax-17 1606  ax-9 1644  ax-8 1661  ax-13 1698  ax-14 1700  ax-6 1715  ax-7 1720  ax-11 1727  ax-12 1878  ax-ext 2277  ax-sep 4157  ax-nul 4165  ax-pow 4204  ax-pr 4230  ax-un 4528  ax-cnex 8809  ax-resscn 8810  ax-1cn 8811  ax-icn 8812  ax-addcl 8813  ax-addrcl 8814  ax-mulcl 8815  ax-mulrcl 8816  ax-mulcom 8817  ax-addass 8818  ax-mulass 8819  ax-distr 8820  ax-i2m1 8821  ax-1ne0 8822  ax-1rid 8823  ax-rnegex 8824  ax-rrecex 8825  ax-cnre 8826  ax-pre-lttri 8827  ax-pre-lttrn 8828  ax-pre-ltadd 8829  ax-pre-mulgt0 8830
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1310  df-ex 1532  df-nf 1535  df-sb 1639  df-eu 2160  df-mo 2161  df-clab 2283  df-cleq 2289  df-clel 2292  df-nfc 2421  df-ne 2461  df-nel 2462  df-ral 2561  df-rex 2562  df-reu 2563  df-rab 2565  df-v 2803  df-sbc 3005  df-csb 3095  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-pss 3181  df-nul 3469  df-if 3579  df-pw 3640  df-sn 3659  df-pr 3660  df-tp 3661  df-op 3662  df-uni 3844  df-iun 3923  df-br 4040  df-opab 4094  df-mpt 4095  df-tr 4130  df-eprel 4321  df-id 4325  df-po 4330  df-so 4331  df-fr 4368  df-we 4370  df-ord 4411  df-on 4412  df-lim 4413  df-suc 4414  df-om 4673  df-xp 4711  df-rel 4712  df-cnv 4713  df-co 4714  df-dm 4715  df-rn 4716  df-res 4717  df-ima 4718  df-iota 5235  df-fun 5273  df-fn 5274  df-f 5275  df-f1 5276  df-fo 5277  df-f1o 5278  df-fv 5279  df-isom 5280  df-ov 5877  df-oprab 5878  df-mpt2 5879  df-1st 6138  df-2nd 6139  df-riota 6320  df-recs 6404  df-rdg 6439  df-er 6676  df-en 6880  df-dom 6881  df-sdom 6882  df-pnf 8885  df-mnf 8886  df-xr 8887  df-ltxr 8888  df-le 8889  df-sub 9055  df-neg 9056  df-nn 9763  df-n0 9982  df-z 10041  df-uz 10247  df-fz 10799  df-seq 11063
  Copyright terms: Public domain W3C validator