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