Hashtbl
.
Make
(
struct
type
t = literal
let
equal = literal_equal
let
hash = hash_of_literal
end
)