fact: Definition PsubC_ok : forall c P env, eval_pol env (psubC P c) == eval_pol env P - [c] := let Rops_wd := mk_reqe (SORplus_wd sor) (SORtimes_wd sor) (SORopp_wd sor) in PsubC_ok (SORsetoid sor) Rops_wd (Rth_ARth (SORsetoid sor) Rops_wd (SORrt sor)) (SORrm addon).
imports: NArith Relation_Definitions Setoid Env EnvRing List Bool OrderedRing Refl