intros P.
apply reds_SpolyQ1; auto.
intros; apply buch_reds; auto.
Qed.

(* Specifications: *)
Theorem buch_Grobner :
forall P : list (poly A0 eqA ltM),
Grobner A A0 A1 eqA plusA invA minusA multA divA eqA_dec n ltM ltM_dec
(buch P).