fact: Record CSetoid : Type := makeCSetoid {cs_crr :> RSetoid; cs_ap : Crelation cs_crr; cs_proof : is_CSetoid cs_crr (@st_eq cs_crr) cs_ap}.
imports: CoRN.tactics.CornTac CoRN.logic.CLogic CoRN.tactics.Step CoRN.algebra.RSetoid