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

Theorem fundmen 7626
Description: A function is equinumerous to its domain. Exercise 4 of [Suppes] p. 98. (Contributed by NM, 28-Jul-2004.) (Revised by Mario Carneiro, 15-Nov-2014.)
Hypothesis
Ref Expression
fundmen.1  |-  F  e. 
_V
Assertion
Ref Expression
fundmen  |-  ( Fun 
F  ->  dom  F  ~~  F )

Proof of Theorem fundmen
Dummy variables  x  y  z  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fundmen.1 . . . 4  |-  F  e. 
_V
21dmex 6716 . . 3  |-  dom  F  e.  _V
32a1i 11 . 2  |-  ( Fun 
F  ->  dom  F  e. 
_V )
41a1i 11 . 2  |-  ( Fun 
F  ->  F  e.  _V )
5 funfvop 5976 . . 3  |-  ( ( Fun  F  /\  x  e.  dom  F )  ->  <. x ,  ( F `
 x ) >.  e.  F )
65ex 432 . 2  |-  ( Fun 
F  ->  ( x  e.  dom  F  ->  <. x ,  ( F `  x ) >.  e.  F
) )
7 funrel 5585 . . 3  |-  ( Fun 
F  ->  Rel  F )
8 elreldm 5047 . . . 4  |-  ( ( Rel  F  /\  y  e.  F )  ->  |^| |^| y  e.  dom  F )
98ex 432 . . 3  |-  ( Rel 
F  ->  ( y  e.  F  ->  |^| |^| y  e.  dom  F ) )
107, 9syl 17 . 2  |-  ( Fun 
F  ->  ( y  e.  F  ->  |^| |^| y  e.  dom  F ) )
11 df-rel 4829 . . . . . . . . 9  |-  ( Rel 
F  <->  F  C_  ( _V 
X.  _V ) )
127, 11sylib 196 . . . . . . . 8  |-  ( Fun 
F  ->  F  C_  ( _V  X.  _V ) )
1312sselda 3441 . . . . . . 7  |-  ( ( Fun  F  /\  y  e.  F )  ->  y  e.  ( _V  X.  _V ) )
14 elvv 4881 . . . . . . 7  |-  ( y  e.  ( _V  X.  _V )  <->  E. z E. w  y  =  <. z ,  w >. )
1513, 14sylib 196 . . . . . 6  |-  ( ( Fun  F  /\  y  e.  F )  ->  E. z E. w  y  =  <. z ,  w >. )
16 inteq 4229 . . . . . . . . . . . . . . . . 17  |-  ( y  =  <. z ,  w >.  ->  |^| y  =  |^| <.
z ,  w >. )
1716inteqd 4231 . . . . . . . . . . . . . . . 16  |-  ( y  =  <. z ,  w >.  ->  |^| |^| y  =  |^| |^|
<. z ,  w >. )
18 vex 3061 . . . . . . . . . . . . . . . . 17  |-  z  e. 
_V
19 vex 3061 . . . . . . . . . . . . . . . . 17  |-  w  e. 
_V
2018, 19op1stb 4660 . . . . . . . . . . . . . . . 16  |-  |^| |^| <. z ,  w >.  =  z
2117, 20syl6eq 2459 . . . . . . . . . . . . . . 15  |-  ( y  =  <. z ,  w >.  ->  |^| |^| y  =  z )
22 eqeq1 2406 . . . . . . . . . . . . . . 15  |-  ( x  =  |^| |^| y  ->  ( x  =  z  <->  |^| |^| y  =  z ) )
2321, 22syl5ibr 221 . . . . . . . . . . . . . 14  |-  ( x  =  |^| |^| y  ->  ( y  =  <. z ,  w >.  ->  x  =  z ) )
24 opeq1 4158 . . . . . . . . . . . . . 14  |-  ( x  =  z  ->  <. x ,  w >.  =  <. z ,  w >. )
2523, 24syl6 31 . . . . . . . . . . . . 13  |-  ( x  =  |^| |^| y  ->  ( y  =  <. z ,  w >.  ->  <. x ,  w >.  =  <. z ,  w >. )
)
2625imp 427 . . . . . . . . . . . 12  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  -> 
<. x ,  w >.  = 
<. z ,  w >. )
27 eqeq2 2417 . . . . . . . . . . . . . 14  |-  ( <.
x ,  w >.  = 
<. z ,  w >.  -> 
( y  =  <. x ,  w >.  <->  y  =  <. z ,  w >. ) )
2827biimprcd 225 . . . . . . . . . . . . 13  |-  ( y  =  <. z ,  w >.  ->  ( <. x ,  w >.  =  <. z ,  w >.  ->  y  =  <. x ,  w >. ) )
2928adantl 464 . . . . . . . . . . . 12  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  ->  ( <. x ,  w >.  =  <. z ,  w >.  ->  y  =  <. x ,  w >. )
)
3026, 29mpd 15 . . . . . . . . . . 11  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  ->  y  =  <. x ,  w >. )
3130ancoms 451 . . . . . . . . . 10  |-  ( ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y )  -> 
y  =  <. x ,  w >. )
3231adantl 464 . . . . . . . . 9  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  y  =  <. x ,  w >. )
3330eleq1d 2471 . . . . . . . . . . . . . . 15  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  ->  ( y  e.  F  <->  <.
x ,  w >.  e.  F ) )
3433adantl 464 . . . . . . . . . . . . . 14  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( y  e.  F  <->  <. x ,  w >.  e.  F ) )
35 funopfv 5887 . . . . . . . . . . . . . . 15  |-  ( Fun 
F  ->  ( <. x ,  w >.  e.  F  ->  ( F `  x
)  =  w ) )
3635adantr 463 . . . . . . . . . . . . . 14  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( <. x ,  w >.  e.  F  ->  ( F `  x
)  =  w ) )
3734, 36sylbid 215 . . . . . . . . . . . . 13  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( y  e.  F  ->  ( F `
 x )  =  w ) )
3837exp32 603 . . . . . . . . . . . 12  |-  ( Fun 
F  ->  ( x  =  |^| |^| y  ->  (
y  =  <. z ,  w >.  ->  ( y  e.  F  ->  ( F `  x )  =  w ) ) ) )
3938com24 87 . . . . . . . . . . 11  |-  ( Fun 
F  ->  ( y  e.  F  ->  ( y  =  <. z ,  w >.  ->  ( x  = 
|^| |^| y  ->  ( F `  x )  =  w ) ) ) )
4039imp43 593 . . . . . . . . . 10  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  ( F `  x )  =  w )
4140opeq2d 4165 . . . . . . . . 9  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  <. x ,  ( F `  x )
>.  =  <. x ,  w >. )
4232, 41eqtr4d 2446 . . . . . . . 8  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  y  =  <. x ,  ( F `  x ) >. )
4342exp32 603 . . . . . . 7  |-  ( ( Fun  F  /\  y  e.  F )  ->  (
y  =  <. z ,  w >.  ->  ( x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
) )
4443exlimdvv 1746 . . . . . 6  |-  ( ( Fun  F  /\  y  e.  F )  ->  ( E. z E. w  y  =  <. z ,  w >.  ->  ( x  = 
|^| |^| y  ->  y  =  <. x ,  ( F `  x )
>. ) ) )
4515, 44mpd 15 . . . . 5  |-  ( ( Fun  F  /\  y  e.  F )  ->  (
x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
)
4645adantrl 714 . . . 4  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
)
47 inteq 4229 . . . . . 6  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  |^| y  =  |^| <.
x ,  ( F `
 x ) >.
)
4847inteqd 4231 . . . . 5  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  |^| |^| y  =  |^| |^|
<. x ,  ( F `
 x ) >.
)
49 vex 3061 . . . . . 6  |-  x  e. 
_V
50 fvex 5858 . . . . . 6  |-  ( F `
 x )  e. 
_V
5149, 50op1stb 4660 . . . . 5  |-  |^| |^| <. x ,  ( F `  x ) >.  =  x
5248, 51syl6req 2460 . . . 4  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  x  =  |^| |^| y )
5346, 52impbid1 203 . . 3  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
x  =  |^| |^| y  <->  y  =  <. x ,  ( F `  x )
>. ) )
5453ex 432 . 2  |-  ( Fun 
F  ->  ( (
x  e.  dom  F  /\  y  e.  F
)  ->  ( x  =  |^| |^| y  <->  y  =  <. x ,  ( F `
 x ) >.
) ) )
553, 4, 6, 10, 54en3d 7589 1  |-  ( Fun 
F  ->  dom  F  ~~  F )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 367    = wceq 1405   E.wex 1633    e. wcel 1842   _Vcvv 3058    C_ wss 3413   <.cop 3977   |^|cint 4226   class class class wbr 4394    X. cxp 4820   dom cdm 4822   Rel wrel 4827   Fun wfun 5562   ` cfv 5568    ~~ cen 7550
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1639  ax-4 1652  ax-5 1725  ax-6 1771  ax-7 1814  ax-8 1844  ax-9 1846  ax-10 1861  ax-11 1866  ax-12 1878  ax-13 2026  ax-ext 2380  ax-sep 4516  ax-nul 4524  ax-pow 4571  ax-pr 4629  ax-un 6573
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3an 976  df-tru 1408  df-ex 1634  df-nf 1638  df-sb 1764  df-eu 2242  df-mo 2243  df-clab 2388  df-cleq 2394  df-clel 2397  df-nfc 2552  df-ne 2600  df-ral 2758  df-rex 2759  df-rab 2762  df-v 3060  df-sbc 3277  df-dif 3416  df-un 3418  df-in 3420  df-ss 3427  df-nul 3738  df-if 3885  df-pw 3956  df-sn 3972  df-pr 3974  df-op 3978  df-uni 4191  df-int 4227  df-br 4395  df-opab 4453  df-mpt 4454  df-id 4737  df-xp 4828  df-rel 4829  df-cnv 4830  df-co 4831  df-dm 4832  df-rn 4833  df-iota 5532  df-fun 5570  df-fn 5571  df-f 5572  df-f1 5573  df-fo 5574  df-f1o 5575  df-fv 5576  df-en 7554
This theorem is referenced by:  fundmeng  7627  infmap2  8629  heicant  31401
  Copyright terms: Public domain W3C validator