fact: Definition make_isbinophrel {X : setwithbinop} {R : hrel X} (H1 : ∏ a b c : X, R a b -> R (op c a) (op c b)) (H2 : ∏ a b c : X, R a b -> R (op a c) (op b c)) : isbinophrel R := tpair _ H1 H2.
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Propositions