Source file `CCMonomorphic.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(* This file is free software, part of containers. See file "license" for more details. *)

let ( = ) : int -> int -> bool = Stdlib.( = )
let ( <> ) : int -> int -> bool = Stdlib.( <> )
let ( < ) : int -> int -> bool = Stdlib.( < )
let ( > ) : int -> int -> bool = Stdlib.( > )
let ( <= ) : int -> int -> bool = Stdlib.( <= )
let ( >= ) : int -> int -> bool = Stdlib.( >= )
let compare : int -> int -> int = Stdlib.compare

[@@@ifge 4.13]

let min : int -> int -> int = Int.min
let max : int -> int -> int = Int.max

[@@@else_]

let min : int -> int -> int = Stdlib.min
let max : int -> int -> int = Stdlib.max

[@@@endif]

let ( =. ) : float -> float -> bool = Stdlib.( = )
let ( <>. ) : float -> float -> bool = Stdlib.( <> )
let ( <. ) : float -> float -> bool = Stdlib.( < )
let ( >. ) : float -> float -> bool = Stdlib.( > )
let ( <=. ) : float -> float -> bool = Stdlib.( <= )
let ( >=. ) : float -> float -> bool = Stdlib.( >= )
let ( == ) = `Consider_using_CCEqual_physical
let ( != ) = `Consider_using_CCEqual_physical