(** *** Zero is less than one *)

(* Specifications: *)
Lemma Rlt_0_1 : 0 < 1.
#[global]
Hint Resolve Rinv_0_lt_compat: real.
Lemma Rinv_lt_0_compat : forall r, r < 0 -> / r < 0.
#[global]
Hint Resolve Rinv_lt_0_compat: real.