End Fcalc_bracket_any.

(* Specifications: *)
Theorem inbetween_distance_inexact :
forall l,
inbetween (loc_Inexact l) ->
Rcompare (x - d) (u - x) = l.
Theorem inbetween_distance_inexact_abs :
forall l,
inbetween (loc_Inexact l) ->
Rcompare (Rabs (d - x)) (Rabs (u - x)) = l.
Theorem inbetween_distance_inexact :
forall l,
inbetween (loc_Inexact l) ->
Rcompare (x - d) (u - x) = l.
Theorem inbetween_distance_inexact_abs :
forall l,
inbetween (loc_Inexact l) ->
Rcompare (Rabs (d - x)) (Rabs (u - x)) = l.