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

Theorem ctiunctlemfo 13190
Description: Lemma for ctiunct 13191. (Contributed by Jim Kingdon, 28-Oct-2023.)
Hypotheses
Ref Expression
ctiunct.som  |-  ( ph  ->  S  C_  om )
ctiunct.sdc  |-  ( ph  ->  A. n  e.  om DECID  n  e.  S )
ctiunct.f  |-  ( ph  ->  F : S -onto-> A
)
ctiunct.tom  |-  ( (
ph  /\  x  e.  A )  ->  T  C_ 
om )
ctiunct.tdc  |-  ( (
ph  /\  x  e.  A )  ->  A. n  e.  om DECID  n  e.  T )
ctiunct.g  |-  ( (
ph  /\  x  e.  A )  ->  G : T -onto-> B )
ctiunct.j  |-  ( ph  ->  J : om -1-1-onto-> ( om  X.  om ) )
ctiunct.u  |-  U  =  { z  e.  om  |  ( ( 1st `  ( J `  z
) )  e.  S  /\  ( 2nd `  ( J `  z )
)  e.  [_ ( F `  ( 1st `  ( J `  z
) ) )  /  x ]_ T ) }
ctiunct.h  |-  H  =  ( n  e.  U  |->  ( [_ ( F `
 ( 1st `  ( J `  n )
) )  /  x ]_ G `  ( 2nd `  ( J `  n
) ) ) )
ctiunct.nfh  |-  F/_ x H
ctiunct.nfu  |-  F/_ x U
Assertion
Ref Expression
ctiunctlemfo  |-  ( ph  ->  H : U -onto-> U_ x  e.  A  B
)
Distinct variable groups:    A, n, x    B, n    n, F, x, z    n, G    n, J, x, z    z, S   
z, T    U, n    ph, n, x    z, n
Allowed substitution hints:    ph( z)    A( z)    B( x, z)    S( x, n)    T( x, n)    U( x, z)    G( x, z)    H( x, z, n)

Proof of Theorem ctiunctlemfo
Dummy variables  r  w  u  v are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ctiunct.som . . 3  |-  ( ph  ->  S  C_  om )
2 ctiunct.sdc . . 3  |-  ( ph  ->  A. n  e.  om DECID  n  e.  S )
3 ctiunct.f . . 3  |-  ( ph  ->  F : S -onto-> A
)
4 ctiunct.tom . . 3  |-  ( (
ph  /\  x  e.  A )  ->  T  C_ 
om )
5 ctiunct.tdc . . 3  |-  ( (
ph  /\  x  e.  A )  ->  A. n  e.  om DECID  n  e.  T )
6 ctiunct.g . . 3  |-  ( (
ph  /\  x  e.  A )  ->  G : T -onto-> B )
7 ctiunct.j . . 3  |-  ( ph  ->  J : om -1-1-onto-> ( om  X.  om ) )
8 ctiunct.u . . 3  |-  U  =  { z  e.  om  |  ( ( 1st `  ( J `  z
) )  e.  S  /\  ( 2nd `  ( J `  z )
)  e.  [_ ( F `  ( 1st `  ( J `  z
) ) )  /  x ]_ T ) }
9 ctiunct.h . . 3  |-  H  =  ( n  e.  U  |->  ( [_ ( F `
 ( 1st `  ( J `  n )
) )  /  x ]_ G `  ( 2nd `  ( J `  n
) ) ) )
101, 2, 3, 4, 5, 6, 7, 8, 9ctiunctlemf 13189 . 2  |-  ( ph  ->  H : U --> U_ x  e.  A  B )
11 nfv 1577 . . . . 5  |-  F/ x ph
12 nfiu1 4021 . . . . . 6  |-  F/_ x U_ x  e.  A  B
1312nfcri 2378 . . . . 5  |-  F/ x  u  e.  U_ x  e.  A  B
1411, 13nfan 1614 . . . 4  |-  F/ x
( ph  /\  u  e.  U_ x  e.  A  B )
15 ctiunct.nfu . . . . 5  |-  F/_ x U
16 ctiunct.nfh . . . . . . 7  |-  F/_ x H
17 nfcv 2384 . . . . . . 7  |-  F/_ x
v
1816, 17nffv 5680 . . . . . 6  |-  F/_ x
( H `  v
)
1918nfeq2 2396 . . . . 5  |-  F/ x  u  =  ( H `  v )
2015, 19nfrexw 2581 . . . 4  |-  F/ x E. v  e.  U  u  =  ( H `  v )
21 simplll 535 . . . . . . 7  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  ph )
22 simplr 529 . . . . . . 7  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  x  e.  A )
2321, 22, 6syl2anc 411 . . . . . 6  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  G : T -onto-> B )
24 foelrn 5925 . . . . . 6  |-  ( ( G : T -onto-> B  /\  u  e.  B
)  ->  E. w  e.  T  u  =  ( G `  w ) )
2523, 24sylancom 420 . . . . 5  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  E. w  e.  T  u  =  ( G `  w ) )
263ad4antr 494 . . . . . . 7  |-  ( ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A
)  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  ->  F : S -onto-> A )
27 simpllr 536 . . . . . . 7  |-  ( ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A
)  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  ->  x  e.  A
)
28 foelrn 5925 . . . . . . 7  |-  ( ( F : S -onto-> A  /\  x  e.  A
)  ->  E. r  e.  S  x  =  ( F `  r ) )
2926, 27, 28syl2anc 411 . . . . . 6  |-  ( ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A
)  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  ->  E. r  e.  S  x  =  ( F `  r ) )
30 f1ocnv 5627 . . . . . . . . . . . 12  |-  ( J : om -1-1-onto-> ( om  X.  om )  ->  `' J :
( om  X.  om )
-1-1-onto-> om )
317, 30syl 14 . . . . . . . . . . 11  |-  ( ph  ->  `' J : ( om 
X.  om ) -1-1-onto-> om )
32 f1of 5614 . . . . . . . . . . 11  |-  ( `' J : ( om 
X.  om ) -1-1-onto-> om  ->  `' J : ( om  X.  om ) --> om )
3331, 32syl 14 . . . . . . . . . 10  |-  ( ph  ->  `' J : ( om 
X.  om ) --> om )
3433ad5antr 496 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  `' J : ( om 
X.  om ) --> om )
351ad5antr 496 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  S  C_  om )
36 simprl 531 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
r  e.  S )
3735, 36sseldd 3239 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
r  e.  om )
38 simp-5l 545 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  ph )
3927adantr 276 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  x  e.  A )
4038, 39, 4syl2anc 411 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  T  C_  om )
41 simplrl 537 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  w  e.  T )
4240, 41sseldd 3239 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  w  e.  om )
4337, 42opelxpd 4782 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  <. r ,  w >.  e.  ( om  X.  om ) )
4434, 43ffvelcdmd 5813 . . . . . . . 8  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( `' J `  <. r ,  w >. )  e.  om )
4538, 7syl 14 . . . . . . . . . . . . 13  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  J : om -1-1-onto-> ( om  X.  om ) )
46 f1ocnvfv2 5951 . . . . . . . . . . . . 13  |-  ( ( J : om -1-1-onto-> ( om  X.  om )  /\  <. r ,  w >.  e.  ( om  X.  om ) )  ->  ( J `  ( `' J `  <. r ,  w >. ) )  = 
<. r ,  w >. )
4745, 43, 46syl2anc 411 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( J `  ( `' J `  <. r ,  w >. ) )  = 
<. r ,  w >. )
4847fveq2d 5674 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  =  ( 1st `  <. r ,  w >. )
)
49 vex 2816 . . . . . . . . . . . 12  |-  r  e. 
_V
50 vex 2816 . . . . . . . . . . . 12  |-  w  e. 
_V
5149, 50op1st 6340 . . . . . . . . . . 11  |-  ( 1st `  <. r ,  w >. )  =  r
5248, 51eqtrdi 2281 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  =  r )
5352, 36eqeltrd 2309 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  S )
5447fveq2d 5674 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) )  =  ( 2nd `  <. r ,  w >. )
)
5549, 50op2nd 6341 . . . . . . . . . . 11  |-  ( 2nd `  <. r ,  w >. )  =  w
5654, 55eqtrdi 2281 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) )  =  w )
5752fveq2d 5674 . . . . . . . . . . . . 13  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  =  ( F `
 r ) )
58 simprr 533 . . . . . . . . . . . . 13  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  x  =  ( F `  r ) )
5957, 58eqtr4d 2268 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  =  x )
6059csbeq1d 3145 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T  =  [_ x  /  x ]_ T )
61 csbid 3146 . . . . . . . . . . 11  |-  [_ x  /  x ]_ T  =  T
6260, 61eqtrdi 2281 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T  =  T )
6341, 56, 623eltr4d 2316 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  [_ ( F `
 ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T )
6453, 63jca 306 . . . . . . . 8  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  S  /\  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  [_ ( F `
 ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T ) )
65 2fveq3 5675 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( 1st `  ( J `  z
) )  =  ( 1st `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
6665eleq1d 2301 . . . . . . . . . 10  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( ( 1st `  ( J `  z ) )  e.  S  <->  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  S ) )
67 2fveq3 5675 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( 2nd `  ( J `  z
) )  =  ( 2nd `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
6865fveq2d 5674 . . . . . . . . . . . 12  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( F `  ( 1st `  ( J `  z )
) )  =  ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
6968csbeq1d 3145 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  [_ ( F `
 ( 1st `  ( J `  z )
) )  /  x ]_ T  =  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T )
7067, 69eleq12d 2303 . . . . . . . . . 10  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( ( 2nd `  ( J `  z ) )  e. 
[_ ( F `  ( 1st `  ( J `
 z ) ) )  /  x ]_ T 
<->  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  [_ ( F `
 ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T ) )
7166, 70anbi12d 473 . . . . . . . . 9  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( (
( 1st `  ( J `  z )
)  e.  S  /\  ( 2nd `  ( J `
 z ) )  e.  [_ ( F `
 ( 1st `  ( J `  z )
) )  /  x ]_ T )  <->  ( ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  S  /\  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  [_ ( F `
 ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T ) ) )
7271, 8elrab2 2976 . . . . . . . 8  |-  ( ( `' J `  <. r ,  w >. )  e.  U  <->  ( ( `' J `  <. r ,  w >. )  e.  om  /\  (
( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  S  /\  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  [_ ( F `
 ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T ) ) )
7344, 64, 72sylanbrc 417 . . . . . . 7  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( `' J `  <. r ,  w >. )  e.  U )
7459csbeq1d 3145 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G  =  [_ x  /  x ]_ G )
75 csbid 3146 . . . . . . . . . 10  |-  [_ x  /  x ]_ G  =  G
7674, 75eqtrdi 2281 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G  =  G )
7776, 56fveq12d 5677 . . . . . . . 8  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( [_ ( F `  ( 1st `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G `  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  =  ( G `
 w ) )
78 2fveq3 5675 . . . . . . . . . . . 12  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( 1st `  ( J `  n
) )  =  ( 1st `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
7978fveq2d 5674 . . . . . . . . . . 11  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( F `  ( 1st `  ( J `  n )
) )  =  ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
8079csbeq1d 3145 . . . . . . . . . 10  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  [_ ( F `
 ( 1st `  ( J `  n )
) )  /  x ]_ G  =  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G )
81 2fveq3 5675 . . . . . . . . . 10  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( 2nd `  ( J `  n
) )  =  ( 2nd `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
8280, 81fveq12d 5677 . . . . . . . . 9  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( [_ ( F `  ( 1st `  ( J `  n
) ) )  /  x ]_ G `  ( 2nd `  ( J `  n ) ) )  =  ( [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G `  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
83 simplrr 538 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  u  =  ( G `  w ) )
8483, 77eqtr4d 2268 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  u  =  ( [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G `  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
85 simpllr 536 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  u  e.  B )
8684, 85eqeltrrd 2310 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( [_ ( F `  ( 1st `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G `  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  e.  B )
879, 82, 73, 86fvmptd3 5771 . . . . . . . 8  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  -> 
( H `  ( `' J `  <. r ,  w >. ) )  =  ( [_ ( F `
 ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G `  ( 2nd `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
8877, 87, 833eqtr4rd 2276 . . . . . . 7  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  u  =  ( H `  ( `' J `  <. r ,  w >. ) ) )
89 fveq2 5670 . . . . . . . 8  |-  ( v  =  ( `' J `  <. r ,  w >. )  ->  ( H `  v )  =  ( H `  ( `' J `  <. r ,  w >. ) ) )
9089rspceeqv 2939 . . . . . . 7  |-  ( ( ( `' J `  <. r ,  w >. )  e.  U  /\  u  =  ( H `  ( `' J `  <. r ,  w >. ) ) )  ->  E. v  e.  U  u  =  ( H `  v ) )
9173, 88, 90syl2anc 411 . . . . . 6  |-  ( ( ( ( ( (
ph  /\  u  e.  U_ x  e.  A  B
)  /\  x  e.  A )  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  /\  ( r  e.  S  /\  x  =  ( F `  r
) ) )  ->  E. v  e.  U  u  =  ( H `  v ) )
9229, 91rexlimddv 2665 . . . . 5  |-  ( ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A
)  /\  u  e.  B )  /\  (
w  e.  T  /\  u  =  ( G `  w ) ) )  ->  E. v  e.  U  u  =  ( H `  v ) )
9325, 92rexlimddv 2665 . . . 4  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  E. v  e.  U  u  =  ( H `  v ) )
94 eliun 3995 . . . . . 6  |-  ( u  e.  U_ x  e.  A  B  <->  E. x  e.  A  u  e.  B )
9594biimpi 120 . . . . 5  |-  ( u  e.  U_ x  e.  A  B  ->  E. x  e.  A  u  e.  B )
9695adantl 277 . . . 4  |-  ( (
ph  /\  u  e.  U_ x  e.  A  B
)  ->  E. x  e.  A  u  e.  B )
9714, 20, 93, 96r19.29af2 2683 . . 3  |-  ( (
ph  /\  u  e.  U_ x  e.  A  B
)  ->  E. v  e.  U  u  =  ( H `  v ) )
9897ralrimiva 2615 . 2  |-  ( ph  ->  A. u  e.  U_  x  e.  A  B E. v  e.  U  u  =  ( H `  v ) )
99 dffo3 5824 . 2  |-  ( H : U -onto-> U_ x  e.  A  B  <->  ( H : U --> U_ x  e.  A  B  /\  A. u  e. 
U_  x  e.  A  B E. v  e.  U  u  =  ( H `  v ) ) )
10010, 98, 99sylanbrc 417 1  |-  ( ph  ->  H : U -onto-> U_ x  e.  A  B
)
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104  DECID wdc 842    = wceq 1398    e. wcel 2203   F/_wnfc 2371   A.wral 2520   E.wrex 2521   {crab 2524   [_csb 3138    C_ wss 3211   <.cop 3692   U_ciun 3991    |-> cmpt 4171   omcom 4712    X. cxp 4747   `'ccnv 4748   -->wf 5348   -onto->wfo 5350   -1-1-onto->wf1o 5351   ` cfv 5352   1stc1st 6332   2ndc2nd 6333
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-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 2205  ax-14 2206  ax-ext 2214  ax-sep 4228  ax-pow 4287  ax-pr 4322  ax-un 4554
This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ral 2525  df-rex 2526  df-rab 2529  df-v 2815  df-sbc 3043  df-csb 3139  df-un 3215  df-in 3217  df-ss 3224  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-iun 3993  df-br 4110  df-opab 4172  df-mpt 4173  df-id 4414  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-ima 4762  df-iota 5312  df-fun 5354  df-fn 5355  df-f 5356  df-f1 5357  df-fo 5358  df-f1o 5359  df-fv 5360  df-1st 6334  df-2nd 6335
This theorem is referenced by:  ctiunct  13191
  Copyright terms: Public domain W3C validator