Hashtbl.Make (
    struct
      type t = clause
          
      let equal = clause_approx_equal
      let hash = hash_of_clause
    end
  )