Step | Hyp | Ref
| Expression |
1 | | omllat 38415 |
. . . . 5
β’ (πΎ β OML β πΎ β Lat) |
2 | 1 | 3ad2ant1 1133 |
. . . 4
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β πΎ β Lat) |
3 | | simp2 1137 |
. . . 4
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β π β π΅) |
4 | | omlop 38414 |
. . . . . . 7
β’ (πΎ β OML β πΎ β OP) |
5 | 4 | 3ad2ant1 1133 |
. . . . . 6
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β πΎ β OP) |
6 | | lecmt.b |
. . . . . . 7
β’ π΅ = (BaseβπΎ) |
7 | | eqid 2732 |
. . . . . . 7
β’
(ocβπΎ) =
(ocβπΎ) |
8 | 6, 7 | opoccl 38367 |
. . . . . 6
β’ ((πΎ β OP β§ π β π΅) β ((ocβπΎ)βπ) β π΅) |
9 | 5, 3, 8 | syl2anc 584 |
. . . . 5
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β ((ocβπΎ)βπ) β π΅) |
10 | | simp3 1138 |
. . . . 5
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β π β π΅) |
11 | | eqid 2732 |
. . . . . 6
β’
(joinβπΎ) =
(joinβπΎ) |
12 | 6, 11 | latjcl 18396 |
. . . . 5
β’ ((πΎ β Lat β§
((ocβπΎ)βπ) β π΅ β§ π β π΅) β (((ocβπΎ)βπ)(joinβπΎ)π) β π΅) |
13 | 2, 9, 10, 12 | syl3anc 1371 |
. . . 4
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β (((ocβπΎ)βπ)(joinβπΎ)π) β π΅) |
14 | | lecmt.l |
. . . . 5
β’ β€ =
(leβπΎ) |
15 | | eqid 2732 |
. . . . 5
β’
(meetβπΎ) =
(meetβπΎ) |
16 | 6, 14, 15 | latmle1 18421 |
. . . 4
β’ ((πΎ β Lat β§ π β π΅ β§ (((ocβπΎ)βπ)(joinβπΎ)π) β π΅) β (π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β€ π) |
17 | 2, 3, 13, 16 | syl3anc 1371 |
. . 3
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β (π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β€ π) |
18 | 6, 15 | latmcl 18397 |
. . . . 5
β’ ((πΎ β Lat β§ π β π΅ β§ (((ocβπΎ)βπ)(joinβπΎ)π) β π΅) β (π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β π΅) |
19 | 2, 3, 13, 18 | syl3anc 1371 |
. . . 4
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β (π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β π΅) |
20 | 6, 14 | lattr 18401 |
. . . 4
β’ ((πΎ β Lat β§ ((π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β π΅ β§ π β π΅ β§ π β π΅)) β (((π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β€ π β§ π β€ π) β (π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β€ π)) |
21 | 2, 19, 3, 10, 20 | syl13anc 1372 |
. . 3
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β (((π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β€ π β§ π β€ π) β (π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β€ π)) |
22 | 17, 21 | mpand 693 |
. 2
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β (π β€ π β (π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β€ π)) |
23 | | lecmt.c |
. . 3
β’ πΆ = (cmβπΎ) |
24 | 6, 14, 11, 15, 7, 23 | cmtbr4N 38428 |
. 2
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β (ππΆπ β (π(meetβπΎ)(((ocβπΎ)βπ)(joinβπΎ)π)) β€ π)) |
25 | 22, 24 | sylibrd 258 |
1
β’ ((πΎ β OML β§ π β π΅ β§ π β π΅) β (π β€ π β ππΆπ)) |