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