fact: Definition iscomprelrelfun2' {X Y Z} (RX:hrel X) (RY:hrel Y) (RZ:eqrel Z) (f:X->Y->Z) : Type := (∏ x x' y, RX x x' -> RZ (f x y) (f x' y)) × (∏ x y y', RY y y' -> RZ (f x y) (f x y')).
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.PartA