fact: Definition ftop_def (A B : finType) of phant A & phant B := (@top (@mor fhrel_monoid_ops A B)).
imports: Setoid Morphisms kat normalisation rewriting kat_tac comparisons rel relalg boolean mathcomp(all_ssreflect)