fact: Definition Ltop {X : hSet} (is : bounded_lattice X) : X := pr1 (pr2 (pr2 is)).
imports: UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Propositions UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.OrderTheory.Lattice.Lattice