Definition mults : Term A n -> list (Term A n) -> list (Term A n).

Lemma mults_order_l : forall l m1 m2, ~ zeroP (A:=A) A0 eqA (n:=n) m1 -> canonical A0 eqA ltM (pX m2 l) -> canonical A0 eqA ltM (pX (multTerm (A:=A) multA (n:=n) m1 m2) (mults m1 l)).