Step | Hyp | Ref
| Expression |
1 | | simpl 483 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (πΎ β HL β§ π β π»)) |
2 | | simprl 769 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β π β π΅) |
3 | | djhlj.b |
. . . . 5
β’ π΅ = (BaseβπΎ) |
4 | | djhlj.h |
. . . . 5
β’ π» = (LHypβπΎ) |
5 | | djhlj.i |
. . . . 5
β’ πΌ = ((DIsoHβπΎ)βπ) |
6 | | eqid 2732 |
. . . . 5
β’
((DVecHβπΎ)βπ) = ((DVecHβπΎ)βπ) |
7 | | eqid 2732 |
. . . . 5
β’
(Baseβ((DVecHβπΎ)βπ)) = (Baseβ((DVecHβπΎ)βπ)) |
8 | 3, 4, 5, 6, 7 | dihss 40110 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ π β π΅) β (πΌβπ) β (Baseβ((DVecHβπΎ)βπ))) |
9 | 2, 8 | syldan 591 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (πΌβπ) β (Baseβ((DVecHβπΎ)βπ))) |
10 | | simprr 771 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β π β π΅) |
11 | 3, 4, 5, 6, 7 | dihss 40110 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ π β π΅) β (πΌβπ) β (Baseβ((DVecHβπΎ)βπ))) |
12 | 10, 11 | syldan 591 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (πΌβπ) β (Baseβ((DVecHβπΎ)βπ))) |
13 | | eqid 2732 |
. . . 4
β’
((ocHβπΎ)βπ) = ((ocHβπΎ)βπ) |
14 | | djhlj.j |
. . . 4
β’ π½ = ((joinHβπΎ)βπ) |
15 | 4, 6, 7, 13, 14 | djhval 40257 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ ((πΌβπ) β (Baseβ((DVecHβπΎ)βπ)) β§ (πΌβπ) β (Baseβ((DVecHβπΎ)βπ)))) β ((πΌβπ)π½(πΌβπ)) = (((ocHβπΎ)βπ)β((((ocHβπΎ)βπ)β(πΌβπ)) β© (((ocHβπΎ)βπ)β(πΌβπ))))) |
16 | 1, 9, 12, 15 | syl12anc 835 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β ((πΌβπ)π½(πΌβπ)) = (((ocHβπΎ)βπ)β((((ocHβπΎ)βπ)β(πΌβπ)) β© (((ocHβπΎ)βπ)β(πΌβπ))))) |
17 | | hlop 38220 |
. . . . . . . 8
β’ (πΎ β HL β πΎ β OP) |
18 | 17 | ad2antrr 724 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β πΎ β OP) |
19 | | eqid 2732 |
. . . . . . . 8
β’
(ocβπΎ) =
(ocβπΎ) |
20 | 3, 19 | opoccl 38052 |
. . . . . . 7
β’ ((πΎ β OP β§ π β π΅) β ((ocβπΎ)βπ) β π΅) |
21 | 18, 2, 20 | syl2anc 584 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β ((ocβπΎ)βπ) β π΅) |
22 | 3, 19 | opoccl 38052 |
. . . . . . 7
β’ ((πΎ β OP β§ π β π΅) β ((ocβπΎ)βπ) β π΅) |
23 | 18, 10, 22 | syl2anc 584 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β ((ocβπΎ)βπ) β π΅) |
24 | | eqid 2732 |
. . . . . . 7
β’
(meetβπΎ) =
(meetβπΎ) |
25 | 3, 24, 4, 5 | dihmeet 40202 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ ((ocβπΎ)βπ) β π΅ β§ ((ocβπΎ)βπ) β π΅) β (πΌβ(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ))) = ((πΌβ((ocβπΎ)βπ)) β© (πΌβ((ocβπΎ)βπ)))) |
26 | 1, 21, 23, 25 | syl3anc 1371 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (πΌβ(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ))) = ((πΌβ((ocβπΎ)βπ)) β© (πΌβ((ocβπΎ)βπ)))) |
27 | 3, 19, 4, 5, 13 | dochvalr2 40221 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ π β π΅) β (((ocHβπΎ)βπ)β(πΌβπ)) = (πΌβ((ocβπΎ)βπ))) |
28 | 2, 27 | syldan 591 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (((ocHβπΎ)βπ)β(πΌβπ)) = (πΌβ((ocβπΎ)βπ))) |
29 | 3, 19, 4, 5, 13 | dochvalr2 40221 |
. . . . . . 7
β’ (((πΎ β HL β§ π β π») β§ π β π΅) β (((ocHβπΎ)βπ)β(πΌβπ)) = (πΌβ((ocβπΎ)βπ))) |
30 | 10, 29 | syldan 591 |
. . . . . 6
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (((ocHβπΎ)βπ)β(πΌβπ)) = (πΌβ((ocβπΎ)βπ))) |
31 | 28, 30 | ineq12d 4212 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β ((((ocHβπΎ)βπ)β(πΌβπ)) β© (((ocHβπΎ)βπ)β(πΌβπ))) = ((πΌβ((ocβπΎ)βπ)) β© (πΌβ((ocβπΎ)βπ)))) |
32 | 26, 31 | eqtr4d 2775 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (πΌβ(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ))) = ((((ocHβπΎ)βπ)β(πΌβπ)) β© (((ocHβπΎ)βπ)β(πΌβπ)))) |
33 | 32 | fveq2d 6892 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (((ocHβπΎ)βπ)β(πΌβ(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ)))) = (((ocHβπΎ)βπ)β((((ocHβπΎ)βπ)β(πΌβπ)) β© (((ocHβπΎ)βπ)β(πΌβπ))))) |
34 | | hllat 38221 |
. . . . . 6
β’ (πΎ β HL β πΎ β Lat) |
35 | 34 | ad2antrr 724 |
. . . . 5
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β πΎ β Lat) |
36 | 3, 24 | latmcl 18389 |
. . . . 5
β’ ((πΎ β Lat β§
((ocβπΎ)βπ) β π΅ β§ ((ocβπΎ)βπ) β π΅) β (((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ)) β π΅) |
37 | 35, 21, 23, 36 | syl3anc 1371 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ)) β π΅) |
38 | 3, 19, 4, 5, 13 | dochvalr2 40221 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ)) β π΅) β (((ocHβπΎ)βπ)β(πΌβ(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ)))) = (πΌβ((ocβπΎ)β(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ))))) |
39 | 37, 38 | syldan 591 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (((ocHβπΎ)βπ)β(πΌβ(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ)))) = (πΌβ((ocβπΎ)β(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ))))) |
40 | 33, 39 | eqtr3d 2774 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (((ocHβπΎ)βπ)β((((ocHβπΎ)βπ)β(πΌβπ)) β© (((ocHβπΎ)βπ)β(πΌβπ)))) = (πΌβ((ocβπΎ)β(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ))))) |
41 | | hlol 38219 |
. . . . 5
β’ (πΎ β HL β πΎ β OL) |
42 | 41 | ad2antrr 724 |
. . . 4
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β πΎ β OL) |
43 | | djhlj.k |
. . . . 5
β’ β¨ =
(joinβπΎ) |
44 | 3, 43, 24, 19 | oldmm4 38078 |
. . . 4
β’ ((πΎ β OL β§ π β π΅ β§ π β π΅) β ((ocβπΎ)β(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ))) = (π β¨ π)) |
45 | 42, 2, 10, 44 | syl3anc 1371 |
. . 3
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β ((ocβπΎ)β(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ))) = (π β¨ π)) |
46 | 45 | fveq2d 6892 |
. 2
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (πΌβ((ocβπΎ)β(((ocβπΎ)βπ)(meetβπΎ)((ocβπΎ)βπ)))) = (πΌβ(π β¨ π))) |
47 | 16, 40, 46 | 3eqtrrd 2777 |
1
β’ (((πΎ β HL β§ π β π») β§ (π β π΅ β§ π β π΅)) β (πΌβ(π β¨ π)) = ((πΌβπ)π½(πΌβπ))) |