1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
module List = Stdlib.ListLabels
module Poly = struct
let equal = ( = )
let compare = compare
end
module Phys_equal = struct
let equal = ( == )
end
let ( = ) = Int.equal
let ( == ) = [ `Use_phys_equal ]
let ( < ) (x : int) (y : int) = x < y
let ( > ) (x : int) (y : int) = x > y
let min = Int.min
let max = Int.max
let compare = Int.compare
module Int = struct
let[@warning "-32"] hash (x : int) = Hashtbl.hash x
include Stdlib.Int
end