fact: Definition mpoly_mul_eff (p q : effmpoly T) : effmpoly T := M.fold (fun m c => mpoly_add_eff (mult_monomial_eff m c q)) p mp0_eff.
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)