fact: Fixpoint mcomp (n : nat) : monom n -> forall k, vector (poly k) n -> poly k := match n as n return monom n -> forall k, vector (poly k) n -> poly k with | O => fun _ k _ => pconst k 1 | S _ => fun m _ ps => Vhead ps ^ Vhead m * mcomp (Vtail m) (Vtail ps) end.
imports: CoLoR(VecUtil LogicUtil NatUtil) Coq(Arith List Lia)