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_id : forall (a : poly A0 eqA ltM) (aL : list (poly A0 eqA ltM)), red (spolyp a a) aL.