intros Q p q H'; elim H'; auto.
intros p0 q0 H'0 H'1 H'2 H'3.
apply CombLinear_reduceplus with (q := q0); auto.
Qed.

(* Specifications: *)
Theorem Reducestar_pO_imp_CombLinear :
forall (Q : list (poly A0 eqA ltM)) (p q : list (Term A n)),
reducestar A A0 A1 eqA invA minusA multA divA eqA_dec n ltM ltM_dec Q p q ->
canonical A0 eqA ltM p -> eqP A eqA n q (pO A n) -> CombLinear Q p.