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_incl : forall (a : poly A0 eqA ltM) (p q : list (poly A0 eqA ltM)), incl p q -> red a p -> red a q.