Metamath Proof Explorer


Theorem atmod2i1

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

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