fact: Fixpoint map_hpoly A B (f : A -> B) (p : hpoly A) : hpoly B := match p with | Pc c => Pc (f c) | PX a n p => PX (f a) n (map_hpoly f 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)