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

Theorem axdc3lem2 9273
Description: Lemma for axdc3 9276. We have constructed a "candidate set"  S, which consists of all finite sequences  s that satisfy our property of interest, namely  s ( x  + 
1 )  e.  F
( s ( x ) ) on its domain, but with the added constraint that 
s ( 0 )  =  C. These sets are possible "initial segments" of the infinite sequence satisfying these constraints, but we can leverage the standard ax-dc 9268 (with no initial condition) to select a sequence of ever-lengthening finite sequences, namely  ( h `  n ) : m --> A (for some integer  m). We let our "choice" function select a sequence whose domain is one more than the last one, and agrees with the previous one on its domain. Thus, the application of vanilla ax-dc 9268 yields a sequence of sequences whose domains increase without bound, and whose union is a function which has all the properties we want. In this lemma, we show that given the sequence  h, we can construct the sequence  g that we are after. (Contributed by Mario Carneiro, 30-Jan-2013.)
Hypotheses
Ref Expression
axdc3lem2.1  |-  A  e. 
_V
axdc3lem2.2  |-  S  =  { s  |  E. n  e.  om  (
s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) ) }
axdc3lem2.3  |-  G  =  ( x  e.  S  |->  { y  e.  S  |  ( dom  y  =  suc  dom  x  /\  ( y  |`  dom  x
)  =  x ) } )
Assertion
Ref Expression
axdc3lem2  |-  ( E. h ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  E. g ( g : om --> A  /\  (
g `  (/) )  =  C  /\  A. k  e.  om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) ) )
Distinct variable groups:    A, g, h    A, n, s    C, g, h    C, n, s   
g, F, h    n, F, s    k, G    S, k, s    x, S, y   
g, k, h    h, s    x, h, y    k, n
Allowed substitution hints:    A( x, y, k)    C( x, y, k)    S( g, h, n)    F( x, y, k)    G( x, y, g, h, n, s)

Proof of Theorem axdc3lem2
Dummy variables  i 
j  m  u  v  a  b are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 id 22 . . . . . . . . . . . . 13  |-  ( m  =  (/)  ->  m  =  (/) )
2 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( m  =  (/)  ->  ( h `
 m )  =  ( h `  (/) ) )
32dmeqd 5326 . . . . . . . . . . . . 13  |-  ( m  =  (/)  ->  dom  (
h `  m )  =  dom  ( h `  (/) ) )
41, 3eleq12d 2695 . . . . . . . . . . . 12  |-  ( m  =  (/)  ->  ( m  e.  dom  ( h `
 m )  <->  (/)  e.  dom  ( h `  (/) ) ) )
5 eleq2 2690 . . . . . . . . . . . . 13  |-  ( m  =  (/)  ->  ( j  e.  m  <->  j  e.  (/) ) )
62sseq2d 3633 . . . . . . . . . . . . 13  |-  ( m  =  (/)  ->  ( ( h `  j ) 
C_  ( h `  m )  <->  ( h `  j )  C_  (
h `  (/) ) ) )
75, 6imbi12d 334 . . . . . . . . . . . 12  |-  ( m  =  (/)  ->  ( ( j  e.  m  -> 
( h `  j
)  C_  ( h `  m ) )  <->  ( j  e.  (/)  ->  ( h `  j )  C_  (
h `  (/) ) ) ) )
84, 7anbi12d 747 . . . . . . . . . . 11  |-  ( m  =  (/)  ->  ( ( m  e.  dom  (
h `  m )  /\  ( j  e.  m  ->  ( h `  j
)  C_  ( h `  m ) ) )  <-> 
( (/)  e.  dom  (
h `  (/) )  /\  ( j  e.  (/)  ->  ( h `  j
)  C_  ( h `  (/) ) ) ) ) )
9 id 22 . . . . . . . . . . . . 13  |-  ( m  =  i  ->  m  =  i )
10 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( m  =  i  ->  (
h `  m )  =  ( h `  i ) )
1110dmeqd 5326 . . . . . . . . . . . . 13  |-  ( m  =  i  ->  dom  ( h `  m
)  =  dom  (
h `  i )
)
129, 11eleq12d 2695 . . . . . . . . . . . 12  |-  ( m  =  i  ->  (
m  e.  dom  (
h `  m )  <->  i  e.  dom  ( h `
 i ) ) )
13 elequ2 2004 . . . . . . . . . . . . 13  |-  ( m  =  i  ->  (
j  e.  m  <->  j  e.  i ) )
1410sseq2d 3633 . . . . . . . . . . . . 13  |-  ( m  =  i  ->  (
( h `  j
)  C_  ( h `  m )  <->  ( h `  j )  C_  (
h `  i )
) )
1513, 14imbi12d 334 . . . . . . . . . . . 12  |-  ( m  =  i  ->  (
( j  e.  m  ->  ( h `  j
)  C_  ( h `  m ) )  <->  ( j  e.  i  ->  ( h `
 j )  C_  ( h `  i
) ) ) )
1612, 15anbi12d 747 . . . . . . . . . . 11  |-  ( m  =  i  ->  (
( m  e.  dom  ( h `  m
)  /\  ( j  e.  m  ->  ( h `
 j )  C_  ( h `  m
) ) )  <->  ( i  e.  dom  ( h `  i )  /\  (
j  e.  i  -> 
( h `  j
)  C_  ( h `  i ) ) ) ) )
17 id 22 . . . . . . . . . . . . 13  |-  ( m  =  suc  i  ->  m  =  suc  i )
18 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( m  =  suc  i  -> 
( h `  m
)  =  ( h `
 suc  i )
)
1918dmeqd 5326 . . . . . . . . . . . . 13  |-  ( m  =  suc  i  ->  dom  ( h `  m
)  =  dom  (
h `  suc  i ) )
2017, 19eleq12d 2695 . . . . . . . . . . . 12  |-  ( m  =  suc  i  -> 
( m  e.  dom  ( h `  m
)  <->  suc  i  e.  dom  ( h `  suc  i ) ) )
21 eleq2 2690 . . . . . . . . . . . . 13  |-  ( m  =  suc  i  -> 
( j  e.  m  <->  j  e.  suc  i ) )
2218sseq2d 3633 . . . . . . . . . . . . 13  |-  ( m  =  suc  i  -> 
( ( h `  j )  C_  (
h `  m )  <->  ( h `  j ) 
C_  ( h `  suc  i ) ) )
2321, 22imbi12d 334 . . . . . . . . . . . 12  |-  ( m  =  suc  i  -> 
( ( j  e.  m  ->  ( h `  j )  C_  (
h `  m )
)  <->  ( j  e. 
suc  i  ->  (
h `  j )  C_  ( h `  suc  i ) ) ) )
2420, 23anbi12d 747 . . . . . . . . . . 11  |-  ( m  =  suc  i  -> 
( ( m  e. 
dom  ( h `  m )  /\  (
j  e.  m  -> 
( h `  j
)  C_  ( h `  m ) ) )  <-> 
( suc  i  e.  dom  ( h `  suc  i )  /\  (
j  e.  suc  i  ->  ( h `  j
)  C_  ( h `  suc  i ) ) ) ) )
25 peano1 7085 . . . . . . . . . . . . . . 15  |-  (/)  e.  om
26 ffvelrn 6357 . . . . . . . . . . . . . . 15  |-  ( ( h : om --> S  /\  (/) 
e.  om )  ->  (
h `  (/) )  e.  S )
2725, 26mpan2 707 . . . . . . . . . . . . . 14  |-  ( h : om --> S  -> 
( h `  (/) )  e.  S )
28 axdc3lem2.2 . . . . . . . . . . . . . . . . . 18  |-  S  =  { s  |  E. n  e.  om  (
s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) ) }
29 fdm 6051 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( s : suc  n --> A  ->  dom  s  =  suc  n )
30 nnord 7073 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( n  e.  om  ->  Ord  n )
31 0elsuc 7035 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( Ord  n  ->  (/)  e.  suc  n )
3230, 31syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( n  e.  om  ->  (/)  e.  suc  n )
33 peano2 7086 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( n  e.  om  ->  suc  n  e.  om )
34 eleq2 2690 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( dom  s  =  suc  n  ->  ( (/)  e.  dom  s 
<->  (/)  e.  suc  n ) )
35 eleq1 2689 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( dom  s  =  suc  n  ->  ( dom  s  e. 
om 
<->  suc  n  e.  om ) )
3634, 35anbi12d 747 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( dom  s  =  suc  n  ->  ( ( (/)  e.  dom  s  /\  dom  s  e. 
om )  <->  ( (/)  e.  suc  n  /\  suc  n  e. 
om ) ) )
3736biimprcd 240 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
(/)  e.  suc  n  /\  suc  n  e.  om )  ->  ( dom  s  =  suc  n  ->  ( (/) 
e.  dom  s  /\  dom  s  e.  om ) ) )
3832, 33, 37syl2anc 693 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( n  e.  om  ->  ( dom  s  =  suc  n  ->  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) ) )
3929, 38syl5com 31 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( s : suc  n --> A  -> 
( n  e.  om  ->  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) ) )
40393ad2ant1 1082 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  ( n  e. 
om  ->  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) ) )
4140impcom 446 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( n  e.  om  /\  ( s : suc  n
--> A  /\  ( s `
 (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) )  ->  ( (/) 
e.  dom  s  /\  dom  s  e.  om ) )
4241rexlimiva 3028 . . . . . . . . . . . . . . . . . . 19  |-  ( E. n  e.  om  (
s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) )
4342ss2abi 3674 . . . . . . . . . . . . . . . . . 18  |-  { s  |  E. n  e. 
om  ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k )  e.  ( F `  (
s `  k )
) ) }  C_  { s  |  ( (/)  e.  dom  s  /\  dom  s  e.  om ) }
4428, 43eqsstri 3635 . . . . . . . . . . . . . . . . 17  |-  S  C_  { s  |  ( (/)  e.  dom  s  /\  dom  s  e.  om ) }
4544sseli 3599 . . . . . . . . . . . . . . . 16  |-  ( ( h `  (/) )  e.  S  ->  ( h `  (/) )  e.  {
s  |  ( (/)  e.  dom  s  /\  dom  s  e.  om ) } )
46 fvex 6201 . . . . . . . . . . . . . . . . 17  |-  ( h `
 (/) )  e.  _V
47 dmeq 5324 . . . . . . . . . . . . . . . . . . 19  |-  ( s  =  ( h `  (/) )  ->  dom  s  =  dom  ( h `  (/) ) )
4847eleq2d 2687 . . . . . . . . . . . . . . . . . 18  |-  ( s  =  ( h `  (/) )  ->  ( (/)  e.  dom  s 
<->  (/)  e.  dom  ( h `
 (/) ) ) )
4947eleq1d 2686 . . . . . . . . . . . . . . . . . 18  |-  ( s  =  ( h `  (/) )  ->  ( dom  s  e.  om  <->  dom  ( h `
 (/) )  e.  om ) )
5048, 49anbi12d 747 . . . . . . . . . . . . . . . . 17  |-  ( s  =  ( h `  (/) )  ->  ( ( (/) 
e.  dom  s  /\  dom  s  e.  om ) 
<->  ( (/)  e.  dom  ( h `  (/) )  /\  dom  ( h `  (/) )  e. 
om ) ) )
5146, 50elab 3350 . . . . . . . . . . . . . . . 16  |-  ( ( h `  (/) )  e. 
{ s  |  (
(/)  e.  dom  s  /\  dom  s  e.  om ) }  <->  ( (/)  e.  dom  ( h `  (/) )  /\  dom  ( h `  (/) )  e. 
om ) )
5245, 51sylib 208 . . . . . . . . . . . . . . 15  |-  ( ( h `  (/) )  e.  S  ->  ( (/)  e.  dom  ( h `  (/) )  /\  dom  ( h `  (/) )  e. 
om ) )
5352simpld 475 . . . . . . . . . . . . . 14  |-  ( ( h `  (/) )  e.  S  ->  (/)  e.  dom  ( h `  (/) ) )
5427, 53syl 17 . . . . . . . . . . . . 13  |-  ( h : om --> S  ->  (/) 
e.  dom  ( h `  (/) ) )
55 noel 3919 . . . . . . . . . . . . . 14  |-  -.  j  e.  (/)
5655pm2.21i 116 . . . . . . . . . . . . 13  |-  ( j  e.  (/)  ->  ( h `  j )  C_  (
h `  (/) ) )
5754, 56jctir 561 . . . . . . . . . . . 12  |-  ( h : om --> S  -> 
( (/)  e.  dom  (
h `  (/) )  /\  ( j  e.  (/)  ->  ( h `  j
)  C_  ( h `  (/) ) ) ) )
5857adantr 481 . . . . . . . . . . 11  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( (/)  e.  dom  (
h `  (/) )  /\  ( j  e.  (/)  ->  ( h `  j
)  C_  ( h `  (/) ) ) ) )
59 ffvelrn 6357 . . . . . . . . . . . . . . 15  |-  ( ( h : om --> S  /\  i  e.  om )  ->  ( h `  i
)  e.  S )
6059ancoms 469 . . . . . . . . . . . . . 14  |-  ( ( i  e.  om  /\  h : om --> S )  ->  ( h `  i )  e.  S
)
6160adantrr 753 . . . . . . . . . . . . 13  |-  ( ( i  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  (
h `  i )  e.  S )
62 suceq 5790 . . . . . . . . . . . . . . . . 17  |-  ( k  =  i  ->  suc  k  =  suc  i )
6362fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( k  =  i  ->  (
h `  suc  k )  =  ( h `  suc  i ) )
64 fveq2 6191 . . . . . . . . . . . . . . . . 17  |-  ( k  =  i  ->  (
h `  k )  =  ( h `  i ) )
6564fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( k  =  i  ->  ( G `  ( h `  k ) )  =  ( G `  (
h `  i )
) )
6663, 65eleq12d 2695 . . . . . . . . . . . . . . 15  |-  ( k  =  i  ->  (
( h `  suc  k )  e.  ( G `  ( h `
 k ) )  <-> 
( h `  suc  i )  e.  ( G `  ( h `
 i ) ) ) )
6766rspcva 3307 . . . . . . . . . . . . . 14  |-  ( ( i  e.  om  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )
6867adantrl 752 . . . . . . . . . . . . 13  |-  ( ( i  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  (
h `  suc  i )  e.  ( G `  ( h `  i
) ) )
6944sseli 3599 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( h `  i )  e.  S  ->  (
h `  i )  e.  { s  |  (
(/)  e.  dom  s  /\  dom  s  e.  om ) } )
70 fvex 6201 . . . . . . . . . . . . . . . . . . . . 21  |-  ( h `
 i )  e. 
_V
71 dmeq 5324 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( s  =  ( h `  i )  ->  dom  s  =  dom  ( h `
 i ) )
7271eleq2d 2687 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( s  =  ( h `  i )  ->  ( (/) 
e.  dom  s  <->  (/)  e.  dom  ( h `  i
) ) )
7371eleq1d 2686 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( s  =  ( h `  i )  ->  ( dom  s  e.  om  <->  dom  ( h `  i
)  e.  om )
)
7472, 73anbi12d 747 . . . . . . . . . . . . . . . . . . . . 21  |-  ( s  =  ( h `  i )  ->  (
( (/)  e.  dom  s  /\  dom  s  e.  om ) 
<->  ( (/)  e.  dom  ( h `  i
)  /\  dom  ( h `
 i )  e. 
om ) ) )
7570, 74elab 3350 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( h `  i )  e.  { s  |  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) }  <->  ( (/)  e.  dom  ( h `  i
)  /\  dom  ( h `
 i )  e. 
om ) )
7669, 75sylib 208 . . . . . . . . . . . . . . . . . . 19  |-  ( ( h `  i )  e.  S  ->  ( (/) 
e.  dom  ( h `  i )  /\  dom  ( h `  i
)  e.  om )
)
7776simprd 479 . . . . . . . . . . . . . . . . . 18  |-  ( ( h `  i )  e.  S  ->  dom  ( h `  i
)  e.  om )
78 nnord 7073 . . . . . . . . . . . . . . . . . 18  |-  ( dom  ( h `  i
)  e.  om  ->  Ord 
dom  ( h `  i ) )
79 ordsucelsuc 7022 . . . . . . . . . . . . . . . . . 18  |-  ( Ord 
dom  ( h `  i )  ->  (
i  e.  dom  (
h `  i )  <->  suc  i  e.  suc  dom  ( h `  i
) ) )
8077, 78, 793syl 18 . . . . . . . . . . . . . . . . 17  |-  ( ( h `  i )  e.  S  ->  (
i  e.  dom  (
h `  i )  <->  suc  i  e.  suc  dom  ( h `  i
) ) )
8180adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  ( i  e.  dom  ( h `  i )  <->  suc  i  e. 
suc  dom  ( h `  i ) ) )
82 dmeq 5324 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( x  =  ( h `  i )  ->  dom  x  =  dom  ( h `
 i ) )
83 suceq 5790 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( dom  x  =  dom  (
h `  i )  ->  suc  dom  x  =  suc  dom  ( h `  i ) )
8482, 83syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( x  =  ( h `  i )  ->  suc  dom  x  =  suc  dom  ( h `  i
) )
8584eqeq2d 2632 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( x  =  ( h `  i )  ->  ( dom  y  =  suc  dom  x  <->  dom  y  =  suc  dom  ( h `  i
) ) )
8682reseq2d 5396 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( x  =  ( h `  i )  ->  (
y  |`  dom  x )  =  ( y  |`  dom  ( h `  i
) ) )
87 id 22 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( x  =  ( h `  i )  ->  x  =  ( h `  i ) )
8886, 87eqeq12d 2637 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( x  =  ( h `  i )  ->  (
( y  |`  dom  x
)  =  x  <->  ( y  |` 
dom  ( h `  i ) )  =  ( h `  i
) ) )
8985, 88anbi12d 747 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( x  =  ( h `  i )  ->  (
( dom  y  =  suc  dom  x  /\  (
y  |`  dom  x )  =  x )  <->  ( dom  y  =  suc  dom  (
h `  i )  /\  ( y  |`  dom  (
h `  i )
)  =  ( h `
 i ) ) ) )
9089rabbidv 3189 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x  =  ( h `  i )  ->  { y  e.  S  |  ( dom  y  =  suc  dom  x  /\  ( y  |`  dom  x )  =  x ) }  =  { y  e.  S  |  ( dom  y  =  suc  dom  ( h `  i )  /\  (
y  |`  dom  ( h `
 i ) )  =  ( h `  i ) ) } )
91 axdc3lem2.3 . . . . . . . . . . . . . . . . . . . . . 22  |-  G  =  ( x  e.  S  |->  { y  e.  S  |  ( dom  y  =  suc  dom  x  /\  ( y  |`  dom  x
)  =  x ) } )
92 axdc3lem2.1 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  A  e. 
_V
9392, 28axdc3lem 9272 . . . . . . . . . . . . . . . . . . . . . . 23  |-  S  e. 
_V
9493rabex 4813 . . . . . . . . . . . . . . . . . . . . . 22  |-  { y  e.  S  |  ( dom  y  =  suc  dom  ( h `  i
)  /\  ( y  |` 
dom  ( h `  i ) )  =  ( h `  i
) ) }  e.  _V
9590, 91, 94fvmpt 6282 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( h `  i )  e.  S  ->  ( G `  ( h `  i ) )  =  { y  e.  S  |  ( dom  y  =  suc  dom  ( h `  i )  /\  (
y  |`  dom  ( h `
 i ) )  =  ( h `  i ) ) } )
9695eleq2d 2687 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( h `  i )  e.  S  ->  (
( h `  suc  i )  e.  ( G `  ( h `
 i ) )  <-> 
( h `  suc  i )  e.  {
y  e.  S  | 
( dom  y  =  suc  dom  ( h `  i )  /\  (
y  |`  dom  ( h `
 i ) )  =  ( h `  i ) ) } ) )
97 dmeq 5324 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( y  =  ( h `  suc  i )  ->  dom  y  =  dom  ( h `
 suc  i )
)
9897eqeq1d 2624 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  =  ( h `  suc  i )  ->  ( dom  y  =  suc  dom  ( h `  i
)  <->  dom  ( h `  suc  i )  =  suc  dom  ( h `  i
) ) )
99 reseq1 5390 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( y  =  ( h `  suc  i )  ->  (
y  |`  dom  ( h `
 i ) )  =  ( ( h `
 suc  i )  |` 
dom  ( h `  i ) ) )
10099eqeq1d 2624 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  =  ( h `  suc  i )  ->  (
( y  |`  dom  (
h `  i )
)  =  ( h `
 i )  <->  ( (
h `  suc  i )  |`  dom  ( h `  i ) )  =  ( h `  i
) ) )
10198, 100anbi12d 747 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  =  ( h `  suc  i )  ->  (
( dom  y  =  suc  dom  ( h `  i )  /\  (
y  |`  dom  ( h `
 i ) )  =  ( h `  i ) )  <->  ( dom  ( h `  suc  i )  =  suc  dom  ( h `  i
)  /\  ( (
h `  suc  i )  |`  dom  ( h `  i ) )  =  ( h `  i
) ) ) )
102101elrab 3363 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( h `  suc  i
)  e.  { y  e.  S  |  ( dom  y  =  suc  dom  ( h `  i
)  /\  ( y  |` 
dom  ( h `  i ) )  =  ( h `  i
) ) }  <->  ( (
h `  suc  i )  e.  S  /\  ( dom  ( h `  suc  i )  =  suc  dom  ( h `  i
)  /\  ( (
h `  suc  i )  |`  dom  ( h `  i ) )  =  ( h `  i
) ) ) )
10396, 102syl6bb 276 . . . . . . . . . . . . . . . . . . 19  |-  ( ( h `  i )  e.  S  ->  (
( h `  suc  i )  e.  ( G `  ( h `
 i ) )  <-> 
( ( h `  suc  i )  e.  S  /\  ( dom  ( h `
 suc  i )  =  suc  dom  ( h `  i )  /\  (
( h `  suc  i )  |`  dom  (
h `  i )
)  =  ( h `
 i ) ) ) ) )
104103simplbda 654 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  ( dom  ( h `  suc  i )  =  suc  dom  ( h `  i
)  /\  ( (
h `  suc  i )  |`  dom  ( h `  i ) )  =  ( h `  i
) ) )
105104simpld 475 . . . . . . . . . . . . . . . . 17  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  dom  ( h `
 suc  i )  =  suc  dom  ( h `  i ) )
106105eleq2d 2687 . . . . . . . . . . . . . . . 16  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  ( suc  i  e.  dom  ( h `
 suc  i )  <->  suc  i  e.  suc  dom  ( h `  i
) ) )
10781, 106bitr4d 271 . . . . . . . . . . . . . . 15  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  ( i  e.  dom  ( h `  i )  <->  suc  i  e. 
dom  ( h `  suc  i ) ) )
108107biimpd 219 . . . . . . . . . . . . . 14  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  ( i  e.  dom  ( h `  i )  ->  suc  i  e.  dom  ( h `
 suc  i )
) )
109104simprd 479 . . . . . . . . . . . . . . 15  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  ( (
h `  suc  i )  |`  dom  ( h `  i ) )  =  ( h `  i
) )
110 resss 5422 . . . . . . . . . . . . . . . 16  |-  ( ( h `  suc  i
)  |`  dom  ( h `
 i ) ) 
C_  ( h `  suc  i )
111 sseq1 3626 . . . . . . . . . . . . . . . 16  |-  ( ( ( h `  suc  i )  |`  dom  (
h `  i )
)  =  ( h `
 i )  -> 
( ( ( h `
 suc  i )  |` 
dom  ( h `  i ) )  C_  ( h `  suc  i )  <->  ( h `  i )  C_  (
h `  suc  i ) ) )
112110, 111mpbii 223 . . . . . . . . . . . . . . 15  |-  ( ( ( h `  suc  i )  |`  dom  (
h `  i )
)  =  ( h `
 i )  -> 
( h `  i
)  C_  ( h `  suc  i ) )
113 elsuci 5791 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  suc  i  -> 
( j  e.  i  \/  j  =  i ) )
114 pm2.27 42 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  i  ->  (
( j  e.  i  ->  ( h `  j )  C_  (
h `  i )
)  ->  ( h `  j )  C_  (
h `  i )
) )
115 sstr2 3610 . . . . . . . . . . . . . . . . . . 19  |-  ( ( h `  j ) 
C_  ( h `  i )  ->  (
( h `  i
)  C_  ( h `  suc  i )  -> 
( h `  j
)  C_  ( h `  suc  i ) ) )
116114, 115syl6 35 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  i  ->  (
( j  e.  i  ->  ( h `  j )  C_  (
h `  i )
)  ->  ( (
h `  i )  C_  ( h `  suc  i )  ->  (
h `  j )  C_  ( h `  suc  i ) ) ) )
117 fveq2 6191 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  =  i  ->  (
h `  j )  =  ( h `  i ) )
118117sseq1d 3632 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  =  i  ->  (
( h `  j
)  C_  ( h `  suc  i )  <->  ( h `  i )  C_  (
h `  suc  i ) ) )
119118biimprd 238 . . . . . . . . . . . . . . . . . . 19  |-  ( j  =  i  ->  (
( h `  i
)  C_  ( h `  suc  i )  -> 
( h `  j
)  C_  ( h `  suc  i ) ) )
120119a1d 25 . . . . . . . . . . . . . . . . . 18  |-  ( j  =  i  ->  (
( j  e.  i  ->  ( h `  j )  C_  (
h `  i )
)  ->  ( (
h `  i )  C_  ( h `  suc  i )  ->  (
h `  j )  C_  ( h `  suc  i ) ) ) )
121116, 120jaoi 394 . . . . . . . . . . . . . . . . 17  |-  ( ( j  e.  i  \/  j  =  i )  ->  ( ( j  e.  i  ->  (
h `  j )  C_  ( h `  i
) )  ->  (
( h `  i
)  C_  ( h `  suc  i )  -> 
( h `  j
)  C_  ( h `  suc  i ) ) ) )
122113, 121syl 17 . . . . . . . . . . . . . . . 16  |-  ( j  e.  suc  i  -> 
( ( j  e.  i  ->  ( h `  j )  C_  (
h `  i )
)  ->  ( (
h `  i )  C_  ( h `  suc  i )  ->  (
h `  j )  C_  ( h `  suc  i ) ) ) )
123122com13 88 . . . . . . . . . . . . . . 15  |-  ( ( h `  i ) 
C_  ( h `  suc  i )  ->  (
( j  e.  i  ->  ( h `  j )  C_  (
h `  i )
)  ->  ( j  e.  suc  i  ->  (
h `  j )  C_  ( h `  suc  i ) ) ) )
124109, 112, 1233syl 18 . . . . . . . . . . . . . 14  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  ( (
j  e.  i  -> 
( h `  j
)  C_  ( h `  i ) )  -> 
( j  e.  suc  i  ->  ( h `  j )  C_  (
h `  suc  i ) ) ) )
125108, 124anim12d 586 . . . . . . . . . . . . 13  |-  ( ( ( h `  i
)  e.  S  /\  ( h `  suc  i )  e.  ( G `  ( h `
 i ) ) )  ->  ( (
i  e.  dom  (
h `  i )  /\  ( j  e.  i  ->  ( h `  j )  C_  (
h `  i )
) )  ->  ( suc  i  e.  dom  ( h `  suc  i )  /\  (
j  e.  suc  i  ->  ( h `  j
)  C_  ( h `  suc  i ) ) ) ) )
12661, 68, 125syl2anc 693 . . . . . . . . . . . 12  |-  ( ( i  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  (
( i  e.  dom  ( h `  i
)  /\  ( j  e.  i  ->  ( h `
 j )  C_  ( h `  i
) ) )  -> 
( suc  i  e.  dom  ( h `  suc  i )  /\  (
j  e.  suc  i  ->  ( h `  j
)  C_  ( h `  suc  i ) ) ) ) )
127126ex 450 . . . . . . . . . . 11  |-  ( i  e.  om  ->  (
( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  ->  ( (
i  e.  dom  (
h `  i )  /\  ( j  e.  i  ->  ( h `  j )  C_  (
h `  i )
) )  ->  ( suc  i  e.  dom  ( h `  suc  i )  /\  (
j  e.  suc  i  ->  ( h `  j
)  C_  ( h `  suc  i ) ) ) ) ) )
1288, 16, 24, 58, 127finds2 7094 . . . . . . . . . 10  |-  ( m  e.  om  ->  (
( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  ->  ( m  e.  dom  ( h `  m )  /\  (
j  e.  m  -> 
( h `  j
)  C_  ( h `  m ) ) ) ) )
129128imp 445 . . . . . . . . 9  |-  ( ( m  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  (
m  e.  dom  (
h `  m )  /\  ( j  e.  m  ->  ( h `  j
)  C_  ( h `  m ) ) ) )
130129simprd 479 . . . . . . . 8  |-  ( ( m  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  (
j  e.  m  -> 
( h `  j
)  C_  ( h `  m ) ) )
131130expcom 451 . . . . . . 7  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( m  e.  om  ->  ( j  e.  m  ->  ( h `  j
)  C_  ( h `  m ) ) ) )
132131ralrimdv 2968 . . . . . 6  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( m  e.  om  ->  A. j  e.  m  ( h `  j
)  C_  ( h `  m ) ) )
133132ralrimiv 2965 . . . . 5  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m ) )
134 frn 6053 . . . . . . . . . . . 12  |-  ( h : om --> S  ->  ran  h  C_  S )
135 ffun 6048 . . . . . . . . . . . . . . . 16  |-  ( s : suc  n --> A  ->  Fun  s )
1361353ad2ant1 1082 . . . . . . . . . . . . . . 15  |-  ( ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  Fun  s )
137136rexlimivw 3029 . . . . . . . . . . . . . 14  |-  ( E. n  e.  om  (
s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  Fun  s )
138137ss2abi 3674 . . . . . . . . . . . . 13  |-  { s  |  E. n  e. 
om  ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k )  e.  ( F `  (
s `  k )
) ) }  C_  { s  |  Fun  s }
13928, 138eqsstri 3635 . . . . . . . . . . . 12  |-  S  C_  { s  |  Fun  s }
140134, 139syl6ss 3615 . . . . . . . . . . 11  |-  ( h : om --> S  ->  ran  h  C_  { s  |  Fun  s } )
141140sseld 3602 . . . . . . . . . 10  |-  ( h : om --> S  -> 
( u  e.  ran  h  ->  u  e.  {
s  |  Fun  s } ) )
142 vex 3203 . . . . . . . . . . 11  |-  u  e. 
_V
143 funeq 5908 . . . . . . . . . . 11  |-  ( s  =  u  ->  ( Fun  s  <->  Fun  u ) )
144142, 143elab 3350 . . . . . . . . . 10  |-  ( u  e.  { s  |  Fun  s }  <->  Fun  u )
145141, 144syl6ib 241 . . . . . . . . 9  |-  ( h : om --> S  -> 
( u  e.  ran  h  ->  Fun  u )
)
146145adantr 481 . . . . . . . 8  |-  ( ( h : om --> S  /\  A. m  e.  om  A. j  e.  m  (
h `  j )  C_  ( h `  m
) )  ->  (
u  e.  ran  h  ->  Fun  u ) )
147 ffn 6045 . . . . . . . . 9  |-  ( h : om --> S  ->  h  Fn  om )
148 fvelrnb 6243 . . . . . . . . . . . . 13  |-  ( h  Fn  om  ->  (
v  e.  ran  h  <->  E. b  e.  om  (
h `  b )  =  v ) )
149 fvelrnb 6243 . . . . . . . . . . . . . . 15  |-  ( h  Fn  om  ->  (
u  e.  ran  h  <->  E. a  e.  om  (
h `  a )  =  u ) )
150 nnord 7073 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( a  e.  om  ->  Ord  a )
151 nnord 7073 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( b  e.  om  ->  Ord  b )
152150, 151anim12i 590 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( a  e.  om  /\  b  e.  om )  ->  ( Ord  a  /\  Ord  b ) )
153 ordtri3or 5755 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( Ord  a  /\  Ord  b )  ->  (
a  e.  b  \/  a  =  b  \/  b  e.  a ) )
154 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( m  =  b  ->  (
h `  m )  =  ( h `  b ) )
155154sseq2d 3633 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( m  =  b  ->  (
( h `  j
)  C_  ( h `  m )  <->  ( h `  j )  C_  (
h `  b )
) )
156155raleqbi1dv 3146 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( m  =  b  ->  ( A. j  e.  m  ( h `  j
)  C_  ( h `  m )  <->  A. j  e.  b  ( h `  j )  C_  (
h `  b )
) )
157156rspcv 3305 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( b  e.  om  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  ->  A. j  e.  b  ( h `  j )  C_  (
h `  b )
) )
158 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( j  =  a  ->  (
h `  j )  =  ( h `  a ) )
159158sseq1d 3632 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( j  =  a  ->  (
( h `  j
)  C_  ( h `  b )  <->  ( h `  a )  C_  (
h `  b )
) )
160159rspccv 3306 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( A. j  e.  b  (
h `  j )  C_  ( h `  b
)  ->  ( a  e.  b  ->  ( h `
 a )  C_  ( h `  b
) ) )
161157, 160syl6 35 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( b  e.  om  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  ->  (
a  e.  b  -> 
( h `  a
)  C_  ( h `  b ) ) ) )
162161adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
a  e.  b  -> 
( h `  a
)  C_  ( h `  b ) ) ) )
1631623imp 1256 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( a  e.  om  /\  b  e.  om )  /\  A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  /\  a  e.  b )  ->  (
h `  a )  C_  ( h `  b
) )
164163orcd 407 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( a  e.  om  /\  b  e.  om )  /\  A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  /\  a  e.  b )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) )
1651643exp 1264 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
a  e.  b  -> 
( ( h `  a )  C_  (
h `  b )  \/  ( h `  b
)  C_  ( h `  a ) ) ) ) )
166165com3r 87 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( a  e.  b  ->  (
( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) ) ) )
167 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( a  =  b  ->  (
h `  a )  =  ( h `  b ) )
168 eqimss 3657 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( h `  a )  =  ( h `  b )  ->  (
h `  a )  C_  ( h `  b
) )
169168orcd 407 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( h `  a )  =  ( h `  b )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) )
170167, 169syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( a  =  b  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) )
1711702a1d 26 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( a  =  b  ->  (
( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) ) ) )
172 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( m  =  a  ->  (
h `  m )  =  ( h `  a ) )
173172sseq2d 3633 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( m  =  a  ->  (
( h `  j
)  C_  ( h `  m )  <->  ( h `  j )  C_  (
h `  a )
) )
174173raleqbi1dv 3146 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( m  =  a  ->  ( A. j  e.  m  ( h `  j
)  C_  ( h `  m )  <->  A. j  e.  a  ( h `  j )  C_  (
h `  a )
) )
175174rspcv 3305 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( a  e.  om  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  ->  A. j  e.  a  ( h `  j )  C_  (
h `  a )
) )
176 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( j  =  b  ->  (
h `  j )  =  ( h `  b ) )
177176sseq1d 3632 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( j  =  b  ->  (
( h `  j
)  C_  ( h `  a )  <->  ( h `  b )  C_  (
h `  a )
) )
178177rspccv 3306 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( A. j  e.  a  (
h `  j )  C_  ( h `  a
)  ->  ( b  e.  a  ->  ( h `
 b )  C_  ( h `  a
) ) )
179175, 178syl6 35 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( a  e.  om  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  ->  (
b  e.  a  -> 
( h `  b
)  C_  ( h `  a ) ) ) )
180179adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
b  e.  a  -> 
( h `  b
)  C_  ( h `  a ) ) ) )
1811803imp 1256 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( a  e.  om  /\  b  e.  om )  /\  A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  /\  b  e.  a )  ->  (
h `  b )  C_  ( h `  a
) )
182181olcd 408 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( a  e.  om  /\  b  e.  om )  /\  A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  /\  b  e.  a )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) )
1831823exp 1264 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
b  e.  a  -> 
( ( h `  a )  C_  (
h `  b )  \/  ( h `  b
)  C_  ( h `  a ) ) ) ) )
184183com3r 87 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( b  e.  a  ->  (
( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) ) ) )
185166, 171, 1843jaoi 1391 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( a  e.  b  \/  a  =  b  \/  b  e.  a )  ->  ( ( a  e.  om  /\  b  e.  om )  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) ) ) )
186153, 185syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( Ord  a  /\  Ord  b )  ->  (
( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) ) ) )
187152, 186mpcom 38 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) ) ) )
188 sseq12 3628 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( h `  a
)  =  u  /\  ( h `  b
)  =  v )  ->  ( ( h `
 a )  C_  ( h `  b
)  <->  u  C_  v ) )
189 sseq12 3628 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( h `  b
)  =  v  /\  ( h `  a
)  =  u )  ->  ( ( h `
 b )  C_  ( h `  a
)  <->  v  C_  u
) )
190189ancoms 469 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( h `  a
)  =  u  /\  ( h `  b
)  =  v )  ->  ( ( h `
 b )  C_  ( h `  a
)  <->  v  C_  u
) )
191188, 190orbi12d 746 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( h `  a
)  =  u  /\  ( h `  b
)  =  v )  ->  ( ( ( h `  a ) 
C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) )  <->  ( u  C_  v  \/  v  C_  u ) ) )
192191biimpcd 239 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( h `  a
)  C_  ( h `  b )  \/  (
h `  b )  C_  ( h `  a
) )  ->  (
( ( h `  a )  =  u  /\  ( h `  b )  =  v )  ->  ( u  C_  v  \/  v  C_  u ) ) )
193187, 192syl6 35 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( a  e.  om  /\  b  e.  om )  ->  ( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
( ( h `  a )  =  u  /\  ( h `  b )  =  v )  ->  ( u  C_  v  \/  v  C_  u ) ) ) )
194193com23 86 . . . . . . . . . . . . . . . . . . 19  |-  ( ( a  e.  om  /\  b  e.  om )  ->  ( ( ( h `
 a )  =  u  /\  ( h `
 b )  =  v )  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  ->  (
u  C_  v  \/  v  C_  u ) ) ) )
195194exp4b 632 . . . . . . . . . . . . . . . . . 18  |-  ( a  e.  om  ->  (
b  e.  om  ->  ( ( h `  a
)  =  u  -> 
( ( h `  b )  =  v  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j )  C_  (
h `  m )  ->  ( u  C_  v  \/  v  C_  u ) ) ) ) ) )
196195com23 86 . . . . . . . . . . . . . . . . 17  |-  ( a  e.  om  ->  (
( h `  a
)  =  u  -> 
( b  e.  om  ->  ( ( h `  b )  =  v  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j )  C_  (
h `  m )  ->  ( u  C_  v  \/  v  C_  u ) ) ) ) ) )
197196rexlimiv 3027 . . . . . . . . . . . . . . . 16  |-  ( E. a  e.  om  (
h `  a )  =  u  ->  ( b  e.  om  ->  (
( h `  b
)  =  v  -> 
( A. m  e. 
om  A. j  e.  m  ( h `  j
)  C_  ( h `  m )  ->  (
u  C_  v  \/  v  C_  u ) ) ) ) )
198197rexlimdv 3030 . . . . . . . . . . . . . . 15  |-  ( E. a  e.  om  (
h `  a )  =  u  ->  ( E. b  e.  om  (
h `  b )  =  v  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j )  C_  (
h `  m )  ->  ( u  C_  v  \/  v  C_  u ) ) ) )
199149, 198syl6bi 243 . . . . . . . . . . . . . 14  |-  ( h  Fn  om  ->  (
u  e.  ran  h  ->  ( E. b  e. 
om  ( h `  b )  =  v  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j )  C_  (
h `  m )  ->  ( u  C_  v  \/  v  C_  u ) ) ) ) )
200199com23 86 . . . . . . . . . . . . 13  |-  ( h  Fn  om  ->  ( E. b  e.  om  ( h `  b
)  =  v  -> 
( u  e.  ran  h  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j )  C_  (
h `  m )  ->  ( u  C_  v  \/  v  C_  u ) ) ) ) )
201148, 200sylbid 230 . . . . . . . . . . . 12  |-  ( h  Fn  om  ->  (
v  e.  ran  h  ->  ( u  e.  ran  h  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j )  C_  (
h `  m )  ->  ( u  C_  v  \/  v  C_  u ) ) ) ) )
202201com24 95 . . . . . . . . . . 11  |-  ( h  Fn  om  ->  ( A. m  e.  om  A. j  e.  m  ( h `  j ) 
C_  ( h `  m )  ->  (
u  e.  ran  h  ->  ( v  e.  ran  h  ->  ( u  C_  v  \/  v  C_  u ) ) ) ) )
203202imp 445 . . . . . . . . . 10  |-  ( ( h  Fn  om  /\  A. m  e.  om  A. j  e.  m  (
h `  j )  C_  ( h `  m
) )  ->  (
u  e.  ran  h  ->  ( v  e.  ran  h  ->  ( u  C_  v  \/  v  C_  u ) ) ) )
204203ralrimdv 2968 . . . . . . . . 9  |-  ( ( h  Fn  om  /\  A. m  e.  om  A. j  e.  m  (
h `  j )  C_  ( h `  m
) )  ->  (
u  e.  ran  h  ->  A. v  e.  ran  h ( u  C_  v  \/  v  C_  u ) ) )
205147, 204sylan 488 . . . . . . . 8  |-  ( ( h : om --> S  /\  A. m  e.  om  A. j  e.  m  (
h `  j )  C_  ( h `  m
) )  ->  (
u  e.  ran  h  ->  A. v  e.  ran  h ( u  C_  v  \/  v  C_  u ) ) )
206146, 205jcad 555 . . . . . . 7  |-  ( ( h : om --> S  /\  A. m  e.  om  A. j  e.  m  (
h `  j )  C_  ( h `  m
) )  ->  (
u  e.  ran  h  ->  ( Fun  u  /\  A. v  e.  ran  h
( u  C_  v  \/  v  C_  u ) ) ) )
207206ralrimiv 2965 . . . . . 6  |-  ( ( h : om --> S  /\  A. m  e.  om  A. j  e.  m  (
h `  j )  C_  ( h `  m
) )  ->  A. u  e.  ran  h ( Fun  u  /\  A. v  e.  ran  h ( u 
C_  v  \/  v  C_  u ) ) )
208 fununi 5964 . . . . . 6  |-  ( A. u  e.  ran  h ( Fun  u  /\  A. v  e.  ran  h ( u  C_  v  \/  v  C_  u ) )  ->  Fun  U. ran  h
)
209207, 208syl 17 . . . . 5  |-  ( ( h : om --> S  /\  A. m  e.  om  A. j  e.  m  (
h `  j )  C_  ( h `  m
) )  ->  Fun  U.
ran  h )
210133, 209syldan 487 . . . 4  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  Fun  U. ran  h )
211 vex 3203 . . . . . . . . 9  |-  m  e. 
_V
212211eldm2 5322 . . . . . . . 8  |-  ( m  e.  dom  U. ran  h 
<->  E. u <. m ,  u >.  e.  U. ran  h )
213 eluni2 4440 . . . . . . . . . 10  |-  ( <.
m ,  u >.  e. 
U. ran  h  <->  E. v  e.  ran  h <. m ,  u >.  e.  v
)
214211, 142opeldm 5328 . . . . . . . . . . . . . . 15  |-  ( <.
m ,  u >.  e.  v  ->  m  e.  dom  v )
215214a1i 11 . . . . . . . . . . . . . 14  |-  ( h : om --> S  -> 
( <. m ,  u >.  e.  v  ->  m  e.  dom  v ) )
216134, 44syl6ss 3615 . . . . . . . . . . . . . . 15  |-  ( h : om --> S  ->  ran  h  C_  { s  |  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) } )
217 ssel 3597 . . . . . . . . . . . . . . . 16  |-  ( ran  h  C_  { s  |  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) }  ->  ( v  e.  ran  h  ->  v  e.  { s  |  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) } ) )
218 vex 3203 . . . . . . . . . . . . . . . . . 18  |-  v  e. 
_V
219 dmeq 5324 . . . . . . . . . . . . . . . . . . . 20  |-  ( s  =  v  ->  dom  s  =  dom  v )
220219eleq2d 2687 . . . . . . . . . . . . . . . . . . 19  |-  ( s  =  v  ->  ( (/) 
e.  dom  s  <->  (/)  e.  dom  v ) )
221219eleq1d 2686 . . . . . . . . . . . . . . . . . . 19  |-  ( s  =  v  ->  ( dom  s  e.  om  <->  dom  v  e.  om )
)
222220, 221anbi12d 747 . . . . . . . . . . . . . . . . . 18  |-  ( s  =  v  ->  (
( (/)  e.  dom  s  /\  dom  s  e.  om ) 
<->  ( (/)  e.  dom  v  /\  dom  v  e. 
om ) ) )
223218, 222elab 3350 . . . . . . . . . . . . . . . . 17  |-  ( v  e.  { s  |  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) }  <->  ( (/)  e.  dom  v  /\  dom  v  e. 
om ) )
224223simprbi 480 . . . . . . . . . . . . . . . 16  |-  ( v  e.  { s  |  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) }  ->  dom  v  e.  om )
225217, 224syl6 35 . . . . . . . . . . . . . . 15  |-  ( ran  h  C_  { s  |  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) }  ->  ( v  e.  ran  h  ->  dom  v  e.  om ) )
226216, 225syl 17 . . . . . . . . . . . . . 14  |-  ( h : om --> S  -> 
( v  e.  ran  h  ->  dom  v  e.  om ) )
227215, 226anim12d 586 . . . . . . . . . . . . 13  |-  ( h : om --> S  -> 
( ( <. m ,  u >.  e.  v  /\  v  e.  ran  h )  ->  (
m  e.  dom  v  /\  dom  v  e.  om ) ) )
228 elnn 7075 . . . . . . . . . . . . 13  |-  ( ( m  e.  dom  v  /\  dom  v  e.  om )  ->  m  e.  om )
229227, 228syl6 35 . . . . . . . . . . . 12  |-  ( h : om --> S  -> 
( ( <. m ,  u >.  e.  v  /\  v  e.  ran  h )  ->  m  e.  om ) )
230229expcomd 454 . . . . . . . . . . 11  |-  ( h : om --> S  -> 
( v  e.  ran  h  ->  ( <. m ,  u >.  e.  v  ->  m  e.  om )
) )
231230rexlimdv 3030 . . . . . . . . . 10  |-  ( h : om --> S  -> 
( E. v  e. 
ran  h <. m ,  u >.  e.  v  ->  m  e.  om )
)
232213, 231syl5bi 232 . . . . . . . . 9  |-  ( h : om --> S  -> 
( <. m ,  u >.  e.  U. ran  h  ->  m  e.  om )
)
233232exlimdv 1861 . . . . . . . 8  |-  ( h : om --> S  -> 
( E. u <. m ,  u >.  e.  U. ran  h  ->  m  e.  om ) )
234212, 233syl5bi 232 . . . . . . 7  |-  ( h : om --> S  -> 
( m  e.  dom  U.
ran  h  ->  m  e.  om ) )
235234adantr 481 . . . . . 6  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( m  e.  dom  U.
ran  h  ->  m  e.  om ) )
236 id 22 . . . . . . . . . . 11  |-  ( m  e.  om  ->  m  e.  om )
237 fnfvelrn 6356 . . . . . . . . . . 11  |-  ( ( h  Fn  om  /\  m  e.  om )  ->  ( h `  m
)  e.  ran  h
)
238147, 236, 237syl2anr 495 . . . . . . . . . 10  |-  ( ( m  e.  om  /\  h : om --> S )  ->  ( h `  m )  e.  ran  h )
239238adantrr 753 . . . . . . . . 9  |-  ( ( m  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  (
h `  m )  e.  ran  h )
240129simpld 475 . . . . . . . . 9  |-  ( ( m  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  m  e.  dom  ( h `  m ) )
241 dmeq 5324 . . . . . . . . . 10  |-  ( u  =  ( h `  m )  ->  dom  u  =  dom  ( h `
 m ) )
242241eliuni 4526 . . . . . . . . 9  |-  ( ( ( h `  m
)  e.  ran  h  /\  m  e.  dom  ( h `  m
) )  ->  m  e.  U_ u  e.  ran  h dom  u )
243239, 240, 242syl2anc 693 . . . . . . . 8  |-  ( ( m  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  m  e.  U_ u  e.  ran  h dom  u )
244 dmuni 5334 . . . . . . . 8  |-  dom  U. ran  h  =  U_ u  e.  ran  h dom  u
245243, 244syl6eleqr 2712 . . . . . . 7  |-  ( ( m  e.  om  /\  ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) ) )  ->  m  e.  dom  U. ran  h
)
246245expcom 451 . . . . . 6  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( m  e.  om  ->  m  e.  dom  U. ran  h ) )
247235, 246impbid 202 . . . . 5  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( m  e.  dom  U.
ran  h  <->  m  e.  om ) )
248247eqrdv 2620 . . . 4  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  dom  U. ran  h  =  om )
249 rnuni 5544 . . . . . 6  |-  ran  U. ran  h  =  U_ s  e.  ran  h ran  s
250 frn 6053 . . . . . . . . . . . . . 14  |-  ( s : suc  n --> A  ->  ran  s  C_  A )
2512503ad2ant1 1082 . . . . . . . . . . . . 13  |-  ( ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  ran  s  C_  A )
252251rexlimivw 3029 . . . . . . . . . . . 12  |-  ( E. n  e.  om  (
s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  ran  s  C_  A )
253252ss2abi 3674 . . . . . . . . . . 11  |-  { s  |  E. n  e. 
om  ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k )  e.  ( F `  (
s `  k )
) ) }  C_  { s  |  ran  s  C_  A }
25428, 253eqsstri 3635 . . . . . . . . . 10  |-  S  C_  { s  |  ran  s  C_  A }
255134, 254syl6ss 3615 . . . . . . . . 9  |-  ( h : om --> S  ->  ran  h  C_  { s  |  ran  s  C_  A } )
256 ssel 3597 . . . . . . . . . 10  |-  ( ran  h  C_  { s  |  ran  s  C_  A }  ->  ( s  e. 
ran  h  ->  s  e.  { s  |  ran  s  C_  A } ) )
257 abid 2610 . . . . . . . . . 10  |-  ( s  e.  { s  |  ran  s  C_  A } 
<->  ran  s  C_  A
)
258256, 257syl6ib 241 . . . . . . . . 9  |-  ( ran  h  C_  { s  |  ran  s  C_  A }  ->  ( s  e. 
ran  h  ->  ran  s  C_  A ) )
259255, 258syl 17 . . . . . . . 8  |-  ( h : om --> S  -> 
( s  e.  ran  h  ->  ran  s  C_  A ) )
260259ralrimiv 2965 . . . . . . 7  |-  ( h : om --> S  ->  A. s  e.  ran  h ran  s  C_  A
)
261 iunss 4561 . . . . . . 7  |-  ( U_ s  e.  ran  h ran  s  C_  A  <->  A. s  e.  ran  h ran  s  C_  A )
262260, 261sylibr 224 . . . . . 6  |-  ( h : om --> S  ->  U_ s  e.  ran  h ran  s  C_  A
)
263249, 262syl5eqss 3649 . . . . 5  |-  ( h : om --> S  ->  ran  U. ran  h  C_  A )
264263adantr 481 . . . 4  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  ran  U. ran  h  C_  A )
265 df-fn 5891 . . . . 5  |-  ( U. ran  h  Fn  om  <->  ( Fun  U.
ran  h  /\  dom  U.
ran  h  =  om ) )
266 df-f 5892 . . . . . 6  |-  ( U. ran  h : om --> A  <->  ( U. ran  h  Fn  om  /\  ran  U. ran  h  C_  A ) )
267266biimpri 218 . . . . 5  |-  ( ( U. ran  h  Fn 
om  /\  ran  U. ran  h  C_  A )  ->  U. ran  h : om --> A )
268265, 267sylanbr 490 . . . 4  |-  ( ( ( Fun  U. ran  h  /\  dom  U. ran  h  =  om )  /\  ran  U. ran  h  C_  A )  ->  U. ran  h : om --> A )
269210, 248, 264, 268syl21anc 1325 . . 3  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  U. ran  h : om --> A )
270 fnfvelrn 6356 . . . . . . . 8  |-  ( ( h  Fn  om  /\  (/) 
e.  om )  ->  (
h `  (/) )  e. 
ran  h )
271147, 25, 270sylancl 694 . . . . . . 7  |-  ( h : om --> S  -> 
( h `  (/) )  e. 
ran  h )
272271adantr 481 . . . . . 6  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( h `  (/) )  e. 
ran  h )
273 elssuni 4467 . . . . . 6  |-  ( ( h `  (/) )  e. 
ran  h  ->  (
h `  (/) )  C_  U.
ran  h )
274272, 273syl 17 . . . . 5  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( h `  (/) )  C_  U.
ran  h )
27554adantr 481 . . . . 5  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  (/) 
e.  dom  ( h `  (/) ) )
276 funssfv 6209 . . . . 5  |-  ( ( Fun  U. ran  h  /\  ( h `  (/) )  C_  U.
ran  h  /\  (/)  e.  dom  ( h `  (/) ) )  ->  ( U. ran  h `  (/) )  =  ( ( h `  (/) ) `  (/) ) )
277210, 274, 275, 276syl3anc 1326 . . . 4  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( U. ran  h `  (/) )  =  ( ( h `  (/) ) `  (/) ) )
278 simp2 1062 . . . . . . . . . . 11  |-  ( ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  ( s `  (/) )  =  C )
279278rexlimivw 3029 . . . . . . . . . 10  |-  ( E. n  e.  om  (
s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  ( s `  (/) )  =  C )
280279ss2abi 3674 . . . . . . . . 9  |-  { s  |  E. n  e. 
om  ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k )  e.  ( F `  (
s `  k )
) ) }  C_  { s  |  ( s `
 (/) )  =  C }
28128, 280eqsstri 3635 . . . . . . . 8  |-  S  C_  { s  |  ( s `
 (/) )  =  C }
282134, 281syl6ss 3615 . . . . . . 7  |-  ( h : om --> S  ->  ran  h  C_  { s  |  ( s `  (/) )  =  C }
)
283 ssel 3597 . . . . . . . 8  |-  ( ran  h  C_  { s  |  ( s `  (/) )  =  C }  ->  ( ( h `  (/) )  e.  ran  h  ->  ( h `  (/) )  e. 
{ s  |  ( s `  (/) )  =  C } ) )
284 fveq1 6190 . . . . . . . . . 10  |-  ( s  =  ( h `  (/) )  ->  ( s `  (/) )  =  ( ( h `  (/) ) `  (/) ) )
285284eqeq1d 2624 . . . . . . . . 9  |-  ( s  =  ( h `  (/) )  ->  ( (
s `  (/) )  =  C  <->  ( ( h `
 (/) ) `  (/) )  =  C ) )
28646, 285elab 3350 . . . . . . . 8  |-  ( ( h `  (/) )  e. 
{ s  |  ( s `  (/) )  =  C }  <->  ( (
h `  (/) ) `  (/) )  =  C )
287283, 286syl6ib 241 . . . . . . 7  |-  ( ran  h  C_  { s  |  ( s `  (/) )  =  C }  ->  ( ( h `  (/) )  e.  ran  h  ->  ( ( h `  (/) ) `  (/) )  =  C ) )
288282, 287syl 17 . . . . . 6  |-  ( h : om --> S  -> 
( ( h `  (/) )  e.  ran  h  ->  ( ( h `  (/) ) `  (/) )  =  C ) )
289288adantr 481 . . . . 5  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( ( h `  (/) )  e.  ran  h  ->  ( ( h `  (/) ) `  (/) )  =  C ) )
290272, 289mpd 15 . . . 4  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( ( h `  (/) ) `  (/) )  =  C )
291277, 290eqtrd 2656 . . 3  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( U. ran  h `  (/) )  =  C )
292 nfv 1843 . . . . 5  |-  F/ k  h : om --> S
293 nfra1 2941 . . . . 5  |-  F/ k A. k  e.  om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) )
294292, 293nfan 1828 . . . 4  |-  F/ k ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )
295134ad2antrr 762 . . . . . . 7  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  ran  h  C_  S )
296 peano2 7086 . . . . . . . . 9  |-  ( k  e.  om  ->  suc  k  e.  om )
297 fnfvelrn 6356 . . . . . . . . 9  |-  ( ( h  Fn  om  /\  suc  k  e.  om )  ->  ( h `  suc  k )  e.  ran  h )
298147, 296, 297syl2an 494 . . . . . . . 8  |-  ( ( h : om --> S  /\  k  e.  om )  ->  ( h `  suc  k )  e.  ran  h )
299298adantlr 751 . . . . . . 7  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  (
h `  suc  k )  e.  ran  h )
300240expcom 451 . . . . . . . . 9  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( m  e.  om  ->  m  e.  dom  (
h `  m )
) )
301300ralrimiv 2965 . . . . . . . 8  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  A. m  e.  om  m  e.  dom  ( h `
 m ) )
302 id 22 . . . . . . . . . . 11  |-  ( m  =  suc  k  ->  m  =  suc  k )
303 fveq2 6191 . . . . . . . . . . . 12  |-  ( m  =  suc  k  -> 
( h `  m
)  =  ( h `
 suc  k )
)
304303dmeqd 5326 . . . . . . . . . . 11  |-  ( m  =  suc  k  ->  dom  ( h `  m
)  =  dom  (
h `  suc  k ) )
305302, 304eleq12d 2695 . . . . . . . . . 10  |-  ( m  =  suc  k  -> 
( m  e.  dom  ( h `  m
)  <->  suc  k  e.  dom  ( h `  suc  k ) ) )
306305rspcv 3305 . . . . . . . . 9  |-  ( suc  k  e.  om  ->  ( A. m  e.  om  m  e.  dom  ( h `
 m )  ->  suc  k  e.  dom  ( h `  suc  k ) ) )
307296, 306syl 17 . . . . . . . 8  |-  ( k  e.  om  ->  ( A. m  e.  om  m  e.  dom  ( h `
 m )  ->  suc  k  e.  dom  ( h `  suc  k ) ) )
308301, 307mpan9 486 . . . . . . 7  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  suc  k  e.  dom  ( h `
 suc  k )
)
309 eleq2 2690 . . . . . . . . . . . . . . . . . . . . 21  |-  ( dom  s  =  suc  n  ->  ( suc  k  e. 
dom  s  <->  suc  k  e. 
suc  n ) )
310309biimpa 501 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( dom  s  =  suc  n  /\  suc  k  e. 
dom  s )  ->  suc  k  e.  suc  n )
31129, 310sylan 488 . . . . . . . . . . . . . . . . . . 19  |-  ( ( s : suc  n --> A  /\  suc  k  e. 
dom  s )  ->  suc  k  e.  suc  n )
312 ordsucelsuc 7022 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( Ord  n  ->  ( k  e.  n  <->  suc  k  e.  suc  n ) )
31330, 312syl 17 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  e.  om  ->  (
k  e.  n  <->  suc  k  e. 
suc  n ) )
314313biimprd 238 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  e.  om  ->  ( suc  k  e.  suc  n  ->  k  e.  n
) )
315 rsp 2929 . . . . . . . . . . . . . . . . . . . . 21  |-  ( A. k  e.  n  (
s `  suc  k )  e.  ( F `  ( s `  k
) )  ->  (
k  e.  n  -> 
( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) )
316314, 315syl9r 78 . . . . . . . . . . . . . . . . . . . 20  |-  ( A. k  e.  n  (
s `  suc  k )  e.  ( F `  ( s `  k
) )  ->  (
n  e.  om  ->  ( suc  k  e.  suc  n  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) ) )
317316com13 88 . . . . . . . . . . . . . . . . . . 19  |-  ( suc  k  e.  suc  n  ->  ( n  e.  om  ->  ( A. k  e.  n  ( s `  suc  k )  e.  ( F `  ( s `
 k ) )  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) ) )
318311, 317syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ( s : suc  n --> A  /\  suc  k  e. 
dom  s )  -> 
( n  e.  om  ->  ( A. k  e.  n  ( s `  suc  k )  e.  ( F `  ( s `
 k ) )  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) ) )
319318ex 450 . . . . . . . . . . . . . . . . 17  |-  ( s : suc  n --> A  -> 
( suc  k  e.  dom  s  ->  ( n  e.  om  ->  ( A. k  e.  n  ( s `  suc  k )  e.  ( F `  ( s `
 k ) )  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) ) ) )
320319com24 95 . . . . . . . . . . . . . . . 16  |-  ( s : suc  n --> A  -> 
( A. k  e.  n  ( s `  suc  k )  e.  ( F `  ( s `
 k ) )  ->  ( n  e. 
om  ->  ( suc  k  e.  dom  s  ->  (
s `  suc  k )  e.  ( F `  ( s `  k
) ) ) ) ) )
321320imp 445 . . . . . . . . . . . . . . 15  |-  ( ( s : suc  n --> A  /\  A. k  e.  n  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) )  ->  ( n  e.  om  ->  ( suc  k  e.  dom  s  -> 
( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) ) )
3223213adant2 1080 . . . . . . . . . . . . . 14  |-  ( ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  ( n  e. 
om  ->  ( suc  k  e.  dom  s  ->  (
s `  suc  k )  e.  ( F `  ( s `  k
) ) ) ) )
323322impcom 446 . . . . . . . . . . . . 13  |-  ( ( n  e.  om  /\  ( s : suc  n
--> A  /\  ( s `
 (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) )  ->  ( suc  k  e.  dom  s  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) )
324323rexlimiva 3028 . . . . . . . . . . . 12  |-  ( E. n  e.  om  (
s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k
)  e.  ( F `
 ( s `  k ) ) )  ->  ( suc  k  e.  dom  s  ->  (
s `  suc  k )  e.  ( F `  ( s `  k
) ) ) )
325324ss2abi 3674 . . . . . . . . . . 11  |-  { s  |  E. n  e. 
om  ( s : suc  n --> A  /\  ( s `  (/) )  =  C  /\  A. k  e.  n  ( s `  suc  k )  e.  ( F `  (
s `  k )
) ) }  C_  { s  |  ( suc  k  e.  dom  s  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) }
32628, 325eqsstri 3635 . . . . . . . . . 10  |-  S  C_  { s  |  ( suc  k  e.  dom  s  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) }
327 sstr 3611 . . . . . . . . . 10  |-  ( ( ran  h  C_  S  /\  S  C_  { s  |  ( suc  k  e.  dom  s  ->  (
s `  suc  k )  e.  ( F `  ( s `  k
) ) ) } )  ->  ran  h  C_  { s  |  ( suc  k  e.  dom  s  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) } )
328326, 327mpan2 707 . . . . . . . . 9  |-  ( ran  h  C_  S  ->  ran  h  C_  { s  |  ( suc  k  e.  dom  s  ->  (
s `  suc  k )  e.  ( F `  ( s `  k
) ) ) } )
329328sseld 3602 . . . . . . . 8  |-  ( ran  h  C_  S  ->  ( ( h `  suc  k )  e.  ran  h  ->  ( h `  suc  k )  e.  {
s  |  ( suc  k  e.  dom  s  ->  ( s `  suc  k )  e.  ( F `  ( s `
 k ) ) ) } ) )
330 fvex 6201 . . . . . . . . 9  |-  ( h `
 suc  k )  e.  _V
331 dmeq 5324 . . . . . . . . . . 11  |-  ( s  =  ( h `  suc  k )  ->  dom  s  =  dom  ( h `
 suc  k )
)
332331eleq2d 2687 . . . . . . . . . 10  |-  ( s  =  ( h `  suc  k )  ->  ( suc  k  e.  dom  s 
<->  suc  k  e.  dom  ( h `  suc  k ) ) )
333 fveq1 6190 . . . . . . . . . . 11  |-  ( s  =  ( h `  suc  k )  ->  (
s `  suc  k )  =  ( ( h `
 suc  k ) `  suc  k ) )
334 fveq1 6190 . . . . . . . . . . . 12  |-  ( s  =  ( h `  suc  k )  ->  (
s `  k )  =  ( ( h `
 suc  k ) `  k ) )
335334fveq2d 6195 . . . . . . . . . . 11  |-  ( s  =  ( h `  suc  k )  ->  ( F `  ( s `  k ) )  =  ( F `  (
( h `  suc  k ) `  k
) ) )
336333, 335eleq12d 2695 . . . . . . . . . 10  |-  ( s  =  ( h `  suc  k )  ->  (
( s `  suc  k )  e.  ( F `  ( s `
 k ) )  <-> 
( ( h `  suc  k ) `  suc  k )  e.  ( F `  ( ( h `  suc  k
) `  k )
) ) )
337332, 336imbi12d 334 . . . . . . . . 9  |-  ( s  =  ( h `  suc  k )  ->  (
( suc  k  e.  dom  s  ->  ( s `
 suc  k )  e.  ( F `  (
s `  k )
) )  <->  ( suc  k  e.  dom  ( h `
 suc  k )  ->  ( ( h `  suc  k ) `  suc  k )  e.  ( F `  ( ( h `  suc  k
) `  k )
) ) ) )
338330, 337elab 3350 . . . . . . . 8  |-  ( ( h `  suc  k
)  e.  { s  |  ( suc  k  e.  dom  s  ->  (
s `  suc  k )  e.  ( F `  ( s `  k
) ) ) }  <-> 
( suc  k  e.  dom  ( h `  suc  k )  ->  (
( h `  suc  k ) `  suc  k )  e.  ( F `  ( ( h `  suc  k
) `  k )
) ) )
339329, 338syl6ib 241 . . . . . . 7  |-  ( ran  h  C_  S  ->  ( ( h `  suc  k )  e.  ran  h  ->  ( suc  k  e.  dom  ( h `  suc  k )  ->  (
( h `  suc  k ) `  suc  k )  e.  ( F `  ( ( h `  suc  k
) `  k )
) ) ) )
340295, 299, 308, 339syl3c 66 . . . . . 6  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  (
( h `  suc  k ) `  suc  k )  e.  ( F `  ( ( h `  suc  k
) `  k )
) )
341210adantr 481 . . . . . . . 8  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  Fun  U.
ran  h )
342 elssuni 4467 . . . . . . . . . 10  |-  ( ( h `  suc  k
)  e.  ran  h  ->  ( h `  suc  k )  C_  U. ran  h )
343298, 342syl 17 . . . . . . . . 9  |-  ( ( h : om --> S  /\  k  e.  om )  ->  ( h `  suc  k )  C_  U. ran  h )
344343adantlr 751 . . . . . . . 8  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  (
h `  suc  k ) 
C_  U. ran  h )
345 funssfv 6209 . . . . . . . 8  |-  ( ( Fun  U. ran  h  /\  ( h `  suc  k )  C_  U. ran  h  /\  suc  k  e. 
dom  ( h `  suc  k ) )  -> 
( U. ran  h `  suc  k )  =  ( ( h `  suc  k ) `  suc  k ) )
346341, 344, 308, 345syl3anc 1326 . . . . . . 7  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  ( U. ran  h `  suc  k )  =  ( ( h `  suc  k ) `  suc  k ) )
347216sseld 3602 . . . . . . . . . . . . . . 15  |-  ( h : om --> S  -> 
( ( h `  suc  k )  e.  ran  h  ->  ( h `  suc  k )  e.  {
s  |  ( (/)  e.  dom  s  /\  dom  s  e.  om ) } ) )
348331eleq2d 2687 . . . . . . . . . . . . . . . . 17  |-  ( s  =  ( h `  suc  k )  ->  ( (/) 
e.  dom  s  <->  (/)  e.  dom  ( h `  suc  k ) ) )
349331eleq1d 2686 . . . . . . . . . . . . . . . . 17  |-  ( s  =  ( h `  suc  k )  ->  ( dom  s  e.  om  <->  dom  ( h `  suc  k )  e.  om ) )
350348, 349anbi12d 747 . . . . . . . . . . . . . . . 16  |-  ( s  =  ( h `  suc  k )  ->  (
( (/)  e.  dom  s  /\  dom  s  e.  om ) 
<->  ( (/)  e.  dom  ( h `  suc  k )  /\  dom  ( h `  suc  k )  e.  om ) ) )
351330, 350elab 3350 . . . . . . . . . . . . . . 15  |-  ( ( h `  suc  k
)  e.  { s  |  ( (/)  e.  dom  s  /\  dom  s  e. 
om ) }  <->  ( (/)  e.  dom  ( h `  suc  k )  /\  dom  ( h `  suc  k )  e.  om ) )
352347, 351syl6ib 241 . . . . . . . . . . . . . 14  |-  ( h : om --> S  -> 
( ( h `  suc  k )  e.  ran  h  ->  ( (/)  e.  dom  ( h `  suc  k )  /\  dom  ( h `  suc  k )  e.  om ) ) )
353352adantr 481 . . . . . . . . . . . . 13  |-  ( ( h : om --> S  /\  k  e.  om )  ->  ( ( h `  suc  k )  e.  ran  h  ->  ( (/)  e.  dom  ( h `  suc  k )  /\  dom  ( h `  suc  k )  e.  om ) ) )
354298, 353mpd 15 . . . . . . . . . . . 12  |-  ( ( h : om --> S  /\  k  e.  om )  ->  ( (/)  e.  dom  ( h `  suc  k )  /\  dom  ( h `  suc  k )  e.  om ) )
355354simprd 479 . . . . . . . . . . 11  |-  ( ( h : om --> S  /\  k  e.  om )  ->  dom  ( h `  suc  k )  e.  om )
356 nnord 7073 . . . . . . . . . . 11  |-  ( dom  ( h `  suc  k )  e.  om  ->  Ord  dom  ( h `  suc  k ) )
357 ordtr 5737 . . . . . . . . . . 11  |-  ( Ord 
dom  ( h `  suc  k )  ->  Tr  dom  ( h `  suc  k ) )
358 trsuc 5810 . . . . . . . . . . . 12  |-  ( ( Tr  dom  ( h `
 suc  k )  /\  suc  k  e.  dom  ( h `  suc  k ) )  -> 
k  e.  dom  (
h `  suc  k ) )
359358ex 450 . . . . . . . . . . 11  |-  ( Tr 
dom  ( h `  suc  k )  ->  ( suc  k  e.  dom  ( h `  suc  k )  ->  k  e.  dom  ( h `  suc  k ) ) )
360355, 356, 357, 3594syl 19 . . . . . . . . . 10  |-  ( ( h : om --> S  /\  k  e.  om )  ->  ( suc  k  e. 
dom  ( h `  suc  k )  ->  k  e.  dom  ( h `  suc  k ) ) )
361360adantlr 751 . . . . . . . . 9  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  ( suc  k  e.  dom  ( h `  suc  k )  ->  k  e.  dom  ( h `  suc  k ) ) )
362308, 361mpd 15 . . . . . . . 8  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  k  e.  dom  ( h `  suc  k ) )
363 funssfv 6209 . . . . . . . 8  |-  ( ( Fun  U. ran  h  /\  ( h `  suc  k )  C_  U. ran  h  /\  k  e.  dom  ( h `  suc  k ) )  -> 
( U. ran  h `  k )  =  ( ( h `  suc  k ) `  k
) )
364341, 344, 362, 363syl3anc 1326 . . . . . . 7  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  ( U. ran  h `  k
)  =  ( ( h `  suc  k
) `  k )
)
365 simpl 473 . . . . . . . 8  |-  ( ( ( U. ran  h `  suc  k )  =  ( ( h `  suc  k ) `  suc  k )  /\  ( U. ran  h `  k
)  =  ( ( h `  suc  k
) `  k )
)  ->  ( U. ran  h `  suc  k
)  =  ( ( h `  suc  k
) `  suc  k ) )
366 simpr 477 . . . . . . . . 9  |-  ( ( ( U. ran  h `  suc  k )  =  ( ( h `  suc  k ) `  suc  k )  /\  ( U. ran  h `  k
)  =  ( ( h `  suc  k
) `  k )
)  ->  ( U. ran  h `  k )  =  ( ( h `
 suc  k ) `  k ) )
367366fveq2d 6195 . . . . . . . 8  |-  ( ( ( U. ran  h `  suc  k )  =  ( ( h `  suc  k ) `  suc  k )  /\  ( U. ran  h `  k
)  =  ( ( h `  suc  k
) `  k )
)  ->  ( F `  ( U. ran  h `  k ) )  =  ( F `  (
( h `  suc  k ) `  k
) ) )
368365, 367eleq12d 2695 . . . . . . 7  |-  ( ( ( U. ran  h `  suc  k )  =  ( ( h `  suc  k ) `  suc  k )  /\  ( U. ran  h `  k
)  =  ( ( h `  suc  k
) `  k )
)  ->  ( ( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k ) )  <->  ( ( h `
 suc  k ) `  suc  k )  e.  ( F `  (
( h `  suc  k ) `  k
) ) ) )
369346, 364, 368syl2anc 693 . . . . . 6  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  (
( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k
) )  <->  ( (
h `  suc  k ) `
 suc  k )  e.  ( F `  (
( h `  suc  k ) `  k
) ) ) )
370340, 369mpbird 247 . . . . 5  |-  ( ( ( h : om --> S  /\  A. k  e. 
om  ( h `  suc  k )  e.  ( G `  ( h `
 k ) ) )  /\  k  e. 
om )  ->  ( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k ) ) )
371370ex 450 . . . 4  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  -> 
( k  e.  om  ->  ( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k
) ) ) )
372294, 371ralrimi 2957 . . 3  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  A. k  e.  om  ( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k ) ) )
373 vex 3203 . . . . . 6  |-  h  e. 
_V
374373rnex 7100 . . . . 5  |-  ran  h  e.  _V
375374uniex 6953 . . . 4  |-  U. ran  h  e.  _V
376 feq1 6026 . . . . 5  |-  ( g  =  U. ran  h  ->  ( g : om --> A 
<-> 
U. ran  h : om
--> A ) )
377 fveq1 6190 . . . . . 6  |-  ( g  =  U. ran  h  ->  ( g `  (/) )  =  ( U. ran  h `  (/) ) )
378377eqeq1d 2624 . . . . 5  |-  ( g  =  U. ran  h  ->  ( ( g `  (/) )  =  C  <->  ( U. ran  h `  (/) )  =  C ) )
379 fveq1 6190 . . . . . . 7  |-  ( g  =  U. ran  h  ->  ( g `  suc  k )  =  ( U. ran  h `  suc  k ) )
380 fveq1 6190 . . . . . . . 8  |-  ( g  =  U. ran  h  ->  ( g `  k
)  =  ( U. ran  h `  k ) )
381380fveq2d 6195 . . . . . . 7  |-  ( g  =  U. ran  h  ->  ( F `  (
g `  k )
)  =  ( F `
 ( U. ran  h `  k )
) )
382379, 381eleq12d 2695 . . . . . 6  |-  ( g  =  U. ran  h  ->  ( ( g `  suc  k )  e.  ( F `  ( g `
 k ) )  <-> 
( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k
) ) ) )
383382ralbidv 2986 . . . . 5  |-  ( g  =  U. ran  h  ->  ( A. k  e. 
om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) )  <->  A. k  e.  om  ( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k ) ) ) )
384376, 378, 3833anbi123d 1399 . . . 4  |-  ( g  =  U. ran  h  ->  ( ( g : om --> A  /\  (
g `  (/) )  =  C  /\  A. k  e.  om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) )  <->  ( U. ran  h : om --> A  /\  ( U. ran  h `  (/) )  =  C  /\  A. k  e.  om  ( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k ) ) ) ) )
385375, 384spcev 3300 . . 3  |-  ( ( U. ran  h : om --> A  /\  ( U. ran  h `  (/) )  =  C  /\  A. k  e.  om  ( U. ran  h `  suc  k )  e.  ( F `  ( U. ran  h `  k ) ) )  ->  E. g ( g : om --> A  /\  ( g `  (/) )  =  C  /\  A. k  e.  om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) ) )
386269, 291, 372, 385syl3anc 1326 . 2  |-  ( ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  E. g ( g : om --> A  /\  (
g `  (/) )  =  C  /\  A. k  e.  om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) ) )
387386exlimiv 1858 1  |-  ( E. h ( h : om --> S  /\  A. k  e.  om  (
h `  suc  k )  e.  ( G `  ( h `  k
) ) )  ->  E. g ( g : om --> A  /\  (
g `  (/) )  =  C  /\  A. k  e.  om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    \/ w3o 1036    /\ w3a 1037    = wceq 1483   E.wex 1704    e. wcel 1990   {cab 2608   A.wral 2912   E.wrex 2913   {crab 2916   _Vcvv 3200    C_ wss 3574   (/)c0 3915   <.cop 4183   U.cuni 4436   U_ciun 4520    |-> cmpt 4729   Tr wtr 4752   dom cdm 5114   ran crn 5115    |` cres 5116   Ord word 5722   suc csuc 5725   Fun wfun 5882    Fn wfn 5883   -->wf 5884   ` cfv 5888   omcom 7065
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-dc 9268
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-fv 5896  df-om 7066  df-1o 7560
This theorem is referenced by:  axdc3lem4  9275
  Copyright terms: Public domain W3C validator