fact: Definition fhrel_pred (aT rT: finType) (e : {fhrel aT & rT}) := [pred x : aT * rT | e x.1 x.2].
imports: Setoid Morphisms kat normalisation rewriting kat_tac comparisons rel relalg boolean mathcomp(all_ssreflect)