(* This code is copyrighted by its authors; it is distributed under  *)
(* the terms of the LGPL license (see LICENSE and description files) *)
Require Export Pcomb.
Require Export Pcrit.
Require Export Buch.
Require Export Fred.
Local Unset Injection On Proofs.
Section BuchRed.
Load "hCoefStructure".
Load "hOrderStructure".
Load "hBuch".

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