Step | Hyp | Ref
| Expression |
1 | | snfi 9040 |
. 2
β’ { 0 } β
Fin |
2 | | simpll 765 |
. . . 4
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β Fun πΉ) |
3 | | simplr 767 |
. . . 4
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β πΉ β π) |
4 | | simprl 769 |
. . . 4
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β 0 β π) |
5 | | ressupprn 31899 |
. . . 4
β’ ((Fun
πΉ β§ πΉ β π β§ 0 β π) β ran (πΉ βΎ (πΉ supp 0 )) = (ran πΉ β { 0 })) |
6 | 2, 3, 4, 5 | syl3anc 1371 |
. . 3
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β ran (πΉ βΎ (πΉ supp 0 )) = (ran πΉ β { 0 })) |
7 | | simprr 771 |
. . . . 5
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β πΉ finSupp 0 ) |
8 | 7 | fsuppimpd 9365 |
. . . 4
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β (πΉ supp 0 ) β
Fin) |
9 | | suppssdm 8158 |
. . . . . 6
β’ (πΉ supp 0 ) β dom πΉ |
10 | | ssdmres 6002 |
. . . . . 6
β’ ((πΉ supp 0 ) β dom πΉ β dom (πΉ βΎ (πΉ supp 0 )) = (πΉ supp 0 )) |
11 | 9, 10 | mpbi 229 |
. . . . 5
β’ dom
(πΉ βΎ (πΉ supp 0 )) = (πΉ supp 0 ) |
12 | 2 | funresd 6588 |
. . . . . 6
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β Fun (πΉ βΎ (πΉ supp 0 ))) |
13 | | funforn 6809 |
. . . . . 6
β’ (Fun
(πΉ βΎ (πΉ supp 0 )) β (πΉ βΎ (πΉ supp 0 )):dom (πΉ βΎ (πΉ supp 0 ))βontoβran (πΉ βΎ (πΉ supp 0 ))) |
14 | 12, 13 | sylib 217 |
. . . . 5
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β (πΉ βΎ (πΉ supp 0 )):dom (πΉ βΎ (πΉ supp 0 ))βontoβran (πΉ βΎ (πΉ supp 0 ))) |
15 | | foeq2 6799 |
. . . . . 6
β’ (dom
(πΉ βΎ (πΉ supp 0 )) = (πΉ supp 0 ) β ((πΉ βΎ (πΉ supp 0 )):dom (πΉ βΎ (πΉ supp 0 ))βontoβran (πΉ βΎ (πΉ supp 0 )) β (πΉ βΎ (πΉ supp 0 )):(πΉ supp 0 )βontoβran (πΉ βΎ (πΉ supp 0 )))) |
16 | 15 | biimpa 477 |
. . . . 5
β’ ((dom
(πΉ βΎ (πΉ supp 0 )) = (πΉ supp 0 ) β§ (πΉ βΎ (πΉ supp 0 )):dom (πΉ βΎ (πΉ supp 0 ))βontoβran (πΉ βΎ (πΉ supp 0 ))) β (πΉ βΎ (πΉ supp 0 )):(πΉ supp 0 )βontoβran (πΉ βΎ (πΉ supp 0 ))) |
17 | 11, 14, 16 | sylancr 587 |
. . . 4
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β (πΉ βΎ (πΉ supp 0 )):(πΉ supp 0 )βontoβran (πΉ βΎ (πΉ supp 0 ))) |
18 | | fofi 9334 |
. . . 4
β’ (((πΉ supp 0 ) β Fin β§ (πΉ βΎ (πΉ supp 0 )):(πΉ supp 0 )βontoβran (πΉ βΎ (πΉ supp 0 ))) β ran (πΉ βΎ (πΉ supp 0 )) β
Fin) |
19 | 8, 17, 18 | syl2anc 584 |
. . 3
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β ran (πΉ βΎ (πΉ supp 0 )) β
Fin) |
20 | 6, 19 | eqeltrrd 2834 |
. 2
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β (ran πΉ β { 0 }) β
Fin) |
21 | | diffib 31746 |
. . 3
β’ ({ 0 } β Fin
β (ran πΉ β Fin
β (ran πΉ β {
0 })
β Fin)) |
22 | 21 | biimpar 478 |
. 2
β’ (({ 0 } β Fin
β§ (ran πΉ β {
0 })
β Fin) β ran πΉ
β Fin) |
23 | 1, 20, 22 | sylancr 587 |
1
β’ (((Fun
πΉ β§ πΉ β π) β§ ( 0 β π β§ πΉ finSupp 0 )) β ran πΉ β Fin) |