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