proposition: Lemma map_poly_div_inj : injective (map_poly (qpolyC h)).
proof: Proof. apply: map_inj_poly => [x y /val_eqP /eqP /polyC_inj //|]. by rewrite qpolyC0. Qed.
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)