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

Theorem tfrcllemsucaccv 6331
Description: Lemma for tfrcl 6341. We can extend an acceptable function by one element to produce an acceptable function. (Contributed by Jim Kingdon, 24-Mar-2022.)
Hypotheses
Ref Expression
tfrcl.f  |-  F  = recs ( G )
tfrcl.g  |-  ( ph  ->  Fun  G )
tfrcl.x  |-  ( ph  ->  Ord  X )
tfrcl.ex  |-  ( (
ph  /\  x  e.  X  /\  f : x --> S )  ->  ( G `  f )  e.  S )
tfrcllemsucfn.1  |-  A  =  { f  |  E. x  e.  X  (
f : x --> S  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y
) ) ) }
tfrcllemsucaccv.yx  |-  ( ph  ->  Y  e.  X )
tfrcllemsucaccv.zy  |-  ( ph  ->  z  e.  Y )
tfrcllemsucaccv.u  |-  ( (
ph  /\  x  e.  U. X )  ->  suc  x  e.  X )
tfrcllemsucaccv.gfn  |-  ( ph  ->  g : z --> S )
tfrcllemsucaccv.gacc  |-  ( ph  ->  g  e.  A )
Assertion
Ref Expression
tfrcllemsucaccv  |-  ( ph  ->  ( g  u.  { <. z ,  ( G `
 g ) >. } )  e.  A
)
Distinct variable groups:    f, G, x, y    S, f, x    f, X, x    f, g, x, y    ph, f, x, y   
z, f, x, y
Allowed substitution hints:    ph( z, g)    A( x, y, z, f, g)    S( y, z, g)    F( x, y, z, f, g)    G( z, g)    X( y, z, g)    Y( x, y, z, f, g)

Proof of Theorem tfrcllemsucaccv
Dummy variable  w is distinct from all other variables.
StepHypRef Expression
1 suceq 4385 . . . . 5  |-  ( x  =  z  ->  suc  x  =  suc  z )
21eleq1d 2239 . . . 4  |-  ( x  =  z  ->  ( suc  x  e.  X  <->  suc  z  e.  X ) )
3 tfrcllemsucaccv.u . . . . 5  |-  ( (
ph  /\  x  e.  U. X )  ->  suc  x  e.  X )
43ralrimiva 2543 . . . 4  |-  ( ph  ->  A. x  e.  U. X  suc  x  e.  X
)
5 tfrcllemsucaccv.zy . . . . 5  |-  ( ph  ->  z  e.  Y )
6 tfrcllemsucaccv.yx . . . . 5  |-  ( ph  ->  Y  e.  X )
7 elunii 3799 . . . . 5  |-  ( ( z  e.  Y  /\  Y  e.  X )  ->  z  e.  U. X
)
85, 6, 7syl2anc 409 . . . 4  |-  ( ph  ->  z  e.  U. X
)
92, 4, 8rspcdva 2839 . . 3  |-  ( ph  ->  suc  z  e.  X
)
10 tfrcl.f . . . 4  |-  F  = recs ( G )
11 tfrcl.g . . . 4  |-  ( ph  ->  Fun  G )
12 tfrcl.x . . . 4  |-  ( ph  ->  Ord  X )
13 tfrcl.ex . . . 4  |-  ( (
ph  /\  x  e.  X  /\  f : x --> S )  ->  ( G `  f )  e.  S )
14 tfrcllemsucfn.1 . . . 4  |-  A  =  { f  |  E. x  e.  X  (
f : x --> S  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y
) ) ) }
155, 6jca 304 . . . . 5  |-  ( ph  ->  ( z  e.  Y  /\  Y  e.  X
) )
16 ordtr1 4371 . . . . 5  |-  ( Ord 
X  ->  ( (
z  e.  Y  /\  Y  e.  X )  ->  z  e.  X ) )
1712, 15, 16sylc 62 . . . 4  |-  ( ph  ->  z  e.  X )
18 tfrcllemsucaccv.gfn . . . 4  |-  ( ph  ->  g : z --> S )
19 tfrcllemsucaccv.gacc . . . 4  |-  ( ph  ->  g  e.  A )
2010, 11, 12, 13, 14, 17, 18, 19tfrcllemsucfn 6330 . . 3  |-  ( ph  ->  ( g  u.  { <. z ,  ( G `
 g ) >. } ) : suc  z
--> S )
21 vex 2733 . . . . . 6  |-  y  e. 
_V
2221elsuc 4389 . . . . 5  |-  ( y  e.  suc  z  <->  ( y  e.  z  \/  y  =  z ) )
23 vex 2733 . . . . . . . . . . 11  |-  g  e. 
_V
24 feq1 5328 . . . . . . . . . . . . 13  |-  ( f  =  g  ->  (
f : x --> S  <->  g :
x --> S ) )
25 fveq1 5493 . . . . . . . . . . . . . . 15  |-  ( f  =  g  ->  (
f `  y )  =  ( g `  y ) )
26 reseq1 4883 . . . . . . . . . . . . . . . 16  |-  ( f  =  g  ->  (
f  |`  y )  =  ( g  |`  y
) )
2726fveq2d 5498 . . . . . . . . . . . . . . 15  |-  ( f  =  g  ->  ( G `  ( f  |`  y ) )  =  ( G `  (
g  |`  y ) ) )
2825, 27eqeq12d 2185 . . . . . . . . . . . . . 14  |-  ( f  =  g  ->  (
( f `  y
)  =  ( G `
 ( f  |`  y ) )  <->  ( g `  y )  =  ( G `  ( g  |`  y ) ) ) )
2928ralbidv 2470 . . . . . . . . . . . . 13  |-  ( f  =  g  ->  ( A. y  e.  x  ( f `  y
)  =  ( G `
 ( f  |`  y ) )  <->  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y ) ) ) )
3024, 29anbi12d 470 . . . . . . . . . . . 12  |-  ( f  =  g  ->  (
( f : x --> S  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y ) ) )  <-> 
( g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y ) ) ) ) )
3130rexbidv 2471 . . . . . . . . . . 11  |-  ( f  =  g  ->  ( E. x  e.  X  ( f : x --> S  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y ) ) )  <->  E. x  e.  X  ( g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y ) ) ) ) )
3223, 31, 14elab2 2878 . . . . . . . . . 10  |-  ( g  e.  A  <->  E. x  e.  X  ( g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) )
3319, 32sylib 121 . . . . . . . . 9  |-  ( ph  ->  E. x  e.  X  ( g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y ) ) ) )
34 simprrr 535 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  X  /\  (
g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) ) )  ->  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y ) ) )
35 simprrl 534 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  X  /\  (
g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) ) )  ->  g :
x --> S )
36 ffn 5345 . . . . . . . . . . . . 13  |-  ( g : x --> S  -> 
g  Fn  x )
3735, 36syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  X  /\  (
g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) ) )  ->  g  Fn  x )
3818adantr 274 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  X  /\  (
g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) ) )  ->  g :
z --> S )
39 ffn 5345 . . . . . . . . . . . . 13  |-  ( g : z --> S  -> 
g  Fn  z )
4038, 39syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  X  /\  (
g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) ) )  ->  g  Fn  z )
41 fndmu 5297 . . . . . . . . . . . 12  |-  ( ( g  Fn  x  /\  g  Fn  z )  ->  x  =  z )
4237, 40, 41syl2anc 409 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  X  /\  (
g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) ) )  ->  x  =  z )
4342raleqdv 2671 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  X  /\  (
g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) ) )  ->  ( A. y  e.  x  (
g `  y )  =  ( G `  ( g  |`  y
) )  <->  A. y  e.  z  ( g `  y )  =  ( G `  ( g  |`  y ) ) ) )
4434, 43mpbid 146 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  X  /\  (
g : x --> S  /\  A. y  e.  x  ( g `  y )  =  ( G `  ( g  |`  y
) ) ) ) )  ->  A. y  e.  z  ( g `  y )  =  ( G `  ( g  |`  y ) ) )
4533, 44rexlimddv 2592 . . . . . . . 8  |-  ( ph  ->  A. y  e.  z  ( g `  y
)  =  ( G `
 ( g  |`  y ) ) )
4645r19.21bi 2558 . . . . . . 7  |-  ( (
ph  /\  y  e.  z )  ->  (
g `  y )  =  ( G `  ( g  |`  y
) ) )
47 ordelon 4366 . . . . . . . . . . . . 13  |-  ( ( Ord  X  /\  z  e.  X )  ->  z  e.  On )
4812, 17, 47syl2anc 409 . . . . . . . . . . . 12  |-  ( ph  ->  z  e.  On )
49 onelon 4367 . . . . . . . . . . . 12  |-  ( ( z  e.  On  /\  y  e.  z )  ->  y  e.  On )
5048, 49sylan 281 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  z )  ->  y  e.  On )
51 eloni 4358 . . . . . . . . . . 11  |-  ( y  e.  On  ->  Ord  y )
52 ordirr 4524 . . . . . . . . . . 11  |-  ( Ord  y  ->  -.  y  e.  y )
5350, 51, 523syl 17 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  z )  ->  -.  y  e.  y )
54 elequ2 2146 . . . . . . . . . . . 12  |-  ( z  =  y  ->  (
y  e.  z  <->  y  e.  y ) )
5554biimpcd 158 . . . . . . . . . . 11  |-  ( y  e.  z  ->  (
z  =  y  -> 
y  e.  y ) )
5655adantl 275 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  z )  ->  (
z  =  y  -> 
y  e.  y ) )
5753, 56mtod 658 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  z )  ->  -.  z  =  y )
5857neqned 2347 . . . . . . . 8  |-  ( (
ph  /\  y  e.  z )  ->  z  =/=  y )
59 fvunsng 5688 . . . . . . . 8  |-  ( ( y  e.  _V  /\  z  =/=  y )  -> 
( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) `  y
)  =  ( g `
 y ) )
6021, 58, 59sylancr 412 . . . . . . 7  |-  ( (
ph  /\  y  e.  z )  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } ) `  y
)  =  ( g `
 y ) )
61 eloni 4358 . . . . . . . . . . . 12  |-  ( z  e.  On  ->  Ord  z )
6248, 61syl 14 . . . . . . . . . . 11  |-  ( ph  ->  Ord  z )
63 ordelss 4362 . . . . . . . . . . 11  |-  ( ( Ord  z  /\  y  e.  z )  ->  y  C_  z )
6462, 63sylan 281 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  z )  ->  y  C_  z )
65 resabs1 4918 . . . . . . . . . 10  |-  ( y 
C_  z  ->  (
( ( g  u. 
{ <. z ,  ( G `  g )
>. } )  |`  z
)  |`  y )  =  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } )  |`  y
) )
6664, 65syl 14 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  z )  ->  (
( ( g  u. 
{ <. z ,  ( G `  g )
>. } )  |`  z
)  |`  y )  =  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } )  |`  y
) )
6718, 39syl 14 . . . . . . . . . . . 12  |-  ( ph  ->  g  Fn  z )
68 ordirr 4524 . . . . . . . . . . . . 13  |-  ( Ord  z  ->  -.  z  e.  z )
6962, 68syl 14 . . . . . . . . . . . 12  |-  ( ph  ->  -.  z  e.  z )
70 fsnunres 5696 . . . . . . . . . . . 12  |-  ( ( g  Fn  z  /\  -.  z  e.  z
)  ->  ( (
g  u.  { <. z ,  ( G `  g ) >. } )  |`  z )  =  g )
7167, 69, 70syl2anc 409 . . . . . . . . . . 11  |-  ( ph  ->  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } )  |`  z
)  =  g )
7271reseq1d 4888 . . . . . . . . . 10  |-  ( ph  ->  ( ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  z )  |`  y
)  =  ( g  |`  y ) )
7372adantr 274 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  z )  ->  (
( ( g  u. 
{ <. z ,  ( G `  g )
>. } )  |`  z
)  |`  y )  =  ( g  |`  y
) )
7466, 73eqtr3d 2205 . . . . . . . 8  |-  ( (
ph  /\  y  e.  z )  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
)  =  ( g  |`  y ) )
7574fveq2d 5498 . . . . . . 7  |-  ( (
ph  /\  y  e.  z )  ->  ( G `  ( (
g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) )  =  ( G `  (
g  |`  y ) ) )
7646, 60, 753eqtr4d 2213 . . . . . 6  |-  ( (
ph  /\  y  e.  z )  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } ) `  y
)  =  ( G `
 ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) ) )
77 feq2 5329 . . . . . . . . . . . . 13  |-  ( x  =  z  ->  (
f : x --> S  <->  f :
z --> S ) )
7877imbi1d 230 . . . . . . . . . . . 12  |-  ( x  =  z  ->  (
( f : x --> S  ->  ( G `  f )  e.  S
)  <->  ( f : z --> S  ->  ( G `  f )  e.  S ) ) )
7978albidv 1817 . . . . . . . . . . 11  |-  ( x  =  z  ->  ( A. f ( f : x --> S  ->  ( G `  f )  e.  S )  <->  A. f
( f : z --> S  ->  ( G `  f )  e.  S
) ) )
80133expia 1200 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  X )  ->  (
f : x --> S  -> 
( G `  f
)  e.  S ) )
8180alrimiv 1867 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  X )  ->  A. f
( f : x --> S  ->  ( G `  f )  e.  S
) )
8281ralrimiva 2543 . . . . . . . . . . 11  |-  ( ph  ->  A. x  e.  X  A. f ( f : x --> S  ->  ( G `  f )  e.  S ) )
8379, 82, 17rspcdva 2839 . . . . . . . . . 10  |-  ( ph  ->  A. f ( f : z --> S  -> 
( G `  f
)  e.  S ) )
84 feq1 5328 . . . . . . . . . . . 12  |-  ( f  =  g  ->  (
f : z --> S  <-> 
g : z --> S ) )
85 fveq2 5494 . . . . . . . . . . . . 13  |-  ( f  =  g  ->  ( G `  f )  =  ( G `  g ) )
8685eleq1d 2239 . . . . . . . . . . . 12  |-  ( f  =  g  ->  (
( G `  f
)  e.  S  <->  ( G `  g )  e.  S
) )
8784, 86imbi12d 233 . . . . . . . . . . 11  |-  ( f  =  g  ->  (
( f : z --> S  ->  ( G `  f )  e.  S
)  <->  ( g : z --> S  ->  ( G `  g )  e.  S ) ) )
8887spv 1853 . . . . . . . . . 10  |-  ( A. f ( f : z --> S  ->  ( G `  f )  e.  S )  ->  (
g : z --> S  ->  ( G `  g )  e.  S
) )
8983, 18, 88sylc 62 . . . . . . . . 9  |-  ( ph  ->  ( G `  g
)  e.  S )
90 fndm 5295 . . . . . . . . . . 11  |-  ( g  Fn  z  ->  dom  g  =  z )
9167, 90syl 14 . . . . . . . . . 10  |-  ( ph  ->  dom  g  =  z )
9269, 91neleqtrrd 2269 . . . . . . . . 9  |-  ( ph  ->  -.  z  e.  dom  g )
93 fsnunfv 5695 . . . . . . . . 9  |-  ( ( z  e.  Y  /\  ( G `  g )  e.  S  /\  -.  z  e.  dom  g )  ->  ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 z )  =  ( G `  g
) )
945, 89, 92, 93syl3anc 1233 . . . . . . . 8  |-  ( ph  ->  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) `  z
)  =  ( G `
 g ) )
9594adantr 274 . . . . . . 7  |-  ( (
ph  /\  y  =  z )  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } ) `  z
)  =  ( G `
 g ) )
96 simpr 109 . . . . . . . 8  |-  ( (
ph  /\  y  =  z )  ->  y  =  z )
9796fveq2d 5498 . . . . . . 7  |-  ( (
ph  /\  y  =  z )  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } ) `  y
)  =  ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 z ) )
98 reseq2 4884 . . . . . . . . 9  |-  ( y  =  z  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
)  =  ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  z ) )
9998, 71sylan9eqr 2225 . . . . . . . 8  |-  ( (
ph  /\  y  =  z )  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
)  =  g )
10099fveq2d 5498 . . . . . . 7  |-  ( (
ph  /\  y  =  z )  ->  ( G `  ( (
g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) )  =  ( G `  g
) )
10195, 97, 1003eqtr4d 2213 . . . . . 6  |-  ( (
ph  /\  y  =  z )  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } ) `  y
)  =  ( G `
 ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) ) )
10276, 101jaodan 792 . . . . 5  |-  ( (
ph  /\  ( y  e.  z  \/  y  =  z ) )  ->  ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) )
10322, 102sylan2b 285 . . . 4  |-  ( (
ph  /\  y  e.  suc  z )  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } ) `  y
)  =  ( G `
 ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) ) )
104103ralrimiva 2543 . . 3  |-  ( ph  ->  A. y  e.  suc  z ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) )
105 feq2 5329 . . . . . 6  |-  ( w  =  suc  z  -> 
( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : w --> S  <->  ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : suc  z
--> S ) )
106 raleq 2665 . . . . . 6  |-  ( w  =  suc  z  -> 
( A. y  e.  w  ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) )  <->  A. y  e.  suc  z ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )
107105, 106anbi12d 470 . . . . 5  |-  ( w  =  suc  z  -> 
( ( ( g  u.  { <. z ,  ( G `  g ) >. } ) : w --> S  /\  A. y  e.  w  ( ( g  u.  { <. z ,  ( G `
 g ) >. } ) `  y
)  =  ( G `
 ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) ) )  <-> 
( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : suc  z
--> S  /\  A. y  e.  suc  z ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) ) )
108107rspcev 2834 . . . 4  |-  ( ( suc  z  e.  X  /\  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : suc  z
--> S  /\  A. y  e.  suc  z ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )  ->  E. w  e.  X  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : w --> S  /\  A. y  e.  w  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )
109 feq2 5329 . . . . . 6  |-  ( w  =  x  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } ) : w --> S  <->  ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : x --> S ) )
110 raleq 2665 . . . . . 6  |-  ( w  =  x  ->  ( A. y  e.  w  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) `  y
)  =  ( G `
 ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) )  <->  A. y  e.  x  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )
111109, 110anbi12d 470 . . . . 5  |-  ( w  =  x  ->  (
( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : w --> S  /\  A. y  e.  w  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) )  <->  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) : x --> S  /\  A. y  e.  x  ( ( g  u.  { <. z ,  ( G `
 g ) >. } ) `  y
)  =  ( G `
 ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) ) ) ) )
112111cbvrexv 2697 . . . 4  |-  ( E. w  e.  X  ( ( g  u.  { <. z ,  ( G `
 g ) >. } ) : w --> S  /\  A. y  e.  w  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) )  <->  E. x  e.  X  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) : x --> S  /\  A. y  e.  x  ( ( g  u.  { <. z ,  ( G `
 g ) >. } ) `  y
)  =  ( G `
 ( ( g  u.  { <. z ,  ( G `  g ) >. } )  |`  y ) ) ) )
113108, 112sylib 121 . . 3  |-  ( ( suc  z  e.  X  /\  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : suc  z
--> S  /\  A. y  e.  suc  z ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )  ->  E. x  e.  X  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : x --> S  /\  A. y  e.  x  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )
1149, 20, 104, 113syl12anc 1231 . 2  |-  ( ph  ->  E. x  e.  X  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : x --> S  /\  A. y  e.  x  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )
115 vex 2733 . . . . . 6  |-  z  e. 
_V
116 opexg 4211 . . . . . 6  |-  ( ( z  e.  _V  /\  ( G `  g )  e.  S )  ->  <. z ,  ( G `
 g ) >.  e.  _V )
117115, 89, 116sylancr 412 . . . . 5  |-  ( ph  -> 
<. z ,  ( G `
 g ) >.  e.  _V )
118 snexg 4168 . . . . 5  |-  ( <.
z ,  ( G `
 g ) >.  e.  _V  ->  { <. z ,  ( G `  g ) >. }  e.  _V )
119117, 118syl 14 . . . 4  |-  ( ph  ->  { <. z ,  ( G `  g )
>. }  e.  _V )
120 unexg 4426 . . . 4  |-  ( ( g  e.  _V  /\  {
<. z ,  ( G `
 g ) >. }  e.  _V )  ->  ( g  u.  { <. z ,  ( G `
 g ) >. } )  e.  _V )
12123, 119, 120sylancr 412 . . 3  |-  ( ph  ->  ( g  u.  { <. z ,  ( G `
 g ) >. } )  e.  _V )
122 feq1 5328 . . . . . 6  |-  ( f  =  ( g  u. 
{ <. z ,  ( G `  g )
>. } )  ->  (
f : x --> S  <->  ( g  u.  { <. z ,  ( G `  g )
>. } ) : x --> S ) )
123 fveq1 5493 . . . . . . . 8  |-  ( f  =  ( g  u. 
{ <. z ,  ( G `  g )
>. } )  ->  (
f `  y )  =  ( ( g  u.  { <. z ,  ( G `  g ) >. } ) `
 y ) )
124 reseq1 4883 . . . . . . . . 9  |-  ( f  =  ( g  u. 
{ <. z ,  ( G `  g )
>. } )  ->  (
f  |`  y )  =  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } )  |`  y
) )
125124fveq2d 5498 . . . . . . . 8  |-  ( f  =  ( g  u. 
{ <. z ,  ( G `  g )
>. } )  ->  ( G `  ( f  |`  y ) )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) )
126123, 125eqeq12d 2185 . . . . . . 7  |-  ( f  =  ( g  u. 
{ <. z ,  ( G `  g )
>. } )  ->  (
( f `  y
)  =  ( G `
 ( f  |`  y ) )  <->  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )
127126ralbidv 2470 . . . . . 6  |-  ( f  =  ( g  u. 
{ <. z ,  ( G `  g )
>. } )  ->  ( A. y  e.  x  ( f `  y
)  =  ( G `
 ( f  |`  y ) )  <->  A. y  e.  x  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) )
128122, 127anbi12d 470 . . . . 5  |-  ( f  =  ( g  u. 
{ <. z ,  ( G `  g )
>. } )  ->  (
( f : x --> S  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y ) ) )  <-> 
( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : x --> S  /\  A. y  e.  x  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) ) )
129128rexbidv 2471 . . . 4  |-  ( f  =  ( g  u. 
{ <. z ,  ( G `  g )
>. } )  ->  ( E. x  e.  X  ( f : x --> S  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y ) ) )  <->  E. x  e.  X  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } ) : x --> S  /\  A. y  e.  x  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) ) )
130129, 14elab2g 2877 . . 3  |-  ( ( g  u.  { <. z ,  ( G `  g ) >. } )  e.  _V  ->  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  e.  A  <->  E. x  e.  X  ( ( g  u.  { <. z ,  ( G `
 g ) >. } ) : x --> S  /\  A. y  e.  x  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) ) )
131121, 130syl 14 . 2  |-  ( ph  ->  ( ( g  u. 
{ <. z ,  ( G `  g )
>. } )  e.  A  <->  E. x  e.  X  ( ( g  u.  { <. z ,  ( G `
 g ) >. } ) : x --> S  /\  A. y  e.  x  ( (
g  u.  { <. z ,  ( G `  g ) >. } ) `
 y )  =  ( G `  (
( g  u.  { <. z ,  ( G `
 g ) >. } )  |`  y
) ) ) ) )
132114, 131mpbird 166 1  |-  ( ph  ->  ( g  u.  { <. z ,  ( G `
 g ) >. } )  e.  A
)
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 103    <-> wb 104    \/ wo 703    /\ w3a 973   A.wal 1346    = wceq 1348    e. wcel 2141   {cab 2156    =/= wne 2340   A.wral 2448   E.wrex 2449   _Vcvv 2730    u. cun 3119    C_ wss 3121   {csn 3581   <.cop 3584   U.cuni 3794   Ord word 4345   Oncon0 4346   suc csuc 4348   dom cdm 4609    |` cres 4611   Fun wfun 5190    Fn wfn 5191   -->wf 5192   ` cfv 5196  recscrecs 6281
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-in1 609  ax-in2 610  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 4105  ax-pow 4158  ax-pr 4192  ax-un 4416  ax-setind 4519
This theorem depends on definitions:  df-bi 116  df-3an 975  df-tru 1351  df-fal 1354  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-ne 2341  df-ral 2453  df-rex 2454  df-v 2732  df-sbc 2956  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-nul 3415  df-pw 3566  df-sn 3587  df-pr 3588  df-op 3590  df-uni 3795  df-br 3988  df-opab 4049  df-tr 4086  df-id 4276  df-iord 4349  df-on 4351  df-suc 4354  df-xp 4615  df-rel 4616  df-cnv 4617  df-co 4618  df-dm 4619  df-rn 4620  df-res 4621  df-iota 5158  df-fun 5198  df-fn 5199  df-f 5200  df-f1 5201  df-fo 5202  df-f1o 5203  df-fv 5204
This theorem is referenced by:  tfrcllembacc  6332  tfrcllemres  6339
  Copyright terms: Public domain W3C validator