Step | Hyp | Ref
| Expression |
1 | | xkococn.b |
. . . 4
β’ (π β π΅ β (π
Cn π)) |
2 | | xkococn.c |
. . . 4
β’ (π β (π
βΎt πΎ) β Comp) |
3 | | imacmp 22893 |
. . . 4
β’ ((π΅ β (π
Cn π) β§ (π
βΎt πΎ) β Comp) β (π βΎt (π΅ β πΎ)) β Comp) |
4 | 1, 2, 3 | syl2anc 585 |
. . 3
β’ (π β (π βΎt (π΅ β πΎ)) β Comp) |
5 | | xkococn.s |
. . . . . . . . 9
β’ (π β π β π-Locally
Comp) |
6 | 5 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π₯ β (π΅ β πΎ)) β π β π-Locally
Comp) |
7 | | xkococn.a |
. . . . . . . . . 10
β’ (π β π΄ β (π Cn π)) |
8 | | xkococn.v |
. . . . . . . . . 10
β’ (π β π β π) |
9 | | cnima 22761 |
. . . . . . . . . 10
β’ ((π΄ β (π Cn π) β§ π β π) β (β‘π΄ β π) β π) |
10 | 7, 8, 9 | syl2anc 585 |
. . . . . . . . 9
β’ (π β (β‘π΄ β π) β π) |
11 | 10 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π₯ β (π΅ β πΎ)) β (β‘π΄ β π) β π) |
12 | | imaco 6248 |
. . . . . . . . . . 11
β’ ((π΄ β π΅) β πΎ) = (π΄ β (π΅ β πΎ)) |
13 | | xkococn.i |
. . . . . . . . . . 11
β’ (π β ((π΄ β π΅) β πΎ) β π) |
14 | 12, 13 | eqsstrrid 4031 |
. . . . . . . . . 10
β’ (π β (π΄ β (π΅ β πΎ)) β π) |
15 | | eqid 2733 |
. . . . . . . . . . . . 13
β’ βͺ π =
βͺ π |
16 | | eqid 2733 |
. . . . . . . . . . . . 13
β’ βͺ π =
βͺ π |
17 | 15, 16 | cnf 22742 |
. . . . . . . . . . . 12
β’ (π΄ β (π Cn π) β π΄:βͺ πβΆβͺ π) |
18 | | ffun 6718 |
. . . . . . . . . . . 12
β’ (π΄:βͺ
πβΆβͺ π
β Fun π΄) |
19 | 7, 17, 18 | 3syl 18 |
. . . . . . . . . . 11
β’ (π β Fun π΄) |
20 | | imassrn 6069 |
. . . . . . . . . . . . 13
β’ (π΅ β πΎ) β ran π΅ |
21 | | eqid 2733 |
. . . . . . . . . . . . . . 15
β’ βͺ π
=
βͺ π
|
22 | 21, 15 | cnf 22742 |
. . . . . . . . . . . . . 14
β’ (π΅ β (π
Cn π) β π΅:βͺ π
βΆβͺ π) |
23 | | frn 6722 |
. . . . . . . . . . . . . 14
β’ (π΅:βͺ
π
βΆβͺ π
β ran π΅ β βͺ π) |
24 | 1, 22, 23 | 3syl 18 |
. . . . . . . . . . . . 13
β’ (π β ran π΅ β βͺ π) |
25 | 20, 24 | sstrid 3993 |
. . . . . . . . . . . 12
β’ (π β (π΅ β πΎ) β βͺ π) |
26 | | fdm 6724 |
. . . . . . . . . . . . 13
β’ (π΄:βͺ
πβΆβͺ π
β dom π΄ = βͺ π) |
27 | 7, 17, 26 | 3syl 18 |
. . . . . . . . . . . 12
β’ (π β dom π΄ = βͺ π) |
28 | 25, 27 | sseqtrrd 4023 |
. . . . . . . . . . 11
β’ (π β (π΅ β πΎ) β dom π΄) |
29 | | funimass3 7053 |
. . . . . . . . . . 11
β’ ((Fun
π΄ β§ (π΅ β πΎ) β dom π΄) β ((π΄ β (π΅ β πΎ)) β π β (π΅ β πΎ) β (β‘π΄ β π))) |
30 | 19, 28, 29 | syl2anc 585 |
. . . . . . . . . 10
β’ (π β ((π΄ β (π΅ β πΎ)) β π β (π΅ β πΎ) β (β‘π΄ β π))) |
31 | 14, 30 | mpbid 231 |
. . . . . . . . 9
β’ (π β (π΅ β πΎ) β (β‘π΄ β π)) |
32 | 31 | sselda 3982 |
. . . . . . . 8
β’ ((π β§ π₯ β (π΅ β πΎ)) β π₯ β (β‘π΄ β π)) |
33 | | nlly2i 22972 |
. . . . . . . 8
β’ ((π β π-Locally Comp
β§ (β‘π΄ β π) β π β§ π₯ β (β‘π΄ β π)) β βπ β π« (β‘π΄ β π)βπ’ β π (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp)) |
34 | 6, 11, 32, 33 | syl3anc 1372 |
. . . . . . 7
β’ ((π β§ π₯ β (π΅ β πΎ)) β βπ β π« (β‘π΄ β π)βπ’ β π (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp)) |
35 | | nllytop 22969 |
. . . . . . . . . . . . 13
β’ (π β π-Locally Comp
β π β
Top) |
36 | 5, 35 | syl 17 |
. . . . . . . . . . . 12
β’ (π β π β Top) |
37 | 36 | ad3antrrr 729 |
. . . . . . . . . . 11
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π β Top) |
38 | | imaexg 7903 |
. . . . . . . . . . . . 13
β’ (π΅ β (π
Cn π) β (π΅ β πΎ) β V) |
39 | 1, 38 | syl 17 |
. . . . . . . . . . . 12
β’ (π β (π΅ β πΎ) β V) |
40 | 39 | ad3antrrr 729 |
. . . . . . . . . . 11
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β (π΅ β πΎ) β V) |
41 | | simprl 770 |
. . . . . . . . . . 11
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π’ β π) |
42 | | elrestr 17371 |
. . . . . . . . . . 11
β’ ((π β Top β§ (π΅ β πΎ) β V β§ π’ β π) β (π’ β© (π΅ β πΎ)) β (π βΎt (π΅ β πΎ))) |
43 | 37, 40, 41, 42 | syl3anc 1372 |
. . . . . . . . . 10
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β (π’ β© (π΅ β πΎ)) β (π βΎt (π΅ β πΎ))) |
44 | | simprr1 1222 |
. . . . . . . . . . 11
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π₯ β π’) |
45 | | simpllr 775 |
. . . . . . . . . . 11
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π₯ β (π΅ β πΎ)) |
46 | 44, 45 | elind 4194 |
. . . . . . . . . 10
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π₯ β (π’ β© (π΅ β πΎ))) |
47 | | inss1 4228 |
. . . . . . . . . . . 12
β’ (π’ β© (π΅ β πΎ)) β π’ |
48 | | elpwi 4609 |
. . . . . . . . . . . . . . 15
β’ (π β π« (β‘π΄ β π) β π β (β‘π΄ β π)) |
49 | 48 | ad2antlr 726 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π β (β‘π΄ β π)) |
50 | | elssuni 4941 |
. . . . . . . . . . . . . . . 16
β’ ((β‘π΄ β π) β π β (β‘π΄ β π) β βͺ π) |
51 | 10, 50 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (π β (β‘π΄ β π) β βͺ π) |
52 | 51 | ad3antrrr 729 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β (β‘π΄ β π) β βͺ π) |
53 | 49, 52 | sstrd 3992 |
. . . . . . . . . . . . 13
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π β βͺ π) |
54 | | simprr2 1223 |
. . . . . . . . . . . . 13
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π’ β π ) |
55 | 15 | ssntr 22554 |
. . . . . . . . . . . . 13
β’ (((π β Top β§ π β βͺ π)
β§ (π’ β π β§ π’ β π )) β π’ β ((intβπ)βπ )) |
56 | 37, 53, 41, 54, 55 | syl22anc 838 |
. . . . . . . . . . . 12
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β π’ β ((intβπ)βπ )) |
57 | 47, 56 | sstrid 3993 |
. . . . . . . . . . 11
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β (π’ β© (π΅ β πΎ)) β ((intβπ)βπ )) |
58 | | simprr3 1224 |
. . . . . . . . . . 11
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β (π βΎt π ) β Comp) |
59 | 57, 58 | jca 513 |
. . . . . . . . . 10
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β ((π’ β© (π΅ β πΎ)) β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)) |
60 | | eleq2 2823 |
. . . . . . . . . . . 12
β’ (π¦ = (π’ β© (π΅ β πΎ)) β (π₯ β π¦ β π₯ β (π’ β© (π΅ β πΎ)))) |
61 | | cleq1lem 14926 |
. . . . . . . . . . . 12
β’ (π¦ = (π’ β© (π΅ β πΎ)) β ((π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp) β ((π’ β© (π΅ β πΎ)) β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
62 | 60, 61 | anbi12d 632 |
. . . . . . . . . . 11
β’ (π¦ = (π’ β© (π΅ β πΎ)) β ((π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)) β (π₯ β (π’ β© (π΅ β πΎ)) β§ ((π’ β© (π΅ β πΎ)) β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)))) |
63 | 62 | rspcev 3613 |
. . . . . . . . . 10
β’ (((π’ β© (π΅ β πΎ)) β (π βΎt (π΅ β πΎ)) β§ (π₯ β (π’ β© (π΅ β πΎ)) β§ ((π’ β© (π΅ β πΎ)) β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) β βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
64 | 43, 46, 59, 63 | syl12anc 836 |
. . . . . . . . 9
β’ ((((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β§ (π’ β π β§ (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp))) β βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
65 | 64 | rexlimdvaa 3157 |
. . . . . . . 8
β’ (((π β§ π₯ β (π΅ β πΎ)) β§ π β π« (β‘π΄ β π)) β (βπ’ β π (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp) β βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)))) |
66 | 65 | reximdva 3169 |
. . . . . . 7
β’ ((π β§ π₯ β (π΅ β πΎ)) β (βπ β π« (β‘π΄ β π)βπ’ β π (π₯ β π’ β§ π’ β π β§ (π βΎt π ) β Comp) β βπ β π« (β‘π΄ β π)βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)))) |
67 | 34, 66 | mpd 15 |
. . . . . 6
β’ ((π β§ π₯ β (π΅ β πΎ)) β βπ β π« (β‘π΄ β π)βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
68 | | rexcom 3288 |
. . . . . . 7
β’
(βπ β
π« (β‘π΄ β π)βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)) β βπ¦ β (π βΎt (π΅ β πΎ))βπ β π« (β‘π΄ β π)(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
69 | | r19.42v 3191 |
. . . . . . . 8
β’
(βπ β
π« (β‘π΄ β π)(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)) β (π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
70 | 69 | rexbii 3095 |
. . . . . . 7
β’
(βπ¦ β
(π βΎt
(π΅ β πΎ))βπ β π« (β‘π΄ β π)(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)) β βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
71 | 68, 70 | bitri 275 |
. . . . . 6
β’
(βπ β
π« (β‘π΄ β π)βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ (π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)) β βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
72 | 67, 71 | sylib 217 |
. . . . 5
β’ ((π β§ π₯ β (π΅ β πΎ)) β βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
73 | 72 | ralrimiva 3147 |
. . . 4
β’ (π β βπ₯ β (π΅ β πΎ)βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
74 | 15 | restuni 22658 |
. . . . . 6
β’ ((π β Top β§ (π΅ β πΎ) β βͺ π) β (π΅ β πΎ) = βͺ (π βΎt (π΅ β πΎ))) |
75 | 36, 25, 74 | syl2anc 585 |
. . . . 5
β’ (π β (π΅ β πΎ) = βͺ (π βΎt (π΅ β πΎ))) |
76 | 75 | raleqdv 3326 |
. . . 4
β’ (π β (βπ₯ β (π΅ β πΎ)βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)) β βπ₯ β βͺ (π
βΎt (π΅
β πΎ))βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp)))) |
77 | 73, 76 | mpbid 231 |
. . 3
β’ (π β βπ₯ β βͺ (π βΎt (π΅ β πΎ))βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) |
78 | | eqid 2733 |
. . . 4
β’ βͺ (π
βΎt (π΅
β πΎ)) = βͺ (π
βΎt (π΅
β πΎ)) |
79 | | fveq2 6889 |
. . . . . 6
β’ (π = (πβπ¦) β ((intβπ)βπ ) = ((intβπ)β(πβπ¦))) |
80 | 79 | sseq2d 4014 |
. . . . 5
β’ (π = (πβπ¦) β (π¦ β ((intβπ)βπ ) β π¦ β ((intβπ)β(πβπ¦)))) |
81 | | oveq2 7414 |
. . . . . 6
β’ (π = (πβπ¦) β (π βΎt π ) = (π βΎt (πβπ¦))) |
82 | 81 | eleq1d 2819 |
. . . . 5
β’ (π = (πβπ¦) β ((π βΎt π ) β Comp β (π βΎt (πβπ¦)) β Comp)) |
83 | 80, 82 | anbi12d 632 |
. . . 4
β’ (π = (πβπ¦) β ((π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp) β (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp))) |
84 | 78, 83 | cmpcovf 22887 |
. . 3
β’ (((π βΎt (π΅ β πΎ)) β Comp β§ βπ₯ β βͺ (π
βΎt (π΅
β πΎ))βπ¦ β (π βΎt (π΅ β πΎ))(π₯ β π¦ β§ βπ β π« (β‘π΄ β π)(π¦ β ((intβπ)βπ ) β§ (π βΎt π ) β Comp))) β βπ€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)(βͺ
(π βΎt
(π΅ β πΎ)) = βͺ π€
β§ βπ(π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) |
85 | 4, 77, 84 | syl2anc 585 |
. 2
β’ (π β βπ€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)(βͺ
(π βΎt
(π΅ β πΎ)) = βͺ π€
β§ βπ(π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) |
86 | 75 | adantr 482 |
. . . . . . 7
β’ ((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β (π΅ β πΎ) = βͺ (π βΎt (π΅ β πΎ))) |
87 | 86 | eqeq1d 2735 |
. . . . . 6
β’ ((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β ((π΅ β πΎ) = βͺ π€ β βͺ (π
βΎt (π΅
β πΎ)) = βͺ π€)) |
88 | 87 | biimpar 479 |
. . . . 5
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ βͺ (π
βΎt (π΅
β πΎ)) = βͺ π€)
β (π΅ β πΎ) = βͺ
π€) |
89 | 36 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π β Top) |
90 | | cntop2 22737 |
. . . . . . . . . . . 12
β’ (π΄ β (π Cn π) β π β Top) |
91 | 7, 90 | syl 17 |
. . . . . . . . . . 11
β’ (π β π β Top) |
92 | 91 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π β Top) |
93 | | xkotop 23084 |
. . . . . . . . . 10
β’ ((π β Top β§ π β Top) β (π βko π) β Top) |
94 | 89, 92, 93 | syl2anc 585 |
. . . . . . . . 9
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π βko π) β Top) |
95 | | cntop1 22736 |
. . . . . . . . . . . 12
β’ (π΅ β (π
Cn π) β π
β Top) |
96 | 1, 95 | syl 17 |
. . . . . . . . . . 11
β’ (π β π
β Top) |
97 | 96 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π
β Top) |
98 | | xkotop 23084 |
. . . . . . . . . 10
β’ ((π
β Top β§ π β Top) β (π βko π
) β Top) |
99 | 97, 89, 98 | syl2anc 585 |
. . . . . . . . 9
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π βko π
) β Top) |
100 | | simprrl 780 |
. . . . . . . . . . . . 13
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π:π€βΆπ« (β‘π΄ β π)) |
101 | 100 | frnd 6723 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β ran π β π« (β‘π΄ β π)) |
102 | | sspwuni 5103 |
. . . . . . . . . . . 12
β’ (ran
π β π« (β‘π΄ β π) β βͺ ran
π β (β‘π΄ β π)) |
103 | 101, 102 | sylib 217 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ ran π β (β‘π΄ β π)) |
104 | 10 | ad2antrr 725 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (β‘π΄ β π) β π) |
105 | 104, 50 | syl 17 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (β‘π΄ β π) β βͺ π) |
106 | 103, 105 | sstrd 3992 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ ran π β βͺ π) |
107 | | ffn 6715 |
. . . . . . . . . . . . 13
β’ (π:π€βΆπ« (β‘π΄ β π) β π Fn π€) |
108 | | fniunfv 7243 |
. . . . . . . . . . . . 13
β’ (π Fn π€ β βͺ
π¦ β π€ (πβπ¦) = βͺ ran π) |
109 | 100, 107,
108 | 3syl 18 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ (πβπ¦) = βͺ ran π) |
110 | 109 | oveq2d 7422 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π βΎt βͺ π¦ β π€ (πβπ¦)) = (π βΎt βͺ ran π)) |
111 | | simplr 768 |
. . . . . . . . . . . . 13
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) |
112 | 111 | elin2d 4199 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π€ β Fin) |
113 | | simprrr 781 |
. . . . . . . . . . . . 13
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)) |
114 | | simpr 486 |
. . . . . . . . . . . . . 14
β’ ((π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp) β (π βΎt (πβπ¦)) β Comp) |
115 | 114 | ralimi 3084 |
. . . . . . . . . . . . 13
β’
(βπ¦ β
π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp) β βπ¦ β π€ (π βΎt (πβπ¦)) β Comp) |
116 | 113, 115 | syl 17 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βπ¦ β π€ (π βΎt (πβπ¦)) β Comp) |
117 | 15 | fiuncmp 22900 |
. . . . . . . . . . . 12
β’ ((π β Top β§ π€ β Fin β§ βπ¦ β π€ (π βΎt (πβπ¦)) β Comp) β (π βΎt βͺ π¦ β π€ (πβπ¦)) β Comp) |
118 | 89, 112, 116, 117 | syl3anc 1372 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π βΎt βͺ π¦ β π€ (πβπ¦)) β Comp) |
119 | 110, 118 | eqeltrrd 2835 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π βΎt βͺ ran π) β Comp) |
120 | 8 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π β π) |
121 | 15, 89, 92, 106, 119, 120 | xkoopn 23085 |
. . . . . . . . 9
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β {π β (π Cn π) β£ (π β βͺ ran
π) β π} β (π βko π)) |
122 | | xkococn.k |
. . . . . . . . . . 11
β’ (π β πΎ β βͺ π
) |
123 | 122 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β πΎ β βͺ π
) |
124 | 2 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π
βΎt πΎ) β Comp) |
125 | 109, 106 | eqsstrd 4020 |
. . . . . . . . . . . . 13
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ (πβπ¦) β βͺ π) |
126 | | iunss 5048 |
. . . . . . . . . . . . 13
β’ (βͺ π¦ β π€ (πβπ¦) β βͺ π β βπ¦ β π€ (πβπ¦) β βͺ π) |
127 | 125, 126 | sylib 217 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βπ¦ β π€ (πβπ¦) β βͺ π) |
128 | 15 | ntropn 22545 |
. . . . . . . . . . . . . 14
β’ ((π β Top β§ (πβπ¦) β βͺ π) β ((intβπ)β(πβπ¦)) β π) |
129 | 128 | ex 414 |
. . . . . . . . . . . . 13
β’ (π β Top β ((πβπ¦) β βͺ π β ((intβπ)β(πβπ¦)) β π)) |
130 | 129 | ralimdv 3170 |
. . . . . . . . . . . 12
β’ (π β Top β
(βπ¦ β π€ (πβπ¦) β βͺ π β βπ¦ β π€ ((intβπ)β(πβπ¦)) β π)) |
131 | 89, 127, 130 | sylc 65 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βπ¦ β π€ ((intβπ)β(πβπ¦)) β π) |
132 | | iunopn 22392 |
. . . . . . . . . . 11
β’ ((π β Top β§ βπ¦ β π€ ((intβπ)β(πβπ¦)) β π) β βͺ
π¦ β π€ ((intβπ)β(πβπ¦)) β π) |
133 | 89, 131, 132 | syl2anc 585 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)) β π) |
134 | 21, 97, 89, 123, 124, 133 | xkoopn 23085 |
. . . . . . . . 9
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))} β (π βko π
)) |
135 | | txopn 23098 |
. . . . . . . . 9
β’ ((((π βko π) β Top β§ (π βko π
) β Top) β§ ({π β (π Cn π) β£ (π β βͺ ran
π) β π} β (π βko π) β§ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))} β (π βko π
))) β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β ((π βko π) Γt (π βko π
))) |
136 | 94, 99, 121, 134, 135 | syl22anc 838 |
. . . . . . . 8
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β ((π βko π) Γt (π βko π
))) |
137 | | imaeq1 6053 |
. . . . . . . . . . 11
β’ (π = π΄ β (π β βͺ ran
π) = (π΄ β βͺ ran
π)) |
138 | 137 | sseq1d 4013 |
. . . . . . . . . 10
β’ (π = π΄ β ((π β βͺ ran
π) β π β (π΄ β βͺ ran
π) β π)) |
139 | 7 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π΄ β (π Cn π)) |
140 | | imaiun 7241 |
. . . . . . . . . . . 12
β’ (π΄ β βͺ π¦ β π€ (πβπ¦)) = βͺ
π¦ β π€ (π΄ β (πβπ¦)) |
141 | 109 | imaeq2d 6058 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π΄ β βͺ
π¦ β π€ (πβπ¦)) = (π΄ β βͺ ran
π)) |
142 | 140, 141 | eqtr3id 2787 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ (π΄ β (πβπ¦)) = (π΄ β βͺ ran
π)) |
143 | 109, 103 | eqsstrd 4020 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ (πβπ¦) β (β‘π΄ β π)) |
144 | 19 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β Fun π΄) |
145 | 100, 107 | syl 17 |
. . . . . . . . . . . . 13
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π Fn π€) |
146 | 27 | ad2antrr 725 |
. . . . . . . . . . . . . 14
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β dom π΄ = βͺ
π) |
147 | 106, 146 | sseqtrrd 4023 |
. . . . . . . . . . . . 13
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ ran π β dom π΄) |
148 | | simpl1 1192 |
. . . . . . . . . . . . . . . 16
β’ (((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β§ π¦ β π€) β Fun π΄) |
149 | 108 | 3ad2ant2 1135 |
. . . . . . . . . . . . . . . . . . 19
β’ ((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β βͺ
π¦ β π€ (πβπ¦) = βͺ ran π) |
150 | | simp3 1139 |
. . . . . . . . . . . . . . . . . . 19
β’ ((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β βͺ ran
π β dom π΄) |
151 | 149, 150 | eqsstrd 4020 |
. . . . . . . . . . . . . . . . . 18
β’ ((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β βͺ
π¦ β π€ (πβπ¦) β dom π΄) |
152 | | iunss 5048 |
. . . . . . . . . . . . . . . . . 18
β’ (βͺ π¦ β π€ (πβπ¦) β dom π΄ β βπ¦ β π€ (πβπ¦) β dom π΄) |
153 | 151, 152 | sylib 217 |
. . . . . . . . . . . . . . . . 17
β’ ((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β βπ¦ β π€ (πβπ¦) β dom π΄) |
154 | 153 | r19.21bi 3249 |
. . . . . . . . . . . . . . . 16
β’ (((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β§ π¦ β π€) β (πβπ¦) β dom π΄) |
155 | | funimass3 7053 |
. . . . . . . . . . . . . . . 16
β’ ((Fun
π΄ β§ (πβπ¦) β dom π΄) β ((π΄ β (πβπ¦)) β π β (πβπ¦) β (β‘π΄ β π))) |
156 | 148, 154,
155 | syl2anc 585 |
. . . . . . . . . . . . . . 15
β’ (((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β§ π¦ β π€) β ((π΄ β (πβπ¦)) β π β (πβπ¦) β (β‘π΄ β π))) |
157 | 156 | ralbidva 3176 |
. . . . . . . . . . . . . 14
β’ ((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β (βπ¦ β π€ (π΄ β (πβπ¦)) β π β βπ¦ β π€ (πβπ¦) β (β‘π΄ β π))) |
158 | | iunss 5048 |
. . . . . . . . . . . . . 14
β’ (βͺ π¦ β π€ (π΄ β (πβπ¦)) β π β βπ¦ β π€ (π΄ β (πβπ¦)) β π) |
159 | | iunss 5048 |
. . . . . . . . . . . . . 14
β’ (βͺ π¦ β π€ (πβπ¦) β (β‘π΄ β π) β βπ¦ β π€ (πβπ¦) β (β‘π΄ β π)) |
160 | 157, 158,
159 | 3bitr4g 314 |
. . . . . . . . . . . . 13
β’ ((Fun
π΄ β§ π Fn π€ β§ βͺ ran π β dom π΄) β (βͺ π¦ β π€ (π΄ β (πβπ¦)) β π β βͺ
π¦ β π€ (πβπ¦) β (β‘π΄ β π))) |
161 | 144, 145,
147, 160 | syl3anc 1372 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (βͺ π¦ β π€ (π΄ β (πβπ¦)) β π β βͺ
π¦ β π€ (πβπ¦) β (β‘π΄ β π))) |
162 | 143, 161 | mpbird 257 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ (π΄ β (πβπ¦)) β π) |
163 | 142, 162 | eqsstrrd 4021 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π΄ β βͺ ran
π) β π) |
164 | 138, 139,
163 | elrabd 3685 |
. . . . . . . . 9
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π΄ β {π β (π Cn π) β£ (π β βͺ ran
π) β π}) |
165 | | imaeq1 6053 |
. . . . . . . . . . 11
β’ (π = π΅ β (π β πΎ) = (π΅ β πΎ)) |
166 | 165 | sseq1d 4013 |
. . . . . . . . . 10
β’ (π = π΅ β ((π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)) β (π΅ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)))) |
167 | 1 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π΅ β (π
Cn π)) |
168 | | simprl 770 |
. . . . . . . . . . . 12
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π΅ β πΎ) = βͺ π€) |
169 | | uniiun 5061 |
. . . . . . . . . . . 12
β’ βͺ π€ =
βͺ π¦ β π€ π¦ |
170 | 168, 169 | eqtrdi 2789 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π΅ β πΎ) = βͺ
π¦ β π€ π¦) |
171 | | simpl 484 |
. . . . . . . . . . . . 13
β’ ((π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp) β π¦ β ((intβπ)β(πβπ¦))) |
172 | 171 | ralimi 3084 |
. . . . . . . . . . . 12
β’
(βπ¦ β
π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp) β βπ¦ β π€ π¦ β ((intβπ)β(πβπ¦))) |
173 | | ss2iun 5015 |
. . . . . . . . . . . 12
β’
(βπ¦ β
π€ π¦ β ((intβπ)β(πβπ¦)) β βͺ
π¦ β π€ π¦ β βͺ
π¦ β π€ ((intβπ)β(πβπ¦))) |
174 | 113, 172,
173 | 3syl 18 |
. . . . . . . . . . 11
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ π¦ β βͺ
π¦ β π€ ((intβπ)β(πβπ¦))) |
175 | 170, 174 | eqsstrd 4020 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (π΅ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))) |
176 | 166, 167,
175 | elrabd 3685 |
. . . . . . . . 9
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β π΅ β {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) |
177 | 164, 176 | opelxpd 5714 |
. . . . . . . 8
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β β¨π΄, π΅β© β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))})) |
178 | | imaeq1 6053 |
. . . . . . . . . . . . . . 15
β’ (π = π’ β (π β βͺ ran
π) = (π’ β βͺ ran
π)) |
179 | 178 | sseq1d 4013 |
. . . . . . . . . . . . . 14
β’ (π = π’ β ((π β βͺ ran
π) β π β (π’ β βͺ ran
π) β π)) |
180 | 179 | elrab 3683 |
. . . . . . . . . . . . 13
β’ (π’ β {π β (π Cn π) β£ (π β βͺ ran
π) β π} β (π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π)) |
181 | | imaeq1 6053 |
. . . . . . . . . . . . . . 15
β’ (π = π£ β (π β πΎ) = (π£ β πΎ)) |
182 | 181 | sseq1d 4013 |
. . . . . . . . . . . . . 14
β’ (π = π£ β ((π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)) β (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)))) |
183 | 182 | elrab 3683 |
. . . . . . . . . . . . 13
β’ (π£ β {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))} β (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)))) |
184 | 180, 183 | anbi12i 628 |
. . . . . . . . . . . 12
β’ ((π’ β {π β (π Cn π) β£ (π β βͺ ran
π) β π} β§ π£ β {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) |
185 | | simprll 778 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β π’ β (π Cn π)) |
186 | | simprrl 780 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β π£ β (π
Cn π)) |
187 | | coeq1 5856 |
. . . . . . . . . . . . . . 15
β’ (π = π’ β (π β π) = (π’ β π)) |
188 | | coeq2 5857 |
. . . . . . . . . . . . . . 15
β’ (π = π£ β (π’ β π) = (π’ β π£)) |
189 | | xkococn.1 |
. . . . . . . . . . . . . . 15
β’ πΉ = (π β (π Cn π), π β (π
Cn π) β¦ (π β π)) |
190 | | vex 3479 |
. . . . . . . . . . . . . . . 16
β’ π’ β V |
191 | | vex 3479 |
. . . . . . . . . . . . . . . 16
β’ π£ β V |
192 | 190, 191 | coex 7918 |
. . . . . . . . . . . . . . 15
β’ (π’ β π£) β V |
193 | 187, 188,
189, 192 | ovmpo 7565 |
. . . . . . . . . . . . . 14
β’ ((π’ β (π Cn π) β§ π£ β (π
Cn π)) β (π’πΉπ£) = (π’ β π£)) |
194 | 185, 186,
193 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π’πΉπ£) = (π’ β π£)) |
195 | | imaeq1 6053 |
. . . . . . . . . . . . . . 15
β’ (β = (π’ β π£) β (β β πΎ) = ((π’ β π£) β πΎ)) |
196 | 195 | sseq1d 4013 |
. . . . . . . . . . . . . 14
β’ (β = (π’ β π£) β ((β β πΎ) β π β ((π’ β π£) β πΎ) β π)) |
197 | | cnco 22762 |
. . . . . . . . . . . . . . 15
β’ ((π£ β (π
Cn π) β§ π’ β (π Cn π)) β (π’ β π£) β (π
Cn π)) |
198 | 186, 185,
197 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π’ β π£) β (π
Cn π)) |
199 | | imaco 6248 |
. . . . . . . . . . . . . . 15
β’ ((π’ β π£) β πΎ) = (π’ β (π£ β πΎ)) |
200 | | simprrr 781 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))) |
201 | 15 | ntrss2 22553 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β Top β§ (πβπ¦) β βͺ π) β ((intβπ)β(πβπ¦)) β (πβπ¦)) |
202 | 201 | ex 414 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β Top β ((πβπ¦) β βͺ π β ((intβπ)β(πβπ¦)) β (πβπ¦))) |
203 | 202 | ralimdv 3170 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β Top β
(βπ¦ β π€ (πβπ¦) β βͺ π β βπ¦ β π€ ((intβπ)β(πβπ¦)) β (πβπ¦))) |
204 | 89, 127, 203 | sylc 65 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βπ¦ β π€ ((intβπ)β(πβπ¦)) β (πβπ¦)) |
205 | | ss2iun 5015 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(βπ¦ β
π€ ((intβπ)β(πβπ¦)) β (πβπ¦) β βͺ
π¦ β π€ ((intβπ)β(πβπ¦)) β βͺ π¦ β π€ (πβπ¦)) |
206 | 204, 205 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)) β βͺ π¦ β π€ (πβπ¦)) |
207 | 206, 109 | sseqtrd 4022 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)) β βͺ ran
π) |
208 | 207 | adantr 482 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β βͺ π¦ β π€ ((intβπ)β(πβπ¦)) β βͺ ran
π) |
209 | 200, 208 | sstrd 3992 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π£ β πΎ) β βͺ ran
π) |
210 | | imass2 6099 |
. . . . . . . . . . . . . . . . 17
β’ ((π£ β πΎ) β βͺ ran
π β (π’ β (π£ β πΎ)) β (π’ β βͺ ran
π)) |
211 | 209, 210 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π’ β (π£ β πΎ)) β (π’ β βͺ ran
π)) |
212 | | simprlr 779 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π’ β βͺ ran
π) β π) |
213 | 211, 212 | sstrd 3992 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π’ β (π£ β πΎ)) β π) |
214 | 199, 213 | eqsstrid 4030 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β ((π’ β π£) β πΎ) β π) |
215 | 196, 198,
214 | elrabd 3685 |
. . . . . . . . . . . . 13
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π’ β π£) β {β β (π
Cn π) β£ (β β πΎ) β π}) |
216 | 194, 215 | eqeltrd 2834 |
. . . . . . . . . . . 12
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ ((π’ β (π Cn π) β§ (π’ β βͺ ran
π) β π) β§ (π£ β (π
Cn π) β§ (π£ β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))))) β (π’πΉπ£) β {β β (π
Cn π) β£ (β β πΎ) β π}) |
217 | 184, 216 | sylan2b 595 |
. . . . . . . . . . 11
β’ ((((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β§ (π’ β {π β (π Cn π) β£ (π β βͺ ran
π) β π} β§ π£ β {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))})) β (π’πΉπ£) β {β β (π
Cn π) β£ (β β πΎ) β π}) |
218 | 217 | ralrimivva 3201 |
. . . . . . . . . 10
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βπ’ β {π β (π Cn π) β£ (π β βͺ ran
π) β π}βπ£ β {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))} (π’πΉπ£) β {β β (π
Cn π) β£ (β β πΎ) β π}) |
219 | 189 | mpofun 7529 |
. . . . . . . . . . 11
β’ Fun πΉ |
220 | | ssrab2 4077 |
. . . . . . . . . . . . 13
β’ {π β (π Cn π) β£ (π β βͺ ran
π) β π} β (π Cn π) |
221 | | ssrab2 4077 |
. . . . . . . . . . . . 13
β’ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))} β (π
Cn π) |
222 | | xpss12 5691 |
. . . . . . . . . . . . 13
β’ (({π β (π Cn π) β£ (π β βͺ ran
π) β π} β (π Cn π) β§ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))} β (π
Cn π)) β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β ((π Cn π) Γ (π
Cn π))) |
223 | 220, 221,
222 | mp2an 691 |
. . . . . . . . . . . 12
β’ ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β ((π Cn π) Γ (π
Cn π)) |
224 | | vex 3479 |
. . . . . . . . . . . . . 14
β’ π β V |
225 | | vex 3479 |
. . . . . . . . . . . . . 14
β’ π β V |
226 | 224, 225 | coex 7918 |
. . . . . . . . . . . . 13
β’ (π β π) β V |
227 | 189, 226 | dmmpo 8054 |
. . . . . . . . . . . 12
β’ dom πΉ = ((π Cn π) Γ (π
Cn π)) |
228 | 223, 227 | sseqtrri 4019 |
. . . . . . . . . . 11
β’ ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β dom πΉ |
229 | | funimassov 7581 |
. . . . . . . . . . 11
β’ ((Fun
πΉ β§ ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β dom πΉ) β ((πΉ β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))})) β {β β (π
Cn π) β£ (β β πΎ) β π} β βπ’ β {π β (π Cn π) β£ (π β βͺ ran
π) β π}βπ£ β {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))} (π’πΉπ£) β {β β (π
Cn π) β£ (β β πΎ) β π})) |
230 | 219, 228,
229 | mp2an 691 |
. . . . . . . . . 10
β’ ((πΉ β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))})) β {β β (π
Cn π) β£ (β β πΎ) β π} β βπ’ β {π β (π Cn π) β£ (π β βͺ ran
π) β π}βπ£ β {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))} (π’πΉπ£) β {β β (π
Cn π) β£ (β β πΎ) β π}) |
231 | 218, 230 | sylibr 233 |
. . . . . . . . 9
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β (πΉ β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))})) β {β β (π
Cn π) β£ (β β πΎ) β π}) |
232 | | funimass3 7053 |
. . . . . . . . . 10
β’ ((Fun
πΉ β§ ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β dom πΉ) β ((πΉ β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))})) β {β β (π
Cn π) β£ (β β πΎ) β π} β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π}))) |
233 | 219, 228,
232 | mp2an 691 |
. . . . . . . . 9
β’ ((πΉ β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))})) β {β β (π
Cn π) β£ (β β πΎ) β π} β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})) |
234 | 231, 233 | sylib 217 |
. . . . . . . 8
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})) |
235 | | eleq2 2823 |
. . . . . . . . . 10
β’ (π§ = ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β (β¨π΄, π΅β© β π§ β β¨π΄, π΅β© β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}))) |
236 | | sseq1 4007 |
. . . . . . . . . 10
β’ (π§ = ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β (π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π}) β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π}))) |
237 | 235, 236 | anbi12d 632 |
. . . . . . . . 9
β’ (π§ = ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β ((β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})) β (β¨π΄, π΅β© β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β§ ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})))) |
238 | 237 | rspcev 3613 |
. . . . . . . 8
β’ ((({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β ((π βko π) Γt (π βko π
)) β§ (β¨π΄, π΅β© β ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β§ ({π β (π Cn π) β£ (π β βͺ ran
π) β π} Γ {π β (π
Cn π) β£ (π β πΎ) β βͺ π¦ β π€ ((intβπ)β(πβπ¦))}) β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π}))) β βπ§ β ((π βko π) Γt (π βko π
))(β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π}))) |
239 | 136, 177,
234, 238 | syl12anc 836 |
. . . . . . 7
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ ((π΅ β πΎ) = βͺ π€ β§ (π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)))) β βπ§ β ((π βko π) Γt (π βko π
))(β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π}))) |
240 | 239 | expr 458 |
. . . . . 6
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ (π΅ β πΎ) = βͺ π€) β ((π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)) β βπ§ β ((π βko π) Γt (π βko π
))(β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})))) |
241 | 240 | exlimdv 1937 |
. . . . 5
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ (π΅ β πΎ) = βͺ π€) β (βπ(π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)) β βπ§ β ((π βko π) Γt (π βko π
))(β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})))) |
242 | 88, 241 | syldan 592 |
. . . 4
β’ (((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β§ βͺ (π
βΎt (π΅
β πΎ)) = βͺ π€)
β (βπ(π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp)) β βπ§ β ((π βko π) Γt (π βko π
))(β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})))) |
243 | 242 | expimpd 455 |
. . 3
β’ ((π β§ π€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)) β ((βͺ (π
βΎt (π΅
β πΎ)) = βͺ π€
β§ βπ(π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp))) β βπ§ β ((π βko π) Γt (π βko π
))(β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})))) |
244 | 243 | rexlimdva 3156 |
. 2
β’ (π β (βπ€ β (π« (π βΎt (π΅ β πΎ)) β© Fin)(βͺ
(π βΎt
(π΅ β πΎ)) = βͺ π€
β§ βπ(π:π€βΆπ« (β‘π΄ β π) β§ βπ¦ β π€ (π¦ β ((intβπ)β(πβπ¦)) β§ (π βΎt (πβπ¦)) β Comp))) β βπ§ β ((π βko π) Γt (π βko π
))(β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π})))) |
245 | 85, 244 | mpd 15 |
1
β’ (π β βπ§ β ((π βko π) Γt (π βko π
))(β¨π΄, π΅β© β π§ β§ π§ β (β‘πΉ β {β β (π
Cn π) β£ (β β πΎ) β π}))) |