Step | Hyp | Ref
| Expression |
1 | | neibastop1.1 |
. . . . . . . . 9
β’ (π β π β π) |
2 | | neibastop1.2 |
. . . . . . . . 9
β’ (π β πΉ:πβΆ(π« π« π β
{β
})) |
3 | | neibastop1.3 |
. . . . . . . . 9
β’ ((π β§ (π₯ β π β§ π£ β (πΉβπ₯) β§ π€ β (πΉβπ₯))) β ((πΉβπ₯) β© π« (π£ β© π€)) β β
) |
4 | | neibastop1.4 |
. . . . . . . . 9
β’ π½ = {π β π« π β£ βπ₯ β π ((πΉβπ₯) β© π« π) β β
} |
5 | 1, 2, 3, 4 | neibastop1 35233 |
. . . . . . . 8
β’ (π β π½ β (TopOnβπ)) |
6 | | topontop 22407 |
. . . . . . . 8
β’ (π½ β (TopOnβπ) β π½ β Top) |
7 | 5, 6 | syl 17 |
. . . . . . 7
β’ (π β π½ β Top) |
8 | 7 | adantr 482 |
. . . . . 6
β’ ((π β§ π β π) β π½ β Top) |
9 | | eqid 2733 |
. . . . . . 7
β’ βͺ π½ =
βͺ π½ |
10 | 9 | neii1 22602 |
. . . . . 6
β’ ((π½ β Top β§ π β ((neiβπ½)β{π})) β π β βͺ π½) |
11 | 8, 10 | sylan 581 |
. . . . 5
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β π β βͺ π½) |
12 | | toponuni 22408 |
. . . . . . 7
β’ (π½ β (TopOnβπ) β π = βͺ π½) |
13 | 5, 12 | syl 17 |
. . . . . 6
β’ (π β π = βͺ π½) |
14 | 13 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β π = βͺ π½) |
15 | 11, 14 | sseqtrrd 4023 |
. . . 4
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β π β π) |
16 | | neii2 22604 |
. . . . . 6
β’ ((π½ β Top β§ π β ((neiβπ½)β{π})) β βπ¦ β π½ ({π} β π¦ β§ π¦ β π)) |
17 | 8, 16 | sylan 581 |
. . . . 5
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β βπ¦ β π½ ({π} β π¦ β§ π¦ β π)) |
18 | | pweq 4616 |
. . . . . . . . . . 11
β’ (π = π¦ β π« π = π« π¦) |
19 | 18 | ineq2d 4212 |
. . . . . . . . . 10
β’ (π = π¦ β ((πΉβπ₯) β© π« π) = ((πΉβπ₯) β© π« π¦)) |
20 | 19 | neeq1d 3001 |
. . . . . . . . 9
β’ (π = π¦ β (((πΉβπ₯) β© π« π) β β
β ((πΉβπ₯) β© π« π¦) β β
)) |
21 | 20 | raleqbi1dv 3334 |
. . . . . . . 8
β’ (π = π¦ β (βπ₯ β π ((πΉβπ₯) β© π« π) β β
β βπ₯ β π¦ ((πΉβπ₯) β© π« π¦) β β
)) |
22 | 21, 4 | elrab2 3686 |
. . . . . . 7
β’ (π¦ β π½ β (π¦ β π« π β§ βπ₯ β π¦ ((πΉβπ₯) β© π« π¦) β β
)) |
23 | | simprrr 781 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ (π¦ β π« π β§ ({π} β π¦ β§ π¦ β π))) β π¦ β π) |
24 | 23 | sspwd 4615 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ (π¦ β π« π β§ ({π} β π¦ β§ π¦ β π))) β π« π¦ β π« π) |
25 | | sslin 4234 |
. . . . . . . . . . . 12
β’
(π« π¦ β
π« π β ((πΉβπ) β© π« π¦) β ((πΉβπ) β© π« π)) |
26 | 24, 25 | syl 17 |
. . . . . . . . . . 11
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ (π¦ β π« π β§ ({π} β π¦ β§ π¦ β π))) β ((πΉβπ) β© π« π¦) β ((πΉβπ) β© π« π)) |
27 | | simprrl 780 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ (π¦ β π« π β§ ({π} β π¦ β§ π¦ β π))) β {π} β π¦) |
28 | | snssg 4787 |
. . . . . . . . . . . . . 14
β’ (π β π β (π β π¦ β {π} β π¦)) |
29 | 28 | ad3antlr 730 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ (π¦ β π« π β§ ({π} β π¦ β§ π¦ β π))) β (π β π¦ β {π} β π¦)) |
30 | 27, 29 | mpbird 257 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ (π¦ β π« π β§ ({π} β π¦ β§ π¦ β π))) β π β π¦) |
31 | | fveq2 6889 |
. . . . . . . . . . . . . . 15
β’ (π₯ = π β (πΉβπ₯) = (πΉβπ)) |
32 | 31 | ineq1d 4211 |
. . . . . . . . . . . . . 14
β’ (π₯ = π β ((πΉβπ₯) β© π« π¦) = ((πΉβπ) β© π« π¦)) |
33 | 32 | neeq1d 3001 |
. . . . . . . . . . . . 13
β’ (π₯ = π β (((πΉβπ₯) β© π« π¦) β β
β ((πΉβπ) β© π« π¦) β β
)) |
34 | 33 | rspcv 3609 |
. . . . . . . . . . . 12
β’ (π β π¦ β (βπ₯ β π¦ ((πΉβπ₯) β© π« π¦) β β
β ((πΉβπ) β© π« π¦) β β
)) |
35 | 30, 34 | syl 17 |
. . . . . . . . . . 11
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ (π¦ β π« π β§ ({π} β π¦ β§ π¦ β π))) β (βπ₯ β π¦ ((πΉβπ₯) β© π« π¦) β β
β ((πΉβπ) β© π« π¦) β β
)) |
36 | | ssn0 4400 |
. . . . . . . . . . 11
β’ ((((πΉβπ) β© π« π¦) β ((πΉβπ) β© π« π) β§ ((πΉβπ) β© π« π¦) β β
) β ((πΉβπ) β© π« π) β β
) |
37 | 26, 35, 36 | syl6an 683 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ (π¦ β π« π β§ ({π} β π¦ β§ π¦ β π))) β (βπ₯ β π¦ ((πΉβπ₯) β© π« π¦) β β
β ((πΉβπ) β© π« π) β β
)) |
38 | 37 | expr 458 |
. . . . . . . . 9
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ π¦ β π« π) β (({π} β π¦ β§ π¦ β π) β (βπ₯ β π¦ ((πΉβπ₯) β© π« π¦) β β
β ((πΉβπ) β© π« π) β β
))) |
39 | 38 | com23 86 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β ((neiβπ½)β{π})) β§ π¦ β π« π) β (βπ₯ β π¦ ((πΉβπ₯) β© π« π¦) β β
β (({π} β π¦ β§ π¦ β π) β ((πΉβπ) β© π« π) β β
))) |
40 | 39 | expimpd 455 |
. . . . . . 7
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β ((π¦ β π« π β§ βπ₯ β π¦ ((πΉβπ₯) β© π« π¦) β β
) β (({π} β π¦ β§ π¦ β π) β ((πΉβπ) β© π« π) β β
))) |
41 | 22, 40 | biimtrid 241 |
. . . . . 6
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β (π¦ β π½ β (({π} β π¦ β§ π¦ β π) β ((πΉβπ) β© π« π) β β
))) |
42 | 41 | rexlimdv 3154 |
. . . . 5
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β (βπ¦ β π½ ({π} β π¦ β§ π¦ β π) β ((πΉβπ) β© π« π) β β
)) |
43 | 17, 42 | mpd 15 |
. . . 4
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β ((πΉβπ) β© π« π) β β
) |
44 | 15, 43 | jca 513 |
. . 3
β’ (((π β§ π β π) β§ π β ((neiβπ½)β{π})) β (π β π β§ ((πΉβπ) β© π« π) β β
)) |
45 | 44 | ex 414 |
. 2
β’ ((π β§ π β π) β (π β ((neiβπ½)β{π}) β (π β π β§ ((πΉβπ) β© π« π) β β
))) |
46 | | n0 4346 |
. . . 4
β’ (((πΉβπ) β© π« π) β β
β βπ π β ((πΉβπ) β© π« π)) |
47 | | elin 3964 |
. . . . . 6
β’ (π β ((πΉβπ) β© π« π) β (π β (πΉβπ) β§ π β π« π)) |
48 | | simprl 770 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β π) |
49 | 13 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π = βͺ π½) |
50 | 48, 49 | sseqtrd 4022 |
. . . . . . . 8
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β βͺ π½) |
51 | 1 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β π) |
52 | 2 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β πΉ:πβΆ(π« π« π β
{β
})) |
53 | | simpll 766 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π) |
54 | 53, 3 | sylan 581 |
. . . . . . . . 9
β’ ((((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β§ (π₯ β π β§ π£ β (πΉβπ₯) β§ π€ β (πΉβπ₯))) β ((πΉβπ₯) β© π« (π£ β© π€)) β β
) |
55 | | neibastop1.5 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β π β§ π£ β (πΉβπ₯))) β π₯ β π£) |
56 | 53, 55 | sylan 581 |
. . . . . . . . 9
β’ ((((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β§ (π₯ β π β§ π£ β (πΉβπ₯))) β π₯ β π£) |
57 | | neibastop1.6 |
. . . . . . . . . 10
β’ ((π β§ (π₯ β π β§ π£ β (πΉβπ₯))) β βπ‘ β (πΉβπ₯)βπ¦ β π‘ ((πΉβπ¦) β© π« π£) β β
) |
58 | 53, 57 | sylan 581 |
. . . . . . . . 9
β’ ((((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β§ (π₯ β π β§ π£ β (πΉβπ₯))) β βπ‘ β (πΉβπ₯)βπ¦ β π‘ ((πΉβπ¦) β© π« π£) β β
) |
59 | | simplr 768 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β π) |
60 | | simprrl 780 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β (πΉβπ)) |
61 | | simprrr 781 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β π« π) |
62 | 61 | elpwid 4611 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β π) |
63 | | fveq2 6889 |
. . . . . . . . . . . . . . . 16
β’ (π = π₯ β (πΉβπ) = (πΉβπ₯)) |
64 | 63 | ineq1d 4211 |
. . . . . . . . . . . . . . 15
β’ (π = π₯ β ((πΉβπ) β© π« π) = ((πΉβπ₯) β© π« π)) |
65 | 64 | cbviunv 5043 |
. . . . . . . . . . . . . 14
β’ βͺ π β π ((πΉβπ) β© π« π) = βͺ π₯ β π ((πΉβπ₯) β© π« π) |
66 | | pweq 4616 |
. . . . . . . . . . . . . . . 16
β’ (π = π§ β π« π = π« π§) |
67 | 66 | ineq2d 4212 |
. . . . . . . . . . . . . . 15
β’ (π = π§ β ((πΉβπ₯) β© π« π) = ((πΉβπ₯) β© π« π§)) |
68 | 67 | iuneq2d 5026 |
. . . . . . . . . . . . . 14
β’ (π = π§ β βͺ
π₯ β π ((πΉβπ₯) β© π« π) = βͺ π₯ β π ((πΉβπ₯) β© π« π§)) |
69 | 65, 68 | eqtrid 2785 |
. . . . . . . . . . . . 13
β’ (π = π§ β βͺ
π β π ((πΉβπ) β© π« π) = βͺ π₯ β π ((πΉβπ₯) β© π« π§)) |
70 | 69 | cbviunv 5043 |
. . . . . . . . . . . 12
β’ βͺ π β π βͺ π β π ((πΉβπ) β© π« π) = βͺ π§ β π βͺ π₯ β π ((πΉβπ₯) β© π« π§) |
71 | 70 | mpteq2i 5253 |
. . . . . . . . . . 11
β’ (π β V β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)) = (π β V β¦ βͺ π§ β π βͺ π₯ β π ((πΉβπ₯) β© π« π§)) |
72 | | rdgeq1 8408 |
. . . . . . . . . . 11
β’ ((π β V β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)) = (π β V β¦ βͺ π§ β π βͺ π₯ β π ((πΉβπ₯) β© π« π§)) β rec((π β V β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) = rec((π β V β¦ βͺ π§ β π βͺ π₯ β π ((πΉβπ₯) β© π« π§)), {π })) |
73 | 71, 72 | ax-mp 5 |
. . . . . . . . . 10
β’
rec((π β V
β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) = rec((π β V β¦ βͺ π§ β π βͺ π₯ β π ((πΉβπ₯) β© π« π§)), {π }) |
74 | 73 | reseq1i 5976 |
. . . . . . . . 9
β’
(rec((π β V
β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο) = (rec((π β V β¦ βͺ π§ β π βͺ π₯ β π ((πΉβπ₯) β© π« π§)), {π }) βΎ Ο) |
75 | | pweq 4616 |
. . . . . . . . . . . . . 14
β’ (π = π β π« π = π« π) |
76 | 75 | ineq2d 4212 |
. . . . . . . . . . . . 13
β’ (π = π β ((πΉβπ€) β© π« π) = ((πΉβπ€) β© π« π)) |
77 | 76 | neeq1d 3001 |
. . . . . . . . . . . 12
β’ (π = π β (((πΉβπ€) β© π« π) β β
β ((πΉβπ€) β© π« π) β β
)) |
78 | 77 | cbvrexvw 3236 |
. . . . . . . . . . 11
β’
(βπ β
βͺ ran (rec((π β V β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο)((πΉβπ€) β© π« π) β β
β βπ β βͺ ran (rec((π β V β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο)((πΉβπ€) β© π« π) β β
) |
79 | | fveq2 6889 |
. . . . . . . . . . . . . 14
β’ (π€ = π¦ β (πΉβπ€) = (πΉβπ¦)) |
80 | 79 | ineq1d 4211 |
. . . . . . . . . . . . 13
β’ (π€ = π¦ β ((πΉβπ€) β© π« π) = ((πΉβπ¦) β© π« π)) |
81 | 80 | neeq1d 3001 |
. . . . . . . . . . . 12
β’ (π€ = π¦ β (((πΉβπ€) β© π« π) β β
β ((πΉβπ¦) β© π« π) β β
)) |
82 | 81 | rexbidv 3179 |
. . . . . . . . . . 11
β’ (π€ = π¦ β (βπ β βͺ ran
(rec((π β V β¦
βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο)((πΉβπ€) β© π« π) β β
β βπ β βͺ ran (rec((π β V β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο)((πΉβπ¦) β© π« π) β β
)) |
83 | 78, 82 | bitrid 283 |
. . . . . . . . . 10
β’ (π€ = π¦ β (βπ β βͺ ran
(rec((π β V β¦
βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο)((πΉβπ€) β© π« π) β β
β βπ β βͺ ran (rec((π β V β¦ βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο)((πΉβπ¦) β© π« π) β β
)) |
84 | 83 | cbvrabv 3443 |
. . . . . . . . 9
β’ {π€ β π β£ βπ β βͺ ran
(rec((π β V β¦
βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο)((πΉβπ€) β© π« π) β β
} = {π¦ β π β£ βπ β βͺ ran
(rec((π β V β¦
βͺ π β π βͺ π β π ((πΉβπ) β© π« π)), {π }) βΎ Ο)((πΉβπ¦) β© π« π) β β
} |
85 | 51, 52, 54, 4, 56, 58, 59, 48, 60, 62, 74, 84 | neibastop2lem 35234 |
. . . . . . . 8
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β βπ’ β π½ (π β π’ β§ π’ β π)) |
86 | 7 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π½ β Top) |
87 | 59, 49 | eleqtrd 2836 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β βͺ π½) |
88 | 9 | isneip 22601 |
. . . . . . . . 9
β’ ((π½ β Top β§ π β βͺ π½)
β (π β
((neiβπ½)β{π}) β (π β βͺ π½ β§ βπ’ β π½ (π β π’ β§ π’ β π)))) |
89 | 86, 87, 88 | syl2anc 585 |
. . . . . . . 8
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β (π β ((neiβπ½)β{π}) β (π β βͺ π½ β§ βπ’ β π½ (π β π’ β§ π’ β π)))) |
90 | 50, 85, 89 | mpbir2and 712 |
. . . . . . 7
β’ (((π β§ π β π) β§ (π β π β§ (π β (πΉβπ) β§ π β π« π))) β π β ((neiβπ½)β{π})) |
91 | 90 | expr 458 |
. . . . . 6
β’ (((π β§ π β π) β§ π β π) β ((π β (πΉβπ) β§ π β π« π) β π β ((neiβπ½)β{π}))) |
92 | 47, 91 | biimtrid 241 |
. . . . 5
β’ (((π β§ π β π) β§ π β π) β (π β ((πΉβπ) β© π« π) β π β ((neiβπ½)β{π}))) |
93 | 92 | exlimdv 1937 |
. . . 4
β’ (((π β§ π β π) β§ π β π) β (βπ π β ((πΉβπ) β© π« π) β π β ((neiβπ½)β{π}))) |
94 | 46, 93 | biimtrid 241 |
. . 3
β’ (((π β§ π β π) β§ π β π) β (((πΉβπ) β© π« π) β β
β π β ((neiβπ½)β{π}))) |
95 | 94 | expimpd 455 |
. 2
β’ ((π β§ π β π) β ((π β π β§ ((πΉβπ) β© π« π) β β
) β π β ((neiβπ½)β{π}))) |
96 | 45, 95 | impbid 211 |
1
β’ ((π β§ π β π) β (π β ((neiβπ½)β{π}) β (π β π β§ ((πΉβπ) β© π« π) β β
))) |