Metamath Proof Explorer


Theorem atmod1i1m

Description: Version of modular law pmod1i that holds in a Hilbert lattice, when an element meets an atom. (Contributed by NM, 2-Sep-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 atmod1i1m ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z = X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z

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 simpl1l ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P ∈ A → K ∈ HL
7 simpr ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P ∈ A → X ∧ ˙ P ∈ A
8 simpl22 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P ∈ A → Y ∈ B
9 simpl23 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P ∈ A → Z ∈ B
10 simpl3 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P ∈ A → X ∧ ˙ P ≤ ˙ Z
11 1 2 3 4 5 atmod1i1 ⊢ K ∈ HL ∧ X ∧ ˙ P ∈ A ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z = X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z
12 6 7 8 9 10 11 syl131anc ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P ∈ A → X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z = X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z
13 simp1l ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → K ∈ HL
14 hlol ⊢ K ∈ HL → K ∈ OL
15 13 14 syl ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → K ∈ OL
16 15 adantr ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → K ∈ OL
17 13 hllatd ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → K ∈ Lat
18 17 adantr ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → K ∈ Lat
19 simpl22 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → Y ∈ B
20 simpl23 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → Z ∈ B
21 1 4 latmcl ⊢ K ∈ Lat ∧ Y ∈ B ∧ Z ∈ B → Y ∧ ˙ Z ∈ B
22 18 19 20 21 syl3anc ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → Y ∧ ˙ Z ∈ B
23 eqid ⊢ 0. ⁡ K = 0. ⁡ K
24 1 3 23 olj02 ⊢ K ∈ OL ∧ Y ∧ ˙ Z ∈ B → 0. ⁡ K ∨ ˙ Y ∧ ˙ Z = Y ∧ ˙ Z
25 16 22 24 syl2anc ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → 0. ⁡ K ∨ ˙ Y ∧ ˙ Z = Y ∧ ˙ Z
26 oveq1 ⊢ X ∧ ˙ P = 0. ⁡ K → X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z = 0. ⁡ K ∨ ˙ Y ∧ ˙ Z
27 26 adantl ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z = 0. ⁡ K ∨ ˙ Y ∧ ˙ Z
28 oveq1 ⊢ X ∧ ˙ P = 0. ⁡ K → X ∧ ˙ P ∨ ˙ Y = 0. ⁡ K ∨ ˙ Y
29 28 adantl ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → X ∧ ˙ P ∨ ˙ Y = 0. ⁡ K ∨ ˙ Y
30 1 3 23 olj02 ⊢ K ∈ OL ∧ Y ∈ B → 0. ⁡ K ∨ ˙ Y = Y
31 16 19 30 syl2anc ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → 0. ⁡ K ∨ ˙ Y = Y
32 29 31 eqtrd ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → X ∧ ˙ P ∨ ˙ Y = Y
33 32 oveq1d ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z = Y ∧ ˙ Z
34 25 27 33 3eqtr4d ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z ∧ X ∧ ˙ P = 0. ⁡ K → X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z = X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z
35 simp21 ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → X ∈ B
36 simp1r ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → P ∈ A
37 1 4 23 5 meetat2 ⊢ K ∈ OL ∧ X ∈ B ∧ P ∈ A → X ∧ ˙ P ∈ A ∨ X ∧ ˙ P = 0. ⁡ K
38 15 35 36 37 syl3anc ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → X ∧ ˙ P ∈ A ∨ X ∧ ˙ P = 0. ⁡ K
39 12 34 38 mpjaodan ⊢ K ∈ HL ∧ P ∈ A ∧ X ∈ B ∧ Y ∈ B ∧ Z ∈ B ∧ X ∧ ˙ P ≤ ˙ Z → X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z = X ∧ ˙ P ∨ ˙ Y ∧ ˙ Z