fact: Record is_CSetoid (A : Type) (eq : Relation A) (ap : Crelation A) : CProp := {ax_ap_irreflexive : irreflexive ap; ax_ap_symmetric : Csymmetric ap; ax_ap_cotransitive : cotransitive ap; ax_ap_tight : tight_apart eq ap}.
imports: CoRN.tactics.CornTac CoRN.logic.CLogic CoRN.tactics.Step CoRN.algebra.RSetoid