fact: Definition isabmonoidcarrier {X : abmonoid} (A : submonoid X) : isabmonoidop (@op A) := make_dirprod (ismonoidcarrier A) (iscommcarrier A).
imports: UniMath.Algebra.BinaryOperations UniMath.MoreFoundations.Subtypes UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders