fact: Fixpoint normalize (p : hpoly A) : hpoly A := match p with | Pc c => Pc c | PX a n p => match normalize p with | Pc c => PX a n (Pc c) | PX b m q => if (b == 0)%C then PX a (m + n) q else PX a n (PX b m q) end 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)