Source file `poly.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
let hash = Hashtbl.hash

let compare x y = Ordering.of_int (Stdlib.compare x y)

let equal = ( = )

let ( = ) = ( = )

let ( <> ) = ( <> )

let ( < ) = ( < )

let ( <= ) = ( <= )

let ( > ) = ( > )

let ( >= ) = ( >= )