fact: Definition isabgroptoisabmonoidop (X : UU) (opp : binop X) : isabgrop opp -> isabmonoidop opp := λ is : _, make_dirprod (pr1 (pr1 is)) (pr2 is).
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions