Step | Hyp | Ref
| Expression |
1 | | kelac1.c |
. . . . . . 7
β’ ((π β§ π₯ β πΌ) β πΆ β (Clsdβπ½)) |
2 | | eqid 2732 |
. . . . . . . 8
β’ βͺ π½ =
βͺ π½ |
3 | 2 | cldss 22524 |
. . . . . . 7
β’ (πΆ β (Clsdβπ½) β πΆ β βͺ π½) |
4 | 1, 3 | syl 17 |
. . . . . 6
β’ ((π β§ π₯ β πΌ) β πΆ β βͺ π½) |
5 | 4 | ralrimiva 3146 |
. . . . 5
β’ (π β βπ₯ β πΌ πΆ β βͺ π½) |
6 | | boxriin 8930 |
. . . . 5
β’
(βπ₯ β
πΌ πΆ β βͺ π½ β Xπ₯ β
πΌ πΆ = (Xπ₯ β πΌ βͺ π½ β© β© π¦ β πΌ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½))) |
7 | 5, 6 | syl 17 |
. . . 4
β’ (π β Xπ₯ β
πΌ πΆ = (Xπ₯ β πΌ βͺ π½ β© β© π¦ β πΌ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½))) |
8 | | kelac1.k |
. . . . . . . . 9
β’ (π β
(βtβ(π₯ β πΌ β¦ π½)) β Comp) |
9 | | cmptop 22890 |
. . . . . . . . 9
β’
((βtβ(π₯ β πΌ β¦ π½)) β Comp β
(βtβ(π₯ β πΌ β¦ π½)) β Top) |
10 | | 0ntop 22398 |
. . . . . . . . . . 11
β’ Β¬
β
β Top |
11 | | fvprc 6880 |
. . . . . . . . . . . 12
β’ (Β¬
(π₯ β πΌ β¦ π½) β V β
(βtβ(π₯ β πΌ β¦ π½)) = β
) |
12 | 11 | eleq1d 2818 |
. . . . . . . . . . 11
β’ (Β¬
(π₯ β πΌ β¦ π½) β V β
((βtβ(π₯ β πΌ β¦ π½)) β Top β β
β
Top)) |
13 | 10, 12 | mtbiri 326 |
. . . . . . . . . 10
β’ (Β¬
(π₯ β πΌ β¦ π½) β V β Β¬
(βtβ(π₯ β πΌ β¦ π½)) β Top) |
14 | 13 | con4i 114 |
. . . . . . . . 9
β’
((βtβ(π₯ β πΌ β¦ π½)) β Top β (π₯ β πΌ β¦ π½) β V) |
15 | 8, 9, 14 | 3syl 18 |
. . . . . . . 8
β’ (π β (π₯ β πΌ β¦ π½) β V) |
16 | | kelac1.j |
. . . . . . . . 9
β’ ((π β§ π₯ β πΌ) β π½ β Top) |
17 | 16 | fmpttd 7111 |
. . . . . . . 8
β’ (π β (π₯ β πΌ β¦ π½):πΌβΆTop) |
18 | | dmfex 7894 |
. . . . . . . 8
β’ (((π₯ β πΌ β¦ π½) β V β§ (π₯ β πΌ β¦ π½):πΌβΆTop) β πΌ β V) |
19 | 15, 17, 18 | syl2anc 584 |
. . . . . . 7
β’ (π β πΌ β V) |
20 | 16 | ralrimiva 3146 |
. . . . . . 7
β’ (π β βπ₯ β πΌ π½ β Top) |
21 | | eqid 2732 |
. . . . . . . 8
β’
(βtβ(π₯ β πΌ β¦ π½)) = (βtβ(π₯ β πΌ β¦ π½)) |
22 | 21 | ptunimpt 23090 |
. . . . . . 7
β’ ((πΌ β V β§ βπ₯ β πΌ π½ β Top) β Xπ₯ β
πΌ βͺ π½ =
βͺ (βtβ(π₯ β πΌ β¦ π½))) |
23 | 19, 20, 22 | syl2anc 584 |
. . . . . 6
β’ (π β Xπ₯ β
πΌ βͺ π½ =
βͺ (βtβ(π₯ β πΌ β¦ π½))) |
24 | 23 | ineq1d 4210 |
. . . . 5
β’ (π β (Xπ₯ β
πΌ βͺ π½
β© β© π¦ β πΌ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) = (βͺ (βtβ(π₯ β πΌ β¦ π½)) β© β©
π¦ β πΌ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½))) |
25 | | eqid 2732 |
. . . . . 6
β’ βͺ (βtβ(π₯ β πΌ β¦ π½)) = βͺ
(βtβ(π₯ β πΌ β¦ π½)) |
26 | 2 | topcld 22530 |
. . . . . . . . . 10
β’ (π½ β Top β βͺ π½
β (Clsdβπ½)) |
27 | 16, 26 | syl 17 |
. . . . . . . . 9
β’ ((π β§ π₯ β πΌ) β βͺ π½ β (Clsdβπ½)) |
28 | 1, 27 | ifcld 4573 |
. . . . . . . 8
β’ ((π β§ π₯ β πΌ) β if(π₯ = π¦, πΆ, βͺ π½) β (Clsdβπ½)) |
29 | 19, 16, 28 | ptcldmpt 23109 |
. . . . . . 7
β’ (π β Xπ₯ β
πΌ if(π₯ = π¦, πΆ, βͺ π½) β
(Clsdβ(βtβ(π₯ β πΌ β¦ π½)))) |
30 | 29 | adantr 481 |
. . . . . 6
β’ ((π β§ π¦ β πΌ) β Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½) β
(Clsdβ(βtβ(π₯ β πΌ β¦ π½)))) |
31 | | simprr 771 |
. . . . . . . 8
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β π§ β Fin) |
32 | | kelac1.b |
. . . . . . . . . . . . . . 15
β’ ((π β§ π₯ β πΌ) β π΅:πβ1-1-ontoβπΆ) |
33 | | f1ofo 6837 |
. . . . . . . . . . . . . . 15
β’ (π΅:πβ1-1-ontoβπΆ β π΅:πβontoβπΆ) |
34 | | foima 6807 |
. . . . . . . . . . . . . . 15
β’ (π΅:πβontoβπΆ β (π΅ β π) = πΆ) |
35 | 32, 33, 34 | 3syl 18 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β πΌ) β (π΅ β π) = πΆ) |
36 | 35 | eqcomd 2738 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β πΌ) β πΆ = (π΅ β π)) |
37 | | kelac1.z |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β πΌ) β π β β
) |
38 | | f1ofn 6831 |
. . . . . . . . . . . . . . . . 17
β’ (π΅:πβ1-1-ontoβπΆ β π΅ Fn π) |
39 | 32, 38 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β πΌ) β π΅ Fn π) |
40 | | ssid 4003 |
. . . . . . . . . . . . . . . 16
β’ π β π |
41 | | fnimaeq0 6680 |
. . . . . . . . . . . . . . . 16
β’ ((π΅ Fn π β§ π β π) β ((π΅ β π) = β
β π = β
)) |
42 | 39, 40, 41 | sylancl 586 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π₯ β πΌ) β ((π΅ β π) = β
β π = β
)) |
43 | 42 | necon3bid 2985 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β πΌ) β ((π΅ β π) β β
β π β β
)) |
44 | 37, 43 | mpbird 256 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β πΌ) β (π΅ β π) β β
) |
45 | 36, 44 | eqnetrd 3008 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β πΌ) β πΆ β β
) |
46 | | n0 4345 |
. . . . . . . . . . . 12
β’ (πΆ β β
β
βπ€ π€ β πΆ) |
47 | 45, 46 | sylib 217 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β πΌ) β βπ€ π€ β πΆ) |
48 | | rexv 3499 |
. . . . . . . . . . 11
β’
(βπ€ β V
π€ β πΆ β βπ€ π€ β πΆ) |
49 | 47, 48 | sylibr 233 |
. . . . . . . . . 10
β’ ((π β§ π₯ β πΌ) β βπ€ β V π€ β πΆ) |
50 | 49 | ralrimiva 3146 |
. . . . . . . . 9
β’ (π β βπ₯ β πΌ βπ€ β V π€ β πΆ) |
51 | | ssralv 4049 |
. . . . . . . . . 10
β’ (π§ β πΌ β (βπ₯ β πΌ βπ€ β V π€ β πΆ β βπ₯ β π§ βπ€ β V π€ β πΆ)) |
52 | 51 | adantr 481 |
. . . . . . . . 9
β’ ((π§ β πΌ β§ π§ β Fin) β (βπ₯ β πΌ βπ€ β V π€ β πΆ β βπ₯ β π§ βπ€ β V π€ β πΆ)) |
53 | 50, 52 | mpan9 507 |
. . . . . . . 8
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β βπ₯ β π§ βπ€ β V π€ β πΆ) |
54 | | eleq1 2821 |
. . . . . . . . 9
β’ (π€ = (πβπ₯) β (π€ β πΆ β (πβπ₯) β πΆ)) |
55 | 54 | ac6sfi 9283 |
. . . . . . . 8
β’ ((π§ β Fin β§ βπ₯ β π§ βπ€ β V π€ β πΆ) β βπ(π:π§βΆV β§ βπ₯ β π§ (πβπ₯) β πΆ)) |
56 | 31, 53, 55 | syl2anc 584 |
. . . . . . 7
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β βπ(π:π§βΆV β§ βπ₯ β π§ (πβπ₯) β πΆ)) |
57 | 23 | eqcomd 2738 |
. . . . . . . . . . 11
β’ (π β βͺ (βtβ(π₯ β πΌ β¦ π½)) = Xπ₯ β πΌ βͺ π½) |
58 | 57 | ineq1d 4210 |
. . . . . . . . . 10
β’ (π β (βͺ (βtβ(π₯ β πΌ β¦ π½)) β© β©
π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) = (Xπ₯ β
πΌ βͺ π½
β© β© π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½))) |
59 | 58 | ad2antrr 724 |
. . . . . . . . 9
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β (βͺ
(βtβ(π₯ β πΌ β¦ π½)) β© β©
π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) = (Xπ₯ β
πΌ βͺ π½
β© β© π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½))) |
60 | | iftrue 4533 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β π§ β if(π₯ β π§, (πβπ₯), π) = (πβπ₯)) |
61 | 60 | ad2antrl 726 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ (π₯ β π§ β§ (πβπ₯) β πΆ)) β if(π₯ β π§, (πβπ₯), π) = (πβπ₯)) |
62 | | simpll 765 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ π₯ β π§) β π) |
63 | | simprl 769 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β π§ β πΌ) |
64 | 63 | sselda 3981 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ π₯ β π§) β π₯ β πΌ) |
65 | 62, 64, 4 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ π₯ β π§) β πΆ β βͺ π½) |
66 | 65 | sseld 3980 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ π₯ β π§) β ((πβπ₯) β πΆ β (πβπ₯) β βͺ π½)) |
67 | 66 | impr 455 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ (π₯ β π§ β§ (πβπ₯) β πΆ)) β (πβπ₯) β βͺ π½) |
68 | 61, 67 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ (π₯ β π§ β§ (πβπ₯) β πΆ)) β if(π₯ β π§, (πβπ₯), π) β βͺ π½) |
69 | 68 | expr 457 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ π₯ β π§) β ((πβπ₯) β πΆ β if(π₯ β π§, (πβπ₯), π) β βͺ π½)) |
70 | 69 | ralimdva 3167 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β (βπ₯ β π§ (πβπ₯) β πΆ β βπ₯ β π§ if(π₯ β π§, (πβπ₯), π) β βͺ π½)) |
71 | 70 | imp 407 |
. . . . . . . . . . . . . 14
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β βπ₯ β π§ if(π₯ β π§, (πβπ₯), π) β βͺ π½) |
72 | | eldifn 4126 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β (πΌ β π§) β Β¬ π₯ β π§) |
73 | 72 | iffalsed 4538 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β (πΌ β π§) β if(π₯ β π§, (πβπ₯), π) = π) |
74 | 73 | adantl 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β (πΌ β π§)) β if(π₯ β π§, (πβπ₯), π) = π) |
75 | | eldifi 4125 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β (πΌ β π§) β π₯ β πΌ) |
76 | | kelac1.u |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π₯ β πΌ) β π β βͺ π½) |
77 | 75, 76 | sylan2 593 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β (πΌ β π§)) β π β βͺ π½) |
78 | 74, 77 | eqeltrd 2833 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β (πΌ β π§)) β if(π₯ β π§, (πβπ₯), π) β βͺ π½) |
79 | 78 | ralrimiva 3146 |
. . . . . . . . . . . . . . 15
β’ (π β βπ₯ β (πΌ β π§)if(π₯ β π§, (πβπ₯), π) β βͺ π½) |
80 | 79 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β βπ₯ β (πΌ β π§)if(π₯ β π§, (πβπ₯), π) β βͺ π½) |
81 | | ralun 4191 |
. . . . . . . . . . . . . 14
β’
((βπ₯ β
π§ if(π₯ β π§, (πβπ₯), π) β βͺ π½ β§ βπ₯ β (πΌ β π§)if(π₯ β π§, (πβπ₯), π) β βͺ π½) β βπ₯ β (π§ βͺ (πΌ β π§))if(π₯ β π§, (πβπ₯), π) β βͺ π½) |
82 | 71, 80, 81 | syl2anc 584 |
. . . . . . . . . . . . 13
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β βπ₯ β (π§ βͺ (πΌ β π§))if(π₯ β π§, (πβπ₯), π) β βͺ π½) |
83 | | undif 4480 |
. . . . . . . . . . . . . . . . 17
β’ (π§ β πΌ β (π§ βͺ (πΌ β π§)) = πΌ) |
84 | 83 | biimpi 215 |
. . . . . . . . . . . . . . . 16
β’ (π§ β πΌ β (π§ βͺ (πΌ β π§)) = πΌ) |
85 | 84 | ad2antrl 726 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β (π§ βͺ (πΌ β π§)) = πΌ) |
86 | 85 | raleqdv 3325 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β (βπ₯ β (π§ βͺ (πΌ β π§))if(π₯ β π§, (πβπ₯), π) β βͺ π½ β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β βͺ π½)) |
87 | 86 | adantr 481 |
. . . . . . . . . . . . 13
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β (βπ₯ β (π§ βͺ (πΌ β π§))if(π₯ β π§, (πβπ₯), π) β βͺ π½ β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β βͺ π½)) |
88 | 82, 87 | mpbid 231 |
. . . . . . . . . . . 12
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β βͺ π½) |
89 | 19 | ad2antrr 724 |
. . . . . . . . . . . . 13
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β πΌ β V) |
90 | | mptelixpg 8925 |
. . . . . . . . . . . . 13
β’ (πΌ β V β ((π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ βͺ π½ β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β βͺ π½)) |
91 | 89, 90 | syl 17 |
. . . . . . . . . . . 12
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β ((π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ βͺ π½ β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β βͺ π½)) |
92 | 88, 91 | mpbird 256 |
. . . . . . . . . . 11
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ βͺ π½) |
93 | | eleq2 2822 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (πΆ = if(π₯ = π¦, πΆ, βͺ π½) β ((πβπ₯) β πΆ β (πβπ₯) β if(π₯ = π¦, πΆ, βͺ π½))) |
94 | | eleq2 2822 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (βͺ π½ =
if(π₯ = π¦, πΆ, βͺ π½) β ((πβπ₯) β βͺ π½ β (πβπ₯) β if(π₯ = π¦, πΆ, βͺ π½))) |
95 | | simplrr 776 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ (π₯ β π§ β§ (πβπ₯) β πΆ)) β§ π₯ = π¦) β (πβπ₯) β πΆ) |
96 | 67 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ (π₯ β π§ β§ (πβπ₯) β πΆ)) β§ Β¬ π₯ = π¦) β (πβπ₯) β βͺ π½) |
97 | 93, 94, 95, 96 | ifbothda 4565 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ (π₯ β π§ β§ (πβπ₯) β πΆ)) β (πβπ₯) β if(π₯ = π¦, πΆ, βͺ π½)) |
98 | 61, 97 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ (π₯ β π§ β§ (πβπ₯) β πΆ)) β if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
99 | 98 | expr 457 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ π₯ β π§) β ((πβπ₯) β πΆ β if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½))) |
100 | 99 | ralimdva 3167 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β (βπ₯ β π§ (πβπ₯) β πΆ β βπ₯ β π§ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½))) |
101 | 100 | imp 407 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β βπ₯ β π§ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
102 | 101 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β§ π¦ β π§) β βπ₯ β π§ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
103 | 77 | adantlr 713 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β π β βͺ π½) |
104 | 73 | adantl 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β if(π₯ β π§, (πβπ₯), π) = π) |
105 | | disjdifr 4471 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((πΌ β π§) β© π§) = β
|
106 | 105 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β ((πΌ β π§) β© π§) = β
) |
107 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β π₯ β (πΌ β π§)) |
108 | | simplr 767 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β π¦ β π§) |
109 | | disjne 4453 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((πΌ β π§) β© π§) = β
β§ π₯ β (πΌ β π§) β§ π¦ β π§) β π₯ β π¦) |
110 | 106, 107,
108, 109 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β π₯ β π¦) |
111 | 110 | neneqd 2945 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β Β¬ π₯ = π¦) |
112 | 111 | iffalsed 4538 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β if(π₯ = π¦, πΆ, βͺ π½) = βͺ
π½) |
113 | 103, 104,
112 | 3eltr4d 2848 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π¦ β π§) β§ π₯ β (πΌ β π§)) β if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
114 | 113 | ralrimiva 3146 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β π§) β βπ₯ β (πΌ β π§)if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
115 | 114 | adantlr 713 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ π¦ β π§) β βπ₯ β (πΌ β π§)if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
116 | 115 | adantlr 713 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β§ π¦ β π§) β βπ₯ β (πΌ β π§)if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
117 | | ralun 4191 |
. . . . . . . . . . . . . . . 16
β’
((βπ₯ β
π§ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½) β§ βπ₯ β (πΌ β π§)if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) β βπ₯ β (π§ βͺ (πΌ β π§))if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
118 | 102, 116,
117 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β§ π¦ β π§) β βπ₯ β (π§ βͺ (πΌ β π§))if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
119 | 85 | raleqdv 3325 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β (βπ₯ β (π§ βͺ (πΌ β π§))if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½) β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½))) |
120 | 119 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β§ π¦ β π§) β (βπ₯ β (π§ βͺ (πΌ β π§))if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½) β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½))) |
121 | 118, 120 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β§ π¦ β π§) β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½)) |
122 | 19 | ad3antrrr 728 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β§ π¦ β π§) β πΌ β V) |
123 | | mptelixpg 8925 |
. . . . . . . . . . . . . . 15
β’ (πΌ β V β ((π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½) β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½))) |
124 | 122, 123 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β§ π¦ β π§) β ((π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½) β βπ₯ β πΌ if(π₯ β π§, (πβπ₯), π) β if(π₯ = π¦, πΆ, βͺ π½))) |
125 | 121, 124 | mpbird 256 |
. . . . . . . . . . . . 13
β’ ((((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β§ π¦ β π§) β (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) |
126 | 125 | ralrimiva 3146 |
. . . . . . . . . . . 12
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β βπ¦ β π§ (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) |
127 | | mptexg 7219 |
. . . . . . . . . . . . . . 15
β’ (πΌ β V β (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β V) |
128 | 19, 127 | syl 17 |
. . . . . . . . . . . . . 14
β’ (π β (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β V) |
129 | 128 | ad2antrr 724 |
. . . . . . . . . . . . 13
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β V) |
130 | | eliin 5001 |
. . . . . . . . . . . . 13
β’ ((π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β V β ((π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β β© π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½) β βπ¦ β π§ (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½))) |
131 | 129, 130 | syl 17 |
. . . . . . . . . . . 12
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β ((π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β β© π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½) β βπ¦ β π§ (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½))) |
132 | 126, 131 | mpbird 256 |
. . . . . . . . . . 11
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β β© π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) |
133 | 92, 132 | elind 4193 |
. . . . . . . . . 10
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β (π₯ β πΌ β¦ if(π₯ β π§, (πβπ₯), π)) β (Xπ₯ β πΌ βͺ π½ β© β© π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½))) |
134 | 133 | ne0d 4334 |
. . . . . . . . 9
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β (Xπ₯ β πΌ βͺ π½ β© β© π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) β
β
) |
135 | 59, 134 | eqnetrd 3008 |
. . . . . . . 8
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ βπ₯ β π§ (πβπ₯) β πΆ) β (βͺ
(βtβ(π₯ β πΌ β¦ π½)) β© β©
π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) β
β
) |
136 | 135 | adantrl 714 |
. . . . . . 7
β’ (((π β§ (π§ β πΌ β§ π§ β Fin)) β§ (π:π§βΆV β§ βπ₯ β π§ (πβπ₯) β πΆ)) β (βͺ
(βtβ(π₯ β πΌ β¦ π½)) β© β©
π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) β
β
) |
137 | 56, 136 | exlimddv 1938 |
. . . . . 6
β’ ((π β§ (π§ β πΌ β§ π§ β Fin)) β (βͺ (βtβ(π₯ β πΌ β¦ π½)) β© β©
π¦ β π§ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) β
β
) |
138 | 25, 8, 30, 137 | cmpfiiin 41420 |
. . . . 5
β’ (π β (βͺ (βtβ(π₯ β πΌ β¦ π½)) β© β©
π¦ β πΌ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) β
β
) |
139 | 24, 138 | eqnetrd 3008 |
. . . 4
β’ (π β (Xπ₯ β
πΌ βͺ π½
β© β© π¦ β πΌ Xπ₯ β πΌ if(π₯ = π¦, πΆ, βͺ π½)) β
β
) |
140 | 7, 139 | eqnetrd 3008 |
. . 3
β’ (π β Xπ₯ β
πΌ πΆ β β
) |
141 | | n0 4345 |
. . 3
β’ (Xπ₯ β
πΌ πΆ β β
β βπ¦ π¦ β Xπ₯ β πΌ πΆ) |
142 | 140, 141 | sylib 217 |
. 2
β’ (π β βπ¦ π¦ β Xπ₯ β πΌ πΆ) |
143 | | elixp2 8891 |
. . . . . 6
β’ (π¦ β Xπ₯ β
πΌ πΆ β (π¦ β V β§ π¦ Fn πΌ β§ βπ₯ β πΌ (π¦βπ₯) β πΆ)) |
144 | 143 | simp3bi 1147 |
. . . . 5
β’ (π¦ β Xπ₯ β
πΌ πΆ β βπ₯ β πΌ (π¦βπ₯) β πΆ) |
145 | | f1ocnv 6842 |
. . . . . . . 8
β’ (π΅:πβ1-1-ontoβπΆ β β‘π΅:πΆβ1-1-ontoβπ) |
146 | | f1of 6830 |
. . . . . . . 8
β’ (β‘π΅:πΆβ1-1-ontoβπ β β‘π΅:πΆβΆπ) |
147 | | ffvelcdm 7080 |
. . . . . . . . 9
β’ ((β‘π΅:πΆβΆπ β§ (π¦βπ₯) β πΆ) β (β‘π΅β(π¦βπ₯)) β π) |
148 | 147 | ex 413 |
. . . . . . . 8
β’ (β‘π΅:πΆβΆπ β ((π¦βπ₯) β πΆ β (β‘π΅β(π¦βπ₯)) β π)) |
149 | 32, 145, 146, 148 | 4syl 19 |
. . . . . . 7
β’ ((π β§ π₯ β πΌ) β ((π¦βπ₯) β πΆ β (β‘π΅β(π¦βπ₯)) β π)) |
150 | 149 | ralimdva 3167 |
. . . . . 6
β’ (π β (βπ₯ β πΌ (π¦βπ₯) β πΆ β βπ₯ β πΌ (β‘π΅β(π¦βπ₯)) β π)) |
151 | 150 | imp 407 |
. . . . 5
β’ ((π β§ βπ₯ β πΌ (π¦βπ₯) β πΆ) β βπ₯ β πΌ (β‘π΅β(π¦βπ₯)) β π) |
152 | 144, 151 | sylan2 593 |
. . . 4
β’ ((π β§ π¦ β Xπ₯ β πΌ πΆ) β βπ₯ β πΌ (β‘π΅β(π¦βπ₯)) β π) |
153 | | mptelixpg 8925 |
. . . . . 6
β’ (πΌ β V β ((π₯ β πΌ β¦ (β‘π΅β(π¦βπ₯))) β Xπ₯ β πΌ π β βπ₯ β πΌ (β‘π΅β(π¦βπ₯)) β π)) |
154 | 19, 153 | syl 17 |
. . . . 5
β’ (π β ((π₯ β πΌ β¦ (β‘π΅β(π¦βπ₯))) β Xπ₯ β πΌ π β βπ₯ β πΌ (β‘π΅β(π¦βπ₯)) β π)) |
155 | 154 | adantr 481 |
. . . 4
β’ ((π β§ π¦ β Xπ₯ β πΌ πΆ) β ((π₯ β πΌ β¦ (β‘π΅β(π¦βπ₯))) β Xπ₯ β πΌ π β βπ₯ β πΌ (β‘π΅β(π¦βπ₯)) β π)) |
156 | 152, 155 | mpbird 256 |
. . 3
β’ ((π β§ π¦ β Xπ₯ β πΌ πΆ) β (π₯ β πΌ β¦ (β‘π΅β(π¦βπ₯))) β Xπ₯ β πΌ π) |
157 | 156 | ne0d 4334 |
. 2
β’ ((π β§ π¦ β Xπ₯ β πΌ πΆ) β Xπ₯ β πΌ π β β
) |
158 | 142, 157 | exlimddv 1938 |
1
β’ (π β Xπ₯ β
πΌ π β β
) |