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

Theorem ackbij2lem2 9062
Description: Lemma for ackbij2 9065. (Contributed by Stefan O'Rear, 18-Nov-2014.)
Hypotheses
Ref Expression
ackbij.f  |-  F  =  ( x  e.  ( ~P om  i^i  Fin )  |->  ( card `  U_ y  e.  x  ( {
y }  X.  ~P y ) ) )
ackbij.g  |-  G  =  ( x  e.  _V  |->  ( y  e.  ~P dom  x  |->  ( F `  ( x " y
) ) ) )
Assertion
Ref Expression
ackbij2lem2  |-  ( A  e.  om  ->  ( rec ( G ,  (/) ) `  A ) : ( R1 `  A ) -1-1-onto-> ( card `  ( R1 `  A ) ) )
Distinct variable groups:    x, F, y    x, G, y    x, A, y

Proof of Theorem ackbij2lem2
Dummy variables  a 
b  c are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6191 . . 3  |-  ( a  =  (/)  ->  ( rec ( G ,  (/) ) `  a )  =  ( rec ( G ,  (/) ) `  (/) ) )
2 fveq2 6191 . . 3  |-  ( a  =  (/)  ->  ( R1
`  a )  =  ( R1 `  (/) ) )
32fveq2d 6195 . . 3  |-  ( a  =  (/)  ->  ( card `  ( R1 `  a
) )  =  (
card `  ( R1 `  (/) ) ) )
41, 2, 3f1oeq123d 6133 . 2  |-  ( a  =  (/)  ->  ( ( rec ( G ,  (/) ) `  a ) : ( R1 `  a ) -1-1-onto-> ( card `  ( R1 `  a ) )  <-> 
( rec ( G ,  (/) ) `  (/) ) : ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) ) ) )
5 fveq2 6191 . . 3  |-  ( a  =  b  ->  ( rec ( G ,  (/) ) `  a )  =  ( rec ( G ,  (/) ) `  b ) )
6 fveq2 6191 . . 3  |-  ( a  =  b  ->  ( R1 `  a )  =  ( R1 `  b
) )
76fveq2d 6195 . . 3  |-  ( a  =  b  ->  ( card `  ( R1 `  a ) )  =  ( card `  ( R1 `  b ) ) )
85, 6, 7f1oeq123d 6133 . 2  |-  ( a  =  b  ->  (
( rec ( G ,  (/) ) `  a
) : ( R1
`  a ) -1-1-onto-> ( card `  ( R1 `  a
) )  <->  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> (
card `  ( R1 `  b ) ) ) )
9 fveq2 6191 . . 3  |-  ( a  =  suc  b  -> 
( rec ( G ,  (/) ) `  a
)  =  ( rec ( G ,  (/) ) `  suc  b ) )
10 fveq2 6191 . . 3  |-  ( a  =  suc  b  -> 
( R1 `  a
)  =  ( R1
`  suc  b )
)
1110fveq2d 6195 . . 3  |-  ( a  =  suc  b  -> 
( card `  ( R1 `  a ) )  =  ( card `  ( R1 `  suc  b ) ) )
129, 10, 11f1oeq123d 6133 . 2  |-  ( a  =  suc  b  -> 
( ( rec ( G ,  (/) ) `  a ) : ( R1 `  a ) -1-1-onto-> (
card `  ( R1 `  a ) )  <->  ( rec ( G ,  (/) ) `  suc  b ) : ( R1 `  suc  b
)
-1-1-onto-> ( card `  ( R1 ` 
suc  b ) ) ) )
13 fveq2 6191 . . 3  |-  ( a  =  A  ->  ( rec ( G ,  (/) ) `  a )  =  ( rec ( G ,  (/) ) `  A ) )
14 fveq2 6191 . . 3  |-  ( a  =  A  ->  ( R1 `  a )  =  ( R1 `  A
) )
1514fveq2d 6195 . . 3  |-  ( a  =  A  ->  ( card `  ( R1 `  a ) )  =  ( card `  ( R1 `  A ) ) )
1613, 14, 15f1oeq123d 6133 . 2  |-  ( a  =  A  ->  (
( rec ( G ,  (/) ) `  a
) : ( R1
`  a ) -1-1-onto-> ( card `  ( R1 `  a
) )  <->  ( rec ( G ,  (/) ) `  A ) : ( R1 `  A ) -1-1-onto-> (
card `  ( R1 `  A ) ) ) )
17 f1o0 6173 . . 3  |-  (/) : (/) -1-1-onto-> (/)
18 0ex 4790 . . . . . 6  |-  (/)  e.  _V
1918rdg0 7517 . . . . 5  |-  ( rec ( G ,  (/) ) `  (/) )  =  (/)
20 f1oeq1 6127 . . . . 5  |-  ( ( rec ( G ,  (/) ) `  (/) )  =  (/)  ->  ( ( rec ( G ,  (/) ) `  (/) ) : ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) )  <->  (/)
: ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) ) ) )
2119, 20ax-mp 5 . . . 4  |-  ( ( rec ( G ,  (/) ) `  (/) ) : ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) )  <->  (/)
: ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) ) )
22 r10 8631 . . . . 5  |-  ( R1
`  (/) )  =  (/)
2322fveq2i 6194 . . . . . 6  |-  ( card `  ( R1 `  (/) ) )  =  ( card `  (/) )
24 card0 8784 . . . . . 6  |-  ( card `  (/) )  =  (/)
2523, 24eqtri 2644 . . . . 5  |-  ( card `  ( R1 `  (/) ) )  =  (/)
26 f1oeq23 6130 . . . . 5  |-  ( ( ( R1 `  (/) )  =  (/)  /\  ( card `  ( R1 `  (/) ) )  =  (/) )  ->  ( (/) : ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) )  <->  (/)
: (/)
-1-1-onto-> (/) ) )
2722, 25, 26mp2an 708 . . . 4  |-  ( (/) : ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) )  <->  (/)
: (/)
-1-1-onto-> (/) )
2821, 27bitri 264 . . 3  |-  ( ( rec ( G ,  (/) ) `  (/) ) : ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) )  <->  (/)
: (/)
-1-1-onto-> (/) )
2917, 28mpbir 221 . 2  |-  ( rec ( G ,  (/) ) `  (/) ) : ( R1 `  (/) ) -1-1-onto-> ( card `  ( R1 `  (/) ) )
30 ackbij.f . . . . . . . . . 10  |-  F  =  ( x  e.  ( ~P om  i^i  Fin )  |->  ( card `  U_ y  e.  x  ( {
y }  X.  ~P y ) ) )
3130ackbij1lem17 9058 . . . . . . . . 9  |-  F :
( ~P om  i^i  Fin ) -1-1-> om
3231a1i 11 . . . . . . . 8  |-  ( b  e.  om  ->  F : ( ~P om  i^i  Fin ) -1-1-> om )
33 r1fin 8636 . . . . . . . . . 10  |-  ( b  e.  om  ->  ( R1 `  b )  e. 
Fin )
34 ficardom 8787 . . . . . . . . . 10  |-  ( ( R1 `  b )  e.  Fin  ->  ( card `  ( R1 `  b ) )  e. 
om )
3533, 34syl 17 . . . . . . . . 9  |-  ( b  e.  om  ->  ( card `  ( R1 `  b ) )  e. 
om )
36 ackbij2lem1 9041 . . . . . . . . 9  |-  ( (
card `  ( R1 `  b ) )  e. 
om  ->  ~P ( card `  ( R1 `  b
) )  C_  ( ~P om  i^i  Fin )
)
3735, 36syl 17 . . . . . . . 8  |-  ( b  e.  om  ->  ~P ( card `  ( R1 `  b ) )  C_  ( ~P om  i^i  Fin ) )
38 f1ores 6151 . . . . . . . 8  |-  ( ( F : ( ~P
om  i^i  Fin ) -1-1-> om  /\  ~P ( card `  ( R1 `  b
) )  C_  ( ~P om  i^i  Fin )
)  ->  ( F  |` 
~P ( card `  ( R1 `  b ) ) ) : ~P ( card `  ( R1 `  b ) ) -1-1-onto-> ( F
" ~P ( card `  ( R1 `  b
) ) ) )
3932, 37, 38syl2anc 693 . . . . . . 7  |-  ( b  e.  om  ->  ( F  |`  ~P ( card `  ( R1 `  b
) ) ) : ~P ( card `  ( R1 `  b ) ) -1-1-onto-> ( F " ~P ( card `  ( R1 `  b ) ) ) )
4030ackbij1b 9061 . . . . . . . . . 10  |-  ( (
card `  ( R1 `  b ) )  e. 
om  ->  ( F " ~P ( card `  ( R1 `  b ) ) )  =  ( card `  ~P ( card `  ( R1 `  b ) ) ) )
4135, 40syl 17 . . . . . . . . 9  |-  ( b  e.  om  ->  ( F " ~P ( card `  ( R1 `  b
) ) )  =  ( card `  ~P ( card `  ( R1 `  b ) ) ) )
42 ficardid 8788 . . . . . . . . . 10  |-  ( ( R1 `  b )  e.  Fin  ->  ( card `  ( R1 `  b ) )  ~~  ( R1 `  b ) )
43 pwen 8133 . . . . . . . . . 10  |-  ( (
card `  ( R1 `  b ) )  ~~  ( R1 `  b )  ->  ~P ( card `  ( R1 `  b
) )  ~~  ~P ( R1 `  b ) )
44 carden2b 8793 . . . . . . . . . 10  |-  ( ~P ( card `  ( R1 `  b ) ) 
~~  ~P ( R1 `  b )  ->  ( card `  ~P ( card `  ( R1 `  b
) ) )  =  ( card `  ~P ( R1 `  b ) ) )
4533, 42, 43, 444syl 19 . . . . . . . . 9  |-  ( b  e.  om  ->  ( card `  ~P ( card `  ( R1 `  b
) ) )  =  ( card `  ~P ( R1 `  b ) ) )
4641, 45eqtrd 2656 . . . . . . . 8  |-  ( b  e.  om  ->  ( F " ~P ( card `  ( R1 `  b
) ) )  =  ( card `  ~P ( R1 `  b ) ) )
4746f1oeq3d 6134 . . . . . . 7  |-  ( b  e.  om  ->  (
( F  |`  ~P ( card `  ( R1 `  b ) ) ) : ~P ( card `  ( R1 `  b
) ) -1-1-onto-> ( F " ~P ( card `  ( R1 `  b ) ) )  <-> 
( F  |`  ~P ( card `  ( R1 `  b ) ) ) : ~P ( card `  ( R1 `  b
) ) -1-1-onto-> ( card `  ~P ( R1 `  b ) ) ) )
4839, 47mpbid 222 . . . . . 6  |-  ( b  e.  om  ->  ( F  |`  ~P ( card `  ( R1 `  b
) ) ) : ~P ( card `  ( R1 `  b ) ) -1-1-onto-> (
card `  ~P ( R1 `  b ) ) )
4948adantr 481 . . . . 5  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( F  |` 
~P ( card `  ( R1 `  b ) ) ) : ~P ( card `  ( R1 `  b ) ) -1-1-onto-> ( card `  ~P ( R1 `  b ) ) )
50 f1opw 6889 . . . . . 6  |-  ( ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) )  ->  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) : ~P ( R1
`  b ) -1-1-onto-> ~P ( card `  ( R1 `  b ) ) )
5150adantl 482 . . . . 5  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( a  e.  ~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) : ~P ( R1
`  b ) -1-1-onto-> ~P ( card `  ( R1 `  b ) ) )
52 f1oco 6159 . . . . 5  |-  ( ( ( F  |`  ~P ( card `  ( R1 `  b ) ) ) : ~P ( card `  ( R1 `  b
) ) -1-1-onto-> ( card `  ~P ( R1 `  b ) )  /\  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) : ~P ( R1 `  b ) -1-1-onto-> ~P ( card `  ( R1 `  b ) ) )  ->  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) ) : ~P ( R1 `  b ) -1-1-onto-> (
card `  ~P ( R1 `  b ) ) )
5349, 51, 52syl2anc 693 . . . 4  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( ( F  |`  ~P ( card `  ( R1 `  b
) ) )  o.  ( a  e.  ~P ( R1 `  b ) 
|->  ( ( rec ( G ,  (/) ) `  b ) " a
) ) ) : ~P ( R1 `  b ) -1-1-onto-> ( card `  ~P ( R1 `  b ) ) )
54 frsuc 7532 . . . . . . . . 9  |-  ( b  e.  om  ->  (
( rec ( G ,  (/) )  |`  om ) `  suc  b )  =  ( G `  (
( rec ( G ,  (/) )  |`  om ) `  b ) ) )
55 peano2 7086 . . . . . . . . . 10  |-  ( b  e.  om  ->  suc  b  e.  om )
5655fvresd 6208 . . . . . . . . 9  |-  ( b  e.  om  ->  (
( rec ( G ,  (/) )  |`  om ) `  suc  b )  =  ( rec ( G ,  (/) ) `  suc  b ) )
57 fvres 6207 . . . . . . . . . . 11  |-  ( b  e.  om  ->  (
( rec ( G ,  (/) )  |`  om ) `  b )  =  ( rec ( G ,  (/) ) `  b ) )
5857fveq2d 6195 . . . . . . . . . 10  |-  ( b  e.  om  ->  ( G `  ( ( rec ( G ,  (/) )  |`  om ) `  b ) )  =  ( G `  ( rec ( G ,  (/) ) `  b )
) )
59 fvex 6201 . . . . . . . . . . 11  |-  ( rec ( G ,  (/) ) `  b )  e.  _V
60 dmeq 5324 . . . . . . . . . . . . . 14  |-  ( x  =  ( rec ( G ,  (/) ) `  b )  ->  dom  x  =  dom  ( rec ( G ,  (/) ) `  b )
)
6160pweqd 4163 . . . . . . . . . . . . 13  |-  ( x  =  ( rec ( G ,  (/) ) `  b )  ->  ~P dom  x  =  ~P dom  ( rec ( G ,  (/) ) `  b ) )
62 imaeq1 5461 . . . . . . . . . . . . . 14  |-  ( x  =  ( rec ( G ,  (/) ) `  b )  ->  (
x " y )  =  ( ( rec ( G ,  (/) ) `  b ) " y ) )
6362fveq2d 6195 . . . . . . . . . . . . 13  |-  ( x  =  ( rec ( G ,  (/) ) `  b )  ->  ( F `  ( x " y ) )  =  ( F `  (
( rec ( G ,  (/) ) `  b
) " y ) ) )
6461, 63mpteq12dv 4733 . . . . . . . . . . . 12  |-  ( x  =  ( rec ( G ,  (/) ) `  b )  ->  (
y  e.  ~P dom  x  |->  ( F `  ( x " y
) ) )  =  ( y  e.  ~P dom  ( rec ( G ,  (/) ) `  b
)  |->  ( F `  ( ( rec ( G ,  (/) ) `  b ) " y
) ) ) )
65 ackbij.g . . . . . . . . . . . 12  |-  G  =  ( x  e.  _V  |->  ( y  e.  ~P dom  x  |->  ( F `  ( x " y
) ) ) )
6659dmex 7099 . . . . . . . . . . . . . 14  |-  dom  ( rec ( G ,  (/) ) `  b )  e.  _V
6766pwex 4848 . . . . . . . . . . . . 13  |-  ~P dom  ( rec ( G ,  (/) ) `  b )  e.  _V
6867mptex 6486 . . . . . . . . . . . 12  |-  ( y  e.  ~P dom  ( rec ( G ,  (/) ) `  b )  |->  ( F `  (
( rec ( G ,  (/) ) `  b
) " y ) ) )  e.  _V
6964, 65, 68fvmpt 6282 . . . . . . . . . . 11  |-  ( ( rec ( G ,  (/) ) `  b )  e.  _V  ->  ( G `  ( rec ( G ,  (/) ) `  b ) )  =  ( y  e.  ~P dom  ( rec ( G ,  (/) ) `  b
)  |->  ( F `  ( ( rec ( G ,  (/) ) `  b ) " y
) ) ) )
7059, 69ax-mp 5 . . . . . . . . . 10  |-  ( G `
 ( rec ( G ,  (/) ) `  b ) )  =  ( y  e.  ~P dom  ( rec ( G ,  (/) ) `  b
)  |->  ( F `  ( ( rec ( G ,  (/) ) `  b ) " y
) ) )
7158, 70syl6eq 2672 . . . . . . . . 9  |-  ( b  e.  om  ->  ( G `  ( ( rec ( G ,  (/) )  |`  om ) `  b ) )  =  ( y  e.  ~P dom  ( rec ( G ,  (/) ) `  b
)  |->  ( F `  ( ( rec ( G ,  (/) ) `  b ) " y
) ) ) )
7254, 56, 713eqtr3d 2664 . . . . . . . 8  |-  ( b  e.  om  ->  ( rec ( G ,  (/) ) `  suc  b )  =  ( y  e. 
~P dom  ( rec ( G ,  (/) ) `  b )  |->  ( F `
 ( ( rec ( G ,  (/) ) `  b ) " y ) ) ) )
7372adantr 481 . . . . . . 7  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( rec ( G ,  (/) ) `  suc  b )  =  ( y  e.  ~P dom  ( rec ( G ,  (/) ) `  b ) 
|->  ( F `  (
( rec ( G ,  (/) ) `  b
) " y ) ) ) )
74 f1odm 6141 . . . . . . . . . . 11  |-  ( ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) )  ->  dom  ( rec ( G ,  (/) ) `  b )  =  ( R1 `  b ) )
7574adantl 482 . . . . . . . . . 10  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  dom  ( rec ( G ,  (/) ) `  b )  =  ( R1 `  b ) )
7675pweqd 4163 . . . . . . . . 9  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ~P dom  ( rec ( G ,  (/) ) `  b )  =  ~P ( R1
`  b ) )
7776mpteq1d 4738 . . . . . . . 8  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( y  e.  ~P dom  ( rec ( G ,  (/) ) `  b )  |->  ( F `  (
( rec ( G ,  (/) ) `  b
) " y ) ) )  =  ( y  e.  ~P ( R1 `  b )  |->  ( F `  ( ( rec ( G ,  (/) ) `  b )
" y ) ) ) )
78 fvex 6201 . . . . . . . . . . 11  |-  ( F `
 ( ( rec ( G ,  (/) ) `  b ) " y ) )  e.  _V
79 eqid 2622 . . . . . . . . . . 11  |-  ( y  e.  ~P ( R1
`  b )  |->  ( F `  ( ( rec ( G ,  (/) ) `  b )
" y ) ) )  =  ( y  e.  ~P ( R1
`  b )  |->  ( F `  ( ( rec ( G ,  (/) ) `  b )
" y ) ) )
8078, 79fnmpti 6022 . . . . . . . . . 10  |-  ( y  e.  ~P ( R1
`  b )  |->  ( F `  ( ( rec ( G ,  (/) ) `  b )
" y ) ) )  Fn  ~P ( R1 `  b )
8180a1i 11 . . . . . . . . 9  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( y  e.  ~P ( R1 `  b )  |->  ( F `
 ( ( rec ( G ,  (/) ) `  b ) " y ) ) )  Fn  ~P ( R1 `  b ) )
82 f1ofn 6138 . . . . . . . . . 10  |-  ( ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) : ~P ( R1 `  b ) -1-1-onto-> ( card `  ~P ( R1 `  b ) )  -> 
( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) )  Fn  ~P ( R1 `  b ) )
8353, 82syl 17 . . . . . . . . 9  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( ( F  |`  ~P ( card `  ( R1 `  b
) ) )  o.  ( a  e.  ~P ( R1 `  b ) 
|->  ( ( rec ( G ,  (/) ) `  b ) " a
) ) )  Fn 
~P ( R1 `  b ) )
84 f1of 6137 . . . . . . . . . . . . . 14  |-  ( ( a  e.  ~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) : ~P ( R1 `  b ) -1-1-onto-> ~P ( card `  ( R1 `  b ) )  -> 
( a  e.  ~P ( R1 `  b ) 
|->  ( ( rec ( G ,  (/) ) `  b ) " a
) ) : ~P ( R1 `  b ) --> ~P ( card `  ( R1 `  b ) ) )
8551, 84syl 17 . . . . . . . . . . . . 13  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( a  e.  ~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) : ~P ( R1
`  b ) --> ~P ( card `  ( R1 `  b ) ) )
8685ffvelrnda 6359 . . . . . . . . . . . 12  |-  ( ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) `  c )  e.  ~P ( card `  ( R1 `  b
) ) )
8786fvresd 6208 . . . . . . . . . . 11  |-  ( ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) ) `  ( ( a  e.  ~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) `  c ) )  =  ( F `
 ( ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) `  c ) ) )
88 imaeq2 5462 . . . . . . . . . . . . . 14  |-  ( a  =  c  ->  (
( rec ( G ,  (/) ) `  b
) " a )  =  ( ( rec ( G ,  (/) ) `  b ) " c ) )
89 eqid 2622 . . . . . . . . . . . . . 14  |-  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) )  =  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) )
9059imaex 7104 . . . . . . . . . . . . . 14  |-  ( ( rec ( G ,  (/) ) `  b )
" c )  e. 
_V
9188, 89, 90fvmpt 6282 . . . . . . . . . . . . 13  |-  ( c  e.  ~P ( R1
`  b )  -> 
( ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) `
 c )  =  ( ( rec ( G ,  (/) ) `  b ) " c
) )
9291adantl 482 . . . . . . . . . . . 12  |-  ( ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) `  c )  =  ( ( rec ( G ,  (/) ) `  b ) " c ) )
9392fveq2d 6195 . . . . . . . . . . 11  |-  ( ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( F `  ( ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) `
 c ) )  =  ( F `  ( ( rec ( G ,  (/) ) `  b ) " c
) ) )
9487, 93eqtrd 2656 . . . . . . . . . 10  |-  ( ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) ) `  ( ( a  e.  ~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) `  c ) )  =  ( F `
 ( ( rec ( G ,  (/) ) `  b ) " c ) ) )
95 fvco3 6275 . . . . . . . . . . 11  |-  ( ( ( a  e.  ~P ( R1 `  b ) 
|->  ( ( rec ( G ,  (/) ) `  b ) " a
) ) : ~P ( R1 `  b ) --> ~P ( card `  ( R1 `  b ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( (
( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) `  c )  =  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) ) `  ( ( a  e.  ~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) `  c ) ) )
9685, 95sylan 488 . . . . . . . . . 10  |-  ( ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) `  c )  =  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) ) `  ( ( a  e.  ~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) `  c ) ) )
97 imaeq2 5462 . . . . . . . . . . . . 13  |-  ( y  =  c  ->  (
( rec ( G ,  (/) ) `  b
) " y )  =  ( ( rec ( G ,  (/) ) `  b ) " c ) )
9897fveq2d 6195 . . . . . . . . . . . 12  |-  ( y  =  c  ->  ( F `  ( ( rec ( G ,  (/) ) `  b ) " y ) )  =  ( F `  ( ( rec ( G ,  (/) ) `  b ) " c
) ) )
99 fvex 6201 . . . . . . . . . . . 12  |-  ( F `
 ( ( rec ( G ,  (/) ) `  b ) " c ) )  e.  _V
10098, 79, 99fvmpt 6282 . . . . . . . . . . 11  |-  ( c  e.  ~P ( R1
`  b )  -> 
( ( y  e. 
~P ( R1 `  b )  |->  ( F `
 ( ( rec ( G ,  (/) ) `  b ) " y ) ) ) `  c )  =  ( F `  ( ( rec ( G ,  (/) ) `  b ) " c
) ) )
101100adantl 482 . . . . . . . . . 10  |-  ( ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( ( y  e.  ~P ( R1
`  b )  |->  ( F `  ( ( rec ( G ,  (/) ) `  b )
" y ) ) ) `  c )  =  ( F `  ( ( rec ( G ,  (/) ) `  b ) " c
) ) )
10294, 96, 1013eqtr4rd 2667 . . . . . . . . 9  |-  ( ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) ) )  /\  c  e.  ~P ( R1 `  b ) )  ->  ( ( y  e.  ~P ( R1
`  b )  |->  ( F `  ( ( rec ( G ,  (/) ) `  b )
" y ) ) ) `  c )  =  ( ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) `  c ) )
10381, 83, 102eqfnfvd 6314 . . . . . . . 8  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( y  e.  ~P ( R1 `  b )  |->  ( F `
 ( ( rec ( G ,  (/) ) `  b ) " y ) ) )  =  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) )
10477, 103eqtrd 2656 . . . . . . 7  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( y  e.  ~P dom  ( rec ( G ,  (/) ) `  b )  |->  ( F `  (
( rec ( G ,  (/) ) `  b
) " y ) ) )  =  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) )
10573, 104eqtrd 2656 . . . . . 6  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( rec ( G ,  (/) ) `  suc  b )  =  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) )
106 f1oeq1 6127 . . . . . 6  |-  ( ( rec ( G ,  (/) ) `  suc  b
)  =  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) )  ->  ( ( rec ( G ,  (/) ) `  suc  b ) : ( R1 `  suc  b ) -1-1-onto-> ( card `  ( R1 `  suc  b ) )  <->  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) ) : ( R1 `  suc  b
)
-1-1-onto-> ( card `  ( R1 ` 
suc  b ) ) ) )
107105, 106syl 17 . . . . 5  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( ( rec ( G ,  (/) ) `  suc  b ) : ( R1 `  suc  b ) -1-1-onto-> ( card `  ( R1 `  suc  b ) )  <->  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) ) : ( R1 `  suc  b
)
-1-1-onto-> ( card `  ( R1 ` 
suc  b ) ) ) )
108 nnon 7071 . . . . . . . 8  |-  ( b  e.  om  ->  b  e.  On )
109 r1suc 8633 . . . . . . . 8  |-  ( b  e.  On  ->  ( R1 `  suc  b )  =  ~P ( R1
`  b ) )
110108, 109syl 17 . . . . . . 7  |-  ( b  e.  om  ->  ( R1 `  suc  b )  =  ~P ( R1
`  b ) )
111110fveq2d 6195 . . . . . . 7  |-  ( b  e.  om  ->  ( card `  ( R1 `  suc  b ) )  =  ( card `  ~P ( R1 `  b ) ) )
112 f1oeq23 6130 . . . . . . 7  |-  ( ( ( R1 `  suc  b )  =  ~P ( R1 `  b )  /\  ( card `  ( R1 `  suc  b ) )  =  ( card `  ~P ( R1 `  b ) ) )  ->  ( ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) : ( R1
`  suc  b ) -1-1-onto-> ( card `  ( R1 `  suc  b ) )  <->  ( ( F  |`  ~P ( card `  ( R1 `  b
) ) )  o.  ( a  e.  ~P ( R1 `  b ) 
|->  ( ( rec ( G ,  (/) ) `  b ) " a
) ) ) : ~P ( R1 `  b ) -1-1-onto-> ( card `  ~P ( R1 `  b ) ) ) )
113110, 111, 112syl2anc 693 . . . . . 6  |-  ( b  e.  om  ->  (
( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) ) : ( R1 `  suc  b
)
-1-1-onto-> ( card `  ( R1 ` 
suc  b ) )  <-> 
( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) ) : ~P ( R1 `  b ) -1-1-onto-> (
card `  ~P ( R1 `  b ) ) ) )
114113adantr 481 . . . . 5  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( (
( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e. 
~P ( R1 `  b )  |->  ( ( rec ( G ,  (/) ) `  b )
" a ) ) ) : ( R1
`  suc  b ) -1-1-onto-> ( card `  ( R1 `  suc  b ) )  <->  ( ( F  |`  ~P ( card `  ( R1 `  b
) ) )  o.  ( a  e.  ~P ( R1 `  b ) 
|->  ( ( rec ( G ,  (/) ) `  b ) " a
) ) ) : ~P ( R1 `  b ) -1-1-onto-> ( card `  ~P ( R1 `  b ) ) ) )
115107, 114bitrd 268 . . . 4  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( ( rec ( G ,  (/) ) `  suc  b ) : ( R1 `  suc  b ) -1-1-onto-> ( card `  ( R1 `  suc  b ) )  <->  ( ( F  |`  ~P ( card `  ( R1 `  b ) ) )  o.  ( a  e.  ~P ( R1
`  b )  |->  ( ( rec ( G ,  (/) ) `  b
) " a ) ) ) : ~P ( R1 `  b ) -1-1-onto-> (
card `  ~P ( R1 `  b ) ) ) )
11653, 115mpbird 247 . . 3  |-  ( ( b  e.  om  /\  ( rec ( G ,  (/) ) `  b ) : ( R1 `  b ) -1-1-onto-> ( card `  ( R1 `  b ) ) )  ->  ( rec ( G ,  (/) ) `  suc  b ) : ( R1 `  suc  b
)
-1-1-onto-> ( card `  ( R1 ` 
suc  b ) ) )
117116ex 450 . 2  |-  ( b  e.  om  ->  (
( rec ( G ,  (/) ) `  b
) : ( R1
`  b ) -1-1-onto-> ( card `  ( R1 `  b
) )  ->  ( rec ( G ,  (/) ) `  suc  b ) : ( R1 `  suc  b ) -1-1-onto-> ( card `  ( R1 `  suc  b ) ) ) )
1184, 8, 12, 16, 29, 117finds 7092 1  |-  ( A  e.  om  ->  ( rec ( G ,  (/) ) `  A ) : ( R1 `  A ) -1-1-onto-> ( card `  ( R1 `  A ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384    = wceq 1483    e. wcel 1990   _Vcvv 3200    i^i cin 3573    C_ wss 3574   (/)c0 3915   ~Pcpw 4158   {csn 4177   U_ciun 4520   class class class wbr 4653    |-> cmpt 4729    X. cxp 5112   dom cdm 5114    |` cres 5116   "cima 5117    o. ccom 5118   Oncon0 5723   suc csuc 5725    Fn wfn 5883   -->wf 5884   -1-1->wf1 5885   -1-1-onto->wf1o 5887   ` cfv 5888   omcom 7065   reccrdg 7505    ~~ cen 7952   Fincfn 7955   R1cr1 8625   cardccrd 8761
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949
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-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-om 7066  df-1st 7168  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-r1 8627  df-card 8765  df-cda 8990
This theorem is referenced by:  ackbij2lem3  9063  ackbij2  9065
  Copyright terms: Public domain W3C validator