fact: Definition isgropisob {X Y : setwithbinop} (f : binopiso X Y) (is : isgrop (@op Y)) : isgrop (@op X) := tpair _ (ismonoidopisob f is) (tpair _ (funcomp (pr1 f) (funcomp (grinv_is is) (invmap (pr1 f)))) (isinvisob f (unel_is is) (grinv_is is) (pr2 (pr2 is)))).
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions