ocaml-containers/src/monomorphic/CCMonomorphic.ml
2018-03-28 19:53:02 -05:00

14 lines
448 B
OCaml

(* This file is free software, part of containers. See file "license" for more details. *)
include Pervasives
let (=.) : float -> float -> bool = (=)
let (<>.) : float -> float -> bool = (<>)
let (<.) : float -> float -> bool = (<)
let (>.) : float -> float -> bool = (>)
let (<=.) : float -> float -> bool = (<=)
let (>=.) : float -> float -> bool = (>=)
let (==) = `Consider_using_CCEqual_physical
let (!=) = `Consider_using_CCEqual_physical