fact: Fixpoint mpplus n (c : Z) (m : monom n) (p : poly n) : poly n := match p with | nil => (c,m) :: nil | cons (c',m') p' => match monom_eq_dec m m' with | left _ => (c+c',m) :: p' | right _ => (c',m') :: mpplus c m p' end end.
imports: CoLoR(VecUtil LogicUtil NatUtil) Coq(Arith List Lia)