Metamath Proof Explorer


Theorem omlmod1i2N

Description: Analogue of modular law atmod1i2 that holds in any OML. (Contributed by NM, 6-Dec-2013) (New usage is discouraged.)

Ref Expression
Hypotheses omlmod.b B=BaseK
omlmod.l ˙=K
omlmod.j ˙=joinK
omlmod.m ˙=meetK
omlmod.c C=cmK
Assertion omlmod1i2N KOMLXBYBZBX˙ZYCZX˙Y˙Z=X˙Y˙Z

Proof

Step Hyp Ref Expression
1 omlmod.b B=BaseK
2 omlmod.l ˙=K
3 omlmod.j ˙=joinK
4 omlmod.m ˙=meetK
5 omlmod.c C=cmK
6 simp1 KOMLXBYBZBX˙ZYCZKOML
7 simp23 KOMLXBYBZBX˙ZYCZZB
8 simp21 KOMLXBYBZBX˙ZYCZXB
9 simp22 KOMLXBYBZBX˙ZYCZYB
10 simp3l KOMLXBYBZBX˙ZYCZX˙Z
11 1 2 5 lecmtN KOMLXBZBX˙ZXCZ
12 6 8 7 11 syl3anc KOMLXBYBZBX˙ZYCZX˙ZXCZ
13 10 12 mpd KOMLXBYBZBX˙ZYCZXCZ
14 1 5 cmtcomN KOMLXBZBXCZZCX
15 6 8 7 14 syl3anc KOMLXBYBZBX˙ZYCZXCZZCX
16 13 15 mpbid KOMLXBYBZBX˙ZYCZZCX
17 simp3r KOMLXBYBZBX˙ZYCZYCZ
18 1 5 cmtcomN KOMLYBZBYCZZCY
19 6 9 7 18 syl3anc KOMLXBYBZBX˙ZYCZYCZZCY
20 17 19 mpbid KOMLXBYBZBX˙ZYCZZCY
21 1 3 4 5 omlfh1N KOMLZBXBYBZCXZCYZ˙X˙Y=Z˙X˙Z˙Y
22 6 7 8 9 16 20 21 syl132anc KOMLXBYBZBX˙ZYCZZ˙X˙Y=Z˙X˙Z˙Y
23 omllat KOMLKLat
24 23 3ad2ant1 KOMLXBYBZBX˙ZYCZKLat
25 1 3 latjcl KLatXBYBX˙YB
26 24 8 9 25 syl3anc KOMLXBYBZBX˙ZYCZX˙YB
27 1 4 latmcom KLatZBX˙YBZ˙X˙Y=X˙Y˙Z
28 24 7 26 27 syl3anc KOMLXBYBZBX˙ZYCZZ˙X˙Y=X˙Y˙Z
29 1 2 4 latleeqm2 KLatXBZBX˙ZZ˙X=X
30 24 8 7 29 syl3anc KOMLXBYBZBX˙ZYCZX˙ZZ˙X=X
31 10 30 mpbid KOMLXBYBZBX˙ZYCZZ˙X=X
32 1 4 latmcom KLatZBYBZ˙Y=Y˙Z
33 24 7 9 32 syl3anc KOMLXBYBZBX˙ZYCZZ˙Y=Y˙Z
34 31 33 oveq12d KOMLXBYBZBX˙ZYCZZ˙X˙Z˙Y=X˙Y˙Z
35 22 28 34 3eqtr3rd KOMLXBYBZBX˙ZYCZX˙Y˙Z=X˙Y˙Z