Lemma join_id {X : hSet} (b : prebilattice X) (x : X) : join b x x = x . Proof. exact (Lmax_id (tlattice b) x). Defined.
Require Import UniMath.Algebra.BinaryOperations. Require Import UniMath.OrderTheory.Lattice.Lattice. Require Import UniMath.OrderTheory.Lattice.Bounded.