fact: Definition to_hpoly : {poly A} -> (@hpoly pos A) := fun p => from_seq (polyseq p).
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)