fact: Definition make_retract {x y x' y' : C} {f : x --> y} {f' : x' --> y'} (ix : x' --> x) (rx : x --> x') (iy : y' --> y) (ry : y --> y') (r : is_retract f f' ix rx iy ry) : retract f f' := tpair _ ix (tpair _ rx (tpair _ iy (tpair _ ry r))).
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.opp_precat