fact: Definition make_isgrop {X : UU} {opp : binop X} (is1 : ismonoidop opp) (is2 : invstruct opp is1) : isgrop opp := tpair (λ is : ismonoidop opp, invstruct opp is) is1 is2.
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions