MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  funimaexg Unicode version

Theorem funimaexg 5331
Description: Axiom of Replacement using abbreviations. Axiom 39(vi) of [Quine] p. 284. Compare Exercise 9 of [TakeutiZaring] p. 29. (Contributed by NM, 10-Sep-2006.)
Assertion
Ref Expression
funimaexg  |-  ( ( Fun  A  /\  B  e.  C )  ->  ( A " B )  e. 
_V )

Proof of Theorem funimaexg
Dummy variables  w  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 imaeq2 5010 . . . . 5  |-  ( w  =  B  ->  ( A " w )  =  ( A " B
) )
21eleq1d 2351 . . . 4  |-  ( w  =  B  ->  (
( A " w
)  e.  _V  <->  ( A " B )  e.  _V ) )
32imbi2d 307 . . 3  |-  ( w  =  B  ->  (
( Fun  A  ->  ( A " w )  e.  _V )  <->  ( Fun  A  ->  ( A " B )  e.  _V ) ) )
4 dffun5 5270 . . . . 5  |-  ( Fun 
A  <->  ( Rel  A  /\  A. x E. z A. y ( <. x ,  y >.  e.  A  ->  y  =  z ) ) )
54simprbi 450 . . . 4  |-  ( Fun 
A  ->  A. x E. z A. y (
<. x ,  y >.  e.  A  ->  y  =  z ) )
6 nfv 1607 . . . . . 6  |-  F/ z
<. x ,  y >.  e.  A
76axrep4 4137 . . . . 5  |-  ( A. x E. z A. y
( <. x ,  y
>.  e.  A  ->  y  =  z )  ->  E. z A. y ( y  e.  z  <->  E. x
( x  e.  w  /\  <. x ,  y
>.  e.  A ) ) )
8 isset 2794 . . . . . 6  |-  ( ( A " w )  e.  _V  <->  E. z 
z  =  ( A
" w ) )
9 dfima3 5017 . . . . . . . . 9  |-  ( A
" w )  =  { y  |  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) }
109eqeq2i 2295 . . . . . . . 8  |-  ( z  =  ( A "
w )  <->  z  =  { y  |  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) } )
11 abeq2 2390 . . . . . . . 8  |-  ( z  =  { y  |  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) }  <->  A. y
( y  e.  z  <->  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) ) )
1210, 11bitri 240 . . . . . . 7  |-  ( z  =  ( A "
w )  <->  A. y
( y  e.  z  <->  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) ) )
1312exbii 1571 . . . . . 6  |-  ( E. z  z  =  ( A " w )  <->  E. z A. y ( y  e.  z  <->  E. x
( x  e.  w  /\  <. x ,  y
>.  e.  A ) ) )
148, 13bitri 240 . . . . 5  |-  ( ( A " w )  e.  _V  <->  E. z A. y ( y  e.  z  <->  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) ) )
157, 14sylibr 203 . . . 4  |-  ( A. x E. z A. y
( <. x ,  y
>.  e.  A  ->  y  =  z )  -> 
( A " w
)  e.  _V )
165, 15syl 15 . . 3  |-  ( Fun 
A  ->  ( A " w )  e.  _V )
173, 16vtoclg 2845 . 2  |-  ( B  e.  C  ->  ( Fun  A  ->  ( A " B )  e.  _V ) )
1817impcom 419 1  |-  ( ( Fun  A  /\  B  e.  C )  ->  ( A " B )  e. 
_V )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    /\ wa 358   A.wal 1529   E.wex 1530    = wceq 1625    e. wcel 1686   {cab 2271   _Vcvv 2790   <.cop 3645   "cima 4694   Rel wrel 4696   Fun wfun 5251
This theorem is referenced by:  funimaex  5332  resfunexg  5739  resfunexgALT  5740  fnexALT  5744  wdomimag  7303  carduniima  7725  dfac12lem2  7772  ttukeylem3  8140  nnexALT  9750  seqex  11050  fbasrn  17581  elfm3  17647  nobndlem1  24348
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1535  ax-5 1546  ax-17 1605  ax-9 1637  ax-8 1645  ax-14 1690  ax-6 1705  ax-7 1710  ax-11 1717  ax-12 1868  ax-ext 2266  ax-rep 4133  ax-sep 4143  ax-nul 4151  ax-pr 4216
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1310  df-ex 1531  df-nf 1534  df-sb 1632  df-eu 2149  df-mo 2150  df-clab 2272  df-cleq 2278  df-clel 2281  df-nfc 2410  df-ne 2450  df-ral 2550  df-rex 2551  df-rab 2554  df-v 2792  df-dif 3157  df-un 3159  df-in 3161  df-ss 3168  df-nul 3458  df-if 3568  df-sn 3648  df-pr 3649  df-op 3651  df-br 4026  df-opab 4080  df-id 4311  df-xp 4697  df-cnv 4699  df-co 4700  df-dm 4701  df-rn 4702  df-res 4703  df-ima 4704  df-fun 5259
  Copyright terms: Public domain W3C validator