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 fintype finfun ssrnat seq) mathcomp(choice ssralg poly polydiv mxpoly matrix bigop) mathcomp(mxalgebra perm fingroup tuple) mxstructure dvdring