fact: Definition mult_monomial_eff (m : seqmultinom) (c : T) (p : effmpoly T) : effmpoly T := M.fold (fun m' c' => M.add (mnm_add_seq m m') (c * c')%C ) p M.empty.
imports: ZArith NArith FMaps FMapAVL mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq) mathcomp(choice finfun tuple fintype ssralg bigop) CoqEAL(hrel) CoqEAL(refinements) CoqEAL(param binord binnat) CoqEAL(seqmx ) CoqEAL(ssrcomplements) mathcomp.multinomials(mpoly freeg)