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