fact: Fixpoint eq0_hpoly (p : hpoly A) : bool := match p with | Pc a => (a == 0)%C | PX a n p' => (eq0_hpoly p') && (a == 0)%C 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)