Step | Hyp | Ref
| Expression |
1 | | latlem.b |
. . 3
β’ π΅ = (BaseβπΎ) |
2 | | latlem.j |
. . 3
β’ β¨ =
(joinβπΎ) |
3 | | simp1 1136 |
. . 3
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β πΎ β Lat) |
4 | | simp2 1137 |
. . 3
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β π β π΅) |
5 | | simp3 1138 |
. . 3
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β π β π΅) |
6 | | opelxpi 5713 |
. . . . 5
β’ ((π β π΅ β§ π β π΅) β β¨π, πβ© β (π΅ Γ π΅)) |
7 | 6 | 3adant1 1130 |
. . . 4
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β β¨π, πβ© β (π΅ Γ π΅)) |
8 | | latlem.m |
. . . . . . 7
β’ β§ =
(meetβπΎ) |
9 | 1, 2, 8 | islat 18385 |
. . . . . 6
β’ (πΎ β Lat β (πΎ β Poset β§ (dom β¨ = (π΅ Γ π΅) β§ dom β§ = (π΅ Γ π΅)))) |
10 | | simprl 769 |
. . . . . 6
β’ ((πΎ β Poset β§ (dom β¨ = (π΅ Γ π΅) β§ dom β§ = (π΅ Γ π΅))) β dom β¨ = (π΅ Γ π΅)) |
11 | 9, 10 | sylbi 216 |
. . . . 5
β’ (πΎ β Lat β dom β¨ = (π΅ Γ π΅)) |
12 | 11 | 3ad2ant1 1133 |
. . . 4
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β dom β¨ = (π΅ Γ π΅)) |
13 | 7, 12 | eleqtrrd 2836 |
. . 3
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β β¨π, πβ© β dom β¨ ) |
14 | 1, 2, 3, 4, 5, 13 | joincl 18330 |
. 2
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π β¨ π) β π΅) |
15 | | simprr 771 |
. . . . . 6
β’ ((πΎ β Poset β§ (dom β¨ = (π΅ Γ π΅) β§ dom β§ = (π΅ Γ π΅))) β dom β§ = (π΅ Γ π΅)) |
16 | 9, 15 | sylbi 216 |
. . . . 5
β’ (πΎ β Lat β dom β§ = (π΅ Γ π΅)) |
17 | 16 | 3ad2ant1 1133 |
. . . 4
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β dom β§ = (π΅ Γ π΅)) |
18 | 7, 17 | eleqtrrd 2836 |
. . 3
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β β¨π, πβ© β dom β§ ) |
19 | 1, 8, 3, 4, 5, 18 | meetcl 18344 |
. 2
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β (π β§ π) β π΅) |
20 | 14, 19 | jca 512 |
1
β’ ((πΎ β Lat β§ π β π΅ β§ π β π΅) β ((π β¨ π) β π΅ β§ (π β§ π) β π΅)) |