Metamath Proof Explorer


Theorem latmcom

Description: The join of a lattice commutes. (Contributed by NM, 6-Nov-2011)

Ref Expression
Hypotheses latmcom.b ⊢ B = Base K
latmcom.m ⊢ ∧ ˙ = meet ⁡ K
Assertion latmcom ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X ∧ ˙ Y = Y ∧ ˙ X

Proof

Step Hyp Ref Expression
1 latmcom.b ⊢ B = Base K
2 latmcom.m ⊢ ∧ ˙ = meet ⁡ K
3 opelxpi ⊢ X ∈ B ∧ Y ∈ B → X Y ∈ B × B
4 3 3adant1 ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X Y ∈ B × B
5 eqid ⊢ join ⁡ K = join ⁡ K
6 1 5 2 islat ⊢ K ∈ Lat ↔ K ∈ Poset ∧ dom ⁡ join ⁡ K = B × B ∧ dom ⁡ ∧ ˙ = B × B
7 simprr ⊢ K ∈ Poset ∧ dom ⁡ join ⁡ K = B × B ∧ dom ⁡ ∧ ˙ = B × B → dom ⁡ ∧ ˙ = B × B
8 6 7 sylbi ⊢ K ∈ Lat → dom ⁡ ∧ ˙ = B × B
9 8 3ad2ant1 ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → dom ⁡ ∧ ˙ = B × B
10 4 9 eleqtrrd ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X Y ∈ dom ⁡ ∧ ˙
11 opelxpi ⊢ Y ∈ B ∧ X ∈ B → Y X ∈ B × B
12 11 ancoms ⊢ X ∈ B ∧ Y ∈ B → Y X ∈ B × B
13 12 3adant1 ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → Y X ∈ B × B
14 13 9 eleqtrrd ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → Y X ∈ dom ⁡ ∧ ˙
15 10 14 jca ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X Y ∈ dom ⁡ ∧ ˙ ∧ Y X ∈ dom ⁡ ∧ ˙
16 latpos ⊢ K ∈ Lat → K ∈ Poset
17 1 2 meetcom ⊢ K ∈ Poset ∧ X ∈ B ∧ Y ∈ B ∧ X Y ∈ dom ⁡ ∧ ˙ ∧ Y X ∈ dom ⁡ ∧ ˙ → X ∧ ˙ Y = Y ∧ ˙ X
18 16 17 syl3anl1 ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B ∧ X Y ∈ dom ⁡ ∧ ˙ ∧ Y X ∈ dom ⁡ ∧ ˙ → X ∧ ˙ Y = Y ∧ ˙ X
19 15 18 mpdan ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X ∧ ˙ Y = Y ∧ ˙ X