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