fact: Fixpoint to_poly (p : hpoly A) := match p with | Pc c => c%:P | PX a n p => to_poly p * 'X^(cast (n : pos)) + a%:P end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq zmodp) mathcomp(path choice fintype tuple finset ssralg bigop poly polydiv) CoqEAL(param refinements pos hrel poly_op)