Definition tru {X : hSet} (b : bounded_prebilattice X) : X := Ltop (pr1 b).
Require Import UniMath.Algebra.BinaryOperations. Require Import UniMath.OrderTheory.Lattice.Lattice. Require Import UniMath.OrderTheory.Lattice.Bounded.