sig
  type t
  val of_float : float -> Ival.F.t
  val to_float : Ival.F.t -> float
  exception Nan_or_infinite
end