fact: Definition redivp_l (p q : {poly R}) : nat * {poly R} * {poly R} := let:(d,q,p) := redivp (phi p) (phi q) in (d, phi_inv q, phi_inv p).
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq path) mathcomp(ssralg fintype finfun perm matrix bigop zmodp mxalgebra) mathcomp(choice poly polydiv mxpoly binomial)