fact: Definition PExpr_to_poly N : PExpr -> Npoly [comRingType of int] N := fix aux p := match p with | PEc n => n%:~R | PEX n => NpolyX _ N n | PEadd p q => aux p + aux q | PEmul p q => aux p * aux q | PEopp p => - aux p | PEpow p n => aux p ^+ n end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq ssralg ssrint) mathcomp(path choice fintype tuple finset ssralg bigop poly polydiv) mathcomp(zmodp) CoqEAL(hrel param refinements binint poly_op hpoly karatsuba)