sig
  type t = float
  val compare : float -> float -> int
  val equal : float -> float -> bool
  val hash : 'a -> int
  val gen : ?size:int -> Random.State.t -> float
  val to_string : float -> string
end