Hashcons.Makemodule H : HashedTypetype key = H.ttype prop = H.propval create : int -> tval clear : t -> unitval find : t -> key -> (key, prop) hash_consedval iter : ((key, prop) hash_consed -> unit) -> t -> unitval fold : ((key, prop) hash_consed -> 'a -> 'a) -> t -> 'a -> 'aval stats : t -> int * int * int * int * int * int