proposition: Lemma le_nmono : {homo f : x y /~ x < y} -> {mono f : x y /~ x <= y}.
proof: Proof. exact: total_homo_mono. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(path fintype tuple bigop finset div prime finfun) mathcomp(finset)