Definition Flt_bool (x y : float) :=
  match Fcompare x y with
  | Lt => true
  | _ => false
  end.

(* Specifications: *)
Theorem Flt_bool_correct_t : forall x y : float, Flt_bool x y = true -> Flt x y.
Theorem Flt_bool_correct_r : forall x y : float, Flt x y -> Flt_bool x y = true.
Theorem Flt_bool_correct_f : forall x y : float, Flt_bool x y = false -> Fle y x.