Metamath Proof Explorer


Theorem atmod3i1

Description: Version of modular law that holds in a Hilbert lattice, when one element is an atom. (Contributed by NM, 4-Jun-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 atmod3i1 K HL P A X B Y B P ˙ X P ˙ X ˙ Y = X ˙ P ˙ Y

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 simp1 K HL P A X B Y B P ˙ X K HL
7 simp21 K HL P A X B Y B P ˙ X P A
8 simp23 K HL P A X B Y B P ˙ X Y B
9 simp22 K HL P A X B Y B P ˙ X X B
10 simp3 K HL P A X B Y B P ˙ X P ˙ X
11 1 2 3 4 5 atmod1i1 K HL P A Y B X B P ˙ X P ˙ Y ˙ X = P ˙ Y ˙ X
12 6 7 8 9 10 11 syl131anc K HL P A X B Y B P ˙ X P ˙ Y ˙ X = P ˙ Y ˙ X
13 hllat K HL K Lat
14 13 3ad2ant1 K HL P A X B Y B P ˙ X K Lat
15 1 4 latmcom K Lat X B Y B X ˙ Y = Y ˙ X
16 14 9 8 15 syl3anc K HL P A X B Y B P ˙ X X ˙ Y = Y ˙ X
17 16 oveq2d K HL P A X B Y B P ˙ X P ˙ X ˙ Y = P ˙ Y ˙ X
18 1 5 atbase P A P B
19 7 18 syl K HL P A X B Y B P ˙ X P B
20 1 3 latjcl K Lat P B Y B P ˙ Y B
21 14 19 8 20 syl3anc K HL P A X B Y B P ˙ X P ˙ Y B
22 1 4 latmcom K Lat X B P ˙ Y B X ˙ P ˙ Y = P ˙ Y ˙ X
23 14 9 21 22 syl3anc K HL P A X B Y B P ˙ X X ˙ P ˙ Y = P ˙ Y ˙ X
24 12 17 23 3eqtr4d K HL P A X B Y B P ˙ X P ˙ X ˙ Y = X ˙ P ˙ Y