Step | Hyp | Ref
| Expression |
1 | | pmapsub.b |
. . 3
β’ π΅ = (BaseβπΎ) |
2 | | eqid 2733 |
. . 3
β’
(leβπΎ) =
(leβπΎ) |
3 | | eqid 2733 |
. . 3
β’
(AtomsβπΎ) =
(AtomsβπΎ) |
4 | | pmapsub.m |
. . 3
β’ π = (pmapβπΎ) |
5 | 1, 2, 3, 4 | pmapval 38566 |
. 2
β’ ((πΎ β Lat β§ π β π΅) β (πβπ) = {π β (AtomsβπΎ) β£ π(leβπΎ)π}) |
6 | | breq1 5150 |
. . . . . . . . . . . . . 14
β’ (π = π β (π(leβπΎ)π β π(leβπΎ)π)) |
7 | 6 | elrab 3682 |
. . . . . . . . . . . . 13
β’ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β (π β (AtomsβπΎ) β§ π(leβπΎ)π)) |
8 | 1, 3 | atbase 38097 |
. . . . . . . . . . . . . 14
β’ (π β (AtomsβπΎ) β π β π΅) |
9 | 8 | anim1i 616 |
. . . . . . . . . . . . 13
β’ ((π β (AtomsβπΎ) β§ π(leβπΎ)π) β (π β π΅ β§ π(leβπΎ)π)) |
10 | 7, 9 | sylbi 216 |
. . . . . . . . . . . 12
β’ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β (π β π΅ β§ π(leβπΎ)π)) |
11 | | breq1 5150 |
. . . . . . . . . . . . . 14
β’ (π = π β (π(leβπΎ)π β π(leβπΎ)π)) |
12 | 11 | elrab 3682 |
. . . . . . . . . . . . 13
β’ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β (π β (AtomsβπΎ) β§ π(leβπΎ)π)) |
13 | 1, 3 | atbase 38097 |
. . . . . . . . . . . . . 14
β’ (π β (AtomsβπΎ) β π β π΅) |
14 | 13 | anim1i 616 |
. . . . . . . . . . . . 13
β’ ((π β (AtomsβπΎ) β§ π(leβπΎ)π) β (π β π΅ β§ π(leβπΎ)π)) |
15 | 12, 14 | sylbi 216 |
. . . . . . . . . . . 12
β’ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β (π β π΅ β§ π(leβπΎ)π)) |
16 | 10, 15 | anim12i 614 |
. . . . . . . . . . 11
β’ ((π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β§ π β {π β (AtomsβπΎ) β£ π(leβπΎ)π}) β ((π β π΅ β§ π(leβπΎ)π) β§ (π β π΅ β§ π(leβπΎ)π))) |
17 | | an4 655 |
. . . . . . . . . . 11
β’ (((π β π΅ β§ π(leβπΎ)π) β§ (π β π΅ β§ π(leβπΎ)π)) β ((π β π΅ β§ π β π΅) β§ (π(leβπΎ)π β§ π(leβπΎ)π))) |
18 | 16, 17 | sylib 217 |
. . . . . . . . . 10
β’ ((π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β§ π β {π β (AtomsβπΎ) β£ π(leβπΎ)π}) β ((π β π΅ β§ π β π΅) β§ (π(leβπΎ)π β§ π(leβπΎ)π))) |
19 | 18 | anim2i 618 |
. . . . . . . . 9
β’ (((πΎ β Lat β§ π β π΅) β§ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β§ π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) β ((πΎ β Lat β§ π β π΅) β§ ((π β π΅ β§ π β π΅) β§ (π(leβπΎ)π β§ π(leβπΎ)π)))) |
20 | 1, 3 | atbase 38097 |
. . . . . . . . 9
β’ (π β (AtomsβπΎ) β π β π΅) |
21 | | eqid 2733 |
. . . . . . . . . . . . . . . . 17
β’
(joinβπΎ) =
(joinβπΎ) |
22 | 1, 2, 21 | latjle12 18399 |
. . . . . . . . . . . . . . . 16
β’ ((πΎ β Lat β§ (π β π΅ β§ π β π΅ β§ π β π΅)) β ((π(leβπΎ)π β§ π(leβπΎ)π) β (π(joinβπΎ)π)(leβπΎ)π)) |
23 | 22 | biimpd 228 |
. . . . . . . . . . . . . . 15
β’ ((πΎ β Lat β§ (π β π΅ β§ π β π΅ β§ π β π΅)) β ((π(leβπΎ)π β§ π(leβπΎ)π) β (π(joinβπΎ)π)(leβπΎ)π)) |
24 | 23 | 3exp2 1355 |
. . . . . . . . . . . . . 14
β’ (πΎ β Lat β (π β π΅ β (π β π΅ β (π β π΅ β ((π(leβπΎ)π β§ π(leβπΎ)π) β (π(joinβπΎ)π)(leβπΎ)π))))) |
25 | 24 | impd 412 |
. . . . . . . . . . . . 13
β’ (πΎ β Lat β ((π β π΅ β§ π β π΅) β (π β π΅ β ((π(leβπΎ)π β§ π(leβπΎ)π) β (π(joinβπΎ)π)(leβπΎ)π)))) |
26 | 25 | com23 86 |
. . . . . . . . . . . 12
β’ (πΎ β Lat β (π β π΅ β ((π β π΅ β§ π β π΅) β ((π(leβπΎ)π β§ π(leβπΎ)π) β (π(joinβπΎ)π)(leβπΎ)π)))) |
27 | 26 | imp43 429 |
. . . . . . . . . . 11
β’ (((πΎ β Lat β§ π β π΅) β§ ((π β π΅ β§ π β π΅) β§ (π(leβπΎ)π β§ π(leβπΎ)π))) β (π(joinβπΎ)π)(leβπΎ)π) |
28 | 27 | adantr 482 |
. . . . . . . . . 10
β’ ((((πΎ β Lat β§ π β π΅) β§ ((π β π΅ β§ π β π΅) β§ (π(leβπΎ)π β§ π(leβπΎ)π))) β§ π β π΅) β (π(joinβπΎ)π)(leβπΎ)π) |
29 | 1, 21 | latjcl 18388 |
. . . . . . . . . . . . . 14
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π(joinβπΎ)π) β π΅) |
30 | 29 | 3expib 1123 |
. . . . . . . . . . . . 13
β’ (πΎ β Lat β ((π β π΅ β§ π β π΅) β (π(joinβπΎ)π) β π΅)) |
31 | 1, 2 | lattr 18393 |
. . . . . . . . . . . . . . 15
β’ ((πΎ β Lat β§ (π β π΅ β§ (π(joinβπΎ)π) β π΅ β§ π β π΅)) β ((π(leβπΎ)(π(joinβπΎ)π) β§ (π(joinβπΎ)π)(leβπΎ)π) β π(leβπΎ)π)) |
32 | 31 | 3exp2 1355 |
. . . . . . . . . . . . . 14
β’ (πΎ β Lat β (π β π΅ β ((π(joinβπΎ)π) β π΅ β (π β π΅ β ((π(leβπΎ)(π(joinβπΎ)π) β§ (π(joinβπΎ)π)(leβπΎ)π) β π(leβπΎ)π))))) |
33 | 32 | com24 95 |
. . . . . . . . . . . . 13
β’ (πΎ β Lat β (π β π΅ β ((π(joinβπΎ)π) β π΅ β (π β π΅ β ((π(leβπΎ)(π(joinβπΎ)π) β§ (π(joinβπΎ)π)(leβπΎ)π) β π(leβπΎ)π))))) |
34 | 30, 33 | syl5d 73 |
. . . . . . . . . . . 12
β’ (πΎ β Lat β (π β π΅ β ((π β π΅ β§ π β π΅) β (π β π΅ β ((π(leβπΎ)(π(joinβπΎ)π) β§ (π(joinβπΎ)π)(leβπΎ)π) β π(leβπΎ)π))))) |
35 | 34 | imp41 427 |
. . . . . . . . . . 11
β’ ((((πΎ β Lat β§ π β π΅) β§ (π β π΅ β§ π β π΅)) β§ π β π΅) β ((π(leβπΎ)(π(joinβπΎ)π) β§ (π(joinβπΎ)π)(leβπΎ)π) β π(leβπΎ)π)) |
36 | 35 | adantlrr 720 |
. . . . . . . . . 10
β’ ((((πΎ β Lat β§ π β π΅) β§ ((π β π΅ β§ π β π΅) β§ (π(leβπΎ)π β§ π(leβπΎ)π))) β§ π β π΅) β ((π(leβπΎ)(π(joinβπΎ)π) β§ (π(joinβπΎ)π)(leβπΎ)π) β π(leβπΎ)π)) |
37 | 28, 36 | mpan2d 693 |
. . . . . . . . 9
β’ ((((πΎ β Lat β§ π β π΅) β§ ((π β π΅ β§ π β π΅) β§ (π(leβπΎ)π β§ π(leβπΎ)π))) β§ π β π΅) β (π(leβπΎ)(π(joinβπΎ)π) β π(leβπΎ)π)) |
38 | 19, 20, 37 | syl2an 597 |
. . . . . . . 8
β’ ((((πΎ β Lat β§ π β π΅) β§ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β§ π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) β§ π β (AtomsβπΎ)) β (π(leβπΎ)(π(joinβπΎ)π) β π(leβπΎ)π)) |
39 | | simpr 486 |
. . . . . . . 8
β’ ((((πΎ β Lat β§ π β π΅) β§ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β§ π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) β§ π β (AtomsβπΎ)) β π β (AtomsβπΎ)) |
40 | 38, 39 | jctild 527 |
. . . . . . 7
β’ ((((πΎ β Lat β§ π β π΅) β§ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β§ π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) β§ π β (AtomsβπΎ)) β (π(leβπΎ)(π(joinβπΎ)π) β (π β (AtomsβπΎ) β§ π(leβπΎ)π))) |
41 | | breq1 5150 |
. . . . . . . 8
β’ (π = π β (π(leβπΎ)π β π(leβπΎ)π)) |
42 | 41 | elrab 3682 |
. . . . . . 7
β’ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β (π β (AtomsβπΎ) β§ π(leβπΎ)π)) |
43 | 40, 42 | syl6ibr 252 |
. . . . . 6
β’ ((((πΎ β Lat β§ π β π΅) β§ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β§ π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) β§ π β (AtomsβπΎ)) β (π(leβπΎ)(π(joinβπΎ)π) β π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) |
44 | 43 | ralrimiva 3147 |
. . . . 5
β’ (((πΎ β Lat β§ π β π΅) β§ (π β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β§ π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) β βπ β (AtomsβπΎ)(π(leβπΎ)(π(joinβπΎ)π) β π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) |
45 | 44 | ralrimivva 3201 |
. . . 4
β’ ((πΎ β Lat β§ π β π΅) β βπ β {π β (AtomsβπΎ) β£ π(leβπΎ)π}βπ β {π β (AtomsβπΎ) β£ π(leβπΎ)π}βπ β (AtomsβπΎ)(π(leβπΎ)(π(joinβπΎ)π) β π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})) |
46 | | ssrab2 4076 |
. . . 4
β’ {π β (AtomsβπΎ) β£ π(leβπΎ)π} β (AtomsβπΎ) |
47 | 45, 46 | jctil 521 |
. . 3
β’ ((πΎ β Lat β§ π β π΅) β ({π β (AtomsβπΎ) β£ π(leβπΎ)π} β (AtomsβπΎ) β§ βπ β {π β (AtomsβπΎ) β£ π(leβπΎ)π}βπ β {π β (AtomsβπΎ) β£ π(leβπΎ)π}βπ β (AtomsβπΎ)(π(leβπΎ)(π(joinβπΎ)π) β π β {π β (AtomsβπΎ) β£ π(leβπΎ)π}))) |
48 | | pmapsub.s |
. . . . 5
β’ π = (PSubSpβπΎ) |
49 | 2, 21, 3, 48 | ispsubsp 38554 |
. . . 4
β’ (πΎ β Lat β ({π β (AtomsβπΎ) β£ π(leβπΎ)π} β π β ({π β (AtomsβπΎ) β£ π(leβπΎ)π} β (AtomsβπΎ) β§ βπ β {π β (AtomsβπΎ) β£ π(leβπΎ)π}βπ β {π β (AtomsβπΎ) β£ π(leβπΎ)π}βπ β (AtomsβπΎ)(π(leβπΎ)(π(joinβπΎ)π) β π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})))) |
50 | 49 | adantr 482 |
. . 3
β’ ((πΎ β Lat β§ π β π΅) β ({π β (AtomsβπΎ) β£ π(leβπΎ)π} β π β ({π β (AtomsβπΎ) β£ π(leβπΎ)π} β (AtomsβπΎ) β§ βπ β {π β (AtomsβπΎ) β£ π(leβπΎ)π}βπ β {π β (AtomsβπΎ) β£ π(leβπΎ)π}βπ β (AtomsβπΎ)(π(leβπΎ)(π(joinβπΎ)π) β π β {π β (AtomsβπΎ) β£ π(leβπΎ)π})))) |
51 | 47, 50 | mpbird 257 |
. 2
β’ ((πΎ β Lat β§ π β π΅) β {π β (AtomsβπΎ) β£ π(leβπΎ)π} β π) |
52 | 5, 51 | eqeltrd 2834 |
1
β’ ((πΎ β Lat β§ π β π΅) β (πβπ) β π) |