Step | Hyp | Ref
| Expression |
1 | | i1f1.1 |
. . . . . 6
β’ πΉ = (π₯ β β β¦ if(π₯ β π΄, 1, 0)) |
2 | 1 | i1f1lem 25198 |
. . . . 5
β’ (πΉ:ββΆ{0, 1} β§
(π΄ β dom vol β
(β‘πΉ β {1}) = π΄)) |
3 | 2 | simpli 485 |
. . . 4
β’ πΉ:ββΆ{0,
1} |
4 | | 0re 11213 |
. . . . 5
β’ 0 β
β |
5 | | 1re 11211 |
. . . . 5
β’ 1 β
β |
6 | | prssi 4824 |
. . . . 5
β’ ((0
β β β§ 1 β β) β {0, 1} β
β) |
7 | 4, 5, 6 | mp2an 691 |
. . . 4
β’ {0, 1}
β β |
8 | | fss 6732 |
. . . 4
β’ ((πΉ:ββΆ{0, 1} β§ {0,
1} β β) β πΉ:ββΆβ) |
9 | 3, 7, 8 | mp2an 691 |
. . 3
β’ πΉ:ββΆβ |
10 | 9 | a1i 11 |
. 2
β’ ((π΄ β dom vol β§
(volβπ΄) β
β) β πΉ:ββΆβ) |
11 | | prfi 9319 |
. . 3
β’ {0, 1}
β Fin |
12 | | 1ex 11207 |
. . . . . . . 8
β’ 1 β
V |
13 | 12 | prid2 4767 |
. . . . . . 7
β’ 1 β
{0, 1} |
14 | | c0ex 11205 |
. . . . . . . 8
β’ 0 β
V |
15 | 14 | prid1 4766 |
. . . . . . 7
β’ 0 β
{0, 1} |
16 | 13, 15 | ifcli 4575 |
. . . . . 6
β’ if(π₯ β π΄, 1, 0) β {0, 1} |
17 | 16 | a1i 11 |
. . . . 5
β’ (((π΄ β dom vol β§
(volβπ΄) β
β) β§ π₯ β
β) β if(π₯ β
π΄, 1, 0) β {0,
1}) |
18 | 17, 1 | fmptd 7111 |
. . . 4
β’ ((π΄ β dom vol β§
(volβπ΄) β
β) β πΉ:ββΆ{0, 1}) |
19 | | frn 6722 |
. . . 4
β’ (πΉ:ββΆ{0, 1} β
ran πΉ β {0,
1}) |
20 | 18, 19 | syl 17 |
. . 3
β’ ((π΄ β dom vol β§
(volβπ΄) β
β) β ran πΉ
β {0, 1}) |
21 | | ssfi 9170 |
. . 3
β’ (({0, 1}
β Fin β§ ran πΉ
β {0, 1}) β ran πΉ β Fin) |
22 | 11, 20, 21 | sylancr 588 |
. 2
β’ ((π΄ β dom vol β§
(volβπ΄) β
β) β ran πΉ
β Fin) |
23 | 3, 19 | ax-mp 5 |
. . . . . . . . . . 11
β’ ran πΉ β {0, 1} |
24 | | df-pr 4631 |
. . . . . . . . . . . 12
β’ {0, 1} =
({0} βͺ {1}) |
25 | 24 | equncomi 4155 |
. . . . . . . . . . 11
β’ {0, 1} =
({1} βͺ {0}) |
26 | 23, 25 | sseqtri 4018 |
. . . . . . . . . 10
β’ ran πΉ β ({1} βͺ
{0}) |
27 | | ssdif 4139 |
. . . . . . . . . 10
β’ (ran
πΉ β ({1} βͺ {0})
β (ran πΉ β {0})
β (({1} βͺ {0}) β {0})) |
28 | 26, 27 | ax-mp 5 |
. . . . . . . . 9
β’ (ran
πΉ β {0}) β
(({1} βͺ {0}) β {0}) |
29 | | difun2 4480 |
. . . . . . . . . 10
β’ (({1}
βͺ {0}) β {0}) = ({1} β {0}) |
30 | | difss 4131 |
. . . . . . . . . 10
β’ ({1}
β {0}) β {1} |
31 | 29, 30 | eqsstri 4016 |
. . . . . . . . 9
β’ (({1}
βͺ {0}) β {0}) β {1} |
32 | 28, 31 | sstri 3991 |
. . . . . . . 8
β’ (ran
πΉ β {0}) β
{1} |
33 | 32 | sseli 3978 |
. . . . . . 7
β’ (π¦ β (ran πΉ β {0}) β π¦ β {1}) |
34 | | elsni 4645 |
. . . . . . 7
β’ (π¦ β {1} β π¦ = 1) |
35 | 33, 34 | syl 17 |
. . . . . 6
β’ (π¦ β (ran πΉ β {0}) β π¦ = 1) |
36 | 35 | sneqd 4640 |
. . . . 5
β’ (π¦ β (ran πΉ β {0}) β {π¦} = {1}) |
37 | 36 | imaeq2d 6058 |
. . . 4
β’ (π¦ β (ran πΉ β {0}) β (β‘πΉ β {π¦}) = (β‘πΉ β {1})) |
38 | 2 | simpri 487 |
. . . . 5
β’ (π΄ β dom vol β (β‘πΉ β {1}) = π΄) |
39 | 38 | adantr 482 |
. . . 4
β’ ((π΄ β dom vol β§
(volβπ΄) β
β) β (β‘πΉ β {1}) = π΄) |
40 | 37, 39 | sylan9eqr 2795 |
. . 3
β’ (((π΄ β dom vol β§
(volβπ΄) β
β) β§ π¦ β
(ran πΉ β {0})) β
(β‘πΉ β {π¦}) = π΄) |
41 | | simpll 766 |
. . 3
β’ (((π΄ β dom vol β§
(volβπ΄) β
β) β§ π¦ β
(ran πΉ β {0})) β
π΄ β dom
vol) |
42 | 40, 41 | eqeltrd 2834 |
. 2
β’ (((π΄ β dom vol β§
(volβπ΄) β
β) β§ π¦ β
(ran πΉ β {0})) β
(β‘πΉ β {π¦}) β dom vol) |
43 | 40 | fveq2d 6893 |
. . 3
β’ (((π΄ β dom vol β§
(volβπ΄) β
β) β§ π¦ β
(ran πΉ β {0})) β
(volβ(β‘πΉ β {π¦})) = (volβπ΄)) |
44 | | simplr 768 |
. . 3
β’ (((π΄ β dom vol β§
(volβπ΄) β
β) β§ π¦ β
(ran πΉ β {0})) β
(volβπ΄) β
β) |
45 | 43, 44 | eqeltrd 2834 |
. 2
β’ (((π΄ β dom vol β§
(volβπ΄) β
β) β§ π¦ β
(ran πΉ β {0})) β
(volβ(β‘πΉ β {π¦})) β β) |
46 | 10, 22, 42, 45 | i1fd 25190 |
1
β’ ((π΄ β dom vol β§
(volβπ΄) β
β) β πΉ β
dom β«1) |