intros; unfold Flt, FtoRradix, FtoR in |- *; simpl in |- *; auto with real.
Qed.

(* Specifications: *)
Lemma Fle_Fge : forall x y : float, Fle x y -> Fge y x.
unfold Fle, Fge in |- *; intros x y H'; auto with real.