Step | Hyp | Ref
| Expression |
1 | | xkoptsub.j |
. . . . 5
β’ π½ =
(βtβ(π Γ {π})) |
2 | | xkoptsub.x |
. . . . . . . . 9
β’ π = βͺ
π
|
3 | 2 | topopn 22399 |
. . . . . . . 8
β’ (π
β Top β π β π
) |
4 | 3 | adantr 481 |
. . . . . . 7
β’ ((π
β Top β§ π β Top) β π β π
) |
5 | | fconstg 6775 |
. . . . . . . . 9
β’ (π β Top β (π Γ {π}):πβΆ{π}) |
6 | 5 | adantl 482 |
. . . . . . . 8
β’ ((π
β Top β§ π β Top) β (π Γ {π}):πβΆ{π}) |
7 | 6 | ffnd 6715 |
. . . . . . 7
β’ ((π
β Top β§ π β Top) β (π Γ {π}) Fn π) |
8 | | eqid 2732 |
. . . . . . . 8
β’ {π₯ β£ βπ((π Fn π β§ βπ¦ β π (πβπ¦) β ((π Γ {π})βπ¦) β§ βπ§ β Fin βπ¦ β (π β π§)(πβπ¦) = βͺ ((π Γ {π})βπ¦)) β§ π₯ = Xπ¦ β π (πβπ¦))} = {π₯ β£ βπ((π Fn π β§ βπ¦ β π (πβπ¦) β ((π Γ {π})βπ¦) β§ βπ§ β Fin βπ¦ β (π β π§)(πβπ¦) = βͺ ((π Γ {π})βπ¦)) β§ π₯ = Xπ¦ β π (πβπ¦))} |
9 | 8 | ptval 23065 |
. . . . . . 7
β’ ((π β π
β§ (π Γ {π}) Fn π) β (βtβ(π Γ {π})) = (topGenβ{π₯ β£ βπ((π Fn π β§ βπ¦ β π (πβπ¦) β ((π Γ {π})βπ¦) β§ βπ§ β Fin βπ¦ β (π β π§)(πβπ¦) = βͺ ((π Γ {π})βπ¦)) β§ π₯ = Xπ¦ β π (πβπ¦))})) |
10 | 4, 7, 9 | syl2anc 584 |
. . . . . 6
β’ ((π
β Top β§ π β Top) β
(βtβ(π Γ {π})) = (topGenβ{π₯ β£ βπ((π Fn π β§ βπ¦ β π (πβπ¦) β ((π Γ {π})βπ¦) β§ βπ§ β Fin βπ¦ β (π β π§)(πβπ¦) = βͺ ((π Γ {π})βπ¦)) β§ π₯ = Xπ¦ β π (πβπ¦))})) |
11 | | simpr 485 |
. . . . . . . . . . 11
β’ ((π
β Top β§ π β Top) β π β Top) |
12 | 11 | snssd 4811 |
. . . . . . . . . 10
β’ ((π
β Top β§ π β Top) β {π} β Top) |
13 | 6, 12 | fssd 6732 |
. . . . . . . . 9
β’ ((π
β Top β§ π β Top) β (π Γ {π}):πβΆTop) |
14 | | eqid 2732 |
. . . . . . . . . 10
β’ Xπ β
π βͺ ((π
Γ {π})βπ) = Xπ β
π βͺ ((π
Γ {π})βπ) |
15 | 8, 14 | ptbasfi 23076 |
. . . . . . . . 9
β’ ((π β π
β§ (π Γ {π}):πβΆTop) β {π₯ β£ βπ((π Fn π β§ βπ¦ β π (πβπ¦) β ((π Γ {π})βπ¦) β§ βπ§ β Fin βπ¦ β (π β π§)(πβπ¦) = βͺ ((π Γ {π})βπ¦)) β§ π₯ = Xπ¦ β π (πβπ¦))} = (fiβ({Xπ β
π βͺ ((π
Γ {π})βπ)} βͺ ran (π β π, π’ β ((π Γ {π})βπ) β¦ (β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’))))) |
16 | 4, 13, 15 | syl2anc 584 |
. . . . . . . 8
β’ ((π
β Top β§ π β Top) β {π₯ β£ βπ((π Fn π β§ βπ¦ β π (πβπ¦) β ((π Γ {π})βπ¦) β§ βπ§ β Fin βπ¦ β (π β π§)(πβπ¦) = βͺ ((π Γ {π})βπ¦)) β§ π₯ = Xπ¦ β π (πβπ¦))} = (fiβ({Xπ β
π βͺ ((π
Γ {π})βπ)} βͺ ran (π β π, π’ β ((π Γ {π})βπ) β¦ (β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’))))) |
17 | | fvconst2g 7199 |
. . . . . . . . . . . . . . 15
β’ ((π β Top β§ π β π) β ((π Γ {π})βπ) = π) |
18 | 17 | adantll 712 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ π β π) β ((π Γ {π})βπ) = π) |
19 | 18 | unieqd 4921 |
. . . . . . . . . . . . 13
β’ (((π
β Top β§ π β Top) β§ π β π) β βͺ
((π Γ {π})βπ) = βͺ π) |
20 | 19 | ixpeq2dva 8902 |
. . . . . . . . . . . 12
β’ ((π
β Top β§ π β Top) β Xπ β
π βͺ ((π
Γ {π})βπ) = Xπ β
π βͺ π) |
21 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’ βͺ π =
βͺ π |
22 | 21 | topopn 22399 |
. . . . . . . . . . . . 13
β’ (π β Top β βͺ π
β π) |
23 | | ixpconstg 8896 |
. . . . . . . . . . . . 13
β’ ((π β π
β§ βͺ π β π) β Xπ β π βͺ π = (βͺ
π βm π)) |
24 | 3, 22, 23 | syl2an 596 |
. . . . . . . . . . . 12
β’ ((π
β Top β§ π β Top) β Xπ β
π βͺ π =
(βͺ π βm π)) |
25 | 20, 24 | eqtrd 2772 |
. . . . . . . . . . 11
β’ ((π
β Top β§ π β Top) β Xπ β
π βͺ ((π
Γ {π})βπ) = (βͺ π
βm π)) |
26 | 25 | sneqd 4639 |
. . . . . . . . . 10
β’ ((π
β Top β§ π β Top) β {Xπ β
π βͺ ((π
Γ {π})βπ)} = {(βͺ π
βm π)}) |
27 | | eqid 2732 |
. . . . . . . . . . . 12
β’ π = π |
28 | | fvconst2g 7199 |
. . . . . . . . . . . . . . 15
β’ ((π β Top β§ π β π) β ((π Γ {π})βπ) = π) |
29 | 28 | adantll 712 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ π β π) β ((π Γ {π})βπ) = π) |
30 | 25 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ (((π
β Top β§ π β Top) β§ π β π) β Xπ β π βͺ ((π Γ {π})βπ) = (βͺ π βm π)) |
31 | 30 | mpteq1d 5242 |
. . . . . . . . . . . . . . . . 17
β’ (((π
β Top β§ π β Top) β§ π β π) β (π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) = (π€ β (βͺ π βm π) β¦ (π€βπ))) |
32 | 31 | cnveqd 5873 |
. . . . . . . . . . . . . . . 16
β’ (((π
β Top β§ π β Top) β§ π β π) β β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) = β‘(π€ β (βͺ π βm π) β¦ (π€βπ))) |
33 | 32 | imaeq1d 6056 |
. . . . . . . . . . . . . . 15
β’ (((π
β Top β§ π β Top) β§ π β π) β (β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’) = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) |
34 | 33 | ralrimivw 3150 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ π β π) β βπ’ β ((π Γ {π})βπ)(β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’) = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) |
35 | 29, 34 | jca 512 |
. . . . . . . . . . . . 13
β’ (((π
β Top β§ π β Top) β§ π β π) β (((π Γ {π})βπ) = π β§ βπ’ β ((π Γ {π})βπ)(β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’) = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) |
36 | 35 | ralrimiva 3146 |
. . . . . . . . . . . 12
β’ ((π
β Top β§ π β Top) β
βπ β π (((π Γ {π})βπ) = π β§ βπ’ β ((π Γ {π})βπ)(β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’) = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) |
37 | | mpoeq123 7477 |
. . . . . . . . . . . 12
β’ ((π = π β§ βπ β π (((π Γ {π})βπ) = π β§ βπ’ β ((π Γ {π})βπ)(β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’) = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β (π β π, π’ β ((π Γ {π})βπ) β¦ (β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’)) = (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) |
38 | 27, 36, 37 | sylancr 587 |
. . . . . . . . . . 11
β’ ((π
β Top β§ π β Top) β (π β π, π’ β ((π Γ {π})βπ) β¦ (β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’)) = (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) |
39 | 38 | rneqd 5935 |
. . . . . . . . . 10
β’ ((π
β Top β§ π β Top) β ran (π β π, π’ β ((π Γ {π})βπ) β¦ (β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’)) = ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) |
40 | 26, 39 | uneq12d 4163 |
. . . . . . . . 9
β’ ((π
β Top β§ π β Top) β ({Xπ β
π βͺ ((π
Γ {π})βπ)} βͺ ran (π β π, π’ β ((π Γ {π})βπ) β¦ (β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’))) = ({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) |
41 | 40 | fveq2d 6892 |
. . . . . . . 8
β’ ((π
β Top β§ π β Top) β
(fiβ({Xπ β π βͺ ((π Γ {π})βπ)} βͺ ran (π β π, π’ β ((π Γ {π})βπ) β¦ (β‘(π€ β Xπ β π βͺ ((π Γ {π})βπ) β¦ (π€βπ)) β π’)))) = (fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))))) |
42 | 16, 41 | eqtrd 2772 |
. . . . . . 7
β’ ((π
β Top β§ π β Top) β {π₯ β£ βπ((π Fn π β§ βπ¦ β π (πβπ¦) β ((π Γ {π})βπ¦) β§ βπ§ β Fin βπ¦ β (π β π§)(πβπ¦) = βͺ ((π Γ {π})βπ¦)) β§ π₯ = Xπ¦ β π (πβπ¦))} = (fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))))) |
43 | 42 | fveq2d 6892 |
. . . . . 6
β’ ((π
β Top β§ π β Top) β
(topGenβ{π₯ β£
βπ((π Fn π β§ βπ¦ β π (πβπ¦) β ((π Γ {π})βπ¦) β§ βπ§ β Fin βπ¦ β (π β π§)(πβπ¦) = βͺ ((π Γ {π})βπ¦)) β§ π₯ = Xπ¦ β π (πβπ¦))}) = (topGenβ(fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))))) |
44 | 10, 43 | eqtrd 2772 |
. . . . 5
β’ ((π
β Top β§ π β Top) β
(βtβ(π Γ {π})) = (topGenβ(fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))))) |
45 | 1, 44 | eqtrid 2784 |
. . . 4
β’ ((π
β Top β§ π β Top) β π½ =
(topGenβ(fiβ({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))))) |
46 | 45 | oveq1d 7420 |
. . 3
β’ ((π
β Top β§ π β Top) β (π½ βΎt (π
Cn π)) = ((topGenβ(fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))))) βΎt (π
Cn π))) |
47 | | firest 17374 |
. . . . 5
β’
(fiβ(({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π))) = ((fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) βΎt (π
Cn π)) |
48 | 47 | fveq2i 6891 |
. . . 4
β’
(topGenβ(fiβ(({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π)))) = (topGenβ((fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) βΎt (π
Cn π))) |
49 | | fvex 6901 |
. . . . 5
β’
(fiβ({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) β V |
50 | | ovex 7438 |
. . . . 5
β’ (π
Cn π) β V |
51 | | tgrest 22654 |
. . . . 5
β’
(((fiβ({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) β V β§ (π
Cn π) β V) β
(topGenβ((fiβ({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) βΎt (π
Cn π))) = ((topGenβ(fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))))) βΎt (π
Cn π))) |
52 | 49, 50, 51 | mp2an 690 |
. . . 4
β’
(topGenβ((fiβ({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) βΎt (π
Cn π))) = ((topGenβ(fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))))) βΎt (π
Cn π)) |
53 | 48, 52 | eqtri 2760 |
. . 3
β’
(topGenβ(fiβ(({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π)))) = ((topGenβ(fiβ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))))) βΎt (π
Cn π)) |
54 | 46, 53 | eqtr4di 2790 |
. 2
β’ ((π
β Top β§ π β Top) β (π½ βΎt (π
Cn π)) = (topGenβ(fiβ(({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π))))) |
55 | | xkotop 23083 |
. . 3
β’ ((π
β Top β§ π β Top) β (π βko π
) β Top) |
56 | | snex 5430 |
. . . . . 6
β’ {(βͺ π
βm π)}
β V |
57 | | mpoexga 8060 |
. . . . . . . 8
β’ ((π β π
β§ π β Top) β (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) β V) |
58 | 3, 57 | sylan 580 |
. . . . . . 7
β’ ((π
β Top β§ π β Top) β (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) β V) |
59 | | rnexg 7891 |
. . . . . . 7
β’ ((π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) β V β ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) β V) |
60 | 58, 59 | syl 17 |
. . . . . 6
β’ ((π
β Top β§ π β Top) β ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) β V) |
61 | | unexg 7732 |
. . . . . 6
β’ (({(βͺ π
βm π)}
β V β§ ran (π
β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) β V) β ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β V) |
62 | 56, 60, 61 | sylancr 587 |
. . . . 5
β’ ((π
β Top β§ π β Top) β ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β V) |
63 | | restval 17368 |
. . . . 5
β’
((({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β V β§ (π
Cn π) β V) β (({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π)) = ran (π₯ β ({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β¦ (π₯ β© (π
Cn π)))) |
64 | 62, 50, 63 | sylancl 586 |
. . . 4
β’ ((π
β Top β§ π β Top) β (({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π)) = ran (π₯ β ({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β¦ (π₯ β© (π
Cn π)))) |
65 | | elun 4147 |
. . . . . . 7
β’ (π₯ β ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β (π₯ β {(βͺ π βm π)} β¨ π₯ β ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) |
66 | 2, 21 | cnf 22741 |
. . . . . . . . . . . . . 14
β’ (π₯ β (π
Cn π) β π₯:πβΆβͺ π) |
67 | | elmapg 8829 |
. . . . . . . . . . . . . . 15
β’ ((βͺ π
β π β§ π β π
) β (π₯ β (βͺ π βm π) β π₯:πβΆβͺ π)) |
68 | 22, 3, 67 | syl2anr 597 |
. . . . . . . . . . . . . 14
β’ ((π
β Top β§ π β Top) β (π₯ β (βͺ π
βm π)
β π₯:πβΆβͺ π)) |
69 | 66, 68 | imbitrrid 245 |
. . . . . . . . . . . . 13
β’ ((π
β Top β§ π β Top) β (π₯ β (π
Cn π) β π₯ β (βͺ π βm π))) |
70 | 69 | ssrdv 3987 |
. . . . . . . . . . . 12
β’ ((π
β Top β§ π β Top) β (π
Cn π) β (βͺ
π βm π)) |
71 | 70 | adantr 481 |
. . . . . . . . . . 11
β’ (((π
β Top β§ π β Top) β§ π₯ β {(βͺ π
βm π)})
β (π
Cn π) β (βͺ π
βm π)) |
72 | | elsni 4644 |
. . . . . . . . . . . 12
β’ (π₯ β {(βͺ π
βm π)}
β π₯ = (βͺ π
βm π)) |
73 | 72 | adantl 482 |
. . . . . . . . . . 11
β’ (((π
β Top β§ π β Top) β§ π₯ β {(βͺ π
βm π)})
β π₯ = (βͺ π
βm π)) |
74 | 71, 73 | sseqtrrd 4022 |
. . . . . . . . . 10
β’ (((π
β Top β§ π β Top) β§ π₯ β {(βͺ π
βm π)})
β (π
Cn π) β π₯) |
75 | | sseqin2 4214 |
. . . . . . . . . 10
β’ ((π
Cn π) β π₯ β (π₯ β© (π
Cn π)) = (π
Cn π)) |
76 | 74, 75 | sylib 217 |
. . . . . . . . 9
β’ (((π
β Top β§ π β Top) β§ π₯ β {(βͺ π
βm π)})
β (π₯ β© (π
Cn π)) = (π
Cn π)) |
77 | | eqid 2732 |
. . . . . . . . . . . 12
β’ (π βko π
) = (π βko π
) |
78 | 77 | xkouni 23094 |
. . . . . . . . . . 11
β’ ((π
β Top β§ π β Top) β (π
Cn π) = βͺ (π βko π
)) |
79 | | eqid 2732 |
. . . . . . . . . . . . 13
β’ βͺ (π
βko π
) =
βͺ (π βko π
) |
80 | 79 | topopn 22399 |
. . . . . . . . . . . 12
β’ ((π βko π
) β Top β βͺ (π
βko π
)
β (π
βko π
)) |
81 | 55, 80 | syl 17 |
. . . . . . . . . . 11
β’ ((π
β Top β§ π β Top) β βͺ (π
βko π
)
β (π
βko π
)) |
82 | 78, 81 | eqeltrd 2833 |
. . . . . . . . . 10
β’ ((π
β Top β§ π β Top) β (π
Cn π) β (π βko π
)) |
83 | 82 | adantr 481 |
. . . . . . . . 9
β’ (((π
β Top β§ π β Top) β§ π₯ β {(βͺ π
βm π)})
β (π
Cn π) β (π βko π
)) |
84 | 76, 83 | eqeltrd 2833 |
. . . . . . . 8
β’ (((π
β Top β§ π β Top) β§ π₯ β {(βͺ π
βm π)})
β (π₯ β© (π
Cn π)) β (π βko π
)) |
85 | | eqid 2732 |
. . . . . . . . . . 11
β’ (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) = (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) |
86 | 85 | rnmpo 7538 |
. . . . . . . . . 10
β’ ran
(π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) = {π₯ β£ βπ β π βπ’ β π π₯ = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)} |
87 | 86 | eqabri 2877 |
. . . . . . . . 9
β’ (π₯ β ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) β βπ β π βπ’ β π π₯ = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) |
88 | | cnvresima 6226 |
. . . . . . . . . . . . . . 15
β’ (β‘((π€ β (βͺ π βm π) β¦ (π€βπ)) βΎ (π
Cn π)) β π’) = ((β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β© (π
Cn π)) |
89 | 70 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (π
Cn π) β (βͺ
π βm π)) |
90 | 89 | resmptd 6038 |
. . . . . . . . . . . . . . . . 17
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β ((π€ β (βͺ π βm π) β¦ (π€βπ)) βΎ (π
Cn π)) = (π€ β (π
Cn π) β¦ (π€βπ))) |
91 | 90 | cnveqd 5873 |
. . . . . . . . . . . . . . . 16
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β β‘((π€ β (βͺ π βm π) β¦ (π€βπ)) βΎ (π
Cn π)) = β‘(π€ β (π
Cn π) β¦ (π€βπ))) |
92 | 91 | imaeq1d 6056 |
. . . . . . . . . . . . . . 15
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (β‘((π€ β (βͺ π βm π) β¦ (π€βπ)) βΎ (π
Cn π)) β π’) = (β‘(π€ β (π
Cn π) β¦ (π€βπ)) β π’)) |
93 | 88, 92 | eqtr3id 2786 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β ((β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β© (π
Cn π)) = (β‘(π€ β (π
Cn π) β¦ (π€βπ)) β π’)) |
94 | | fvex 6901 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π€βπ) β V |
95 | 94 | rgenw 3065 |
. . . . . . . . . . . . . . . . . . 19
β’
βπ€ β
(π
Cn π)(π€βπ) β V |
96 | | eqid 2732 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π€ β (π
Cn π) β¦ (π€βπ)) = (π€ β (π
Cn π) β¦ (π€βπ)) |
97 | 96 | fnmpt 6687 |
. . . . . . . . . . . . . . . . . . 19
β’
(βπ€ β
(π
Cn π)(π€βπ) β V β (π€ β (π
Cn π) β¦ (π€βπ)) Fn (π
Cn π)) |
98 | 95, 97 | mp1i 13 |
. . . . . . . . . . . . . . . . . 18
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (π€ β (π
Cn π) β¦ (π€βπ)) Fn (π
Cn π)) |
99 | | elpreima 7056 |
. . . . . . . . . . . . . . . . . 18
β’ ((π€ β (π
Cn π) β¦ (π€βπ)) Fn (π
Cn π) β (π β (β‘(π€ β (π
Cn π) β¦ (π€βπ)) β π’) β (π β (π
Cn π) β§ ((π€ β (π
Cn π) β¦ (π€βπ))βπ) β π’))) |
100 | 98, 99 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (π β (β‘(π€ β (π
Cn π) β¦ (π€βπ)) β π’) β (π β (π
Cn π) β§ ((π€ β (π
Cn π) β¦ (π€βπ))βπ) β π’))) |
101 | | fveq1 6887 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π€ = π β (π€βπ) = (πβπ)) |
102 | | fvex 6901 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (πβπ) β V |
103 | 101, 96, 102 | fvmpt 6995 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (π
Cn π) β ((π€ β (π
Cn π) β¦ (π€βπ))βπ) = (πβπ)) |
104 | 103 | adantl 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β ((π€ β (π
Cn π) β¦ (π€βπ))βπ) = (πβπ)) |
105 | 104 | eleq1d 2818 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β (((π€ β (π
Cn π) β¦ (π€βπ))βπ) β π’ β (πβπ) β π’)) |
106 | 102 | snss 4788 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πβπ) β π’ β {(πβπ)} β π’) |
107 | 89 | sselda 3981 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β π β (βͺ π βm π)) |
108 | | elmapi 8839 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β (βͺ π
βm π)
β π:πβΆβͺ π) |
109 | | ffn 6714 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π:πβΆβͺ π β π Fn π) |
110 | 107, 108,
109 | 3syl 18 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β π Fn π) |
111 | | simplrl 775 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β π β π) |
112 | | fnsnfv 6967 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π Fn π β§ π β π) β {(πβπ)} = (π β {π})) |
113 | 110, 111,
112 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β {(πβπ)} = (π β {π})) |
114 | 113 | sseq1d 4012 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β ({(πβπ)} β π’ β (π β {π}) β π’)) |
115 | 106, 114 | bitrid 282 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β ((πβπ) β π’ β (π β {π}) β π’)) |
116 | 105, 115 | bitrd 278 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β§ π β (π
Cn π)) β (((π€ β (π
Cn π) β¦ (π€βπ))βπ) β π’ β (π β {π}) β π’)) |
117 | 116 | pm5.32da 579 |
. . . . . . . . . . . . . . . . 17
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β ((π β (π
Cn π) β§ ((π€ β (π
Cn π) β¦ (π€βπ))βπ) β π’) β (π β (π
Cn π) β§ (π β {π}) β π’))) |
118 | 100, 117 | bitrd 278 |
. . . . . . . . . . . . . . . 16
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (π β (β‘(π€ β (π
Cn π) β¦ (π€βπ)) β π’) β (π β (π
Cn π) β§ (π β {π}) β π’))) |
119 | 118 | eqabdv 2867 |
. . . . . . . . . . . . . . 15
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (β‘(π€ β (π
Cn π) β¦ (π€βπ)) β π’) = {π β£ (π β (π
Cn π) β§ (π β {π}) β π’)}) |
120 | | df-rab 3433 |
. . . . . . . . . . . . . . 15
β’ {π β (π
Cn π) β£ (π β {π}) β π’} = {π β£ (π β (π
Cn π) β§ (π β {π}) β π’)} |
121 | 119, 120 | eqtr4di 2790 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (β‘(π€ β (π
Cn π) β¦ (π€βπ)) β π’) = {π β (π
Cn π) β£ (π β {π}) β π’}) |
122 | 93, 121 | eqtrd 2772 |
. . . . . . . . . . . . 13
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β ((β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β© (π
Cn π)) = {π β (π
Cn π) β£ (π β {π}) β π’}) |
123 | | simpll 765 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β π
β Top) |
124 | 11 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β π β Top) |
125 | | simprl 769 |
. . . . . . . . . . . . . . 15
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β π β π) |
126 | 125 | snssd 4811 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β {π} β π) |
127 | 2 | toptopon 22410 |
. . . . . . . . . . . . . . . . 17
β’ (π
β Top β π
β (TopOnβπ)) |
128 | 123, 127 | sylib 217 |
. . . . . . . . . . . . . . . 16
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β π
β (TopOnβπ)) |
129 | | restsn2 22666 |
. . . . . . . . . . . . . . . 16
β’ ((π
β (TopOnβπ) β§ π β π) β (π
βΎt {π}) = π« {π}) |
130 | 128, 125,
129 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (π
βΎt {π}) = π« {π}) |
131 | | snfi 9040 |
. . . . . . . . . . . . . . . 16
β’ {π} β Fin |
132 | | discmp 22893 |
. . . . . . . . . . . . . . . 16
β’ ({π} β Fin β π«
{π} β
Comp) |
133 | 131, 132 | mpbi 229 |
. . . . . . . . . . . . . . 15
β’ π«
{π} β
Comp |
134 | 130, 133 | eqeltrdi 2841 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (π
βΎt {π}) β Comp) |
135 | | simprr 771 |
. . . . . . . . . . . . . 14
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β π’ β π) |
136 | 2, 123, 124, 126, 134, 135 | xkoopn 23084 |
. . . . . . . . . . . . 13
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β {π β (π
Cn π) β£ (π β {π}) β π’} β (π βko π
)) |
137 | 122, 136 | eqeltrd 2833 |
. . . . . . . . . . . 12
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β ((β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β© (π
Cn π)) β (π βko π
)) |
138 | | ineq1 4204 |
. . . . . . . . . . . . 13
β’ (π₯ = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β (π₯ β© (π
Cn π)) = ((β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β© (π
Cn π))) |
139 | 138 | eleq1d 2818 |
. . . . . . . . . . . 12
β’ (π₯ = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β ((π₯ β© (π
Cn π)) β (π βko π
) β ((β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β© (π
Cn π)) β (π βko π
))) |
140 | 137, 139 | syl5ibrcom 246 |
. . . . . . . . . . 11
β’ (((π
β Top β§ π β Top) β§ (π β π β§ π’ β π)) β (π₯ = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β (π₯ β© (π
Cn π)) β (π βko π
))) |
141 | 140 | rexlimdvva 3211 |
. . . . . . . . . 10
β’ ((π
β Top β§ π β Top) β
(βπ β π βπ’ β π π₯ = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’) β (π₯ β© (π
Cn π)) β (π βko π
))) |
142 | 141 | imp 407 |
. . . . . . . . 9
β’ (((π
β Top β§ π β Top) β§ βπ β π βπ’ β π π₯ = (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)) β (π₯ β© (π
Cn π)) β (π βko π
)) |
143 | 87, 142 | sylan2b 594 |
. . . . . . . 8
β’ (((π
β Top β§ π β Top) β§ π₯ β ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β (π₯ β© (π
Cn π)) β (π βko π
)) |
144 | 84, 143 | jaodan 956 |
. . . . . . 7
β’ (((π
β Top β§ π β Top) β§ (π₯ β {(βͺ π
βm π)} β¨
π₯ β ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) β (π₯ β© (π
Cn π)) β (π βko π
)) |
145 | 65, 144 | sylan2b 594 |
. . . . . 6
β’ (((π
β Top β§ π β Top) β§ π₯ β ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))) β (π₯ β© (π
Cn π)) β (π βko π
)) |
146 | 145 | fmpttd 7111 |
. . . . 5
β’ ((π
β Top β§ π β Top) β (π₯ β ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β¦ (π₯ β© (π
Cn π))):({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’)))βΆ(π βko π
)) |
147 | 146 | frnd 6722 |
. . . 4
β’ ((π
β Top β§ π β Top) β ran (π₯ β ({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) β¦ (π₯ β© (π
Cn π))) β (π βko π
)) |
148 | 64, 147 | eqsstrd 4019 |
. . 3
β’ ((π
β Top β§ π β Top) β (({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π)) β (π βko π
)) |
149 | | tgfiss 22485 |
. . 3
β’ (((π βko π
) β Top β§ (({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π)) β (π βko π
)) β (topGenβ(fiβ(({(βͺ π
βm π)}
βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π)))) β (π βko π
)) |
150 | 55, 148, 149 | syl2anc 584 |
. 2
β’ ((π
β Top β§ π β Top) β
(topGenβ(fiβ(({(βͺ π βm π)} βͺ ran (π β π, π’ β π β¦ (β‘(π€ β (βͺ π βm π) β¦ (π€βπ)) β π’))) βΎt (π
Cn π)))) β (π βko π
)) |
151 | 54, 150 | eqsstrd 4019 |
1
β’ ((π
β Top β§ π β Top) β (π½ βΎt (π
Cn π)) β (π βko π
)) |