module F:sig
..end
type
t
val of_float : float -> t
val to_float : t -> float
exception Nan_or_infinite
val equal : t -> t -> bool
val pretty : Format.formatter -> t -> unit
val pretty_normal : use_hex:bool -> Format.formatter -> t -> unit