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

Theorem ctiunctlemfo 12394
Description: Lemma for ctiunct 12395. (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 12393 . 2  |-  ( ph  ->  H : U --> U_ x  e.  A  B )
11 nfv 1521 . . . . 5  |-  F/ x ph
12 nfiu1 3903 . . . . . 6  |-  F/_ x U_ x  e.  A  B
1312nfcri 2306 . . . . 5  |-  F/ x  u  e.  U_ x  e.  A  B
1411, 13nfan 1558 . . . 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 2312 . . . . . . 7  |-  F/_ x
v
1816, 17nffv 5506 . . . . . 6  |-  F/_ x
( H `  v
)
1918nfeq2 2324 . . . . 5  |-  F/ x  u  =  ( H `  v )
2015, 19nfrexxy 2509 . . . 4  |-  F/ x E. v  e.  U  u  =  ( H `  v )
21 simplll 528 . . . . . . 7  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  ph )
22 simplr 525 . . . . . . 7  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  x  e.  A )
2321, 22, 6syl2anc 409 . . . . . 6  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  G : T -onto-> B )
24 foelrn 5732 . . . . . 6  |-  ( ( G : T -onto-> B  /\  u  e.  B
)  ->  E. w  e.  T  u  =  ( G `  w ) )
2523, 24sylancom 418 . . . . 5  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  E. w  e.  T  u  =  ( G `  w ) )
263ad4antr 491 . . . . . . 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 529 . . . . . . 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 5732 . . . . . . 7  |-  ( ( F : S -onto-> A  /\  x  e.  A
)  ->  E. r  e.  S  x  =  ( F `  r ) )
2926, 27, 28syl2anc 409 . . . . . 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 5455 . . . . . . . . . . . 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 5442 . . . . . . . . . . 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 493 . . . . . . . . 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 493 . . . . . . . . . . 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 526 . . . . . . . . . . 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 3148 . . . . . . . . . 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 538 . . . . . . . . . . . 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 274 . . . . . . . . . . . 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 409 . . . . . . . . . . 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 530 . . . . . . . . . . 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 3148 . . . . . . . . . 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 4644 . . . . . . . . 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, 43ffvelrnd 5632 . . . . . . . 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 5757 . . . . . . . . . . . . 13  |-  ( ( J : om -1-1-onto-> ( om  X.  om )  /\  <. r ,  w >.  e.  ( om  X.  om ) )  ->  ( J `  ( `' J `  <. r ,  w >. ) )  = 
<. r ,  w >. )
4745, 43, 46syl2anc 409 . . . . . . . . . . . 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 5500 . . . . . . . . . . 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 2733 . . . . . . . . . . . 12  |-  r  e. 
_V
50 vex 2733 . . . . . . . . . . . 12  |-  w  e. 
_V
5149, 50op1st 6125 . . . . . . . . . . 11  |-  ( 1st `  <. r ,  w >. )  =  r
5248, 51eqtrdi 2219 . . . . . . . . . 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 2247 . . . . . . . . 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 5500 . . . . . . . . . . 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 6126 . . . . . . . . . . 11  |-  ( 2nd `  <. r ,  w >. )  =  w
5654, 55eqtrdi 2219 . . . . . . . . . 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 5500 . . . . . . . . . . . . 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 527 . . . . . . . . . . . . 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 2206 . . . . . . . . . . . 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 3056 . . . . . . . . . . 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 3057 . . . . . . . . . . 11  |-  [_ x  /  x ]_ T  =  T
6260, 61eqtrdi 2219 . . . . . . . . . 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 2254 . . . . . . . . 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 304 . . . . . . . 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 5501 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( 1st `  ( J `  z
) )  =  ( 1st `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
6665eleq1d 2239 . . . . . . . . . 10  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( ( 1st `  ( J `  z ) )  e.  S  <->  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  S ) )
67 2fveq3 5501 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( 2nd `  ( J `  z
) )  =  ( 2nd `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
6865fveq2d 5500 . . . . . . . . . . . 12  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( F `  ( 1st `  ( J `  z )
) )  =  ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
6968csbeq1d 3056 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  [_ ( F `
 ( 1st `  ( J `  z )
) )  /  x ]_ T  =  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T )
7067, 69eleq12d 2241 . . . . . . . . . 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 470 . . . . . . . . 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 2889 . . . . . . . 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 415 . . . . . . 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 3056 . . . . . . . . . 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 3057 . . . . . . . . . 10  |-  [_ x  /  x ]_ G  =  G
7674, 75eqtrdi 2219 . . . . . . . . 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 5503 . . . . . . . 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 5501 . . . . . . . . . . . 12  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( 1st `  ( J `  n
) )  =  ( 1st `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
7978fveq2d 5500 . . . . . . . . . . 11  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( F `  ( 1st `  ( J `  n )
) )  =  ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
8079csbeq1d 3056 . . . . . . . . . 10  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  [_ ( F `
 ( 1st `  ( J `  n )
) )  /  x ]_ G  =  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G )
81 2fveq3 5501 . . . . . . . . . 10  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( 2nd `  ( J `  n
) )  =  ( 2nd `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
8280, 81fveq12d 5503 . . . . . . . . 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 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
) ) )  ->  u  =  ( G `  w ) )
8483, 77eqtr4d 2206 . . . . . . . . . 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 529 . . . . . . . . . 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 2248 . . . . . . . . 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 5589 . . . . . . . 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 2214 . . . . . . 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 5496 . . . . . . . 8  |-  ( v  =  ( `' J `  <. r ,  w >. )  ->  ( H `  v )  =  ( H `  ( `' J `  <. r ,  w >. ) ) )
9089rspceeqv 2852 . . . . . . 7  |-  ( ( ( `' J `  <. r ,  w >. )  e.  U  /\  u  =  ( H `  ( `' J `  <. r ,  w >. ) ) )  ->  E. v  e.  U  u  =  ( H `  v ) )
9173, 88, 90syl2anc 409 . . . . . 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 2592 . . . . 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 2592 . . . 4  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  E. v  e.  U  u  =  ( H `  v ) )
94 eliun 3877 . . . . . 6  |-  ( u  e.  U_ x  e.  A  B  <->  E. x  e.  A  u  e.  B )
9594biimpi 119 . . . . 5  |-  ( u  e.  U_ x  e.  A  B  ->  E. x  e.  A  u  e.  B )
9695adantl 275 . . . 4  |-  ( (
ph  /\  u  e.  U_ x  e.  A  B
)  ->  E. x  e.  A  u  e.  B )
9714, 20, 93, 96r19.29af2 2610 . . 3  |-  ( (
ph  /\  u  e.  U_ x  e.  A  B
)  ->  E. v  e.  U  u  =  ( H `  v ) )
9897ralrimiva 2543 . 2  |-  ( ph  ->  A. u  e.  U_  x  e.  A  B E. v  e.  U  u  =  ( H `  v ) )
99 dffo3 5643 . 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 415 1  |-  ( ph  ->  H : U -onto-> U_ x  e.  A  B
)
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103  DECID wdc 829    = wceq 1348    e. wcel 2141   F/_wnfc 2299   A.wral 2448   E.wrex 2449   {crab 2452   [_csb 3049    C_ wss 3121   <.cop 3586   U_ciun 3873    |-> cmpt 4050   omcom 4574    X. cxp 4609   `'ccnv 4610   -->wf 5194   -onto->wfo 5196   -1-1-onto->wf1o 5197   ` cfv 5198   1stc1st 6117   2ndc2nd 6118
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-sep 4107  ax-pow 4160  ax-pr 4194  ax-un 4418
This theorem depends on definitions:  df-bi 116  df-3an 975  df-tru 1351  df-nf 1454  df-sb 1756  df-eu 2022  df-mo 2023  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ral 2453  df-rex 2454  df-rab 2457  df-v 2732  df-sbc 2956  df-csb 3050  df-un 3125  df-in 3127  df-ss 3134  df-pw 3568  df-sn 3589  df-pr 3590  df-op 3592  df-uni 3797  df-iun 3875  df-br 3990  df-opab 4051  df-mpt 4052  df-id 4278  df-xp 4617  df-rel 4618  df-cnv 4619  df-co 4620  df-dm 4621  df-rn 4622  df-res 4623  df-ima 4624  df-iota 5160  df-fun 5200  df-fn 5201  df-f 5202  df-f1 5203  df-fo 5204  df-f1o 5205  df-fv 5206  df-1st 6119  df-2nd 6120
This theorem is referenced by:  ctiunct  12395
  Copyright terms: Public domain W3C validator