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