proposition: Lemma eq_creal_horner p (x y : creal) : x == y -> p.[x] == p.[y].
proof: Proof. by move=> hxy /neq_creal_horner. Qed.
imports: 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 bigenough)