ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  ctiunct Unicode version

Theorem ctiunct 13060
Description: A sequence of enumerations gives an enumeration of the union. We refer to "sequence of enumerations" rather than "countably many countable sets" because the hypothesis provides more than countability for each  B ( x ): it refers to  B ( x ) together with the  G ( x ) which enumerates it. Theorem 8.1.19 of [AczelRathjen], p. 74.

For "countably many countable sets" the key hypothesis would be  ( ph  /\  x  e.  A )  ->  E. g g : om -onto-> ( B 1o ). This is almost omiunct 13064 (which uses countable choice) although that is for a countably infinite collection not any countable collection.

Compare with the case of two sets instead of countably many, as seen at unct 13062, which says that the union of two countable sets is countable .

The proof proceeds by mapping a natural number to a pair of natural numbers (by xpomen 13015) and using the first number to map to an element  x of  A and the second number to map to an element of B(x) . In this way we are able to map to every element of  U_ x  e.  A B. Although it would be possible to work directly with countability expressed as  F : om -onto-> ( A 1o ), we instead use functions from subsets of the natural numbers via ctssdccl 7309 and ctssdc 7311.

(Contributed by Jim Kingdon, 31-Oct-2023.)

Hypotheses
Ref Expression
ctiunct.a  |-  ( ph  ->  F : om -onto-> ( A 1o ) )
ctiunct.b  |-  ( (
ph  /\  x  e.  A )  ->  G : om -onto-> ( B 1o ) )
Assertion
Ref Expression
ctiunct  |-  ( ph  ->  E. h  h : om -onto-> ( U_ x  e.  A  B 1o ) )
Distinct variable groups:    A, h, x    B, h    x, F    ph, x
Allowed substitution hints:    ph( h)    B( x)    F( h)    G( x, h)

Proof of Theorem ctiunct
Dummy variables  j  k  n  u  z  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 xpomen 13015 . . . . 5  |-  ( om 
X.  om )  ~~  om
21ensymi 6955 . . . 4  |-  om  ~~  ( om  X.  om )
3 bren 6916 . . . 4  |-  ( om 
~~  ( om  X.  om )  <->  E. j  j : om -1-1-onto-> ( om  X.  om ) )
42, 3mpbi 145 . . 3  |-  E. j 
j : om -1-1-onto-> ( om  X.  om )
54a1i 9 . 2  |-  ( ph  ->  E. j  j : om -1-1-onto-> ( om  X.  om ) )
6 ctiunct.a . . . . . . . 8  |-  ( ph  ->  F : om -onto-> ( A 1o ) )
7 eqid 2231 . . . . . . . 8  |-  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  =  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }
8 eqid 2231 . . . . . . . 8  |-  ( `'inl 
o.  F )  =  ( `'inl  o.  F
)
96, 7, 8ctssdccl 7309 . . . . . . 7  |-  ( ph  ->  ( { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  C_  om  /\  ( `'inl  o.  F ) : { w  e.  om  |  ( F `  w )  e.  (inl " A ) } -onto-> A  /\  A. n  e.  om DECID  n  e.  { w  e.  om  |  ( F `  w )  e.  (inl " A ) } ) )
109simp1d 1035 . . . . . 6  |-  ( ph  ->  { w  e.  om  |  ( F `  w )  e.  (inl " A ) }  C_  om )
1110adantr 276 . . . . 5  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  C_  om )
129simp3d 1037 . . . . . 6  |-  ( ph  ->  A. n  e.  om DECID  n  e.  { w  e.  om  |  ( F `  w )  e.  (inl " A ) } )
1312adantr 276 . . . . 5  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  A. n  e.  om DECID  n  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) } )
149simp2d 1036 . . . . . 6  |-  ( ph  ->  ( `'inl  o.  F
) : { w  e.  om  |  ( F `
 w )  e.  (inl " A ) } -onto-> A )
1514adantr 276 . . . . 5  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  ( `'inl  o.  F ) : {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) } -onto-> A
)
16 ctiunct.b . . . . . . . 8  |-  ( (
ph  /\  x  e.  A )  ->  G : om -onto-> ( B 1o ) )
17 eqid 2231 . . . . . . . 8  |-  { w  e.  om  |  ( G `
 w )  e.  (inl " B ) }  =  { w  e.  om  |  ( G `
 w )  e.  (inl " B ) }
18 eqid 2231 . . . . . . . 8  |-  ( `'inl 
o.  G )  =  ( `'inl  o.  G
)
1916, 17, 18ctssdccl 7309 . . . . . . 7  |-  ( (
ph  /\  x  e.  A )  ->  ( { w  e.  om  |  ( G `  w )  e.  (inl " B ) }  C_  om 
/\  ( `'inl  o.  G ) : {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } -onto-> B  /\  A. n  e.  om DECID  n  e.  { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) )
2019simp1d 1035 . . . . . 6  |-  ( (
ph  /\  x  e.  A )  ->  { w  e.  om  |  ( G `
 w )  e.  (inl " B ) }  C_  om )
2120adantlr 477 . . . . 5  |-  ( ( ( ph  /\  j : om -1-1-onto-> ( om  X.  om ) )  /\  x  e.  A )  ->  { w  e.  om  |  ( G `
 w )  e.  (inl " B ) }  C_  om )
2219simp3d 1037 . . . . . 6  |-  ( (
ph  /\  x  e.  A )  ->  A. n  e.  om DECID  n  e.  { w  e.  om  |  ( G `
 w )  e.  (inl " B ) } )
2322adantlr 477 . . . . 5  |-  ( ( ( ph  /\  j : om -1-1-onto-> ( om  X.  om ) )  /\  x  e.  A )  ->  A. n  e.  om DECID  n  e.  { w  e.  om  |  ( G `
 w )  e.  (inl " B ) } )
2419simp2d 1036 . . . . . 6  |-  ( (
ph  /\  x  e.  A )  ->  ( `'inl  o.  G ) : { w  e.  om  |  ( G `  w )  e.  (inl " B ) } -onto-> B
)
2524adantlr 477 . . . . 5  |-  ( ( ( ph  /\  j : om -1-1-onto-> ( om  X.  om ) )  /\  x  e.  A )  ->  ( `'inl  o.  G ) : { w  e.  om  |  ( G `  w )  e.  (inl " B ) } -onto-> B
)
26 simpr 110 . . . . 5  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  j : om
-1-1-onto-> ( om  X.  om )
)
27 eqid 2231 . . . . 5  |-  { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  =  { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }
2811, 13, 15, 21, 23, 25, 26, 27ctiunctlemuom 13056 . . . 4  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  { z  e.  om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  C_  om )
29 eqid 2231 . . . . . 6  |-  ( n  e.  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  |->  ( [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  n
) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `  n ) ) ) )  =  ( n  e.  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  |->  ( [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  n
) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `  n ) ) ) )
30 nfv 1576 . . . . . . . . 9  |-  F/ x
( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }
31 nfcsb1v 3160 . . . . . . . . . 10  |-  F/_ x [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) }
3231nfel2 2387 . . . . . . . . 9  |-  F/ x
( 2nd `  (
j `  z )
)  e.  [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  z
) ) )  /  x ]_ { w  e. 
om  |  ( G `
 w )  e.  (inl " B ) }
3330, 32nfan 1613 . . . . . . . 8  |-  F/ x
( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } )
34 nfcv 2374 . . . . . . . 8  |-  F/_ x om
3533, 34nfrabw 2714 . . . . . . 7  |-  F/_ x { z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) }
36 nfcsb1v 3160 . . . . . . . 8  |-  F/_ x [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  n ) ) )  /  x ]_ ( `'inl  o.  G )
37 nfcv 2374 . . . . . . . 8  |-  F/_ x
( 2nd `  (
j `  n )
)
3836, 37nffv 5649 . . . . . . 7  |-  F/_ x
( [_ ( ( `'inl 
o.  F ) `  ( 1st `  ( j `
 n ) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `
 n ) ) )
3935, 38nfmpt 4181 . . . . . 6  |-  F/_ x
( n  e.  {
z  e.  om  | 
( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  |->  ( [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  n
) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `  n ) ) ) )
4011, 13, 15, 21, 23, 25, 26, 27, 29, 39, 35ctiunctlemfo 13059 . . . . 5  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  ( n  e.  { z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) }  |->  ( [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  n
) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `  n ) ) ) ) : { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B )
41 omex 4691 . . . . . . . 8  |-  om  e.  _V
4241rabex 4234 . . . . . . 7  |-  { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  e.  _V
4342mptex 5879 . . . . . 6  |-  ( n  e.  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  |->  ( [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  n
) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `  n ) ) ) )  e.  _V
44 foeq1 5555 . . . . . 6  |-  ( k  =  ( n  e. 
{ z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) }  |->  ( [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  n
) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `  n ) ) ) )  ->  ( k : { z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B 
<->  ( n  e.  {
z  e.  om  | 
( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  |->  ( [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  n
) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `  n ) ) ) ) : { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B ) )
4543, 44spcev 2901 . . . . 5  |-  ( ( n  e.  { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  |->  ( [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  n
) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `  n ) ) ) ) : { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B  ->  E. k  k : { z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B )
4640, 45syl 14 . . . 4  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  E. k 
k : { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B )
4711, 13, 15, 21, 23, 25, 26, 27ctiunctlemudc 13057 . . . 4  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  A. n  e.  om DECID  n  e.  { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } )
48 sseq1 3250 . . . . . 6  |-  ( u  =  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  ->  ( u  C_ 
om 
<->  { z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) }  C_  om )
)
49 foeq2 5556 . . . . . . 7  |-  ( u  =  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  ->  ( k : u -onto-> U_ x  e.  A  B  <->  k : { z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B ) )
5049exbidv 1873 . . . . . 6  |-  ( u  =  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  ->  ( E. k  k : u
-onto->
U_ x  e.  A  B 
<->  E. k  k : { z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B ) )
51 eleq2 2295 . . . . . . . 8  |-  ( u  =  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  ->  ( n  e.  u  <->  n  e.  { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } ) )
5251dcbid 845 . . . . . . 7  |-  ( u  =  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  ->  (DECID  n  e.  u 
<-> DECID  n  e.  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } ) )
5352ralbidv 2532 . . . . . 6  |-  ( u  =  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  ->  ( A. n  e.  om DECID  n  e.  u  <->  A. n  e.  om DECID  n  e.  { z  e.  om  | 
( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } ) )
5448, 50, 533anbi123d 1348 . . . . 5  |-  ( u  =  { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  ->  ( (
u  C_  om  /\  E. k  k : u
-onto->
U_ x  e.  A  B  /\  A. n  e. 
om DECID 
n  e.  u )  <-> 
( { z  e. 
om  |  ( ( 1st `  ( j `
 z ) )  e.  { w  e. 
om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) }  C_  om  /\  E. k  k : {
z  e.  om  | 
( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B  /\  A. n  e. 
om DECID 
n  e.  { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } ) ) )
5542, 54spcev 2901 . . . 4  |-  ( ( { z  e.  om  |  ( ( 1st `  ( j `  z
) )  e.  {
w  e.  om  | 
( F `  w
)  e.  (inl " A ) }  /\  ( 2nd `  ( j `
 z ) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `
 z ) ) )  /  x ]_ { w  e.  om  |  ( G `  w )  e.  (inl " B ) } ) }  C_  om  /\  E. k  k : {
z  e.  om  | 
( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } -onto-> U_ x  e.  A  B  /\  A. n  e. 
om DECID 
n  e.  { z  e.  om  |  ( ( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }  /\  ( 2nd `  ( j `  z
) )  e.  [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) } ) } )  ->  E. u
( u  C_  om  /\  E. k  k : u
-onto->
U_ x  e.  A  B  /\  A. n  e. 
om DECID 
n  e.  u ) )
5628, 46, 47, 55syl3anc 1273 . . 3  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  E. u
( u  C_  om  /\  E. k  k : u
-onto->
U_ x  e.  A  B  /\  A. n  e. 
om DECID 
n  e.  u ) )
57 ctssdc 7311 . . . 4  |-  ( E. u ( u  C_  om 
/\  E. k  k : u -onto-> U_ x  e.  A  B  /\  A. n  e. 
om DECID 
n  e.  u )  <->  E. k  k : om -onto-> ( U_ x  e.  A  B 1o ) )
58 foeq1 5555 . . . . 5  |-  ( k  =  h  ->  (
k : om -onto-> ( U_ x  e.  A  B 1o )  <->  h : om -onto-> ( U_ x  e.  A  B 1o ) ) )
5958cbvexv 1967 . . . 4  |-  ( E. k  k : om -onto->
( U_ x  e.  A  B 1o )  <->  E. h  h : om -onto-> ( U_ x  e.  A  B 1o ) )
6057, 59bitri 184 . . 3  |-  ( E. u ( u  C_  om 
/\  E. k  k : u -onto-> U_ x  e.  A  B  /\  A. n  e. 
om DECID 
n  e.  u )  <->  E. h  h : om -onto-> ( U_ x  e.  A  B 1o ) )
6156, 60sylib 122 . 2  |-  ( (
ph  /\  j : om
-1-1-onto-> ( om  X.  om )
)  ->  E. h  h : om -onto-> ( U_ x  e.  A  B 1o ) )
625, 61exlimddv 1947 1  |-  ( ph  ->  E. h  h : om -onto-> ( U_ x  e.  A  B 1o ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104  DECID wdc 841    /\ w3a 1004    = wceq 1397   E.wex 1540    e. wcel 2202   A.wral 2510   {crab 2514   [_csb 3127    C_ wss 3200   U_ciun 3970   class class class wbr 4088    |-> cmpt 4150   omcom 4688    X. cxp 4723   `'ccnv 4724   "cima 4728    o. ccom 4729   -onto->wfo 5324   -1-1-onto->wf1o 5325   ` cfv 5326   1stc1st 6300   2ndc2nd 6301   1oc1o 6574    ~~ cen 6906   ⊔ cdju 7235  inlcinl 7243
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4204  ax-sep 4207  ax-nul 4215  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635  ax-iinf 4686  ax-cnex 8122  ax-resscn 8123  ax-1cn 8124  ax-1re 8125  ax-icn 8126  ax-addcl 8127  ax-addrcl 8128  ax-mulcl 8129  ax-mulrcl 8130  ax-addcom 8131  ax-mulcom 8132  ax-addass 8133  ax-mulass 8134  ax-distr 8135  ax-i2m1 8136  ax-0lt1 8137  ax-1rid 8138  ax-0id 8139  ax-rnegex 8140  ax-precex 8141  ax-cnre 8142  ax-pre-ltirr 8143  ax-pre-ltwlin 8144  ax-pre-lttrn 8145  ax-pre-apti 8146  ax-pre-ltadd 8147  ax-pre-mulgt0 8148  ax-pre-mulext 8149  ax-arch 8150
This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-xor 1420  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-nel 2498  df-ral 2515  df-rex 2516  df-reu 2517  df-rmo 2518  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-nul 3495  df-if 3606  df-pw 3654  df-sn 3675  df-pr 3676  df-op 3678  df-uni 3894  df-int 3929  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-tr 4188  df-id 4390  df-po 4393  df-iso 4394  df-iord 4463  df-on 4465  df-ilim 4466  df-suc 4468  df-iom 4689  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-riota 5970  df-ov 6020  df-oprab 6021  df-mpo 6022  df-1st 6302  df-2nd 6303  df-recs 6470  df-frec 6556  df-1o 6581  df-er 6701  df-en 6909  df-dju 7236  df-inl 7245  df-inr 7246  df-case 7282  df-pnf 8215  df-mnf 8216  df-xr 8217  df-ltxr 8218  df-le 8219  df-sub 8351  df-neg 8352  df-reap 8754  df-ap 8761  df-div 8852  df-inn 9143  df-2 9201  df-n0 9402  df-z 9479  df-uz 9755  df-q 9853  df-rp 9888  df-fz 10243  df-fl 10529  df-mod 10584  df-seqfrec 10709  df-exp 10800  df-dvds 12348
This theorem is referenced by:  ctiunctal  13061  unct  13062
  Copyright terms: Public domain W3C validator