Step | Hyp | Ref
| Expression |
1 | | df-ima 5666 |
. . 3
β’ ((π₯ β π β¦ (π₯βπΌ)) β π) = ran ((π₯ β π β¦ (π₯βπΌ)) βΎ π) |
2 | | elssuni 4918 |
. . . . . . 7
β’ (π β π½ β π β βͺ π½) |
3 | | ptpjcn.1 |
. . . . . . 7
β’ π = βͺ
π½ |
4 | 2, 3 | sseqtrrdi 4013 |
. . . . . 6
β’ (π β π½ β π β π) |
5 | 4 | adantl 482 |
. . . . 5
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β π β π) |
6 | 5 | resmptd 6014 |
. . . 4
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β ((π₯ β π β¦ (π₯βπΌ)) βΎ π) = (π₯ β π β¦ (π₯βπΌ))) |
7 | 6 | rneqd 5913 |
. . 3
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β ran ((π₯ β π β¦ (π₯βπΌ)) βΎ π) = ran (π₯ β π β¦ (π₯βπΌ))) |
8 | 1, 7 | eqtrid 2783 |
. 2
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β ((π₯ β π β¦ (π₯βπΌ)) β π) = ran (π₯ β π β¦ (π₯βπΌ))) |
9 | | ptpjcn.2 |
. . . . . . . . . . 11
β’ π½ =
(βtβπΉ) |
10 | | ffn 6688 |
. . . . . . . . . . . 12
β’ (πΉ:π΄βΆTop β πΉ Fn π΄) |
11 | | eqid 2731 |
. . . . . . . . . . . . 13
β’ {π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))} = {π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))} |
12 | 11 | ptval 22973 |
. . . . . . . . . . . 12
β’ ((π΄ β π β§ πΉ Fn π΄) β (βtβπΉ) = (topGenβ{π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))})) |
13 | 10, 12 | sylan2 593 |
. . . . . . . . . . 11
β’ ((π΄ β π β§ πΉ:π΄βΆTop) β
(βtβπΉ) = (topGenβ{π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))})) |
14 | 9, 13 | eqtrid 2783 |
. . . . . . . . . 10
β’ ((π΄ β π β§ πΉ:π΄βΆTop) β π½ = (topGenβ{π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))})) |
15 | 14 | 3adant3 1132 |
. . . . . . . . 9
β’ ((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β π½ = (topGenβ{π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))})) |
16 | 15 | eleq2d 2818 |
. . . . . . . 8
β’ ((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β (π β π½ β π β (topGenβ{π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))}))) |
17 | 16 | biimpa 477 |
. . . . . . 7
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β π β (topGenβ{π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))})) |
18 | | tg2 22367 |
. . . . . . 7
β’ ((π β (topGenβ{π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))}) β§ π β π) β βπ€ β {π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))} (π β π€ β§ π€ β π)) |
19 | 17, 18 | sylan 580 |
. . . . . 6
β’ ((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β βπ€ β {π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))} (π β π€ β§ π€ β π)) |
20 | | vex 3463 |
. . . . . . . . 9
β’ π€ β V |
21 | | eqeq1 2735 |
. . . . . . . . . . 11
β’ (π = π€ β (π = Xπ¦ β π΄ (πβπ¦) β π€ = Xπ¦ β π΄ (πβπ¦))) |
22 | 21 | anbi2d 629 |
. . . . . . . . . 10
β’ (π = π€ β (((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦)) β ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π€ = Xπ¦ β π΄ (πβπ¦)))) |
23 | 22 | exbidv 1924 |
. . . . . . . . 9
β’ (π = π€ β (βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦)) β βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π€ = Xπ¦ β π΄ (πβπ¦)))) |
24 | 20, 23 | elab 3648 |
. . . . . . . 8
β’ (π€ β {π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))} β βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π€ = Xπ¦ β π΄ (πβπ¦))) |
25 | | fveq2 6862 |
. . . . . . . . . . . . . . 15
β’ (π¦ = πΌ β (πβπ¦) = (πβπΌ)) |
26 | | fveq2 6862 |
. . . . . . . . . . . . . . 15
β’ (π¦ = πΌ β (πΉβπ¦) = (πΉβπΌ)) |
27 | 25, 26 | eleq12d 2826 |
. . . . . . . . . . . . . 14
β’ (π¦ = πΌ β ((πβπ¦) β (πΉβπ¦) β (πβπΌ) β (πΉβπΌ))) |
28 | | simplr2 1216 |
. . . . . . . . . . . . . 14
β’
((((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β βπ¦ β π΄ (πβπ¦) β (πΉβπ¦)) |
29 | | simpl3 1193 |
. . . . . . . . . . . . . . 15
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β πΌ β π΄) |
30 | 29 | ad3antrrr 728 |
. . . . . . . . . . . . . 14
β’
((((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β πΌ β π΄) |
31 | 27, 28, 30 | rspcdva 3596 |
. . . . . . . . . . . . 13
β’
((((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β (πβπΌ) β (πΉβπΌ)) |
32 | | fveq2 6862 |
. . . . . . . . . . . . . . 15
β’ (π¦ = πΌ β (π βπ¦) = (π βπΌ)) |
33 | 32, 25 | eleq12d 2826 |
. . . . . . . . . . . . . 14
β’ (π¦ = πΌ β ((π βπ¦) β (πβπ¦) β (π βπΌ) β (πβπΌ))) |
34 | | vex 3463 |
. . . . . . . . . . . . . . . . 17
β’ π β V |
35 | 34 | elixp 8864 |
. . . . . . . . . . . . . . . 16
β’ (π β Xπ¦ β
π΄ (πβπ¦) β (π Fn π΄ β§ βπ¦ β π΄ (π βπ¦) β (πβπ¦))) |
36 | 35 | simprbi 497 |
. . . . . . . . . . . . . . 15
β’ (π β Xπ¦ β
π΄ (πβπ¦) β βπ¦ β π΄ (π βπ¦) β (πβπ¦)) |
37 | 36 | ad2antrl 726 |
. . . . . . . . . . . . . 14
β’
((((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β βπ¦ β π΄ (π βπ¦) β (πβπ¦)) |
38 | 33, 37, 30 | rspcdva 3596 |
. . . . . . . . . . . . 13
β’
((((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β (π βπΌ) β (πβπΌ)) |
39 | | simplrr 776 |
. . . . . . . . . . . . . . . . . 18
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β Xπ¦ β π΄ (πβπ¦) β π) |
40 | | simplrl 775 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β§ π = πΌ) β π β (πβπΌ)) |
41 | | fveq2 6862 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π = πΌ β (πβπ) = (πβπΌ)) |
42 | 41 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β§ π = πΌ) β (πβπ) = (πβπΌ)) |
43 | 40, 42 | eleqtrrd 2835 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β§ π = πΌ) β π β (πβπ)) |
44 | | fveq2 6862 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π¦ = π β (π βπ¦) = (π βπ)) |
45 | | fveq2 6862 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π¦ = π β (πβπ¦) = (πβπ)) |
46 | 44, 45 | eleq12d 2826 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π¦ = π β ((π βπ¦) β (πβπ¦) β (π βπ) β (πβπ))) |
47 | | simplrl 775 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β π β Xπ¦ β π΄ (πβπ¦)) |
48 | 47, 36 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β βπ¦ β π΄ (π βπ¦) β (πβπ¦)) |
49 | | simprr 771 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β π β π΄) |
50 | 46, 48, 49 | rspcdva 3596 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β (π βπ) β (πβπ)) |
51 | 50 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β§ Β¬ π = πΌ) β (π βπ) β (πβπ)) |
52 | 43, 51 | ifclda 4541 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ (π β (πβπΌ) β§ π β π΄)) β if(π = πΌ, π, (π βπ)) β (πβπ)) |
53 | 52 | anassrs 468 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β§ π β π΄) β if(π = πΌ, π, (π βπ)) β (πβπ)) |
54 | 53 | ralrimiva 3145 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β βπ β π΄ if(π = πΌ, π, (π βπ)) β (πβπ)) |
55 | | simpll1 1212 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β π΄ β π) |
56 | 55 | ad3antrrr 728 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β π΄ β π) |
57 | | mptelixpg 8895 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π΄ β π β ((π β π΄ β¦ if(π = πΌ, π, (π βπ))) β Xπ β π΄ (πβπ) β βπ β π΄ if(π = πΌ, π, (π βπ)) β (πβπ))) |
58 | 56, 57 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β ((π β π΄ β¦ if(π = πΌ, π, (π βπ))) β Xπ β π΄ (πβπ) β βπ β π΄ if(π = πΌ, π, (π βπ)) β (πβπ))) |
59 | 54, 58 | mpbird 256 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β (π β π΄ β¦ if(π = πΌ, π, (π βπ))) β Xπ β π΄ (πβπ)) |
60 | | fveq2 6862 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π¦ β (πβπ) = (πβπ¦)) |
61 | 60 | cbvixpv 8875 |
. . . . . . . . . . . . . . . . . . 19
β’ Xπ β
π΄ (πβπ) = Xπ¦ β π΄ (πβπ¦) |
62 | 59, 61 | eleqtrdi 2842 |
. . . . . . . . . . . . . . . . . 18
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β (π β π΄ β¦ if(π = πΌ, π, (π βπ))) β Xπ¦ β π΄ (πβπ¦)) |
63 | 39, 62 | sseldd 3963 |
. . . . . . . . . . . . . . . . 17
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β (π β π΄ β¦ if(π = πΌ, π, (π βπ))) β π) |
64 | 30 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β πΌ β π΄) |
65 | | iftrue 4512 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = πΌ β if(π = πΌ, π, (π βπ)) = π) |
66 | | eqid 2731 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β π΄ β¦ if(π = πΌ, π, (π βπ))) = (π β π΄ β¦ if(π = πΌ, π, (π βπ))) |
67 | | vex 3463 |
. . . . . . . . . . . . . . . . . . . 20
β’ π β V |
68 | 65, 66, 67 | fvmpt 6968 |
. . . . . . . . . . . . . . . . . . 19
β’ (πΌ β π΄ β ((π β π΄ β¦ if(π = πΌ, π, (π βπ)))βπΌ) = π) |
69 | 64, 68 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β ((π β π΄ β¦ if(π = πΌ, π, (π βπ)))βπΌ) = π) |
70 | 69 | eqcomd 2737 |
. . . . . . . . . . . . . . . . 17
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β π = ((π β π΄ β¦ if(π = πΌ, π, (π βπ)))βπΌ)) |
71 | | fveq1 6861 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ = (π β π΄ β¦ if(π = πΌ, π, (π βπ))) β (π₯βπΌ) = ((π β π΄ β¦ if(π = πΌ, π, (π βπ)))βπΌ)) |
72 | 71 | rspceeqv 3613 |
. . . . . . . . . . . . . . . . 17
β’ (((π β π΄ β¦ if(π = πΌ, π, (π βπ))) β π β§ π = ((π β π΄ β¦ if(π = πΌ, π, (π βπ)))βπΌ)) β βπ₯ β π π = (π₯βπΌ)) |
73 | 63, 70, 72 | syl2anc 584 |
. . . . . . . . . . . . . . . 16
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β βπ₯ β π π = (π₯βπΌ)) |
74 | | eqid 2731 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β π β¦ (π₯βπΌ)) = (π₯ β π β¦ (π₯βπΌ)) |
75 | 74 | elrnmpt 5931 |
. . . . . . . . . . . . . . . . 17
β’ (π β V β (π β ran (π₯ β π β¦ (π₯βπΌ)) β βπ₯ β π π = (π₯βπΌ))) |
76 | 75 | elv 3465 |
. . . . . . . . . . . . . . . 16
β’ (π β ran (π₯ β π β¦ (π₯βπΌ)) β βπ₯ β π π = (π₯βπΌ)) |
77 | 73, 76 | sylibr 233 |
. . . . . . . . . . . . . . 15
β’
(((((((π΄ β
π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β§ π β (πβπΌ)) β π β ran (π₯ β π β¦ (π₯βπΌ))) |
78 | 77 | ex 413 |
. . . . . . . . . . . . . 14
β’
((((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β (π β (πβπΌ) β π β ran (π₯ β π β¦ (π₯βπΌ)))) |
79 | 78 | ssrdv 3968 |
. . . . . . . . . . . . 13
β’
((((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β (πβπΌ) β ran (π₯ β π β¦ (π₯βπΌ))) |
80 | | eleq2 2821 |
. . . . . . . . . . . . . . 15
β’ (π§ = (πβπΌ) β ((π βπΌ) β π§ β (π βπΌ) β (πβπΌ))) |
81 | | sseq1 3987 |
. . . . . . . . . . . . . . 15
β’ (π§ = (πβπΌ) β (π§ β ran (π₯ β π β¦ (π₯βπΌ)) β (πβπΌ) β ran (π₯ β π β¦ (π₯βπΌ)))) |
82 | 80, 81 | anbi12d 631 |
. . . . . . . . . . . . . 14
β’ (π§ = (πβπΌ) β (((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))) β ((π βπΌ) β (πβπΌ) β§ (πβπΌ) β ran (π₯ β π β¦ (π₯βπΌ))))) |
83 | 82 | rspcev 3595 |
. . . . . . . . . . . . 13
β’ (((πβπΌ) β (πΉβπΌ) β§ ((π βπΌ) β (πβπΌ) β§ (πβπΌ) β ran (π₯ β π β¦ (π₯βπΌ)))) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))) |
84 | 31, 38, 79, 83 | syl12anc 835 |
. . . . . . . . . . . 12
β’
((((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β§ (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π)) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))) |
85 | 84 | ex 413 |
. . . . . . . . . . 11
β’
(((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β ((π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))))) |
86 | | eleq2 2821 |
. . . . . . . . . . . . 13
β’ (π€ = Xπ¦ β π΄ (πβπ¦) β (π β π€ β π β Xπ¦ β π΄ (πβπ¦))) |
87 | | sseq1 3987 |
. . . . . . . . . . . . 13
β’ (π€ = Xπ¦ β π΄ (πβπ¦) β (π€ β π β Xπ¦ β π΄ (πβπ¦) β π)) |
88 | 86, 87 | anbi12d 631 |
. . . . . . . . . . . 12
β’ (π€ = Xπ¦ β π΄ (πβπ¦) β ((π β π€ β§ π€ β π) β (π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π))) |
89 | 88 | imbi1d 341 |
. . . . . . . . . . 11
β’ (π€ = Xπ¦ β π΄ (πβπ¦) β (((π β π€ β§ π€ β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))) β ((π β Xπ¦ β π΄ (πβπ¦) β§ Xπ¦ β π΄ (πβπ¦) β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))))) |
90 | 85, 89 | syl5ibrcom 246 |
. . . . . . . . . 10
β’
(((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β§ (π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦))) β (π€ = Xπ¦ β π΄ (πβπ¦) β ((π β π€ β§ π€ β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))))) |
91 | 90 | expimpd 454 |
. . . . . . . . 9
β’ ((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β (((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π€ = Xπ¦ β π΄ (πβπ¦)) β ((π β π€ β§ π€ β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))))) |
92 | 91 | exlimdv 1936 |
. . . . . . . 8
β’ ((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β (βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π€ = Xπ¦ β π΄ (πβπ¦)) β ((π β π€ β§ π€ β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))))) |
93 | 24, 92 | biimtrid 241 |
. . . . . . 7
β’ ((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β (π€ β {π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))} β ((π β π€ β§ π€ β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))))) |
94 | 93 | rexlimdv 3152 |
. . . . . 6
β’ ((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β (βπ€ β {π β£ βπ((π Fn π΄ β§ βπ¦ β π΄ (πβπ¦) β (πΉβπ¦) β§ βπ§ β Fin βπ¦ β (π΄ β π§)(πβπ¦) = βͺ (πΉβπ¦)) β§ π = Xπ¦ β π΄ (πβπ¦))} (π β π€ β§ π€ β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))))) |
95 | 19, 94 | mpd 15 |
. . . . 5
β’ ((((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β§ π β π) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))) |
96 | 95 | ralrimiva 3145 |
. . . 4
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β βπ β π βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))) |
97 | | fvex 6875 |
. . . . . 6
β’ (π βπΌ) β V |
98 | 97 | rgenw 3064 |
. . . . 5
β’
βπ β
π (π βπΌ) β V |
99 | | fveq1 6861 |
. . . . . . 7
β’ (π₯ = π β (π₯βπΌ) = (π βπΌ)) |
100 | 99 | cbvmptv 5238 |
. . . . . 6
β’ (π₯ β π β¦ (π₯βπΌ)) = (π β π β¦ (π βπΌ)) |
101 | | eleq1 2820 |
. . . . . . . 8
β’ (π¦ = (π βπΌ) β (π¦ β π§ β (π βπΌ) β π§)) |
102 | 101 | anbi1d 630 |
. . . . . . 7
β’ (π¦ = (π βπΌ) β ((π¦ β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))) β ((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))))) |
103 | 102 | rexbidv 3177 |
. . . . . 6
β’ (π¦ = (π βπΌ) β (βπ§ β (πΉβπΌ)(π¦ β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))) β βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))))) |
104 | 100, 103 | ralrnmptw 7064 |
. . . . 5
β’
(βπ β
π (π βπΌ) β V β (βπ¦ β ran (π₯ β π β¦ (π₯βπΌ))βπ§ β (πΉβπΌ)(π¦ β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))) β βπ β π βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))))) |
105 | 98, 104 | ax-mp 5 |
. . . 4
β’
(βπ¦ β
ran (π₯ β π β¦ (π₯βπΌ))βπ§ β (πΉβπΌ)(π¦ β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))) β βπ β π βπ§ β (πΉβπΌ)((π βπΌ) β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))) |
106 | 96, 105 | sylibr 233 |
. . 3
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β βπ¦ β ran (π₯ β π β¦ (π₯βπΌ))βπ§ β (πΉβπΌ)(π¦ β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ)))) |
107 | | simpl2 1192 |
. . . . 5
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β πΉ:π΄βΆTop) |
108 | 107, 29 | ffvelcdmd 7056 |
. . . 4
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β (πΉβπΌ) β Top) |
109 | | eltop2 22377 |
. . . 4
β’ ((πΉβπΌ) β Top β (ran (π₯ β π β¦ (π₯βπΌ)) β (πΉβπΌ) β βπ¦ β ran (π₯ β π β¦ (π₯βπΌ))βπ§ β (πΉβπΌ)(π¦ β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))))) |
110 | 108, 109 | syl 17 |
. . 3
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β (ran (π₯ β π β¦ (π₯βπΌ)) β (πΉβπΌ) β βπ¦ β ran (π₯ β π β¦ (π₯βπΌ))βπ§ β (πΉβπΌ)(π¦ β π§ β§ π§ β ran (π₯ β π β¦ (π₯βπΌ))))) |
111 | 106, 110 | mpbird 256 |
. 2
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β ran (π₯ β π β¦ (π₯βπΌ)) β (πΉβπΌ)) |
112 | 8, 111 | eqeltrd 2832 |
1
β’ (((π΄ β π β§ πΉ:π΄βΆTop β§ πΌ β π΄) β§ π β π½) β ((π₯ β π β¦ (π₯βπΌ)) β π) β (πΉβπΌ)) |