intros L p H'.
lapply (cb_redacc L nil p); [ intros H'3; generalize H'3 | idtac ];
simpl in |- *; auto.
rewrite <- app_nil_end; auto.
Qed.

(* Specifications: *)
Theorem cb_Red_cb1 :
forall (p : poly A0 eqA ltM) (L : list (poly A0 eqA ltM)),
Cb A A0 eqA plusA multA eqA_dec n ltM ltM_dec p L ->
Cb A A0 eqA plusA multA eqA_dec n ltM ltM_dec p (Red L).