proposition: Lemma Rlt_le_Rdist_compat : forall a b c, a < b -> b <= c -> R_dist c b < R_dist c a.
proof: Proof. intros a b c aleb alec ; unfold R_dist ; do 3 (rewrite Rabs_right || lra). Qed.
imports: Reals Ranalysis_def Rinterval MyRIneq Lra