proposition: Lemma map_fpoly_div_inj (R : idomainType) (h : {poly R}) (hMI : monic_irreducible_poly h) : injective (map_poly (qfpoly_const hMI)).
proof: Proof. by apply: (@map_poly_div_inj R h). 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)