(** $x \ge 0$ *) type t = private float (** Conversions *) val of_float : float -> t (** Checks that the float is non-negative. *) val unsafe_of_float : float -> t (** Fast conversion without checking that the float is non-negative. *) val to_float : t -> float val of_string : string -> t val to_string : t -> string