fact: Definition phi_inv (p : {poly R^c}) := map_poly (fun x : R^c => x : R) p : {poly R}^c.
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)