Metamath Proof Explorer


Theorem atmod1i1m

Description: Version of modular law pmod1i that holds in a Hilbert lattice, when an element meets an atom. (Contributed by NM, 2-Sep-2012) (Revised by Mario Carneiro, 10-May-2013)

Ref Expression
Hypotheses atmod.b B = Base K
atmod.l ˙ = K
atmod.j ˙ = join K
atmod.m ˙ = meet K
atmod.a A = Atoms K
Assertion atmod1i1m K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P ˙ Y ˙ Z = X ˙ P ˙ Y ˙ Z

Proof

Step Hyp Ref Expression
1 atmod.b B = Base K
2 atmod.l ˙ = K
3 atmod.j ˙ = join K
4 atmod.m ˙ = meet K
5 atmod.a A = Atoms K
6 simpl1l K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P A K HL
7 simpr K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P A X ˙ P A
8 simpl22 K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P A Y B
9 simpl23 K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P A Z B
10 simpl3 K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P A X ˙ P ˙ Z
11 1 2 3 4 5 atmod1i1 K HL X ˙ P A Y B Z B X ˙ P ˙ Z X ˙ P ˙ Y ˙ Z = X ˙ P ˙ Y ˙ Z
12 6 7 8 9 10 11 syl131anc K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P A X ˙ P ˙ Y ˙ Z = X ˙ P ˙ Y ˙ Z
13 simp1l K HL P A X B Y B Z B X ˙ P ˙ Z K HL
14 hlol K HL K OL
15 13 14 syl K HL P A X B Y B Z B X ˙ P ˙ Z K OL
16 15 adantr K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K K OL
17 13 hllatd K HL P A X B Y B Z B X ˙ P ˙ Z K Lat
18 17 adantr K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K K Lat
19 simpl22 K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K Y B
20 simpl23 K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K Z B
21 1 4 latmcl K Lat Y B Z B Y ˙ Z B
22 18 19 20 21 syl3anc K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K Y ˙ Z B
23 eqid 0. K = 0. K
24 1 3 23 olj02 K OL Y ˙ Z B 0. K ˙ Y ˙ Z = Y ˙ Z
25 16 22 24 syl2anc K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K 0. K ˙ Y ˙ Z = Y ˙ Z
26 oveq1 X ˙ P = 0. K X ˙ P ˙ Y ˙ Z = 0. K ˙ Y ˙ Z
27 26 adantl K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K X ˙ P ˙ Y ˙ Z = 0. K ˙ Y ˙ Z
28 oveq1 X ˙ P = 0. K X ˙ P ˙ Y = 0. K ˙ Y
29 28 adantl K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K X ˙ P ˙ Y = 0. K ˙ Y
30 1 3 23 olj02 K OL Y B 0. K ˙ Y = Y
31 16 19 30 syl2anc K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K 0. K ˙ Y = Y
32 29 31 eqtrd K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K X ˙ P ˙ Y = Y
33 32 oveq1d K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K X ˙ P ˙ Y ˙ Z = Y ˙ Z
34 25 27 33 3eqtr4d K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P = 0. K X ˙ P ˙ Y ˙ Z = X ˙ P ˙ Y ˙ Z
35 simp21 K HL P A X B Y B Z B X ˙ P ˙ Z X B
36 simp1r K HL P A X B Y B Z B X ˙ P ˙ Z P A
37 1 4 23 5 meetat2 K OL X B P A X ˙ P A X ˙ P = 0. K
38 15 35 36 37 syl3anc K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P A X ˙ P = 0. K
39 12 34 38 mpjaodan K HL P A X B Y B Z B X ˙ P ˙ Z X ˙ P ˙ Y ˙ Z = X ˙ P ˙ Y ˙ Z