proposition: Lemma ltr_piXz2l x (x0 : 0 < x) (x1 : x < 1) : {in >= 0 &, {mono exprz x : x y /~ x < y}}.
proof: Proof. exact: (leW_nmono_in (ler_piXz2l _ _)). Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(fintype finfun bigop order ssralg countalg ssrnum) mathcomp(poly)