intros Q p H'.
cut (canonical A0 eqA ltM p);
[ intros C0 | apply inPolySet_imp_canonical with (L := Q); auto ].
apply
CombLinear_comp
with
(p := pluspf (A:=A) A0 (eqA:=eqA) plusA eqA_dec (n:=n) (ltM:=ltM) ltM_dec
(mults (A:=A) multA (n:=n) (T1 A1 n) p)
(pO A n)); auto.
apply CombLinear_1 with (a := T1 A1 n) (p := pO A n) (q := p); auto.
apply
(eqp_trans _ _ _ _ _ _ _ _ _ cs n)
with (y := mults (A:=A) multA (n:=n) (T1 A1 n) p);
auto.
Qed.
Hint Resolve CombLinear_id.

(* Specifications: *)
Theorem CombLinear_spoly :
forall (Q : list (poly A0 eqA ltM)) (p q : list (Term A n))
(Cp : canonical A0 eqA ltM p) (Cq : canonical A0 eqA ltM q),
inPolySet A A0 eqA n ltM p Q ->
inPolySet A A0 eqA n ltM q Q ->
CombLinear Q
(spolyf A A0 A1 eqA invA minusA multA divA eqA_dec n ltM ltM_dec p q Cp Cq).