fact: Definition annul_from_alg p := if (size (poly_ground p) == 1)%N then lead_coef (poly_ground p) else resultant (poly_ground p) (annul_pet_alg p ^ polyC).
imports: HB(structures) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq choice fintype) mathcomp(bigop order ssralg ssrnum ssrint rat poly polydiv polyorder) mathcomp(perm matrix mxpoly polyXY binomial generic_quotient) mathcomp(cauchyreals separable zmodp bigenough)