ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  fundmen Unicode version

Theorem fundmen 6317
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 4626 . . 3  |-  dom  F  e.  _V
32a1i 9 . 2  |-  ( Fun 
F  ->  dom  F  e. 
_V )
41a1i 9 . 2  |-  ( Fun 
F  ->  F  e.  _V )
5 funfvop 5307 . . 3  |-  ( ( Fun  F  /\  x  e.  dom  F )  ->  <. x ,  ( F `
 x ) >.  e.  F )
65ex 112 . 2  |-  ( Fun 
F  ->  ( x  e.  dom  F  ->  <. x ,  ( F `  x ) >.  e.  F
) )
7 funrel 4947 . . 3  |-  ( Fun 
F  ->  Rel  F )
8 elreldm 4588 . . . 4  |-  ( ( Rel  F  /\  y  e.  F )  ->  |^| |^| y  e.  dom  F )
98ex 112 . . 3  |-  ( Rel 
F  ->  ( y  e.  F  ->  |^| |^| y  e.  dom  F ) )
107, 9syl 14 . 2  |-  ( Fun 
F  ->  ( y  e.  F  ->  |^| |^| y  e.  dom  F ) )
11 df-rel 4380 . . . . . . . . 9  |-  ( Rel 
F  <->  F  C_  ( _V 
X.  _V ) )
127, 11sylib 131 . . . . . . . 8  |-  ( Fun 
F  ->  F  C_  ( _V  X.  _V ) )
1312sselda 2973 . . . . . . 7  |-  ( ( Fun  F  /\  y  e.  F )  ->  y  e.  ( _V  X.  _V ) )
14 elvv 4430 . . . . . . 7  |-  ( y  e.  ( _V  X.  _V )  <->  E. z E. w  y  =  <. z ,  w >. )
1513, 14sylib 131 . . . . . 6  |-  ( ( Fun  F  /\  y  e.  F )  ->  E. z E. w  y  =  <. z ,  w >. )
16 inteq 3646 . . . . . . . . . . . . . . . . 17  |-  ( y  =  <. z ,  w >.  ->  |^| y  =  |^| <.
z ,  w >. )
1716inteqd 3648 . . . . . . . . . . . . . . . 16  |-  ( y  =  <. z ,  w >.  ->  |^| |^| y  =  |^| |^|
<. z ,  w >. )
18 vex 2577 . . . . . . . . . . . . . . . . 17  |-  z  e. 
_V
19 vex 2577 . . . . . . . . . . . . . . . . 17  |-  w  e. 
_V
2018, 19op1stb 4237 . . . . . . . . . . . . . . . 16  |-  |^| |^| <. z ,  w >.  =  z
2117, 20syl6eq 2104 . . . . . . . . . . . . . . 15  |-  ( y  =  <. z ,  w >.  ->  |^| |^| y  =  z )
22 eqeq1 2062 . . . . . . . . . . . . . . 15  |-  ( x  =  |^| |^| y  ->  ( x  =  z  <->  |^| |^| y  =  z ) )
2321, 22syl5ibr 149 . . . . . . . . . . . . . 14  |-  ( x  =  |^| |^| y  ->  ( y  =  <. z ,  w >.  ->  x  =  z ) )
24 opeq1 3577 . . . . . . . . . . . . . 14  |-  ( x  =  z  ->  <. x ,  w >.  =  <. z ,  w >. )
2523, 24syl6 33 . . . . . . . . . . . . 13  |-  ( x  =  |^| |^| y  ->  ( y  =  <. z ,  w >.  ->  <. x ,  w >.  =  <. z ,  w >. )
)
2625imp 119 . . . . . . . . . . . 12  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  -> 
<. x ,  w >.  = 
<. z ,  w >. )
27 eqeq2 2065 . . . . . . . . . . . . . 14  |-  ( <.
x ,  w >.  = 
<. z ,  w >.  -> 
( y  =  <. x ,  w >.  <->  y  =  <. z ,  w >. ) )
2827biimprcd 153 . . . . . . . . . . . . 13  |-  ( y  =  <. z ,  w >.  ->  ( <. x ,  w >.  =  <. z ,  w >.  ->  y  =  <. x ,  w >. ) )
2928adantl 266 . . . . . . . . . . . 12  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  ->  ( <. x ,  w >.  =  <. z ,  w >.  ->  y  =  <. x ,  w >. )
)
3026, 29mpd 13 . . . . . . . . . . 11  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  ->  y  =  <. x ,  w >. )
3130ancoms 259 . . . . . . . . . 10  |-  ( ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y )  -> 
y  =  <. x ,  w >. )
3231adantl 266 . . . . . . . . 9  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  y  =  <. x ,  w >. )
3330eleq1d 2122 . . . . . . . . . . . . . . 15  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  ->  ( y  e.  F  <->  <.
x ,  w >.  e.  F ) )
3433adantl 266 . . . . . . . . . . . . . 14  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( y  e.  F  <->  <. x ,  w >.  e.  F ) )
35 funopfv 5241 . . . . . . . . . . . . . . 15  |-  ( Fun 
F  ->  ( <. x ,  w >.  e.  F  ->  ( F `  x
)  =  w ) )
3635adantr 265 . . . . . . . . . . . . . 14  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( <. x ,  w >.  e.  F  ->  ( F `  x
)  =  w ) )
3734, 36sylbid 143 . . . . . . . . . . . . 13  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( y  e.  F  ->  ( F `
 x )  =  w ) )
3837exp32 351 . . . . . . . . . . . 12  |-  ( Fun 
F  ->  ( x  =  |^| |^| y  ->  (
y  =  <. z ,  w >.  ->  ( y  e.  F  ->  ( F `  x )  =  w ) ) ) )
3938com24 85 . . . . . . . . . . 11  |-  ( Fun 
F  ->  ( y  e.  F  ->  ( y  =  <. z ,  w >.  ->  ( x  = 
|^| |^| y  ->  ( F `  x )  =  w ) ) ) )
4039imp43 341 . . . . . . . . . 10  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  ( F `  x )  =  w )
4140opeq2d 3584 . . . . . . . . 9  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  <. x ,  ( F `  x )
>.  =  <. x ,  w >. )
4232, 41eqtr4d 2091 . . . . . . . 8  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  y  =  <. x ,  ( F `  x ) >. )
4342exp32 351 . . . . . . 7  |-  ( ( Fun  F  /\  y  e.  F )  ->  (
y  =  <. z ,  w >.  ->  ( x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
) )
4443exlimdvv 1793 . . . . . 6  |-  ( ( Fun  F  /\  y  e.  F )  ->  ( E. z E. w  y  =  <. z ,  w >.  ->  ( x  = 
|^| |^| y  ->  y  =  <. x ,  ( F `  x )
>. ) ) )
4515, 44mpd 13 . . . . 5  |-  ( ( Fun  F  /\  y  e.  F )  ->  (
x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
)
4645adantrl 455 . . . 4  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
)
47 inteq 3646 . . . . . . . . 9  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  |^| y  =  |^| <.
x ,  ( F `
 x ) >.
)
4847inteqd 3648 . . . . . . . 8  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  |^| |^| y  =  |^| |^|
<. x ,  ( F `
 x ) >.
)
4948adantl 266 . . . . . . 7  |-  ( ( ( Fun  F  /\  x  e.  dom  F )  /\  y  =  <. x ,  ( F `  x ) >. )  ->  |^| |^| y  =  |^| |^|
<. x ,  ( F `
 x ) >.
)
50 vex 2577 . . . . . . . . 9  |-  x  e. 
_V
51 funfvex 5220 . . . . . . . . 9  |-  ( ( Fun  F  /\  x  e.  dom  F )  -> 
( F `  x
)  e.  _V )
52 op1stbg 4238 . . . . . . . . 9  |-  ( ( x  e.  _V  /\  ( F `  x )  e.  _V )  ->  |^| |^| <. x ,  ( F `  x )
>.  =  x )
5350, 51, 52sylancr 399 . . . . . . . 8  |-  ( ( Fun  F  /\  x  e.  dom  F )  ->  |^| |^| <. x ,  ( F `  x )
>.  =  x )
5453adantr 265 . . . . . . 7  |-  ( ( ( Fun  F  /\  x  e.  dom  F )  /\  y  =  <. x ,  ( F `  x ) >. )  ->  |^| |^| <. x ,  ( F `  x )
>.  =  x )
5549, 54eqtr2d 2089 . . . . . 6  |-  ( ( ( Fun  F  /\  x  e.  dom  F )  /\  y  =  <. x ,  ( F `  x ) >. )  ->  x  =  |^| |^| y
)
5655ex 112 . . . . 5  |-  ( ( Fun  F  /\  x  e.  dom  F )  -> 
( y  =  <. x ,  ( F `  x ) >.  ->  x  =  |^| |^| y ) )
5756adantrr 456 . . . 4  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
y  =  <. x ,  ( F `  x ) >.  ->  x  =  |^| |^| y ) )
5846, 57impbid 124 . . 3  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
x  =  |^| |^| y  <->  y  =  <. x ,  ( F `  x )
>. ) )
5958ex 112 . 2  |-  ( Fun 
F  ->  ( (
x  e.  dom  F  /\  y  e.  F
)  ->  ( x  =  |^| |^| y  <->  y  =  <. x ,  ( F `
 x ) >.
) ) )
603, 4, 6, 10, 59en3d 6280 1  |-  ( Fun 
F  ->  dom  F  ~~  F )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 101    <-> wb 102    = wceq 1259   E.wex 1397    e. wcel 1409   _Vcvv 2574    C_ wss 2945   <.cop 3406   |^|cint 3643   class class class wbr 3792    X. cxp 4371   dom cdm 4373   Rel wrel 4378   Fun wfun 4924   ` cfv 4930    ~~ cen 6250
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 103  ax-ia2 104  ax-ia3 105  ax-io 640  ax-5 1352  ax-7 1353  ax-gen 1354  ax-ie1 1398  ax-ie2 1399  ax-8 1411  ax-10 1412  ax-11 1413  ax-i12 1414  ax-bndl 1415  ax-4 1416  ax-13 1420  ax-14 1421  ax-17 1435  ax-i9 1439  ax-ial 1443  ax-i5r 1444  ax-ext 2038  ax-sep 3903  ax-pow 3955  ax-pr 3972  ax-un 4198
This theorem depends on definitions:  df-bi 114  df-3an 898  df-tru 1262  df-nf 1366  df-sb 1662  df-eu 1919  df-mo 1920  df-clab 2043  df-cleq 2049  df-clel 2052  df-nfc 2183  df-ral 2328  df-rex 2329  df-v 2576  df-sbc 2788  df-un 2950  df-in 2952  df-ss 2959  df-pw 3389  df-sn 3409  df-pr 3410  df-op 3412  df-uni 3609  df-int 3644  df-br 3793  df-opab 3847  df-mpt 3848  df-id 4058  df-xp 4379  df-rel 4380  df-cnv 4381  df-co 4382  df-dm 4383  df-rn 4384  df-iota 4895  df-fun 4932  df-fn 4933  df-f 4934  df-f1 4935  df-fo 4936  df-f1o 4937  df-fv 4938  df-en 6253
This theorem is referenced by:  fundmeng  6318
  Copyright terms: Public domain W3C validator