fact: Variables (A : Type) (P eqA : relation A) (eqA_dec : forall x y, {eqA x y} + {~eqA x y}) (eqA_Equivalence : Equivalence eqA) (P_eqA_comp : Proper (eqA ==> eqA ==> impl) P).
imports: Coq(Setoid Morphisms Basics) CoLoR(ListExtras NatUtil LogicUtil)