intros p q H' H'0.
case (Rabs_pos (q - p)); intros H1.
Contradict H1; apply Rle_not_lt.
replace 0%R with (Rabs (p - p)); [ case H'0; auto | idtac ].
replace (p - p)%R with 0%R; [ apply Rabs_R0; auto | ring ].
apply Rplus_eq_reg_l with (r := (- p)%R).
apply trans_eq with 0%R; [ ring | idtac ].
apply trans_eq with (q - p)%R; [ idtac | ring ].
generalize H1; unfold Rabs in |- *; case (Rcase_abs (q - p)); auto.
intros r H0; replace 0%R with (-0)%R; [ rewrite H0 | idtac ]; ring.
Qed.

(* Specifications: *)
Theorem ClosestM1 :
forall (r1 r2 : R) (min max p q : float),
isMin b radix r1 min ->
isMax b radix r1 max ->
(min + max < 2%nat * r2)%R ->
Closest b radix r1 p -> Closest b radix r2 q -> (p <= q)%R.