proposition: Lemma size_annul_creal_gt1 (x : algcreal) : (1 < size (annul_creal x))%N.
proof: Proof. apply: (@has_root_creal_size_gt1 _ x). by rewrite monic_neq0 // monic_annul_creal. exact: root_annul_creal. Qed.
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)