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

Theorem axdc2lem 9270
Description: Lemma for axdc2 9271. We construct a relation  R based on  F such that  x R y iff  y  e.  ( F `
 x ), and show that the "function" described by ax-dc 9268 can be restricted so that it is a real function (since the stated properties only show that it is the superset of a function). (Contributed by Mario Carneiro, 25-Jan-2013.) (Revised by Mario Carneiro, 26-Jun-2015.)
Hypotheses
Ref Expression
axdc2lem.1  |-  A  e. 
_V
axdc2lem.2  |-  R  =  { <. x ,  y
>.  |  ( x  e.  A  /\  y  e.  ( F `  x
) ) }
axdc2lem.3  |-  G  =  ( x  e.  om  |->  ( h `  x
) )
Assertion
Ref Expression
axdc2lem  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  E. g ( g : om --> A  /\  A. k  e.  om  (
g `  suc  k )  e.  ( F `  ( g `  k
) ) ) )
Distinct variable groups:    A, g, h    x, A, y, h   
g, F, h    x, F, y    g, G, k   
x, G, y, k    R, h, k, x
Allowed substitution hints:    A( k)    R( y, g)    F( k)    G( h)

Proof of Theorem axdc2lem
Dummy variable  r is distinct from all other variables.
StepHypRef Expression
1 ffvelrn 6357 . . . . . . . . 9  |-  ( ( F : A --> ( ~P A  \  { (/) } )  /\  x  e.  A )  ->  ( F `  x )  e.  ( ~P A  \  { (/) } ) )
2 eldifsni 4320 . . . . . . . . . 10  |-  ( ( F `  x )  e.  ( ~P A  \  { (/) } )  -> 
( F `  x
)  =/=  (/) )
3 n0 3931 . . . . . . . . . 10  |-  ( ( F `  x )  =/=  (/)  <->  E. y  y  e.  ( F `  x
) )
42, 3sylib 208 . . . . . . . . 9  |-  ( ( F `  x )  e.  ( ~P A  \  { (/) } )  ->  E. y  y  e.  ( F `  x ) )
51, 4syl 17 . . . . . . . 8  |-  ( ( F : A --> ( ~P A  \  { (/) } )  /\  x  e.  A )  ->  E. y 
y  e.  ( F `
 x ) )
65ralrimiva 2966 . . . . . . 7  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  A. x  e.  A  E. y 
y  e.  ( F `
 x ) )
7 rabid2 3118 . . . . . . 7  |-  ( A  =  { x  e.  A  |  E. y 
y  e.  ( F `
 x ) }  <->  A. x  e.  A  E. y  y  e.  ( F `  x ) )
86, 7sylibr 224 . . . . . 6  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  A  =  { x  e.  A  |  E. y  y  e.  ( F `  x
) } )
9 axdc2lem.2 . . . . . . . 8  |-  R  =  { <. x ,  y
>.  |  ( x  e.  A  /\  y  e.  ( F `  x
) ) }
109dmeqi 5325 . . . . . . 7  |-  dom  R  =  dom  { <. x ,  y >.  |  ( x  e.  A  /\  y  e.  ( F `  x ) ) }
11 19.42v 1918 . . . . . . . . 9  |-  ( E. y ( x  e.  A  /\  y  e.  ( F `  x
) )  <->  ( x  e.  A  /\  E. y 
y  e.  ( F `
 x ) ) )
1211abbii 2739 . . . . . . . 8  |-  { x  |  E. y ( x  e.  A  /\  y  e.  ( F `  x
) ) }  =  { x  |  (
x  e.  A  /\  E. y  y  e.  ( F `  x ) ) }
13 dmopab 5335 . . . . . . . 8  |-  dom  { <. x ,  y >.  |  ( x  e.  A  /\  y  e.  ( F `  x
) ) }  =  { x  |  E. y ( x  e.  A  /\  y  e.  ( F `  x
) ) }
14 df-rab 2921 . . . . . . . 8  |-  { x  e.  A  |  E. y  y  e.  ( F `  x ) }  =  { x  |  ( x  e.  A  /\  E. y 
y  e.  ( F `
 x ) ) }
1512, 13, 143eqtr4i 2654 . . . . . . 7  |-  dom  { <. x ,  y >.  |  ( x  e.  A  /\  y  e.  ( F `  x
) ) }  =  { x  e.  A  |  E. y  y  e.  ( F `  x
) }
1610, 15eqtri 2644 . . . . . 6  |-  dom  R  =  { x  e.  A  |  E. y  y  e.  ( F `  x
) }
178, 16syl6reqr 2675 . . . . 5  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  dom  R  =  A )
1817neeq1d 2853 . . . 4  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  ( dom  R  =/=  (/)  <->  A  =/=  (/) ) )
1918biimparc 504 . . 3  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  dom  R  =/=  (/) )
20 eldifi 3732 . . . . . . . . . 10  |-  ( ( F `  x )  e.  ( ~P A  \  { (/) } )  -> 
( F `  x
)  e.  ~P A
)
21 elelpwi 4171 . . . . . . . . . . 11  |-  ( ( y  e.  ( F `
 x )  /\  ( F `  x )  e.  ~P A )  ->  y  e.  A
)
2221expcom 451 . . . . . . . . . 10  |-  ( ( F `  x )  e.  ~P A  -> 
( y  e.  ( F `  x )  ->  y  e.  A
) )
231, 20, 223syl 18 . . . . . . . . 9  |-  ( ( F : A --> ( ~P A  \  { (/) } )  /\  x  e.  A )  ->  (
y  e.  ( F `
 x )  -> 
y  e.  A ) )
2423expimpd 629 . . . . . . . 8  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  ( (
x  e.  A  /\  y  e.  ( F `  x ) )  -> 
y  e.  A ) )
2524exlimdv 1861 . . . . . . 7  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  ( E. x ( x  e.  A  /\  y  e.  ( F `  x
) )  ->  y  e.  A ) )
2625alrimiv 1855 . . . . . 6  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  A. y
( E. x ( x  e.  A  /\  y  e.  ( F `  x ) )  -> 
y  e.  A ) )
279rneqi 5352 . . . . . . . . 9  |-  ran  R  =  ran  { <. x ,  y >.  |  ( x  e.  A  /\  y  e.  ( F `  x ) ) }
28 rnopab 5370 . . . . . . . . 9  |-  ran  { <. x ,  y >.  |  ( x  e.  A  /\  y  e.  ( F `  x
) ) }  =  { y  |  E. x ( x  e.  A  /\  y  e.  ( F `  x
) ) }
2927, 28eqtri 2644 . . . . . . . 8  |-  ran  R  =  { y  |  E. x ( x  e.  A  /\  y  e.  ( F `  x
) ) }
3029sseq1i 3629 . . . . . . 7  |-  ( ran 
R  C_  A  <->  { y  |  E. x ( x  e.  A  /\  y  e.  ( F `  x
) ) }  C_  A )
31 abss 3671 . . . . . . 7  |-  ( { y  |  E. x
( x  e.  A  /\  y  e.  ( F `  x )
) }  C_  A  <->  A. y ( E. x
( x  e.  A  /\  y  e.  ( F `  x )
)  ->  y  e.  A ) )
3230, 31bitri 264 . . . . . 6  |-  ( ran 
R  C_  A  <->  A. y
( E. x ( x  e.  A  /\  y  e.  ( F `  x ) )  -> 
y  e.  A ) )
3326, 32sylibr 224 . . . . 5  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  ran  R  C_  A )
3433, 17sseqtr4d 3642 . . . 4  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  ran  R  C_  dom  R )
3534adantl 482 . . 3  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  ran  R  C_  dom  R )
36 fvrn0 6216 . . . . . . . . . 10  |-  ( F `
 x )  e.  ( ran  F  u.  {
(/) } )
37 elssuni 4467 . . . . . . . . . 10  |-  ( ( F `  x )  e.  ( ran  F  u.  { (/) } )  -> 
( F `  x
)  C_  U. ( ran  F  u.  { (/) } ) )
3836, 37ax-mp 5 . . . . . . . . 9  |-  ( F `
 x )  C_  U. ( ran  F  u.  {
(/) } )
3938sseli 3599 . . . . . . . 8  |-  ( y  e.  ( F `  x )  ->  y  e.  U. ( ran  F  u.  { (/) } ) )
4039anim2i 593 . . . . . . 7  |-  ( ( x  e.  A  /\  y  e.  ( F `  x ) )  -> 
( x  e.  A  /\  y  e.  U. ( ran  F  u.  { (/) } ) ) )
4140ssopab2i 5003 . . . . . 6  |-  { <. x ,  y >.  |  ( x  e.  A  /\  y  e.  ( F `  x ) ) } 
C_  { <. x ,  y >.  |  ( x  e.  A  /\  y  e.  U. ( ran  F  u.  { (/) } ) ) }
42 df-xp 5120 . . . . . 6  |-  ( A  X.  U. ( ran 
F  u.  { (/) } ) )  =  { <. x ,  y >.  |  ( x  e.  A  /\  y  e. 
U. ( ran  F  u.  { (/) } ) ) }
4341, 9, 423sstr4i 3644 . . . . 5  |-  R  C_  ( A  X.  U. ( ran  F  u.  { (/) } ) )
44 axdc2lem.1 . . . . . 6  |-  A  e. 
_V
45 frn 6053 . . . . . . . . . 10  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  ran  F  C_  ( ~P A  \  { (/)
} ) )
4645adantl 482 . . . . . . . . 9  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  ran  F  C_  ( ~P A  \  { (/) } ) )
4744pwex 4848 . . . . . . . . . . 11  |-  ~P A  e.  _V
48 difexg 4808 . . . . . . . . . . 11  |-  ( ~P A  e.  _V  ->  ( ~P A  \  { (/)
} )  e.  _V )
4947, 48ax-mp 5 . . . . . . . . . 10  |-  ( ~P A  \  { (/) } )  e.  _V
5049ssex 4802 . . . . . . . . 9  |-  ( ran 
F  C_  ( ~P A  \  { (/) } )  ->  ran  F  e.  _V )
5146, 50syl 17 . . . . . . . 8  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  ran  F  e.  _V )
52 p0ex 4853 . . . . . . . 8  |-  { (/) }  e.  _V
53 unexg 6959 . . . . . . . 8  |-  ( ( ran  F  e.  _V  /\ 
{ (/) }  e.  _V )  ->  ( ran  F  u.  { (/) } )  e. 
_V )
5451, 52, 53sylancl 694 . . . . . . 7  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  ( ran  F  u.  { (/) } )  e. 
_V )
55 uniexg 6955 . . . . . . 7  |-  ( ( ran  F  u.  { (/)
} )  e.  _V  ->  U. ( ran  F  u.  { (/) } )  e. 
_V )
5654, 55syl 17 . . . . . 6  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  U. ( ran  F  u.  { (/) } )  e. 
_V )
57 xpexg 6960 . . . . . 6  |-  ( ( A  e.  _V  /\  U. ( ran  F  u.  {
(/) } )  e.  _V )  ->  ( A  X.  U. ( ran  F  u.  {
(/) } ) )  e. 
_V )
5844, 56, 57sylancr 695 . . . . 5  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  ( A  X.  U. ( ran  F  u.  {
(/) } ) )  e. 
_V )
59 ssexg 4804 . . . . 5  |-  ( ( R  C_  ( A  X.  U. ( ran  F  u.  { (/) } ) )  /\  ( A  X.  U. ( ran  F  u.  {
(/) } ) )  e. 
_V )  ->  R  e.  _V )
6043, 58, 59sylancr 695 . . . 4  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  R  e.  _V )
61 n0 3931 . . . . . . . . 9  |-  ( dom  r  =/=  (/)  <->  E. x  x  e.  dom  r )
62 vex 3203 . . . . . . . . . . 11  |-  x  e. 
_V
6362eldm 5321 . . . . . . . . . 10  |-  ( x  e.  dom  r  <->  E. y  x r y )
6463exbii 1774 . . . . . . . . 9  |-  ( E. x  x  e.  dom  r 
<->  E. x E. y  x r y )
6561, 64bitr2i 265 . . . . . . . 8  |-  ( E. x E. y  x r y  <->  dom  r  =/=  (/) )
66 dmeq 5324 . . . . . . . . 9  |-  ( r  =  R  ->  dom  r  =  dom  R )
6766neeq1d 2853 . . . . . . . 8  |-  ( r  =  R  ->  ( dom  r  =/=  (/)  <->  dom  R  =/=  (/) ) )
6865, 67syl5bb 272 . . . . . . 7  |-  ( r  =  R  ->  ( E. x E. y  x r y  <->  dom  R  =/=  (/) ) )
69 rneq 5351 . . . . . . . 8  |-  ( r  =  R  ->  ran  r  =  ran  R )
7069, 66sseq12d 3634 . . . . . . 7  |-  ( r  =  R  ->  ( ran  r  C_  dom  r  <->  ran 
R  C_  dom  R ) )
7168, 70anbi12d 747 . . . . . 6  |-  ( r  =  R  ->  (
( E. x E. y  x r y  /\  ran  r  C_  dom  r
)  <->  ( dom  R  =/=  (/)  /\  ran  R  C_ 
dom  R ) ) )
72 breq 4655 . . . . . . . 8  |-  ( r  =  R  ->  (
( h `  k
) r ( h `
 suc  k )  <->  ( h `  k ) R ( h `  suc  k ) ) )
7372ralbidv 2986 . . . . . . 7  |-  ( r  =  R  ->  ( A. k  e.  om  ( h `  k
) r ( h `
 suc  k )  <->  A. k  e.  om  (
h `  k ) R ( h `  suc  k ) ) )
7473exbidv 1850 . . . . . 6  |-  ( r  =  R  ->  ( E. h A. k  e. 
om  ( h `  k ) r ( h `  suc  k
)  <->  E. h A. k  e.  om  ( h `  k ) R ( h `  suc  k
) ) )
7571, 74imbi12d 334 . . . . 5  |-  ( r  =  R  ->  (
( ( E. x E. y  x r
y  /\  ran  r  C_  dom  r )  ->  E. h A. k  e.  om  ( h `  k
) r ( h `
 suc  k )
)  <->  ( ( dom 
R  =/=  (/)  /\  ran  R 
C_  dom  R )  ->  E. h A. k  e.  om  ( h `  k ) R ( h `  suc  k
) ) ) )
76 ax-dc 9268 . . . . 5  |-  ( ( E. x E. y  x r y  /\  ran  r  C_  dom  r
)  ->  E. h A. k  e.  om  ( h `  k
) r ( h `
 suc  k )
)
7775, 76vtoclg 3266 . . . 4  |-  ( R  e.  _V  ->  (
( dom  R  =/=  (/) 
/\  ran  R  C_  dom  R )  ->  E. h A. k  e.  om  ( h `  k
) R ( h `
 suc  k )
) )
7860, 77syl 17 . . 3  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  ( ( dom 
R  =/=  (/)  /\  ran  R 
C_  dom  R )  ->  E. h A. k  e.  om  ( h `  k ) R ( h `  suc  k
) ) )
7919, 35, 78mp2and 715 . 2  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  E. h A. k  e.  om  ( h `  k ) R ( h `  suc  k
) )
80 simpr 477 . 2  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  F : A --> ( ~P A  \  { (/)
} ) )
81 fveq2 6191 . . . . . . . . . . . . . . 15  |-  ( k  =  x  ->  (
h `  k )  =  ( h `  x ) )
82 suceq 5790 . . . . . . . . . . . . . . . 16  |-  ( k  =  x  ->  suc  k  =  suc  x )
8382fveq2d 6195 . . . . . . . . . . . . . . 15  |-  ( k  =  x  ->  (
h `  suc  k )  =  ( h `  suc  x ) )
8481, 83breq12d 4666 . . . . . . . . . . . . . 14  |-  ( k  =  x  ->  (
( h `  k
) R ( h `
 suc  k )  <->  ( h `  x ) R ( h `  suc  x ) ) )
8584rspccv 3306 . . . . . . . . . . . . 13  |-  ( A. k  e.  om  (
h `  k ) R ( h `  suc  k )  ->  (
x  e.  om  ->  ( h `  x ) R ( h `  suc  x ) ) )
86 fvex 6201 . . . . . . . . . . . . . 14  |-  ( h `
 x )  e. 
_V
87 fvex 6201 . . . . . . . . . . . . . 14  |-  ( h `
 suc  x )  e.  _V
8886, 87breldm 5329 . . . . . . . . . . . . 13  |-  ( ( h `  x ) R ( h `  suc  x )  ->  (
h `  x )  e.  dom  R )
8985, 88syl6 35 . . . . . . . . . . . 12  |-  ( A. k  e.  om  (
h `  k ) R ( h `  suc  k )  ->  (
x  e.  om  ->  ( h `  x )  e.  dom  R ) )
9089imp 445 . . . . . . . . . . 11  |-  ( ( A. k  e.  om  ( h `  k
) R ( h `
 suc  k )  /\  x  e.  om )  ->  ( h `  x )  e.  dom  R )
9190adantll 750 . . . . . . . . . 10  |-  ( ( ( dom  R  =  A  /\  A. k  e.  om  ( h `  k ) R ( h `  suc  k
) )  /\  x  e.  om )  ->  (
h `  x )  e.  dom  R )
92 eleq2 2690 . . . . . . . . . . 11  |-  ( dom 
R  =  A  -> 
( ( h `  x )  e.  dom  R  <-> 
( h `  x
)  e.  A ) )
9392ad2antrr 762 . . . . . . . . . 10  |-  ( ( ( dom  R  =  A  /\  A. k  e.  om  ( h `  k ) R ( h `  suc  k
) )  /\  x  e.  om )  ->  (
( h `  x
)  e.  dom  R  <->  ( h `  x )  e.  A ) )
9491, 93mpbid 222 . . . . . . . . 9  |-  ( ( ( dom  R  =  A  /\  A. k  e.  om  ( h `  k ) R ( h `  suc  k
) )  /\  x  e.  om )  ->  (
h `  x )  e.  A )
95 axdc2lem.3 . . . . . . . . 9  |-  G  =  ( x  e.  om  |->  ( h `  x
) )
9694, 95fmptd 6385 . . . . . . . 8  |-  ( ( dom  R  =  A  /\  A. k  e. 
om  ( h `  k ) R ( h `  suc  k
) )  ->  G : om --> A )
9796ex 450 . . . . . . 7  |-  ( dom 
R  =  A  -> 
( A. k  e. 
om  ( h `  k ) R ( h `  suc  k
)  ->  G : om
--> A ) )
9817, 97syl 17 . . . . . 6  |-  ( F : A --> ( ~P A  \  { (/) } )  ->  ( A. k  e.  om  (
h `  k ) R ( h `  suc  k )  ->  G : om --> A ) )
9998impcom 446 . . . . 5  |-  ( ( A. k  e.  om  ( h `  k
) R ( h `
 suc  k )  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  G : om --> A )
100 fveq2 6191 . . . . . . . . . 10  |-  ( x  =  k  ->  (
h `  x )  =  ( h `  k ) )
101 fvex 6201 . . . . . . . . . 10  |-  ( h `
 k )  e. 
_V
102100, 95, 101fvmpt 6282 . . . . . . . . 9  |-  ( k  e.  om  ->  ( G `  k )  =  ( h `  k ) )
103 peano2 7086 . . . . . . . . . 10  |-  ( k  e.  om  ->  suc  k  e.  om )
104 fvex 6201 . . . . . . . . . 10  |-  ( h `
 suc  k )  e.  _V
105 fveq2 6191 . . . . . . . . . . 11  |-  ( x  =  suc  k  -> 
( h `  x
)  =  ( h `
 suc  k )
)
106105, 95fvmptg 6280 . . . . . . . . . 10  |-  ( ( suc  k  e.  om  /\  ( h `  suc  k )  e.  _V )  ->  ( G `  suc  k )  =  ( h `  suc  k
) )
107103, 104, 106sylancl 694 . . . . . . . . 9  |-  ( k  e.  om  ->  ( G `  suc  k )  =  ( h `  suc  k ) )
108102, 107breq12d 4666 . . . . . . . 8  |-  ( k  e.  om  ->  (
( G `  k
) R ( G `
 suc  k )  <->  ( h `  k ) R ( h `  suc  k ) ) )
109 fvex 6201 . . . . . . . . . 10  |-  ( G `
 k )  e. 
_V
110 fvex 6201 . . . . . . . . . 10  |-  ( G `
 suc  k )  e.  _V
111 eleq1 2689 . . . . . . . . . . 11  |-  ( x  =  ( G `  k )  ->  (
x  e.  A  <->  ( G `  k )  e.  A
) )
112 fveq2 6191 . . . . . . . . . . . 12  |-  ( x  =  ( G `  k )  ->  ( F `  x )  =  ( F `  ( G `  k ) ) )
113112eleq2d 2687 . . . . . . . . . . 11  |-  ( x  =  ( G `  k )  ->  (
y  e.  ( F `
 x )  <->  y  e.  ( F `  ( G `
 k ) ) ) )
114111, 113anbi12d 747 . . . . . . . . . 10  |-  ( x  =  ( G `  k )  ->  (
( x  e.  A  /\  y  e.  ( F `  x )
)  <->  ( ( G `
 k )  e.  A  /\  y  e.  ( F `  ( G `  k )
) ) ) )
115 eleq1 2689 . . . . . . . . . . 11  |-  ( y  =  ( G `  suc  k )  ->  (
y  e.  ( F `
 ( G `  k ) )  <->  ( G `  suc  k )  e.  ( F `  ( G `  k )
) ) )
116115anbi2d 740 . . . . . . . . . 10  |-  ( y  =  ( G `  suc  k )  ->  (
( ( G `  k )  e.  A  /\  y  e.  ( F `  ( G `  k ) ) )  <-> 
( ( G `  k )  e.  A  /\  ( G `  suc  k )  e.  ( F `  ( G `
 k ) ) ) ) )
117109, 110, 114, 116, 9brab 4998 . . . . . . . . 9  |-  ( ( G `  k ) R ( G `  suc  k )  <->  ( ( G `  k )  e.  A  /\  ( G `  suc  k )  e.  ( F `  ( G `  k ) ) ) )
118117simprbi 480 . . . . . . . 8  |-  ( ( G `  k ) R ( G `  suc  k )  ->  ( G `  suc  k )  e.  ( F `  ( G `  k ) ) )
119108, 118syl6bir 244 . . . . . . 7  |-  ( k  e.  om  ->  (
( h `  k
) R ( h `
 suc  k )  ->  ( G `  suc  k )  e.  ( F `  ( G `
 k ) ) ) )
120119ralimia 2950 . . . . . 6  |-  ( A. k  e.  om  (
h `  k ) R ( h `  suc  k )  ->  A. k  e.  om  ( G `  suc  k )  e.  ( F `  ( G `
 k ) ) )
121120adantr 481 . . . . 5  |-  ( ( A. k  e.  om  ( h `  k
) R ( h `
 suc  k )  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  A. k  e.  om  ( G `  suc  k )  e.  ( F `  ( G `
 k ) ) )
122 fvrn0 6216 . . . . . . . . . 10  |-  ( h `
 x )  e.  ( ran  h  u. 
{ (/) } )
123122rgenw 2924 . . . . . . . . 9  |-  A. x  e.  om  ( h `  x )  e.  ( ran  h  u.  { (/)
} )
124 eqid 2622 . . . . . . . . . 10  |-  ( x  e.  om  |->  ( h `
 x ) )  =  ( x  e. 
om  |->  ( h `  x ) )
125124fmpt 6381 . . . . . . . . 9  |-  ( A. x  e.  om  (
h `  x )  e.  ( ran  h  u. 
{ (/) } )  <->  ( x  e.  om  |->  ( h `  x ) ) : om --> ( ran  h  u.  { (/) } ) )
126123, 125mpbi 220 . . . . . . . 8  |-  ( x  e.  om  |->  ( h `
 x ) ) : om --> ( ran  h  u.  { (/) } )
127 dcomex 9269 . . . . . . . 8  |-  om  e.  _V
128 vex 3203 . . . . . . . . . 10  |-  h  e. 
_V
129128rnex 7100 . . . . . . . . 9  |-  ran  h  e.  _V
130129, 52unex 6956 . . . . . . . 8  |-  ( ran  h  u.  { (/) } )  e.  _V
131 fex2 7121 . . . . . . . 8  |-  ( ( ( x  e.  om  |->  ( h `  x
) ) : om --> ( ran  h  u.  { (/)
} )  /\  om  e.  _V  /\  ( ran  h  u.  { (/) } )  e.  _V )  ->  ( x  e.  om  |->  ( h `  x
) )  e.  _V )
132126, 127, 130, 131mp3an 1424 . . . . . . 7  |-  ( x  e.  om  |->  ( h `
 x ) )  e.  _V
13395, 132eqeltri 2697 . . . . . 6  |-  G  e. 
_V
134 feq1 6026 . . . . . . 7  |-  ( g  =  G  ->  (
g : om --> A  <->  G : om
--> A ) )
135 fveq1 6190 . . . . . . . . 9  |-  ( g  =  G  ->  (
g `  suc  k )  =  ( G `  suc  k ) )
136 fveq1 6190 . . . . . . . . . 10  |-  ( g  =  G  ->  (
g `  k )  =  ( G `  k ) )
137136fveq2d 6195 . . . . . . . . 9  |-  ( g  =  G  ->  ( F `  ( g `  k ) )  =  ( F `  ( G `  k )
) )
138135, 137eleq12d 2695 . . . . . . . 8  |-  ( g  =  G  ->  (
( g `  suc  k )  e.  ( F `  ( g `
 k ) )  <-> 
( G `  suc  k )  e.  ( F `  ( G `
 k ) ) ) )
139138ralbidv 2986 . . . . . . 7  |-  ( g  =  G  ->  ( A. k  e.  om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) )  <->  A. k  e.  om  ( G `  suc  k
)  e.  ( F `
 ( G `  k ) ) ) )
140134, 139anbi12d 747 . . . . . 6  |-  ( g  =  G  ->  (
( g : om --> A  /\  A. k  e. 
om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) )  <->  ( G : om
--> A  /\  A. k  e.  om  ( G `  suc  k )  e.  ( F `  ( G `
 k ) ) ) ) )
141133, 140spcev 3300 . . . . 5  |-  ( ( G : om --> A  /\  A. k  e.  om  ( G `  suc  k )  e.  ( F `  ( G `  k ) ) )  ->  E. g
( g : om --> A  /\  A. k  e. 
om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) ) )
14299, 121, 141syl2anc 693 . . . 4  |-  ( ( A. k  e.  om  ( h `  k
) R ( h `
 suc  k )  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  E. g
( g : om --> A  /\  A. k  e. 
om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) ) )
143142ex 450 . . 3  |-  ( A. k  e.  om  (
h `  k ) R ( h `  suc  k )  ->  ( F : A --> ( ~P A  \  { (/) } )  ->  E. g
( g : om --> A  /\  A. k  e. 
om  ( g `  suc  k )  e.  ( F `  ( g `
 k ) ) ) ) )
144143exlimiv 1858 . 2  |-  ( E. h A. k  e. 
om  ( h `  k ) R ( h `  suc  k
)  ->  ( F : A --> ( ~P A  \  { (/) } )  ->  E. g ( g : om --> A  /\  A. k  e.  om  (
g `  suc  k )  e.  ( F `  ( g `  k
) ) ) ) )
14579, 80, 144sylc 65 1  |-  ( ( A  =/=  (/)  /\  F : A --> ( ~P A  \  { (/) } ) )  ->  E. g ( g : om --> A  /\  A. k  e.  om  (
g `  suc  k )  e.  ( F `  ( g `  k
) ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384   A.wal 1481    = wceq 1483   E.wex 1704    e. wcel 1990   {cab 2608    =/= wne 2794   A.wral 2912   {crab 2916   _Vcvv 3200    \ cdif 3571    u. cun 3572    C_ wss 3574   (/)c0 3915   ~Pcpw 4158   {csn 4177   U.cuni 4436   class class class wbr 4653   {copab 4712    |-> cmpt 4729    X. cxp 5112   dom cdm 5114   ran crn 5115   suc csuc 5725   -->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-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-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:  axdc2  9271
  Copyright terms: Public domain W3C validator