proposition: Lemma nonneg_poly_deg1 (a : R) : nonneg ('X - a%:P) = (a <= 0).
proof: Proof. by rewrite polyseqXsubC /= ler01 oppr_ge0 !andbT. Qed.
imports: mathcomp(all_ssreflect) mathcomp(ssralg poly polydiv polyorder ssrnum zmodp) mathcomp(polyrcf qe_rcf_th complex) poly_normal pol