fact: Definition make_monoidiso {X Y : monoid} (f : X ≃ Y) (is : ismonoidfun f) : monoidiso X Y := tpair _ f is.
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders