fact: Definition restr_bin_op (a b : subcsetoid_crr) : subcsetoid_crr := match a, b with | Build_subcsetoid_crr x p, Build_subcsetoid_crr y q => Build_subcsetoid_crr (f x y) (pr x y p q) end.
imports: CoRN.tactics.CornTac CoRN.logic.CLogic CoRN.tactics.Step CoRN.algebra.RSetoid