Float.Class
type t =
| Infinite
| Nan
| Normal
| Subnormal
| Zero
val compare : t -> t -> int
val all : t list
val t_of_sexp : Sexplib0__.Sexp.t -> t
val sexp_of_t : t -> Sexplib0__.Sexp.t
val t_sexp_grammar : t Sexplib0.Sexp_grammar.t
val of_string : string -> t
val to_string : t -> string