fact: Record PartFunct (S : CSetoid) : Type := {pfdom : S -> CProp; dom_wd : pred_wd S pfdom; pfpfun :> forall x : S, pfdom x -> S; pfstrx : forall x y Hx Hy, pfpfun x Hx [#] pfpfun y Hy -> x [#] y}.
imports: CoRN.algebra.CSetoids