Metamath Proof Explorer


Theorem atmod2i2

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