L'égalité dans les hashtables Ocaml

Question

Existe-t-il des hashtables en Ocaml qui utilisent == au lieu de = lors du test d'égalité des clés ? Par exemple :

# type foo = A of int;;
# let a = A(1);;
# let b = A(1);;
# a == b;;
- : bool = false
# a = b;;
- : bool = true
# let h = Hashtbl.create 8;;
# Hashtbl.add h a 1;;
# Hashtbl.add h b 2;;
# Hashtbl.find h a;;
- : int = 2
# Hashtbl.find h b;;
- : int = 2

Je voudrais une table de hachage qui puisse distinguer entre a y b . Est-ce possible ?