Definition spO : poly A0 eqA ltM.Definition sp1 : poly A0 eqA ltM.Definition sgen : nat -> poly A0 eqA ltM.Definition sscal : A -> poly A0 eqA ltM -> poly A0 eqA ltM.

Theorem red_cons : forall (a : poly A0 eqA ltM) (p : list (poly A0 eqA ltM)), In a p -> red a p.