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).