proposition: Lemma le_creal_cst x y : reflect (cst_creal x <= cst_creal y)%CR (x <= y).
proof: Proof. by rewrite leNgt; apply: (iffP negP)=> ? /lt_creal_cst. 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)