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

Lemma canonical_mults_inv : forall (p : list (Term A n)) (a : Term A n), ~ zeroP (A:=A) A0 eqA (n:=n) a -> canonical A0 eqA ltM (mults a p) -> canonical A0 eqA ltM p.