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

Theorem ctiunct 13124
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 13128 (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 13126, 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 13079) 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 7353 and ctssdc 7355.

(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 13079 . . . . 5  |-  ( om 
X.  om )  ~~  om
21ensymi 6999 . . . 4  |-  om  ~~  ( om  X.  om )
3 bren 6960 . . . 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 7353 . . . . . . 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 1036 . . . . . 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 1038 . . . . . 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 1037 . . . . . 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 7353 . . . . . . 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 1036 . . . . . 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 1038 . . . . . 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 1037 . . . . . 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 13120 . . . 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 1577 . . . . . . . . 9  |-  F/ x
( 1st `  (
j `  z )
)  e.  { w  e.  om  |  ( F `
 w )  e.  (inl " A ) }
31 nfcsb1v 3161 . . . . . . . . . 10  |-  F/_ x [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  z ) ) )  /  x ]_ {
w  e.  om  | 
( G `  w
)  e.  (inl " B ) }
3231nfel2 2388 . . . . . . . . 9  |-  F/ x
( 2nd `  (
j `  z )
)  e.  [_ (
( `'inl  o.  F
) `  ( 1st `  ( j `  z
) ) )  /  x ]_ { w  e. 
om  |  ( G `
 w )  e.  (inl " B ) }
3330, 32nfan 1614 . . . . . . . 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 2375 . . . . . . . 8  |-  F/_ x om
3533, 34nfrabw 2715 . . . . . . 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 3161 . . . . . . . 8  |-  F/_ x [_ ( ( `'inl  o.  F ) `  ( 1st `  ( j `  n ) ) )  /  x ]_ ( `'inl  o.  G )
37 nfcv 2375 . . . . . . . 8  |-  F/_ x
( 2nd `  (
j `  n )
)
3836, 37nffv 5658 . . . . . . 7  |-  F/_ x
( [_ ( ( `'inl 
o.  F ) `  ( 1st `  ( j `
 n ) ) )  /  x ]_ ( `'inl  o.  G ) `  ( 2nd `  ( j `
 n ) ) )
3935, 38nfmpt 4186 . . . . . 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 13123 . . . . 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 4697 . . . . . . . 8  |-  om  e.  _V
4241rabex 4239 . . . . . . 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 5890 . . . . . 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 5564 . . . . . 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 2902 . . . . 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 13121 . . . 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 3251 . . . . . 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 5565 . . . . . . 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 846 . . . . . . 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 2533 . . . . . 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 1349 . . . . 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 2902 . . . 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 1274 . . 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 7355 . . . 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 5564 . . . . 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 842    /\ w3a 1005    = wceq 1398   E.wex 1541    e. wcel 2202   A.wral 2511   {crab 2515   [_csb 3128    C_ wss 3201   U_ciun 3975   class class class wbr 4093    |-> cmpt 4155   omcom 4694    X. cxp 4729   `'ccnv 4730   "cima 4734    o. ccom 4735   -onto->wfo 5331   -1-1-onto->wf1o 5332   ` cfv 5333   1stc1st 6310   2ndc2nd 6311   1oc1o 6618    ~~ cen 6950   ⊔ cdju 7279  inlcinl 7287
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 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4209  ax-sep 4212  ax-nul 4220  ax-pow 4270  ax-pr 4305  ax-un 4536  ax-setind 4641  ax-iinf 4692  ax-cnex 8166  ax-resscn 8167  ax-1cn 8168  ax-1re 8169  ax-icn 8170  ax-addcl 8171  ax-addrcl 8172  ax-mulcl 8173  ax-mulrcl 8174  ax-addcom 8175  ax-mulcom 8176  ax-addass 8177  ax-mulass 8178  ax-distr 8179  ax-i2m1 8180  ax-0lt1 8181  ax-1rid 8182  ax-0id 8183  ax-rnegex 8184  ax-precex 8185  ax-cnre 8186  ax-pre-ltirr 8187  ax-pre-ltwlin 8188  ax-pre-lttrn 8189  ax-pre-apti 8190  ax-pre-ltadd 8191  ax-pre-mulgt0 8192  ax-pre-mulext 8193  ax-arch 8194
This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-xor 1421  df-nf 1510  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-ne 2404  df-nel 2499  df-ral 2516  df-rex 2517  df-reu 2518  df-rmo 2519  df-rab 2520  df-v 2805  df-sbc 3033  df-csb 3129  df-dif 3203  df-un 3205  df-in 3207  df-ss 3214  df-nul 3497  df-if 3608  df-pw 3658  df-sn 3679  df-pr 3680  df-op 3682  df-uni 3899  df-int 3934  df-iun 3977  df-br 4094  df-opab 4156  df-mpt 4157  df-tr 4193  df-id 4396  df-po 4399  df-iso 4400  df-iord 4469  df-on 4471  df-ilim 4472  df-suc 4474  df-iom 4695  df-xp 4737  df-rel 4738  df-cnv 4739  df-co 4740  df-dm 4741  df-rn 4742  df-res 4743  df-ima 4744  df-iota 5293  df-fun 5335  df-fn 5336  df-f 5337  df-f1 5338  df-fo 5339  df-f1o 5340  df-fv 5341  df-riota 5981  df-ov 6031  df-oprab 6032  df-mpo 6033  df-1st 6312  df-2nd 6313  df-recs 6514  df-frec 6600  df-1o 6625  df-er 6745  df-en 6953  df-dju 7280  df-inl 7289  df-inr 7290  df-case 7326  df-pnf 8258  df-mnf 8259  df-xr 8260  df-ltxr 8261  df-le 8262  df-sub 8394  df-neg 8395  df-reap 8797  df-ap 8804  df-div 8895  df-inn 9186  df-2 9244  df-n0 9445  df-z 9524  df-uz 9800  df-q 9898  df-rp 9933  df-fz 10289  df-fl 10576  df-mod 10631  df-seqfrec 10756  df-exp 10847  df-dvds 12412
This theorem is referenced by:  ctiunctal  13125  unct  13126
  Copyright terms: Public domain W3C validator