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

Theorem funimaexg 5489
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 5158 . . . . 5  |-  ( w  =  B  ->  ( A " w )  =  ( A " B
) )
21eleq1d 2470 . . . 4  |-  ( w  =  B  ->  (
( A " w
)  e.  _V  <->  ( A " B )  e.  _V ) )
32imbi2d 308 . . 3  |-  ( w  =  B  ->  (
( Fun  A  ->  ( A " w )  e.  _V )  <->  ( Fun  A  ->  ( A " B )  e.  _V ) ) )
4 dffun5 5426 . . . . 5  |-  ( Fun 
A  <->  ( Rel  A  /\  A. x E. z A. y ( <. x ,  y >.  e.  A  ->  y  =  z ) ) )
54simprbi 451 . . . 4  |-  ( Fun 
A  ->  A. x E. z A. y (
<. x ,  y >.  e.  A  ->  y  =  z ) )
6 nfv 1626 . . . . . 6  |-  F/ z
<. x ,  y >.  e.  A
76axrep4 4284 . . . . 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 2920 . . . . . 6  |-  ( ( A " w )  e.  _V  <->  E. z 
z  =  ( A
" w ) )
9 dfima3 5165 . . . . . . . . 9  |-  ( A
" w )  =  { y  |  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) }
109eqeq2i 2414 . . . . . . . 8  |-  ( z  =  ( A "
w )  <->  z  =  { y  |  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) } )
11 abeq2 2509 . . . . . . . 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 241 . . . . . . 7  |-  ( z  =  ( A "
w )  <->  A. y
( y  e.  z  <->  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) ) )
1312exbii 1589 . . . . . 6  |-  ( E. z  z  =  ( A " w )  <->  E. z A. y ( y  e.  z  <->  E. x
( x  e.  w  /\  <. x ,  y
>.  e.  A ) ) )
148, 13bitri 241 . . . . 5  |-  ( ( A " w )  e.  _V  <->  E. z A. y ( y  e.  z  <->  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) ) )
157, 14sylibr 204 . . . 4  |-  ( A. x E. z A. y
( <. x ,  y
>.  e.  A  ->  y  =  z )  -> 
( A " w
)  e.  _V )
165, 15syl 16 . . 3  |-  ( Fun 
A  ->  ( A " w )  e.  _V )
173, 16vtoclg 2971 . 2  |-  ( B  e.  C  ->  ( Fun  A  ->  ( A " B )  e.  _V ) )
1817impcom 420 1  |-  ( ( Fun  A  /\  B  e.  C )  ->  ( A " B )  e. 
_V )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 177    /\ wa 359   A.wal 1546   E.wex 1547    = wceq 1649    e. wcel 1721   {cab 2390   _Vcvv 2916   <.cop 3777   "cima 4840   Rel wrel 4842   Fun wfun 5407
This theorem is referenced by:  funimaex  5490  resfunexg  5916  resfunexgALT  5917  fnexALT  5921  wdomimag  7511  carduniima  7933  dfac12lem2  7980  ttukeylem3  8347  nnexALT  9958  seqex  11280  fbasrn  17869  elfm3  17935  nobndlem1  25560
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1662  ax-8 1683  ax-14 1725  ax-6 1740  ax-7 1745  ax-11 1757  ax-12 1946  ax-ext 2385  ax-rep 4280  ax-sep 4290  ax-nul 4298  ax-pr 4363
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2258  df-mo 2259  df-clab 2391  df-cleq 2397  df-clel 2400  df-nfc 2529  df-ne 2569  df-ral 2671  df-rex 2672  df-rab 2675  df-v 2918  df-dif 3283  df-un 3285  df-in 3287  df-ss 3294  df-nul 3589  df-if 3700  df-sn 3780  df-pr 3781  df-op 3783  df-br 4173  df-opab 4227  df-id 4458  df-xp 4843  df-cnv 4845  df-co 4846  df-dm 4847  df-rn 4848  df-res 4849  df-ima 4850  df-fun 5415
  Copyright terms: Public domain W3C validator