HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem fundmen 4409
Description: A function is equinumerous to its domain. Exercise 4 of [Suppes] p. 98.
Hypothesis
Ref Expression
fundmen.1 |- F e. V
Assertion
Ref Expression
fundmen |- (Fun F -> dom F ~~ F)

Proof of Theorem fundmen
StepHypRef Expression
1 fundmen.1 . . . 4 |- F e. V
2 dmexg 3344 . . . 4 |- (F e. V -> dom F e. V)
31, 2ax-mp 7 . . 3 |- dom F e. V
43a1i 8 . 2 |- (Fun F -> dom F e. V)
5 funfvop 3788 . . 3 |- ((Fun F /\ x e. dom F) -> <.x, (F` x)>. e. F)
65ex 373 . 2 |- (Fun F -> (x e. dom F -> <.x, (F` x)>. e. F))
7 funrel 3519 . . 3 |- (Fun F -> Rel F)
8 elreldm 3327 . . . 4 |- ((Rel F /\ y e. F) -> |^||^|y e. dom F)
98ex 373 . . 3 |- (Rel F -> (y e. F -> |^||^|y e. dom F))
107, 9syl 10 . 2 |- (Fun F -> (y e. F -> |^||^|y e. dom F))
11 ssel2 2054 . . . . . . . 8 |- ((F (_ (V X. V) /\ y e. F) -> y e. (V X. V))
12 df-rel 3175 . . . . . . . . 9 |- (Rel F <-> F (_ (V X. V))
137, 12sylib 198 . . . . . . . 8 |- (Fun F -> F (_ (V X. V))
1411, 13sylan 448 . . . . . . 7 |- ((Fun F /\ y e. F) -> y e. (V X. V))
15 elvv 3218 . . . . . . 7 |- (y e. (V X. V) <-> E.zE.w y = <.z, w>.)
1614, 15sylib 198 . . . . . 6 |- ((Fun F /\ y e. F) -> E.zE.w y = <.z, w>.)
17 eqeq1 1473 . . . . . . . . . . . . . . 15 |- (x = |^||^|y -> (x = z <-> |^||^|y = z))
18 inteq 2526 . . . . . . . . . . . . . . . . 17 |- (y = <.z, w>. -> |^|y = |^|<.z, w>.)
1918inteqd 2528 . . . . . . . . . . . . . . . 16 |- (y = <.z, w>. -> |^||^|y = |^||^|<.z, w>.)
20 visset 1804 . . . . . . . . . . . . . . . . 17 |- z e. V
2120op1stb 2903 . . . . . . . . . . . . . . . 16 |- |^||^|<.z, w>. = z
2219, 21syl6eq 1515 . . . . . . . . . . . . . . 15 |- (y = <.z, w>. -> |^||^|y = z)
2317, 22syl5bir 210 . . . . . . . . . . . . . 14 |- (x = |^||^|y -> (y = <.z, w>. -> x = z))
24 opeq1 2478 . . . . . . . . . . . . . 14 |- (x = z -> <.x, w>. = <.z, w>.)
2523, 24syl6 22 . . . . . . . . . . . . 13 |- (x = |^||^|y -> (y = <.z, w>. -> <.x, w>. = <.z, w>.))
2625imp 350 . . . . . . . . . . . 12 |- ((x = |^||^|y /\ y = <.z, w>.) -> <.x, w>. = <.z, w>.)
27 eqeq2 1476 . . . . . . . . . . . . . 14 |- (<.x, w>. = <.z, w>. -> (y = <.x, w>. <-> y = <.z, w>.))
2827biimprcd 156 . . . . . . . . . . . . 13 |- (y = <.z, w>. -> (<.x, w>. = <.z, w>. -> y = <.x, w>.))
2928adantl 388 . . . . . . . . . . . 12 |- ((x = |^||^|y /\ y = <.z, w>.) -> (<.x, w>. = <.z, w>. -> y = <.x, w>.))
3026, 29mpd 26 . . . . . . . . . . 11 |- ((x = |^||^|y /\ y = <.z, w>.) -> y = <.x, w>.)
3130ancoms 436 . . . . . . . . . 10 |- ((y = <.z, w>. /\ x = |^||^|y) -> y = <.x, w>.)
3231adantl 388 . . . . . . . . 9 |- (((Fun F /\ y e. F) /\ (y = <.z, w>. /\ x = |^||^|y)) -> y = <.x, w>.)
3330eleq1d 1532 . . . . . . . . . . . . . . 15 |- ((x = |^||^|y /\ y = <.z, w>.) -> (y e. F <-> <.x, w>. e. F))
3433adantl 388 . . . . . . . . . . . . . 14 |- ((Fun F /\ (x = |^||^|y /\ y = <.z, w>.)) -> (y e. F <-> <.x, w>. e. F))
35 visset 1804 . . . . . . . . . . . . . . . 16 |- w e. V
3635funopfv 3736 . . . . . . . . . . . . . . 15 |- (Fun F -> (<.x, w>. e. F -> (F` x) = w))
3736adantr 389 . . . . . . . . . . . . . 14 |- ((Fun F /\ (x = |^||^|y /\ y = <.z, w>.)) -> (<.x, w>. e. F -> (F` x) = w))
3834, 37sylbid 203 . . . . . . . . . . . . 13 |- ((Fun F /\ (x = |^||^|y /\ y = <.z, w>.)) -> (y e. F -> (F` x) = w))
3938exp32 377 . . . . . . . . . . . 12 |- (Fun F -> (x = |^||^|y -> (y = <.z, w>. -> (y e. F -> (F` x) = w))))
4039com24 37 . . . . . . . . . . 11 |- (Fun F -> (y e. F -> (y = <.z, w>. -> (x = |^||^|y -> (F` x) = w))))
4140imp43 370 . . . . . . . . . 10 |- (((Fun F /\ y e. F) /\ (y = <.z, w>. /\ x = |^||^|y)) -> (F` x) = w)
4241opeq2d 2485 . . . . . . . . 9 |- (((Fun F /\ y e. F) /\ (y = <.z, w>. /\ x = |^||^|y)) -> <.x, (F` x)>. = <.x, w>.)
4332, 42eqtr4d 1502 . . . . . . . 8 |- (((Fun F /\ y e. F) /\ (y = <.z, w>. /\ x = |^||^|y)) -> y = <.x, (F` x)>.)
4443exp32 377 . . . . . . 7 |- ((Fun F /\ y e. F) -> (y = <.z, w>. -> (x = |^||^|y -> y = <.x, (F` x)>.)))
454419.23advv 1292 . . . . . 6 |- ((Fun F /\ y e. F) -> (E.zE.w y = <.z, w>. -> (x = |^||^|y -> y = <.x, (F` x)>.)))
4616, 45mpd 26 . . . . 5 |- ((Fun F /\ y e. F) -> (x = |^||^|y -> y = <.x, (F` x)>.))
4746adantrl 394 . . . 4 |- ((Fun F /\ (x e. dom F /\ y e. F)) -> (x = |^||^|y -> y = <.x, (F` x)>.))
48 inteq 2526 . . . . . 6 |- (y = <.x, (F` x)>. -> |^|y = |^|<.x, (F` x)>.)
4948inteqd 2528 . . . . 5 |- (y = <.x, (F` x)>. -> |^||^|y = |^||^|<.x, (F` x)>.)
50 visset 1804 . . . . . 6 |- x e. V
5150op1stb 2903 . . . . 5 |- |^||^|<.x, (F` x)>. = x
5249, 51syl6req 1516 . . . 4 |- (y = <.x, (F` x)>. -> x = |^||^|y)
5347, 52impbid1 515 . . 3 |- ((Fun F /\ (x e. dom F /\ y e. F)) -> (x = |^||^|y <-> y = <.x, (F` x)>.))
5453ex 373 . 2 |- (Fun F -> ((x e. dom F /\ y e. F) -> (x = |^||^|y <-> y = <.x, (F` x)>.)))
554, 6, 10, 54en3d 4382 1 |- (Fun F -> dom F ~~ F)
Colors of variables: wff set class
Syntax hints:   -> wi 3   <-> wb 146   /\ wa 223   = wceq 953   e. wcel 955  E.wex 977  Vcvv 1802   (_ wss 2037  <.cop 2401  |^|cint 2523   class class class wbr 2609   X. cxp 3158  dom cdm 3160  Rel wrel 3165  Fun wfun 3166  ` cfv 3172   ~~ cen 4348
This theorem is referenced by:  infmap2 7523
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 959  ax-gen 960  ax-8 961  ax-9 962  ax-10 963  ax-11 964  ax-12 965  ax-13 966  ax-14 967  ax-17 968  ax-4 970  ax-5o 972  ax-6o 975  ax-9o 1119  ax-10o 1136  ax-16 1206  ax-11o 1213  ax-ext 1452  ax-rep 2683  ax-sep 2693  ax-pow 2732  ax-pr 2769  ax-un 2857
This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3an 775  df-ex 978  df-sb 1168  df-eu 1375  df-mo 1376  df-clab 1457  df-cleq 1462  df-clel 1465  df-ne 1579  df-ral 1641  df-rex 1642  df-v 1803  df-dif 2039  df-un 2040  df-in 2041  df-ss 2043  df-nul 2271  df-pw 2392  df-sn 2402  df-pr 2403  df-op 2406  df-uni 2494  df-int 2524  df-br 2610  df-opab 2657  df-id 2824  df-xp 3174  df-rel 3175  df-cnv 3176  df-co 3177  df-dm 3178  df-rn 3179  df-res 3180  df-ima 3181  df-fun 3182  df-fn 3183  df-f 3184  df-f1 3185  df-fo 3186  df-f1o 3187  df-fv 3188  df-en 4351
Copyright terms: Public domain