fact: Fixpoint from_seq (p : seq A) : hpoly A := match p with | [::] => Pc 0 | [:: c] => Pc c | x :: xs => PX x 1 (from_seq xs) 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)