Metamath Proof Explorer


Theorem atmod3i2

Description: Version of modular law that holds in a Hilbert lattice, when one element is an atom. (Contributed by NM, 10-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 atmod3i2 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → X ∨ ˙ Y ∧ ˙ P = Y ∧ ˙ X ∨ ˙ 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 ∧ X ≤ ˙ Y → K ∈ Lat
8 simp23 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → Y ∈ B
9 simp22 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → X ∈ B
10 simp21 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → P ∈ A
11 1 5 atbase ⊢ P ∈ A → P ∈ B
12 10 11 syl ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → P ∈ B
13 1 3 latjcl ⊢ K ∈ Lat ∧ X ∈ B ∧ P ∈ B → X ∨ ˙ P ∈ B
14 7 9 12 13 syl3anc ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → X ∨ ˙ P ∈ B
15 1 4 latmcom ⊢ K ∈ Lat ∧ Y ∈ B ∧ X ∨ ˙ P ∈ B → Y ∧ ˙ X ∨ ˙ P = X ∨ ˙ P ∧ ˙ Y
16 7 8 14 15 syl3anc ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → Y ∧ ˙ X ∨ ˙ P = X ∨ ˙ P ∧ ˙ Y
17 1 2 3 4 5 atmod1i2 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → X ∨ ˙ P ∧ ˙ Y = X ∨ ˙ P ∧ ˙ Y
18 1 4 latmcom ⊢ K ∈ Lat ∧ P ∈ B ∧ Y ∈ B → P ∧ ˙ Y = Y ∧ ˙ P
19 7 12 8 18 syl3anc ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → P ∧ ˙ Y = Y ∧ ˙ P
20 19 oveq2d ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → X ∨ ˙ P ∧ ˙ Y = X ∨ ˙ Y ∧ ˙ P
21 16 17 20 3eqtr2rd ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ X ≤ ˙ Y → X ∨ ˙ Y ∧ ˙ P = Y ∧ ˙ X ∨ ˙ P