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