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

Theorem fundmen 6668
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 4775 . . 3  |-  dom  F  e.  _V
32a1i 9 . 2  |-  ( Fun 
F  ->  dom  F  e. 
_V )
41a1i 9 . 2  |-  ( Fun 
F  ->  F  e.  _V )
5 funfvop 5500 . . 3  |-  ( ( Fun  F  /\  x  e.  dom  F )  ->  <. x ,  ( F `
 x ) >.  e.  F )
65ex 114 . 2  |-  ( Fun 
F  ->  ( x  e.  dom  F  ->  <. x ,  ( F `  x ) >.  e.  F
) )
7 funrel 5110 . . 3  |-  ( Fun 
F  ->  Rel  F )
8 elreldm 4735 . . . 4  |-  ( ( Rel  F  /\  y  e.  F )  ->  |^| |^| y  e.  dom  F )
98ex 114 . . 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 4516 . . . . . . . . 9  |-  ( Rel 
F  <->  F  C_  ( _V 
X.  _V ) )
127, 11sylib 121 . . . . . . . 8  |-  ( Fun 
F  ->  F  C_  ( _V  X.  _V ) )
1312sselda 3067 . . . . . . 7  |-  ( ( Fun  F  /\  y  e.  F )  ->  y  e.  ( _V  X.  _V ) )
14 elvv 4571 . . . . . . 7  |-  ( y  e.  ( _V  X.  _V )  <->  E. z E. w  y  =  <. z ,  w >. )
1513, 14sylib 121 . . . . . 6  |-  ( ( Fun  F  /\  y  e.  F )  ->  E. z E. w  y  =  <. z ,  w >. )
16 inteq 3744 . . . . . . . . . . . . . . . . 17  |-  ( y  =  <. z ,  w >.  ->  |^| y  =  |^| <.
z ,  w >. )
1716inteqd 3746 . . . . . . . . . . . . . . . 16  |-  ( y  =  <. z ,  w >.  ->  |^| |^| y  =  |^| |^|
<. z ,  w >. )
18 vex 2663 . . . . . . . . . . . . . . . . 17  |-  z  e. 
_V
19 vex 2663 . . . . . . . . . . . . . . . . 17  |-  w  e. 
_V
2018, 19op1stb 4369 . . . . . . . . . . . . . . . 16  |-  |^| |^| <. z ,  w >.  =  z
2117, 20syl6eq 2166 . . . . . . . . . . . . . . 15  |-  ( y  =  <. z ,  w >.  ->  |^| |^| y  =  z )
22 eqeq1 2124 . . . . . . . . . . . . . . 15  |-  ( x  =  |^| |^| y  ->  ( x  =  z  <->  |^| |^| y  =  z ) )
2321, 22syl5ibr 155 . . . . . . . . . . . . . 14  |-  ( x  =  |^| |^| y  ->  ( y  =  <. z ,  w >.  ->  x  =  z ) )
24 opeq1 3675 . . . . . . . . . . . . . 14  |-  ( x  =  z  ->  <. x ,  w >.  =  <. z ,  w >. )
2523, 24syl6 33 . . . . . . . . . . . . 13  |-  ( x  =  |^| |^| y  ->  ( y  =  <. z ,  w >.  ->  <. x ,  w >.  =  <. z ,  w >. )
)
2625imp 123 . . . . . . . . . . . 12  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  -> 
<. x ,  w >.  = 
<. z ,  w >. )
27 eqeq2 2127 . . . . . . . . . . . . . 14  |-  ( <.
x ,  w >.  = 
<. z ,  w >.  -> 
( y  =  <. x ,  w >.  <->  y  =  <. z ,  w >. ) )
2827biimprcd 159 . . . . . . . . . . . . 13  |-  ( y  =  <. z ,  w >.  ->  ( <. x ,  w >.  =  <. z ,  w >.  ->  y  =  <. x ,  w >. ) )
2928adantl 275 . . . . . . . . . . . 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 266 . . . . . . . . . 10  |-  ( ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y )  -> 
y  =  <. x ,  w >. )
3231adantl 275 . . . . . . . . 9  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  y  =  <. x ,  w >. )
3330eleq1d 2186 . . . . . . . . . . . . . . 15  |-  ( ( x  =  |^| |^| y  /\  y  =  <. z ,  w >. )  ->  ( y  e.  F  <->  <.
x ,  w >.  e.  F ) )
3433adantl 275 . . . . . . . . . . . . . 14  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( y  e.  F  <->  <. x ,  w >.  e.  F ) )
35 funopfv 5429 . . . . . . . . . . . . . . 15  |-  ( Fun 
F  ->  ( <. x ,  w >.  e.  F  ->  ( F `  x
)  =  w ) )
3635adantr 274 . . . . . . . . . . . . . 14  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( <. x ,  w >.  e.  F  ->  ( F `  x
)  =  w ) )
3734, 36sylbid 149 . . . . . . . . . . . . 13  |-  ( ( Fun  F  /\  (
x  =  |^| |^| y  /\  y  =  <. z ,  w >. )
)  ->  ( y  e.  F  ->  ( F `
 x )  =  w ) )
3837exp32 362 . . . . . . . . . . . 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 352 . . . . . . . . . 10  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  ( F `  x )  =  w )
4140opeq2d 3682 . . . . . . . . 9  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  <. x ,  ( F `  x )
>.  =  <. x ,  w >. )
4232, 41eqtr4d 2153 . . . . . . . 8  |-  ( ( ( Fun  F  /\  y  e.  F )  /\  ( y  =  <. z ,  w >.  /\  x  =  |^| |^| y ) )  ->  y  =  <. x ,  ( F `  x ) >. )
4342exp32 362 . . . . . . 7  |-  ( ( Fun  F  /\  y  e.  F )  ->  (
y  =  <. z ,  w >.  ->  ( x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
) )
4443exlimdvv 1853 . . . . . 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 469 . . . 4  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
x  =  |^| |^| y  ->  y  =  <. x ,  ( F `  x ) >. )
)
47 inteq 3744 . . . . . . . . 9  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  |^| y  =  |^| <.
x ,  ( F `
 x ) >.
)
4847inteqd 3746 . . . . . . . 8  |-  ( y  =  <. x ,  ( F `  x )
>.  ->  |^| |^| y  =  |^| |^|
<. x ,  ( F `
 x ) >.
)
4948adantl 275 . . . . . . 7  |-  ( ( ( Fun  F  /\  x  e.  dom  F )  /\  y  =  <. x ,  ( F `  x ) >. )  ->  |^| |^| y  =  |^| |^|
<. x ,  ( F `
 x ) >.
)
50 vex 2663 . . . . . . . . 9  |-  x  e. 
_V
51 funfvex 5406 . . . . . . . . 9  |-  ( ( Fun  F  /\  x  e.  dom  F )  -> 
( F `  x
)  e.  _V )
52 op1stbg 4370 . . . . . . . . 9  |-  ( ( x  e.  _V  /\  ( F `  x )  e.  _V )  ->  |^| |^| <. x ,  ( F `  x )
>.  =  x )
5350, 51, 52sylancr 410 . . . . . . . 8  |-  ( ( Fun  F  /\  x  e.  dom  F )  ->  |^| |^| <. x ,  ( F `  x )
>.  =  x )
5453adantr 274 . . . . . . 7  |-  ( ( ( Fun  F  /\  x  e.  dom  F )  /\  y  =  <. x ,  ( F `  x ) >. )  ->  |^| |^| <. x ,  ( F `  x )
>.  =  x )
5549, 54eqtr2d 2151 . . . . . 6  |-  ( ( ( Fun  F  /\  x  e.  dom  F )  /\  y  =  <. x ,  ( F `  x ) >. )  ->  x  =  |^| |^| y
)
5655ex 114 . . . . 5  |-  ( ( Fun  F  /\  x  e.  dom  F )  -> 
( y  =  <. x ,  ( F `  x ) >.  ->  x  =  |^| |^| y ) )
5756adantrr 470 . . . 4  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
y  =  <. x ,  ( F `  x ) >.  ->  x  =  |^| |^| y ) )
5846, 57impbid 128 . . 3  |-  ( ( Fun  F  /\  (
x  e.  dom  F  /\  y  e.  F
) )  ->  (
x  =  |^| |^| y  <->  y  =  <. x ,  ( F `  x )
>. ) )
5958ex 114 . 2  |-  ( Fun 
F  ->  ( (
x  e.  dom  F  /\  y  e.  F
)  ->  ( x  =  |^| |^| y  <->  y  =  <. x ,  ( F `
 x ) >.
) ) )
603, 4, 6, 10, 59en3d 6631 1  |-  ( Fun 
F  ->  dom  F  ~~  F )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103    <-> wb 104    = wceq 1316   E.wex 1453    e. wcel 1465   _Vcvv 2660    C_ wss 3041   <.cop 3500   |^|cint 3741   class class class wbr 3899    X. cxp 4507   dom cdm 4509   Rel wrel 4514   Fun wfun 5087   ` cfv 5093    ~~ cen 6600
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 683  ax-5 1408  ax-7 1409  ax-gen 1410  ax-ie1 1454  ax-ie2 1455  ax-8 1467  ax-10 1468  ax-11 1469  ax-i12 1470  ax-bndl 1471  ax-4 1472  ax-13 1476  ax-14 1477  ax-17 1491  ax-i9 1495  ax-ial 1499  ax-i5r 1500  ax-ext 2099  ax-sep 4016  ax-pow 4068  ax-pr 4101  ax-un 4325
This theorem depends on definitions:  df-bi 116  df-3an 949  df-tru 1319  df-nf 1422  df-sb 1721  df-eu 1980  df-mo 1981  df-clab 2104  df-cleq 2110  df-clel 2113  df-nfc 2247  df-ral 2398  df-rex 2399  df-v 2662  df-sbc 2883  df-un 3045  df-in 3047  df-ss 3054  df-pw 3482  df-sn 3503  df-pr 3504  df-op 3506  df-uni 3707  df-int 3742  df-br 3900  df-opab 3960  df-mpt 3961  df-id 4185  df-xp 4515  df-rel 4516  df-cnv 4517  df-co 4518  df-dm 4519  df-rn 4520  df-iota 5058  df-fun 5095  df-fn 5096  df-f 5097  df-f1 5098  df-fo 5099  df-f1o 5100  df-fv 5101  df-en 6603
This theorem is referenced by:  fundmeng  6669
  Copyright terms: Public domain W3C validator