fact: Record algdom := AlgDom { annul_algdom : {poly F}; center_alg : F; radius_alg : F; _ : annul_algdom \is monic; _ : radius_alg >= 0; _ : annul_algdom.[center_alg - radius_alg] * annul_algdom.[center_alg + radius_alg] <= 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)