fact: Definition unitmonoid : monoid := make_monoid (make_setwithbinop unitset (λ x : unitset, λ y : unitset, x)) unitmonoid_ismonoid.
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders