Definition make_lattice {X : hSet} {min max : binop X} : islatticeop min max → lattice X := λ (is : islatticeop min max), min,, max ,, is.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.Algebra.Monoids. Require Import UniMath.Algebra.Groups.