fact: Definition plogp (p q : {poly F}) := if boolP (primitive_poly p) is AltTrue Hh then qlogp ((in_qpoly p q) : {poly %/ p with primitive_mi Hh}) else 0%N.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice fintype tuple) mathcomp(div bigop binomial finset finfun ssralg countalg finalg) mathcomp(poly polydiv qpoly perm fingroup falgebra fieldext finfield galois) mathcomp(finalg zmodp matrix vector)