Module Float.Class

type t =
| Infinite
| Nan
| Normal
| Subnormal
| Zero
val compare : t -> t -> int
val all : t list
include Base.Sexpable.S with type t := t
type t
val t_of_sexp : Base.Sexp.t -> t
val sexp_of_t : t -> Base.Sexp.t
include Base.Stringable.S with type t := t
type t
val of_string : string -> t
val to_string : t -> string