fact: Definition bounded_lattice (X : hSet) := ∑ (l : lattice X) (bot top : X), bounded_latticeop l bot top.
imports: UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Propositions UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.OrderTheory.Lattice.Lattice