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