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

Theorem fipreima 7605
Description: Given a finite subset  A of the range of a function, there exists a finite subset of the domain whose image is  A. (Contributed by Jeff Madsen, 2-Sep-2009.) (Revised by Stefan O'Rear, 22-Feb-2015.)
Assertion
Ref Expression
fipreima  |-  ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  ->  E. c  e.  ( ~P B  i^i  Fin ) ( F "
c )  =  A )
Distinct variable groups:    A, c    B, c    F, c

Proof of Theorem fipreima
Dummy variables  f  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simp3 983 . . 3  |-  ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  ->  A  e.  Fin )
2 dfss3 3334 . . . . . 6  |-  ( A 
C_  ran  F  <->  A. x  e.  A  x  e.  ran  F )
3 fvelrnb 5727 . . . . . . 7  |-  ( F  Fn  B  ->  (
x  e.  ran  F  <->  E. y  e.  B  ( F `  y )  =  x ) )
43ralbidv 2725 . . . . . 6  |-  ( F  Fn  B  ->  ( A. x  e.  A  x  e.  ran  F  <->  A. x  e.  A  E. y  e.  B  ( F `  y )  =  x ) )
52, 4syl5bb 257 . . . . 5  |-  ( F  Fn  B  ->  ( A  C_  ran  F  <->  A. x  e.  A  E. y  e.  B  ( F `  y )  =  x ) )
65biimpa 481 . . . 4  |-  ( ( F  Fn  B  /\  A  C_  ran  F )  ->  A. x  e.  A  E. y  e.  B  ( F `  y )  =  x )
763adant3 1001 . . 3  |-  ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  ->  A. x  e.  A  E. y  e.  B  ( F `  y )  =  x )
8 fveq2 5679 . . . . 5  |-  ( y  =  ( f `  x )  ->  ( F `  y )  =  ( F `  ( f `  x
) ) )
98eqeq1d 2441 . . . 4  |-  ( y  =  ( f `  x )  ->  (
( F `  y
)  =  x  <->  ( F `  ( f `  x
) )  =  x ) )
109ac6sfi 7544 . . 3  |-  ( ( A  e.  Fin  /\  A. x  e.  A  E. y  e.  B  ( F `  y )  =  x )  ->  E. f
( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x
) )  =  x ) )
111, 7, 10syl2anc 654 . 2  |-  ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  ->  E. f ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `
 x ) )  =  x ) )
12 imassrn 5168 . . . . . . 7  |-  ( f
" A )  C_  ran  f
13 frn 5553 . . . . . . 7  |-  ( f : A --> B  ->  ran  f  C_  B )
1412, 13syl5ss 3355 . . . . . 6  |-  ( f : A --> B  -> 
( f " A
)  C_  B )
15 vex 2965 . . . . . . . 8  |-  f  e. 
_V
16 imaexg 6504 . . . . . . . 8  |-  ( f  e.  _V  ->  (
f " A )  e.  _V )
1715, 16ax-mp 5 . . . . . . 7  |-  ( f
" A )  e. 
_V
1817elpw 3854 . . . . . 6  |-  ( ( f " A )  e.  ~P B  <->  ( f " A )  C_  B
)
1914, 18sylibr 212 . . . . 5  |-  ( f : A --> B  -> 
( f " A
)  e.  ~P B
)
2019ad2antrl 720 . . . 4  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
( f " A
)  e.  ~P B
)
21 ffun 5549 . . . . . 6  |-  ( f : A --> B  ->  Fun  f )
2221ad2antrl 720 . . . . 5  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  ->  Fun  f )
23 simpl3 986 . . . . 5  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  ->  A  e.  Fin )
24 imafi 7592 . . . . 5  |-  ( ( Fun  f  /\  A  e.  Fin )  ->  (
f " A )  e.  Fin )
2522, 23, 24syl2anc 654 . . . 4  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
( f " A
)  e.  Fin )
2620, 25elind 3528 . . 3  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
( f " A
)  e.  ( ~P B  i^i  Fin )
)
27 fvco3 5756 . . . . . . . . . . 11  |-  ( ( f : A --> B  /\  x  e.  A )  ->  ( ( F  o.  f ) `  x
)  =  ( F `
 ( f `  x ) ) )
28 fvresi 5891 . . . . . . . . . . . 12  |-  ( x  e.  A  ->  (
(  _I  |`  A ) `
 x )  =  x )
2928adantl 463 . . . . . . . . . . 11  |-  ( ( f : A --> B  /\  x  e.  A )  ->  ( (  _I  |`  A ) `
 x )  =  x )
3027, 29eqeq12d 2447 . . . . . . . . . 10  |-  ( ( f : A --> B  /\  x  e.  A )  ->  ( ( ( F  o.  f ) `  x )  =  ( (  _I  |`  A ) `
 x )  <->  ( F `  ( f `  x
) )  =  x ) )
3130ralbidva 2721 . . . . . . . . 9  |-  ( f : A --> B  -> 
( A. x  e.  A  ( ( F  o.  f ) `  x )  =  ( (  _I  |`  A ) `
 x )  <->  A. x  e.  A  ( F `  ( f `  x
) )  =  x ) )
3231biimprd 223 . . . . . . . 8  |-  ( f : A --> B  -> 
( A. x  e.  A  ( F `  ( f `  x
) )  =  x  ->  A. x  e.  A  ( ( F  o.  f ) `  x
)  =  ( (  _I  |`  A ) `  x ) ) )
3332adantl 463 . . . . . . 7  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  f : A --> B )  ->  ( A. x  e.  A  ( F `  ( f `
 x ) )  =  x  ->  A. x  e.  A  ( ( F  o.  f ) `  x )  =  ( (  _I  |`  A ) `
 x ) ) )
3433impr 614 . . . . . 6  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  ->  A. x  e.  A  ( ( F  o.  f ) `  x
)  =  ( (  _I  |`  A ) `  x ) )
35 simpl1 984 . . . . . . . 8  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  ->  F  Fn  B )
36 ffn 5547 . . . . . . . . 9  |-  ( f : A --> B  -> 
f  Fn  A )
3736ad2antrl 720 . . . . . . . 8  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
f  Fn  A )
3813ad2antrl 720 . . . . . . . 8  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  ->  ran  f  C_  B )
39 fnco 5507 . . . . . . . 8  |-  ( ( F  Fn  B  /\  f  Fn  A  /\  ran  f  C_  B )  ->  ( F  o.  f )  Fn  A
)
4035, 37, 38, 39syl3anc 1211 . . . . . . 7  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
( F  o.  f
)  Fn  A )
41 fnresi 5516 . . . . . . 7  |-  (  _I  |`  A )  Fn  A
42 eqfnfv 5785 . . . . . . 7  |-  ( ( ( F  o.  f
)  Fn  A  /\  (  _I  |`  A )  Fn  A )  -> 
( ( F  o.  f )  =  (  _I  |`  A )  <->  A. x  e.  A  ( ( F  o.  f
) `  x )  =  ( (  _I  |`  A ) `  x
) ) )
4340, 41, 42sylancl 655 . . . . . 6  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
( ( F  o.  f )  =  (  _I  |`  A )  <->  A. x  e.  A  ( ( F  o.  f
) `  x )  =  ( (  _I  |`  A ) `  x
) ) )
4434, 43mpbird 232 . . . . 5  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
( F  o.  f
)  =  (  _I  |`  A ) )
4544imaeq1d 5156 . . . 4  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
( ( F  o.  f ) " A
)  =  ( (  _I  |`  A ) " A ) )
46 imaco 5331 . . . 4  |-  ( ( F  o.  f )
" A )  =  ( F " (
f " A ) )
47 ssid 3363 . . . . 5  |-  A  C_  A
48 resiima 5171 . . . . 5  |-  ( A 
C_  A  ->  (
(  _I  |`  A )
" A )  =  A )
4947, 48ax-mp 5 . . . 4  |-  ( (  _I  |`  A ) " A )  =  A
5045, 46, 493eqtr3g 2488 . . 3  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  -> 
( F " (
f " A ) )  =  A )
51 imaeq2 5153 . . . . 5  |-  ( c  =  ( f " A )  ->  ( F " c )  =  ( F " (
f " A ) ) )
5251eqeq1d 2441 . . . 4  |-  ( c  =  ( f " A )  ->  (
( F " c
)  =  A  <->  ( F " ( f " A
) )  =  A ) )
5352rspcev 3062 . . 3  |-  ( ( ( f " A
)  e.  ( ~P B  i^i  Fin )  /\  ( F " (
f " A ) )  =  A )  ->  E. c  e.  ( ~P B  i^i  Fin ) ( F "
c )  =  A )
5426, 50, 53syl2anc 654 . 2  |-  ( ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  /\  ( f : A --> B  /\  A. x  e.  A  ( F `  ( f `  x ) )  =  x ) )  ->  E. c  e.  ( ~P B  i^i  Fin )
( F " c
)  =  A )
5511, 54exlimddv 1691 1  |-  ( ( F  Fn  B  /\  A  C_  ran  F  /\  A  e.  Fin )  ->  E. c  e.  ( ~P B  i^i  Fin ) ( F "
c )  =  A )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 958    = wceq 1362   E.wex 1589    e. wcel 1755   A.wral 2705   E.wrex 2706   _Vcvv 2962    i^i cin 3315    C_ wss 3316   ~Pcpw 3848    _I cid 4618   ran crn 4828    |` cres 4829   "cima 4830    o. ccom 4831   Fun wfun 5400    Fn wfn 5401   -->wf 5402   ` cfv 5406   Fincfn 7298
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1594  ax-4 1605  ax-5 1669  ax-6 1707  ax-7 1727  ax-8 1757  ax-9 1759  ax-10 1774  ax-11 1779  ax-12 1791  ax-13 1942  ax-ext 2414  ax-sep 4401  ax-nul 4409  ax-pow 4458  ax-pr 4519  ax-un 6361
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 959  df-3an 960  df-tru 1365  df-ex 1590  df-nf 1593  df-sb 1700  df-eu 2258  df-mo 2259  df-clab 2420  df-cleq 2426  df-clel 2429  df-nfc 2558  df-ne 2598  df-ral 2710  df-rex 2711  df-reu 2712  df-rab 2714  df-v 2964  df-sbc 3176  df-csb 3277  df-dif 3319  df-un 3321  df-in 3323  df-ss 3330  df-pss 3332  df-nul 3626  df-if 3780  df-pw 3850  df-sn 3866  df-pr 3868  df-tp 3870  df-op 3872  df-uni 4080  df-br 4281  df-opab 4339  df-mpt 4340  df-tr 4374  df-eprel 4619  df-id 4623  df-po 4628  df-so 4629  df-fr 4666  df-we 4668  df-ord 4709  df-on 4710  df-lim 4711  df-suc 4712  df-xp 4833  df-rel 4834  df-cnv 4835  df-co 4836  df-dm 4837  df-rn 4838  df-res 4839  df-ima 4840  df-iota 5369  df-fun 5408  df-fn 5409  df-f 5410  df-f1 5411  df-fo 5412  df-f1o 5413  df-fv 5414  df-om 6466  df-1o 6908  df-er 7089  df-en 7299  df-dom 7300  df-fin 7302
This theorem is referenced by:  fodomfi2  8218  cmpfi  18852  elrfirn  28873  lmhmfgsplit  29281  hbtlem6  29327
  Copyright terms: Public domain W3C validator