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

Theorem tfr1onlemaccex 6245
Description: We can define an acceptable function on any element of  X.

As with many of the transfinite recursion theorems, we have hypotheses that state that  F is a function and that it is defined up to  X. (Contributed by Jim Kingdon, 16-Mar-2022.)

Hypotheses
Ref Expression
tfr1on.f  |-  F  = recs ( G )
tfr1on.g  |-  ( ph  ->  Fun  G )
tfr1on.x  |-  ( ph  ->  Ord  X )
tfr1on.ex  |-  ( (
ph  /\  x  e.  X  /\  f  Fn  x
)  ->  ( G `  f )  e.  _V )
tfr1onlemsucfn.1  |-  A  =  { f  |  E. x  e.  X  (
f  Fn  x  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y
) ) ) }
tfr1onlemaccex.u  |-  ( (
ph  /\  x  e.  U. X )  ->  suc  x  e.  X )
Assertion
Ref Expression
tfr1onlemaccex  |-  ( (
ph  /\  C  e.  X )  ->  E. g
( g  Fn  C  /\  A. u  e.  C  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) )
Distinct variable groups:    u, A, x    C, g, u    g, G, u, x    f, G, y, x    x, X, f    ph, x    y, g    ph, f
Allowed substitution hints:    ph( y, u, g)    A( y, f, g)    C( x, y, f)    F( x, y, u, f, g)    X( y, u, g)

Proof of Theorem tfr1onlemaccex
Dummy variables  a  b  c  d  h  r  s  t  z  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 tfr1on.x . . 3  |-  ( ph  ->  Ord  X )
2 ordelon 4305 . . 3  |-  ( ( Ord  X  /\  C  e.  X )  ->  C  e.  On )
31, 2sylan 281 . 2  |-  ( (
ph  /\  C  e.  X )  ->  C  e.  On )
4 eleq1 2202 . . . . 5  |-  ( z  =  w  ->  (
z  e.  X  <->  w  e.  X ) )
54anbi2d 459 . . . 4  |-  ( z  =  w  ->  (
( ph  /\  z  e.  X )  <->  ( ph  /\  w  e.  X ) ) )
6 fneq2 5212 . . . . . 6  |-  ( z  =  w  ->  (
g  Fn  z  <->  g  Fn  w ) )
7 raleq 2626 . . . . . 6  |-  ( z  =  w  ->  ( A. u  e.  z 
( g `  u
)  =  ( G `
 ( g  |`  u ) )  <->  A. u  e.  w  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) )
86, 7anbi12d 464 . . . . 5  |-  ( z  =  w  ->  (
( g  Fn  z  /\  A. u  e.  z  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) )  <-> 
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )
98exbidv 1797 . . . 4  |-  ( z  =  w  ->  ( E. g ( g  Fn  z  /\  A. u  e.  z  ( g `  u )  =  ( G `  ( g  |`  u ) ) )  <->  E. g ( g  Fn  w  /\  A. u  e.  w  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) ) )
105, 9imbi12d 233 . . 3  |-  ( z  =  w  ->  (
( ( ph  /\  z  e.  X )  ->  E. g ( g  Fn  z  /\  A. u  e.  z  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) )  <-> 
( ( ph  /\  w  e.  X )  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) ) )
11 eleq1 2202 . . . . 5  |-  ( z  =  C  ->  (
z  e.  X  <->  C  e.  X ) )
1211anbi2d 459 . . . 4  |-  ( z  =  C  ->  (
( ph  /\  z  e.  X )  <->  ( ph  /\  C  e.  X ) ) )
13 fneq2 5212 . . . . . 6  |-  ( z  =  C  ->  (
g  Fn  z  <->  g  Fn  C ) )
14 raleq 2626 . . . . . 6  |-  ( z  =  C  ->  ( A. u  e.  z 
( g `  u
)  =  ( G `
 ( g  |`  u ) )  <->  A. u  e.  C  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) )
1513, 14anbi12d 464 . . . . 5  |-  ( z  =  C  ->  (
( g  Fn  z  /\  A. u  e.  z  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) )  <-> 
( g  Fn  C  /\  A. u  e.  C  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )
1615exbidv 1797 . . . 4  |-  ( z  =  C  ->  ( E. g ( g  Fn  z  /\  A. u  e.  z  ( g `  u )  =  ( G `  ( g  |`  u ) ) )  <->  E. g ( g  Fn  C  /\  A. u  e.  C  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) ) )
1712, 16imbi12d 233 . . 3  |-  ( z  =  C  ->  (
( ( ph  /\  z  e.  X )  ->  E. g ( g  Fn  z  /\  A. u  e.  z  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) )  <-> 
( ( ph  /\  C  e.  X )  ->  E. g ( g  Fn  C  /\  A. u  e.  C  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) ) )
18 tfr1on.f . . . . . . . . 9  |-  F  = recs ( G )
19 tfr1on.g . . . . . . . . . 10  |-  ( ph  ->  Fun  G )
2019ad3antrrr 483 . . . . . . . . 9  |-  ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) )  /\  z  e.  X )  ->  Fun  G )
211ad3antrrr 483 . . . . . . . . 9  |-  ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) )  /\  z  e.  X )  ->  Ord  X )
22 tfr1on.ex . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  x  e.  X  /\  f  Fn  x
)  ->  ( G `  f )  e.  _V )
23223expia 1183 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  x  e.  X )  ->  (
f  Fn  x  -> 
( G `  f
)  e.  _V )
)
2423alrimiv 1846 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  x  e.  X )  ->  A. f
( f  Fn  x  ->  ( G `  f
)  e.  _V )
)
25 fneq1 5211 . . . . . . . . . . . . . . . . 17  |-  ( f  =  h  ->  (
f  Fn  x  <->  h  Fn  x ) )
26 fveq2 5421 . . . . . . . . . . . . . . . . . 18  |-  ( f  =  h  ->  ( G `  f )  =  ( G `  h ) )
2726eleq1d 2208 . . . . . . . . . . . . . . . . 17  |-  ( f  =  h  ->  (
( G `  f
)  e.  _V  <->  ( G `  h )  e.  _V ) )
2825, 27imbi12d 233 . . . . . . . . . . . . . . . 16  |-  ( f  =  h  ->  (
( f  Fn  x  ->  ( G `  f
)  e.  _V )  <->  ( h  Fn  x  -> 
( G `  h
)  e.  _V )
) )
2928cbvalv 1889 . . . . . . . . . . . . . . 15  |-  ( A. f ( f  Fn  x  ->  ( G `  f )  e.  _V ) 
<-> 
A. h ( h  Fn  x  ->  ( G `  h )  e.  _V ) )
3024, 29sylib 121 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  X )  ->  A. h
( h  Fn  x  ->  ( G `  h
)  e.  _V )
)
313019.21bi 1537 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  X )  ->  (
h  Fn  x  -> 
( G `  h
)  e.  _V )
)
32313impia 1178 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  X  /\  h  Fn  x
)  ->  ( G `  h )  e.  _V )
33323adant1r 1209 . . . . . . . . . . 11  |-  ( ( ( ph  /\  z  e.  On )  /\  x  e.  X  /\  h  Fn  x )  ->  ( G `  h )  e.  _V )
34333adant1r 1209 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) )  /\  x  e.  X  /\  h  Fn  x )  ->  ( G `  h )  e.  _V )
35343adant1r 1209 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  x  e.  X  /\  h  Fn  x )  ->  ( G `  h )  e.  _V )
36 tfr1onlemsucfn.1 . . . . . . . . . 10  |-  A  =  { f  |  E. x  e.  X  (
f  Fn  x  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y
) ) ) }
37 fveq1 5420 . . . . . . . . . . . . . . 15  |-  ( f  =  h  ->  (
f `  y )  =  ( h `  y ) )
38 reseq1 4813 . . . . . . . . . . . . . . . 16  |-  ( f  =  h  ->  (
f  |`  y )  =  ( h  |`  y
) )
3938fveq2d 5425 . . . . . . . . . . . . . . 15  |-  ( f  =  h  ->  ( G `  ( f  |`  y ) )  =  ( G `  (
h  |`  y ) ) )
4037, 39eqeq12d 2154 . . . . . . . . . . . . . 14  |-  ( f  =  h  ->  (
( f `  y
)  =  ( G `
 ( f  |`  y ) )  <->  ( h `  y )  =  ( G `  ( h  |`  y ) ) ) )
4140ralbidv 2437 . . . . . . . . . . . . 13  |-  ( f  =  h  ->  ( A. y  e.  x  ( f `  y
)  =  ( G `
 ( f  |`  y ) )  <->  A. y  e.  x  ( h `  y )  =  ( G `  ( h  |`  y ) ) ) )
4225, 41anbi12d 464 . . . . . . . . . . . 12  |-  ( f  =  h  ->  (
( f  Fn  x  /\  A. y  e.  x  ( f `  y
)  =  ( G `
 ( f  |`  y ) ) )  <-> 
( h  Fn  x  /\  A. y  e.  x  ( h `  y
)  =  ( G `
 ( h  |`  y ) ) ) ) )
4342rexbidv 2438 . . . . . . . . . . 11  |-  ( f  =  h  ->  ( E. x  e.  X  ( f  Fn  x  /\  A. y  e.  x  ( f `  y
)  =  ( G `
 ( f  |`  y ) ) )  <->  E. x  e.  X  ( h  Fn  x  /\  A. y  e.  x  ( h `  y
)  =  ( G `
 ( h  |`  y ) ) ) ) )
4443cbvabv 2264 . . . . . . . . . 10  |-  { f  |  E. x  e.  X  ( f  Fn  x  /\  A. y  e.  x  ( f `  y )  =  ( G `  ( f  |`  y ) ) ) }  =  { h  |  E. x  e.  X  ( h  Fn  x  /\  A. y  e.  x  ( h `  y
)  =  ( G `
 ( h  |`  y ) ) ) }
4536, 44eqtri 2160 . . . . . . . . 9  |-  A  =  { h  |  E. x  e.  X  (
h  Fn  x  /\  A. y  e.  x  ( h `  y )  =  ( G `  ( h  |`  y ) ) ) }
46 fneq1 5211 . . . . . . . . . . . . . . 15  |-  ( r  =  a  ->  (
r  Fn  t  <->  a  Fn  t ) )
47 eleq1 2202 . . . . . . . . . . . . . . 15  |-  ( r  =  a  ->  (
r  e.  A  <->  a  e.  A ) )
48 id 19 . . . . . . . . . . . . . . . . 17  |-  ( r  =  a  ->  r  =  a )
49 fveq2 5421 . . . . . . . . . . . . . . . . . . 19  |-  ( r  =  a  ->  ( G `  r )  =  ( G `  a ) )
5049opeq2d 3712 . . . . . . . . . . . . . . . . . 18  |-  ( r  =  a  ->  <. t ,  ( G `  r ) >.  =  <. t ,  ( G `  a ) >. )
5150sneqd 3540 . . . . . . . . . . . . . . . . 17  |-  ( r  =  a  ->  { <. t ,  ( G `  r ) >. }  =  { <. t ,  ( G `  a )
>. } )
5248, 51uneq12d 3231 . . . . . . . . . . . . . . . 16  |-  ( r  =  a  ->  (
r  u.  { <. t ,  ( G `  r ) >. } )  =  ( a  u. 
{ <. t ,  ( G `  a )
>. } ) )
5352eqeq2d 2151 . . . . . . . . . . . . . . 15  |-  ( r  =  a  ->  (
s  =  ( r  u.  { <. t ,  ( G `  r ) >. } )  <-> 
s  =  ( a  u.  { <. t ,  ( G `  a ) >. } ) ) )
5446, 47, 533anbi123d 1290 . . . . . . . . . . . . . 14  |-  ( r  =  a  ->  (
( r  Fn  t  /\  r  e.  A  /\  s  =  (
r  u.  { <. t ,  ( G `  r ) >. } ) )  <->  ( a  Fn  t  /\  a  e.  A  /\  s  =  ( a  u.  { <. t ,  ( G `
 a ) >. } ) ) ) )
5554cbvexv 1890 . . . . . . . . . . . . 13  |-  ( E. r ( r  Fn  t  /\  r  e.  A  /\  s  =  ( r  u.  { <. t ,  ( G `
 r ) >. } ) )  <->  E. a
( a  Fn  t  /\  a  e.  A  /\  s  =  (
a  u.  { <. t ,  ( G `  a ) >. } ) ) )
5655rexbii 2442 . . . . . . . . . . . 12  |-  ( E. t  e.  z  E. r ( r  Fn  t  /\  r  e.  A  /\  s  =  ( r  u.  { <. t ,  ( G `
 r ) >. } ) )  <->  E. t  e.  z  E. a
( a  Fn  t  /\  a  e.  A  /\  s  =  (
a  u.  { <. t ,  ( G `  a ) >. } ) ) )
57 fneq2 5212 . . . . . . . . . . . . . . 15  |-  ( t  =  b  ->  (
a  Fn  t  <->  a  Fn  b ) )
58 opeq1 3705 . . . . . . . . . . . . . . . . . 18  |-  ( t  =  b  ->  <. t ,  ( G `  a ) >.  =  <. b ,  ( G `  a ) >. )
5958sneqd 3540 . . . . . . . . . . . . . . . . 17  |-  ( t  =  b  ->  { <. t ,  ( G `  a ) >. }  =  { <. b ,  ( G `  a )
>. } )
6059uneq2d 3230 . . . . . . . . . . . . . . . 16  |-  ( t  =  b  ->  (
a  u.  { <. t ,  ( G `  a ) >. } )  =  ( a  u. 
{ <. b ,  ( G `  a )
>. } ) )
6160eqeq2d 2151 . . . . . . . . . . . . . . 15  |-  ( t  =  b  ->  (
s  =  ( a  u.  { <. t ,  ( G `  a ) >. } )  <-> 
s  =  ( a  u.  { <. b ,  ( G `  a ) >. } ) ) )
6257, 613anbi13d 1292 . . . . . . . . . . . . . 14  |-  ( t  =  b  ->  (
( a  Fn  t  /\  a  e.  A  /\  s  =  (
a  u.  { <. t ,  ( G `  a ) >. } ) )  <->  ( a  Fn  b  /\  a  e.  A  /\  s  =  ( a  u.  { <. b ,  ( G `
 a ) >. } ) ) ) )
6362exbidv 1797 . . . . . . . . . . . . 13  |-  ( t  =  b  ->  ( E. a ( a  Fn  t  /\  a  e.  A  /\  s  =  ( a  u.  { <. t ,  ( G `
 a ) >. } ) )  <->  E. a
( a  Fn  b  /\  a  e.  A  /\  s  =  (
a  u.  { <. b ,  ( G `  a ) >. } ) ) ) )
6463cbvrexv 2655 . . . . . . . . . . . 12  |-  ( E. t  e.  z  E. a ( a  Fn  t  /\  a  e.  A  /\  s  =  ( a  u.  { <. t ,  ( G `
 a ) >. } ) )  <->  E. b  e.  z  E. a
( a  Fn  b  /\  a  e.  A  /\  s  =  (
a  u.  { <. b ,  ( G `  a ) >. } ) ) )
6556, 64bitri 183 . . . . . . . . . . 11  |-  ( E. t  e.  z  E. r ( r  Fn  t  /\  r  e.  A  /\  s  =  ( r  u.  { <. t ,  ( G `
 r ) >. } ) )  <->  E. b  e.  z  E. a
( a  Fn  b  /\  a  e.  A  /\  s  =  (
a  u.  { <. b ,  ( G `  a ) >. } ) ) )
6665abbii 2255 . . . . . . . . . 10  |-  { s  |  E. t  e.  z  E. r ( r  Fn  t  /\  r  e.  A  /\  s  =  ( r  u.  { <. t ,  ( G `  r )
>. } ) ) }  =  { s  |  E. b  e.  z  E. a ( a  Fn  b  /\  a  e.  A  /\  s  =  ( a  u. 
{ <. b ,  ( G `  a )
>. } ) ) }
67 eqeq1 2146 . . . . . . . . . . . . . 14  |-  ( s  =  d  ->  (
s  =  ( a  u.  { <. b ,  ( G `  a ) >. } )  <-> 
d  =  ( a  u.  { <. b ,  ( G `  a ) >. } ) ) )
68673anbi3d 1296 . . . . . . . . . . . . 13  |-  ( s  =  d  ->  (
( a  Fn  b  /\  a  e.  A  /\  s  =  (
a  u.  { <. b ,  ( G `  a ) >. } ) )  <->  ( a  Fn  b  /\  a  e.  A  /\  d  =  ( a  u.  { <. b ,  ( G `
 a ) >. } ) ) ) )
6968exbidv 1797 . . . . . . . . . . . 12  |-  ( s  =  d  ->  ( E. a ( a  Fn  b  /\  a  e.  A  /\  s  =  ( a  u.  { <. b ,  ( G `
 a ) >. } ) )  <->  E. a
( a  Fn  b  /\  a  e.  A  /\  d  =  (
a  u.  { <. b ,  ( G `  a ) >. } ) ) ) )
7069rexbidv 2438 . . . . . . . . . . 11  |-  ( s  =  d  ->  ( E. b  e.  z  E. a ( a  Fn  b  /\  a  e.  A  /\  s  =  ( a  u.  { <. b ,  ( G `
 a ) >. } ) )  <->  E. b  e.  z  E. a
( a  Fn  b  /\  a  e.  A  /\  d  =  (
a  u.  { <. b ,  ( G `  a ) >. } ) ) ) )
7170cbvabv 2264 . . . . . . . . . 10  |-  { s  |  E. b  e.  z  E. a ( a  Fn  b  /\  a  e.  A  /\  s  =  ( a  u.  { <. b ,  ( G `  a )
>. } ) ) }  =  { d  |  E. b  e.  z  E. a ( a  Fn  b  /\  a  e.  A  /\  d  =  ( a  u. 
{ <. b ,  ( G `  a )
>. } ) ) }
7266, 71eqtri 2160 . . . . . . . . 9  |-  { s  |  E. t  e.  z  E. r ( r  Fn  t  /\  r  e.  A  /\  s  =  ( r  u.  { <. t ,  ( G `  r )
>. } ) ) }  =  { d  |  E. b  e.  z  E. a ( a  Fn  b  /\  a  e.  A  /\  d  =  ( a  u. 
{ <. b ,  ( G `  a )
>. } ) ) }
73 tfr1onlemaccex.u . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  U. X )  ->  suc  x  e.  X )
7473adantlr 468 . . . . . . . . . . 11  |-  ( ( ( ph  /\  z  e.  On )  /\  x  e.  U. X )  ->  suc  x  e.  X )
7574adantlr 468 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) )  /\  x  e. 
U. X )  ->  suc  x  e.  X )
7675adantlr 468 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  x  e.  U. X )  ->  suc  x  e.  X )
77 simpr 109 . . . . . . . . 9  |-  ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) )  /\  z  e.  X )  ->  z  e.  X )
78 simpr 109 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  b  e.  z )  ->  b  e.  z )
79 simplr 519 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  b  e.  z )  ->  z  e.  X )
80 ordtr1 4310 . . . . . . . . . . . . . 14  |-  ( Ord 
X  ->  ( (
b  e.  z  /\  z  e.  X )  ->  b  e.  X ) )
811, 80syl 14 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( b  e.  z  /\  z  e.  X )  ->  b  e.  X ) )
8281ad4antr 485 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  b  e.  z )  ->  (
( b  e.  z  /\  z  e.  X
)  ->  b  e.  X ) )
8378, 79, 82mp2and 429 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  b  e.  z )  ->  b  e.  X )
84 eleq1 2202 . . . . . . . . . . . . . 14  |-  ( w  =  b  ->  (
w  e.  X  <->  b  e.  X ) )
85 fneq2 5212 . . . . . . . . . . . . . . . 16  |-  ( w  =  b  ->  (
g  Fn  w  <->  g  Fn  b ) )
86 raleq 2626 . . . . . . . . . . . . . . . 16  |-  ( w  =  b  ->  ( A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) )  <->  A. u  e.  b  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) )
8785, 86anbi12d 464 . . . . . . . . . . . . . . 15  |-  ( w  =  b  ->  (
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) )  <-> 
( g  Fn  b  /\  A. u  e.  b  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )
8887exbidv 1797 . . . . . . . . . . . . . 14  |-  ( w  =  b  ->  ( E. g ( g  Fn  w  /\  A. u  e.  w  ( g `  u )  =  ( G `  ( g  |`  u ) ) )  <->  E. g ( g  Fn  b  /\  A. u  e.  b  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) ) )
8984, 88imbi12d 233 . . . . . . . . . . . . 13  |-  ( w  =  b  ->  (
( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) )  <-> 
( b  e.  X  ->  E. g ( g  Fn  b  /\  A. u  e.  b  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) ) )
90 simpllr 523 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  b  e.  z )  ->  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )
9189, 90, 78rspcdva 2794 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  b  e.  z )  ->  (
b  e.  X  ->  E. g ( g  Fn  b  /\  A. u  e.  b  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) ) )
92 fneq1 5211 . . . . . . . . . . . . . . 15  |-  ( g  =  a  ->  (
g  Fn  b  <->  a  Fn  b ) )
93 fveq1 5420 . . . . . . . . . . . . . . . . 17  |-  ( g  =  a  ->  (
g `  u )  =  ( a `  u ) )
94 reseq1 4813 . . . . . . . . . . . . . . . . . 18  |-  ( g  =  a  ->  (
g  |`  u )  =  ( a  |`  u
) )
9594fveq2d 5425 . . . . . . . . . . . . . . . . 17  |-  ( g  =  a  ->  ( G `  ( g  |`  u ) )  =  ( G `  (
a  |`  u ) ) )
9693, 95eqeq12d 2154 . . . . . . . . . . . . . . . 16  |-  ( g  =  a  ->  (
( g `  u
)  =  ( G `
 ( g  |`  u ) )  <->  ( a `  u )  =  ( G `  ( a  |`  u ) ) ) )
9796ralbidv 2437 . . . . . . . . . . . . . . 15  |-  ( g  =  a  ->  ( A. u  e.  b 
( g `  u
)  =  ( G `
 ( g  |`  u ) )  <->  A. u  e.  b  ( a `  u )  =  ( G `  ( a  |`  u ) ) ) )
9892, 97anbi12d 464 . . . . . . . . . . . . . 14  |-  ( g  =  a  ->  (
( g  Fn  b  /\  A. u  e.  b  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) )  <-> 
( a  Fn  b  /\  A. u  e.  b  ( a `  u
)  =  ( G `
 ( a  |`  u ) ) ) ) )
9998cbvexv 1890 . . . . . . . . . . . . 13  |-  ( E. g ( g  Fn  b  /\  A. u  e.  b  ( g `  u )  =  ( G `  ( g  |`  u ) ) )  <->  E. a ( a  Fn  b  /\  A. u  e.  b  ( a `  u )  =  ( G `  ( a  |`  u ) ) ) )
100 fveq2 5421 . . . . . . . . . . . . . . . . 17  |-  ( u  =  c  ->  (
a `  u )  =  ( a `  c ) )
101 reseq2 4814 . . . . . . . . . . . . . . . . . 18  |-  ( u  =  c  ->  (
a  |`  u )  =  ( a  |`  c
) )
102101fveq2d 5425 . . . . . . . . . . . . . . . . 17  |-  ( u  =  c  ->  ( G `  ( a  |`  u ) )  =  ( G `  (
a  |`  c ) ) )
103100, 102eqeq12d 2154 . . . . . . . . . . . . . . . 16  |-  ( u  =  c  ->  (
( a `  u
)  =  ( G `
 ( a  |`  u ) )  <->  ( a `  c )  =  ( G `  ( a  |`  c ) ) ) )
104103cbvralv 2654 . . . . . . . . . . . . . . 15  |-  ( A. u  e.  b  (
a `  u )  =  ( G `  ( a  |`  u
) )  <->  A. c  e.  b  ( a `  c )  =  ( G `  ( a  |`  c ) ) )
105104anbi2i 452 . . . . . . . . . . . . . 14  |-  ( ( a  Fn  b  /\  A. u  e.  b  ( a `  u )  =  ( G `  ( a  |`  u
) ) )  <->  ( a  Fn  b  /\  A. c  e.  b  ( a `  c )  =  ( G `  ( a  |`  c ) ) ) )
106105exbii 1584 . . . . . . . . . . . . 13  |-  ( E. a ( a  Fn  b  /\  A. u  e.  b  ( a `  u )  =  ( G `  ( a  |`  u ) ) )  <->  E. a ( a  Fn  b  /\  A. c  e.  b  ( a `  c )  =  ( G `  ( a  |`  c ) ) ) )
10799, 106bitri 183 . . . . . . . . . . . 12  |-  ( E. g ( g  Fn  b  /\  A. u  e.  b  ( g `  u )  =  ( G `  ( g  |`  u ) ) )  <->  E. a ( a  Fn  b  /\  A. c  e.  b  ( a `  c )  =  ( G `  ( a  |`  c ) ) ) )
10891, 107syl6ib 160 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  b  e.  z )  ->  (
b  e.  X  ->  E. a ( a  Fn  b  /\  A. c  e.  b  ( a `  c )  =  ( G `  ( a  |`  c ) ) ) ) )
10983, 108mpd 13 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  /\  z  e.  X )  /\  b  e.  z )  ->  E. a
( a  Fn  b  /\  A. c  e.  b  ( a `  c
)  =  ( G `
 ( a  |`  c ) ) ) )
110109ralrimiva 2505 . . . . . . . . 9  |-  ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) )  /\  z  e.  X )  ->  A. b  e.  z  E. a
( a  Fn  b  /\  A. c  e.  b  ( a `  c
)  =  ( G `
 ( a  |`  c ) ) ) )
11118, 20, 21, 35, 45, 72, 76, 77, 110tfr1onlemex 6244 . . . . . . . 8  |-  ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) )  /\  z  e.  X )  ->  E. h
( h  Fn  z  /\  A. u  e.  z  ( h `  u
)  =  ( G `
 ( h  |`  u ) ) ) )
112 fneq1 5211 . . . . . . . . . 10  |-  ( h  =  g  ->  (
h  Fn  z  <->  g  Fn  z ) )
113 fveq1 5420 . . . . . . . . . . . 12  |-  ( h  =  g  ->  (
h `  u )  =  ( g `  u ) )
114 reseq1 4813 . . . . . . . . . . . . 13  |-  ( h  =  g  ->  (
h  |`  u )  =  ( g  |`  u
) )
115114fveq2d 5425 . . . . . . . . . . . 12  |-  ( h  =  g  ->  ( G `  ( h  |`  u ) )  =  ( G `  (
g  |`  u ) ) )
116113, 115eqeq12d 2154 . . . . . . . . . . 11  |-  ( h  =  g  ->  (
( h `  u
)  =  ( G `
 ( h  |`  u ) )  <->  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) )
117116ralbidv 2437 . . . . . . . . . 10  |-  ( h  =  g  ->  ( A. u  e.  z 
( h `  u
)  =  ( G `
 ( h  |`  u ) )  <->  A. u  e.  z  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) )
118112, 117anbi12d 464 . . . . . . . . 9  |-  ( h  =  g  ->  (
( h  Fn  z  /\  A. u  e.  z  ( h `  u
)  =  ( G `
 ( h  |`  u ) ) )  <-> 
( g  Fn  z  /\  A. u  e.  z  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )
119118cbvexv 1890 . . . . . . . 8  |-  ( E. h ( h  Fn  z  /\  A. u  e.  z  ( h `  u )  =  ( G `  ( h  |`  u ) ) )  <->  E. g ( g  Fn  z  /\  A. u  e.  z  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) )
120111, 119sylib 121 . . . . . . 7  |-  ( ( ( ( ph  /\  z  e.  On )  /\  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) )  /\  z  e.  X )  ->  E. g
( g  Fn  z  /\  A. u  e.  z  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) )
121120exp31 361 . . . . . 6  |-  ( (
ph  /\  z  e.  On )  ->  ( A. w  e.  z  (
w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) )  ->  ( z  e.  X  ->  E. g
( g  Fn  z  /\  A. u  e.  z  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) ) )
122121expcom 115 . . . . 5  |-  ( z  e.  On  ->  ( ph  ->  ( A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) )  ->  ( z  e.  X  ->  E. g
( g  Fn  z  /\  A. u  e.  z  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) ) ) )
123122a2d 26 . . . 4  |-  ( z  e.  On  ->  (
( ph  ->  A. w  e.  z  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  ->  ( ph  ->  ( z  e.  X  ->  E. g
( g  Fn  z  /\  A. u  e.  z  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) ) ) )
124 impexp 261 . . . . . 6  |-  ( ( ( ph  /\  w  e.  X )  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) )  <->  ( ph  ->  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) ) ) )
125124ralbii 2441 . . . . 5  |-  ( A. w  e.  z  (
( ph  /\  w  e.  X )  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) )  <->  A. w  e.  z  ( ph  ->  (
w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) ) ) )
126 r19.21v 2509 . . . . 5  |-  ( A. w  e.  z  ( ph  ->  ( w  e.  X  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )  <->  ( ph  ->  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) ) )
127125, 126bitri 183 . . . 4  |-  ( A. w  e.  z  (
( ph  /\  w  e.  X )  ->  E. g
( g  Fn  w  /\  A. u  e.  w  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) )  <->  ( ph  ->  A. w  e.  z  ( w  e.  X  ->  E. g ( g  Fn  w  /\  A. u  e.  w  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) ) ) )
128 impexp 261 . . . 4  |-  ( ( ( ph  /\  z  e.  X )  ->  E. g
( g  Fn  z  /\  A. u  e.  z  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) )  <->  ( ph  ->  ( z  e.  X  ->  E. g ( g  Fn  z  /\  A. u  e.  z  ( g `  u )  =  ( G `  ( g  |`  u ) ) ) ) ) )
129123, 127, 1283imtr4g 204 . . 3  |-  ( z  e.  On  ->  ( A. w  e.  z 
( ( ph  /\  w  e.  X )  ->  E. g ( g  Fn  w  /\  A. u  e.  w  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) )  ->  ( ( ph  /\  z  e.  X )  ->  E. g ( g  Fn  z  /\  A. u  e.  z  (
g `  u )  =  ( G `  ( g  |`  u
) ) ) ) ) )
13010, 17, 129tfis3 4500 . 2  |-  ( C  e.  On  ->  (
( ph  /\  C  e.  X )  ->  E. g
( g  Fn  C  /\  A. u  e.  C  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) ) )
1313, 130mpcom 36 1  |-  ( (
ph  /\  C  e.  X )  ->  E. g
( g  Fn  C  /\  A. u  e.  C  ( g `  u
)  =  ( G `
 ( g  |`  u ) ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103    /\ w3a 962   A.wal 1329    = wceq 1331   E.wex 1468    e. wcel 1480   {cab 2125   A.wral 2416   E.wrex 2417   _Vcvv 2686    u. cun 3069   {csn 3527   <.cop 3530   U.cuni 3736   Ord word 4284   Oncon0 4285   suc csuc 4287    |` cres 4541   Fun wfun 5117    Fn wfn 5118   ` cfv 5123  recscrecs 6201
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 603  ax-in2 604  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-13 1491  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2121  ax-coll 4043  ax-sep 4046  ax-pow 4098  ax-pr 4131  ax-un 4355  ax-setind 4452
This theorem depends on definitions:  df-bi 116  df-3an 964  df-tru 1334  df-fal 1337  df-nf 1437  df-sb 1736  df-eu 2002  df-mo 2003  df-clab 2126  df-cleq 2132  df-clel 2135  df-nfc 2270  df-ne 2309  df-ral 2421  df-rex 2422  df-reu 2423  df-rab 2425  df-v 2688  df-sbc 2910  df-csb 3004  df-dif 3073  df-un 3075  df-in 3077  df-ss 3084  df-nul 3364  df-pw 3512  df-sn 3533  df-pr 3534  df-op 3536  df-uni 3737  df-iun 3815  df-br 3930  df-opab 3990  df-mpt 3991  df-tr 4027  df-id 4215  df-iord 4288  df-on 4290  df-suc 4293  df-xp 4545  df-rel 4546  df-cnv 4547  df-co 4548  df-dm 4549  df-rn 4550  df-res 4551  df-ima 4552  df-iota 5088  df-fun 5125  df-fn 5126  df-f 5127  df-f1 5128  df-fo 5129  df-f1o 5130  df-fv 5131  df-recs 6202
This theorem is referenced by:  tfr1onlemres  6246
  Copyright terms: Public domain W3C validator