Source file `poly.ml`

1
2
3
4
5
6
7
8
9
let hash = Stdlib.Hashtbl.hash
let compare x y = Ordering.of_int (Stdlib.compare x y)
let equal = ( = )
let ( = ) = ( = )
let ( <> ) = ( <> )
let ( < ) = ( < )
let ( <= ) = ( <= )
let ( > ) = ( > )
let ( >= ) = ( >= )