proposition: Lemma ler_piXz2l x (x0 : 0 < x) (x1 : x < 1) : {in >= 0 &, {mono exprz x : x y /~ x <= y}}.
proof: Proof. apply: (le_nmono_in (inj_nhomo_lt_in _ _)). by move=> n m hn hm /=; apply: ieexprIz; rewrite // lt_eqF. by apply: ler_wpiXz2l; rewrite ?ltW. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(fintype finfun bigop order ssralg countalg ssrnum) mathcomp(poly)