proposition: Lemma fhrel_monoid_laws_BDL: monoid.laws (BDL+STR+CNV+DIV) fhrel_monoid_ops.
proof: Proof. eapply (laws_of_faithful_functor hrel_of_functor) => //. move => A B e1 e2 H x y. apply/eq_bool_iff. exact: H. Qed.
imports: Setoid Morphisms kat normalisation rewriting kat_tac comparisons rel relalg boolean mathcomp(all_ssreflect)