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