fact: Definition ProdCSetoid (A B : CSetoid) : CSetoid := Build_CSetoid (prodT A B) (prod_eq A B) (prod_ap A B) (prodcsetoid_is_CSetoid A B).
imports: CoRN.tactics.CornTac CoRN.logic.CLogic CoRN.tactics.Step CoRN.algebra.RSetoid