module Float_robust_compare:sig..end
val epsilon : floattyperobustly_comparable =float
val (>=.) : float -> float -> boolval (<=.) : float -> float -> boolval (=.) : float -> float -> boolval (>.) : float -> float -> boolval (<.) : float -> float -> boolval (<>.) : float -> float -> bool