fact: Record algcreal := AlgCReal { creal_of_alg :> creal F; annul_creal : {poly F}; _ : annul_creal \is monic; _ : (annul_creal.[creal_of_alg] == 0)%CR }.
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)