proposition: Lemma lt_succ_Rfloor x : x < Rfloor x + 1.
proof: Proof. by case/andP: (mem_rg1_Rfloor x). Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra) mathcomp(mathcomp_extra boolp classical_sets set_interval) Setoid