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

Theorem fundmen 7109
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 5065 . . 3  |-  dom  F  e.  _V
32a1i 11 . 2  |-  ( Fun 
F  ->  dom  F  e. 
_V )
41a1i 11 . 2  |-  ( Fun 
F  ->  F  e.  _V )
5 funfvop 5774 . . 3  |-  ( ( Fun  F  /\  x  e.  dom  F )  ->  <. x ,  ( F `
 x ) >.  e.  F )
65ex 424 . 2  |-  ( Fun 
F  ->  ( x  e.  dom  F  ->  <. x ,  ( F `  x ) >.  e.  F
) )
7 funrel 5404 . . 3  |-  ( Fun 
F  ->  Rel  F )
8 elreldm 5027 . . . 4  |-  ( ( Rel  F  /\  y  e.  F )  ->  |^| |^| y  e.  dom  F )
98ex 424 . . 3  |-  ( Rel 
F  ->  ( y  e.  F  ->  |^| |^| y  e.  dom  F ) )
107, 9syl 16 . 2  |-  ( Fun 
F  ->  ( y  e.  F  ->  |^| |^| y  e.  dom  F ) )
11 df-rel 4818 . . . . . . . . 9  |-  ( Rel 
F  <->  F  C_  ( _V 
X.  _V ) )
127, 11sylib 189 . . . . . . . 8  |-  ( Fun 
F  ->  F  C_  ( _V  X.  _V ) )
1312sselda 3284 . . . . . . 7  |-  ( ( Fun  F  /\  y  e.  F )  ->  y  e.  ( _V  X.  _V ) )
14 elvv 4869 . . . . . . 7  |-  ( y  e.  ( _V  X.  _V )  <->  E. z E. w  y  =  <. z ,  w >. )
1513, 14sylib 189 . . . . . 6  |-  ( ( Fun  F  /\  y  e.  F )  ->  E. z E. w  y  =  <. z ,  w >. )
16 inteq 3988 . . . . . . . . . . . . . . . . 17  |-  ( y  =  <. z ,  w >.  ->  |^| y  =  |^| <.
z ,  w >. )
1716inteqd 3990 . . . . . . . . . . . . . . . 16  |-  ( y  =  <. z ,  w >.  ->  |^| |^| y  =  |^| |^|
<. z ,  w >. )
18 vex 2895 . . . . . . . . . . . . . . . . 17  |-  z  e. 
_V
19 vex 2895 . . . . . . . . . . . . . . . . 17  |-  w  e. 
_V
2018, 19op1stb 4691 . . . . . . . . . . . . . . . 16  |-  |^| |^| <. z ,  w >.  =  z
2117, 20syl6eq 2428 . . . . . . . . . . . . . . 15  |-  ( y  =  <. z ,  w >.  ->  |^| |^| y  =  z )
22 eqeq1 2386 . . . . . . . . . . . . . . 15  |-  ( x  =  |^| |^| y  ->  ( x  =  z  <->  |^| |^| y  =  z ) )
2321, 22syl5ibr 213 . . . . . . . . . . . . . 14  |-  ( x  =  |^| |^| y  ->  ( y  =  <. z ,  w >.  ->  x  =  z ) )
24 opeq1 3919 . . . . . . . . . . . . . 14  |-  ( x  =  z  ->  <. x ,  w >.  =  <. z ,  w >. )
2523, 24syl6 31 . . . . . . . . . . . . 13  |-  ( x  =  |^| |^| y  ->  ( y  =  <. z ,  w >.  ->  <. x ,  w >.  =  <. z ,  w >. )
)
2625imp 419 . . . . . . . . . . . 12  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  -> 
<. x ,  w >.  = 
<. z ,  w >. )
27 eqeq2 2389 . . . . . . . . . . . . . 14  |-  ( <.
x ,  w >.  = 
<. z ,  w >.  -> 
( y  =  <. x ,  w >.  <->  y  =  <. z ,  w >. ) )
2827biimprcd 217 . . . . . . . . . . . . 13  |-  ( y  =  <. z ,  w >.  ->  ( <. x ,  w >.  =  <. z ,  w >.  ->  y  =  <. x ,  w >. ) )
2928adantl 453 . . . . . . . . . . . 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 440 . . . . . . . . . 10  |-  ( ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y )  -> 
y  =  <. x ,  w >. )
3231adantl 453 . . . . . . . . 9  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  y  =  <. x ,  w >. )
3330eleq1d 2446 . . . . . . . . . . . . . . 15  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  ->  ( y  e.  F  <->  <.
x ,  w >.  e.  F ) )
3433adantl 453 . . . . . . . . . . . . . 14  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( y  e.  F  <->  <. x ,  w >.  e.  F ) )
35 funopfv 5698 . . . . . . . . . . . . . . 15  |-  ( Fun 
F  ->  ( <. x ,  w >.  e.  F  ->  ( F `  x
)  =  w ) )
3635adantr 452 . . . . . . . . . . . . . 14  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( <. x ,  w >.  e.  F  ->  ( F `  x
)  =  w ) )
3734, 36sylbid 207 . . . . . . . . . . . . 13  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( y  e.  F  ->  ( F `
 x )  =  w ) )
3837exp32 589 . . . . . . . . . . . 12  |-  ( Fun 
F  ->  ( x  =  |^| |^| y  ->  (
y  =  <. z ,  w >.  ->  ( y  e.  F  ->  ( F `  x )  =  w ) ) ) )
3938com24 83 . . . . . . . . . . 11  |-  ( Fun 
F  ->  ( y  e.  F  ->  ( y  =  <. z ,  w >.  ->  ( x  = 
|^| |^| y  ->  ( F `  x )  =  w ) ) ) )
4039imp43 579 . . . . . . . . . 10  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  ( F `  x )  =  w )
4140opeq2d 3926 . . . . . . . . 9  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  <. x ,  ( F `  x )
>.  =  <. x ,  w >. )
4232, 41eqtr4d 2415 . . . . . . . 8  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  y  =  <. x ,  ( F `  x ) >. )
4342exp32 589 . . . . . . 7  |-  ( ( Fun  F  /\  y  e.  F )  ->  (
y  =  <. z ,  w >.  ->  ( x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
) )
4443exlimdvv 1644 . . . . . 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 697 . . . 4  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
)
47 inteq 3988 . . . . . 6  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  |^| y  =  |^| <.
x ,  ( F `
 x ) >.
)
4847inteqd 3990 . . . . 5  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  |^| |^| y  =  |^| |^|
<. x ,  ( F `
 x ) >.
)
49 vex 2895 . . . . . 6  |-  x  e. 
_V
50 fvex 5675 . . . . . 6  |-  ( F `
 x )  e. 
_V
5149, 50op1stb 4691 . . . . 5  |-  |^| |^| <. x ,  ( F `  x ) >.  =  x
5248, 51syl6req 2429 . . . 4  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  x  =  |^| |^| y )
5346, 52impbid1 195 . . 3  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
x  =  |^| |^| y  <->  y  =  <. x ,  ( F `  x )
>. ) )
5453ex 424 . 2  |-  ( Fun 
F  ->  ( (
x  e.  dom  F  /\  y  e.  F
)  ->  ( x  =  |^| |^| y  <->  y  =  <. x ,  ( F `
 x ) >.
) ) )
553, 4, 6, 10, 54en3d 7073 1  |-  ( Fun 
F  ->  dom  F  ~~  F )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 177    /\ wa 359   E.wex 1547    = wceq 1649    e. wcel 1717   _Vcvv 2892    C_ wss 3256   <.cop 3753   |^|cint 3985   class class class wbr 4146    X. cxp 4809   dom cdm 4811   Rel wrel 4816   Fun wfun 5381   ` cfv 5387    ~~ cen 7035
This theorem is referenced by:  fundmeng  7110  infmap2  8024
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 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2361  ax-sep 4264  ax-nul 4272  ax-pow 4311  ax-pr 4337  ax-un 4634
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 2235  df-mo 2236  df-clab 2367  df-cleq 2373  df-clel 2376  df-nfc 2505  df-ne 2545  df-ral 2647  df-rex 2648  df-rab 2651  df-v 2894  df-sbc 3098  df-dif 3259  df-un 3261  df-in 3263  df-ss 3270  df-nul 3565  df-if 3676  df-pw 3737  df-sn 3756  df-pr 3757  df-op 3759  df-uni 3951  df-int 3986  df-br 4147  df-opab 4201  df-mpt 4202  df-id 4432  df-xp 4817  df-rel 4818  df-cnv 4819  df-co 4820  df-dm 4821  df-rn 4822  df-iota 5351  df-fun 5389  df-fn 5390  df-f 5391  df-f1 5392  df-fo 5393  df-f1o 5394  df-fv 5395  df-en 7039
  Copyright terms: Public domain W3C validator