fact: Definition annul_pet_alg (p : {poly {alg F}}) : {poly F} := if (p != 0) =P true is ReflectT p_neq0 then let: exist2 r _ _ := annul_from_alg_proof p_neq0 (annul_alg_neq0 _) (root_annul_alg _) in r else 0.
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)