unfold MinDistance_lb, MinDistance in |- *; unfold Rminus in |- *;
rewrite (Rplus_comm (m_rho_ub MinT)); rewrite (Rplus_comm (m T));
apply Rplus_le_compat_l...
cut (MinT <= MinT)%R...
intro H; apply Rle_trans with (m MinT)...
apply (m_rho_ub_0 (mkTimeT MinT H MinT_MaxT))...
apply (m_le (mkTimeT MinT H MinT_MaxT) T)...
simpl in |- *; apply (cond_1 T)...
right...
Qed.

(* Specifications: *)
(*** Easy to prove with constructive reals ***)
(*** Verified with Mapple                  ***)
Axiom MinDistance_lb_majoration : (V + ConflictRange < MinDistance_lb)%R.
(**********)
Lemma MinDistance_lb_pos : (0 < MinDistance_lb)%R.
Proof with trivial.