Definition redbuch (L : list (poly A0 eqA ltM)) : list (poly A0 eqA ltM) :=
  Red
    (buch A A0 A1 eqA plusA invA minusA multA divA cs eqA_dec n ltM ltM_dec
       os L).

Theorem redbuch_stable : forall P : list (poly A0 eqA ltM), stable A A0 eqA plusA multA eqA_dec n ltM ltM_dec P (redbuch P).