fact: Definition unax (X : monoid) : isunit (@op X) (unel X) := make_dirprod (lunax X) (runax X).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders