unfold Red in |- *.
intros L p H'.
generalize (redacc_cb L nil); simpl in |- *; auto.
rewrite <- app_nil_end; auto.
Qed.

(* Specifications: *)
Theorem cb_redacc :
forall (L1 L2 : list (poly A0 eqA ltM)) (p : poly A0 eqA ltM),
In p L1 ->
Cb A A0 eqA plusA multA eqA_dec n ltM ltM_dec p (redacc L1 L2 ++ L2).