intros Q; apply reducestar0; auto.
apply Rstar_0; auto.
Qed.
Hint Resolve reducetopO_pO.

(* Specifications: *)
Theorem zerop_red_spoly_l :
forall a b : poly A0 eqA ltM,
zerop a -> forall Q : list (poly A0 eqA ltM), red (spolyp a b) Q.