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

Theorem ctiunctlemfo 13274
Description: Lemma for ctiunct 13275. (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 13273 . 2  |-  ( ph  ->  H : U --> U_ x  e.  A  B )
11 nfv 1577 . . . . 5  |-  F/ x ph
12 nfiu1 4026 . . . . . 6  |-  F/_ x U_ x  e.  A  B
1312nfcri 2380 . . . . 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 2386 . . . . . . 7  |-  F/_ x
v
1816, 17nffv 5685 . . . . . 6  |-  F/_ x
( H `  v
)
1918nfeq2 2398 . . . . 5  |-  F/ x  u  =  ( H `  v )
2015, 19nfrexw 2583 . . . 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 5931 . . . . . 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 5931 . . . . . . 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 5632 . . . . . . . . . . . 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 5619 . . . . . . . . . . 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 3243 . . . . . . . . . 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 3243 . . . . . . . . . 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 4787 . . . . . . . . 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 5818 . . . . . . . 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 5957 . . . . . . . . . . . . 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 5679 . . . . . . . . . . 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 2818 . . . . . . . . . . . 12  |-  r  e. 
_V
50 vex 2818 . . . . . . . . . . . 12  |-  w  e. 
_V
5149, 50op1st 6353 . . . . . . . . . . 11  |-  ( 1st `  <. r ,  w >. )  =  r
5248, 51eqtrdi 2283 . . . . . . . . . 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 2311 . . . . . . . . 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 5679 . . . . . . . . . . 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 6354 . . . . . . . . . . 11  |-  ( 2nd `  <. r ,  w >. )  =  w
5654, 55eqtrdi 2283 . . . . . . . . . 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 5679 . . . . . . . . . . . . 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 2270 . . . . . . . . . . . 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 3148 . . . . . . . . . . 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 3149 . . . . . . . . . . 11  |-  [_ x  /  x ]_ T  =  T
6260, 61eqtrdi 2283 . . . . . . . . . 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 2318 . . . . . . . . 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 5680 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( 1st `  ( J `  z
) )  =  ( 1st `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
6665eleq1d 2303 . . . . . . . . . 10  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( ( 1st `  ( J `  z ) )  e.  S  <->  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) )  e.  S ) )
67 2fveq3 5680 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( 2nd `  ( J `  z
) )  =  ( 2nd `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
6865fveq2d 5679 . . . . . . . . . . . 12  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  ( F `  ( 1st `  ( J `  z )
) )  =  ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
6968csbeq1d 3148 . . . . . . . . . . 11  |-  ( z  =  ( `' J `  <. r ,  w >. )  ->  [_ ( F `
 ( 1st `  ( J `  z )
) )  /  x ]_ T  =  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ T )
7067, 69eleq12d 2305 . . . . . . . . . 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 2979 . . . . . . . 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 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
) ) )  ->  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G  =  [_ x  /  x ]_ G )
75 csbid 3149 . . . . . . . . . 10  |-  [_ x  /  x ]_ G  =  G
7674, 75eqtrdi 2283 . . . . . . . . 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 5682 . . . . . . . 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 5680 . . . . . . . . . . . 12  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( 1st `  ( J `  n
) )  =  ( 1st `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
7978fveq2d 5679 . . . . . . . . . . 11  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( F `  ( 1st `  ( J `  n )
) )  =  ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) ) )
8079csbeq1d 3148 . . . . . . . . . 10  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  [_ ( F `
 ( 1st `  ( J `  n )
) )  /  x ]_ G  =  [_ ( F `  ( 1st `  ( J `  ( `' J `  <. r ,  w >. ) ) ) )  /  x ]_ G )
81 2fveq3 5680 . . . . . . . . . 10  |-  ( n  =  ( `' J `  <. r ,  w >. )  ->  ( 2nd `  ( J `  n
) )  =  ( 2nd `  ( J `
 ( `' J `  <. r ,  w >. ) ) ) )
8280, 81fveq12d 5682 . . . . . . . . 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 2270 . . . . . . . . . 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 2312 . . . . . . . . 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 5776 . . . . . . . 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 2278 . . . . . . 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 5675 . . . . . . . 8  |-  ( v  =  ( `' J `  <. r ,  w >. )  ->  ( H `  v )  =  ( H `  ( `' J `  <. r ,  w >. ) ) )
9089rspceeqv 2942 . . . . . . 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 2667 . . . . 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 2667 . . . 4  |-  ( ( ( ( ph  /\  u  e.  U_ x  e.  A  B )  /\  x  e.  A )  /\  u  e.  B
)  ->  E. v  e.  U  u  =  ( H `  v ) )
94 eliun 4000 . . . . . 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 2685 . . 3  |-  ( (
ph  /\  u  e.  U_ x  e.  A  B
)  ->  E. v  e.  U  u  =  ( H `  v ) )
9897ralrimiva 2617 . 2  |-  ( ph  ->  A. u  e.  U_  x  e.  A  B E. v  e.  U  u  =  ( H `  v ) )
99 dffo3 5829 . 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 2205   F/_wnfc 2373   A.wral 2522   E.wrex 2523   {crab 2526   [_csb 3141    C_ wss 3214   <.cop 3697   U_ciun 3996    |-> cmpt 4176   omcom 4717    X. cxp 4752   `'ccnv 4753   -->wf 5353   -onto->wfo 5355   -1-1-onto->wf1o 5356   ` cfv 5357   1stc1st 6345   2ndc2nd 6346
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 2207  ax-14 2208  ax-ext 2216  ax-sep 4233  ax-pow 4292  ax-pr 4327  ax-un 4559
This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ral 2527  df-rex 2528  df-rab 2531  df-v 2817  df-sbc 3046  df-csb 3142  df-un 3218  df-in 3220  df-ss 3227  df-pw 3676  df-sn 3700  df-pr 3701  df-op 3703  df-uni 3920  df-iun 3998  df-br 4115  df-opab 4177  df-mpt 4178  df-id 4419  df-xp 4760  df-rel 4761  df-cnv 4762  df-co 4763  df-dm 4764  df-rn 4765  df-res 4766  df-ima 4767  df-iota 5317  df-fun 5359  df-fn 5360  df-f 5361  df-f1 5362  df-fo 5363  df-f1o 5364  df-fv 5365  df-1st 6347  df-2nd 6348
This theorem is referenced by:  ctiunct  13275
  Copyright terms: Public domain W3C validator