fact: Definition issubmonoid {X : monoid} (A : hsubtype X) : UU := dirprod (issubsetwithbinop (@op X) A) (A (unel X)).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders