proposition: Lemma lt_succ_floor x : x < (floor x)%:~R + 1.
proof: Proof. by rewrite -RfloorE lt_succ_Rfloor. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra) mathcomp(mathcomp_extra boolp classical_sets set_interval) Setoid