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

Theorem funimaexg 5232
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
StepHypRef Expression
1 imaeq2 4961 . . . . 5  |-  ( w  =  B  ->  ( A " w )  =  ( A " B
) )
21eleq1d 2322 . . . 4  |-  ( w  =  B  ->  (
( A " w
)  e.  _V  <->  ( A " B )  e.  _V ) )
32imbi2d 309 . . 3  |-  ( w  =  B  ->  (
( Fun  A  ->  ( A " w )  e.  _V )  <->  ( Fun  A  ->  ( A " B )  e.  _V ) ) )
4 dffun5 5172 . . . . 5  |-  ( Fun 
A  <->  ( Rel  A  /\  A. x E. z A. y ( <. x ,  y >.  e.  A  ->  y  =  z ) ) )
54simprbi 452 . . . 4  |-  ( Fun 
A  ->  A. x E. z A. y (
<. x ,  y >.  e.  A  ->  y  =  z ) )
6 nfv 1629 . . . . . 6  |-  F/ z
<. x ,  y >.  e.  A
76axrep4 4075 . . . . 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 2744 . . . . . 6  |-  ( ( A " w )  e.  _V  <->  E. z 
z  =  ( A
" w ) )
9 dfima3 4968 . . . . . . . . 9  |-  ( A
" w )  =  { y  |  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) }
109eqeq2i 2266 . . . . . . . 8  |-  ( z  =  ( A "
w )  <->  z  =  { y  |  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) } )
11 abeq2 2361 . . . . . . . 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 242 . . . . . . 7  |-  ( z  =  ( A "
w )  <->  A. y
( y  e.  z  <->  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) ) )
1312exbii 1580 . . . . . 6  |-  ( E. z  z  =  ( A " w )  <->  E. z A. y ( y  e.  z  <->  E. x
( x  e.  w  /\  <. x ,  y
>.  e.  A ) ) )
148, 13bitri 242 . . . . 5  |-  ( ( A " w )  e.  _V  <->  E. z A. y ( y  e.  z  <->  E. x ( x  e.  w  /\  <. x ,  y >.  e.  A
) ) )
157, 14sylibr 205 . . . 4  |-  ( A. x E. z A. y
( <. x ,  y
>.  e.  A  ->  y  =  z )  -> 
( A " w
)  e.  _V )
165, 15syl 17 . . 3  |-  ( Fun 
A  ->  ( A " w )  e.  _V )
173, 16vtoclg 2794 . 2  |-  ( B  e.  C  ->  ( Fun  A  ->  ( A " B )  e.  _V ) )
1817impcom 421 1  |-  ( ( Fun  A  /\  B  e.  C )  ->  ( A " B )  e. 
_V )
Colors of variables: wff set class
Syntax hints:    -> wi 6    <-> wb 178    /\ wa 360   A.wal 1532   E.wex 1537    = wceq 1619    e. wcel 1621   {cab 2242   _Vcvv 2740   <.cop 3584   "cima 4629   Rel wrel 4631   Fun wfun 4632
This theorem is referenced by:  funimaex  5233  resfunexg  5636  resfunexgALT  5637  fnexALT  5641  wdomimag  7234  carduniima  7656  dfac12lem2  7703  ttukeylem3  8071  nnexALT  9681  seqex  10979  fbasrn  17506  elfm3  17572  axfelem1  23680
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1927  ax-ext 2237  ax-rep 4071  ax-sep 4081  ax-nul 4089  ax-pr 4152
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1884  df-eu 2121  df-mo 2122  df-clab 2243  df-cleq 2249  df-clel 2252  df-nfc 2381  df-ne 2421  df-ral 2520  df-rex 2521  df-rab 2523  df-v 2742  df-dif 3097  df-un 3099  df-in 3101  df-ss 3108  df-nul 3398  df-if 3507  df-sn 3587  df-pr 3588  df-op 3590  df-br 3964  df-opab 4018  df-id 4246  df-xp 4640  df-cnv 4642  df-co 4643  df-dm 4644  df-rn 4645  df-res 4646  df-ima 4647  df-fun 4648
  Copyright terms: Public domain W3C validator