fact: Definition make_bounded_lattice {X : hSet} {l : lattice X} {bot top : X} : bounded_latticeop l bot top → bounded_lattice X := λ bl, l,, bot,, top,, bl.
imports: UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Propositions UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.OrderTheory.Lattice.Lattice