proposition: Lemma iscomprelrelfun2logeqf1 {X Y : UU} {LX RX : hrel X} (RY : hrel Y) (lg : hrellogeq LX RX) (f : X -> X -> Y) (is : iscomprelrelfun2 LX RY f) : iscomprelrelfun2 RX RY f.
proof: Proof. intros. intros x x' x0 x0' r r0. apply (is _ _ _ _ ((pr2 (lg _ _)) r) ((pr2 (lg _ _)) r0)). Defined.
imports: UniMath.Foundations.Propositions