package core-and-more

  1. Overview
  2. Docs
type +'a hash_consed = {
  1. hkey : int;
  2. tag : int;
  3. node : 'a;
}
val pp_hash_consed : (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a0 hash_consed -> unit
val equal_hash_consed : ('a -> 'a -> bool) -> 'a0 hash_consed -> 'a1 hash_consed -> bool
val compare_hash_consed : ('a -> 'a -> int) -> 'a0 hash_consed -> 'a1 hash_consed -> int
val hash_consed_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Ppx_sexp_conv_lib.Sexp.t -> 'a0 hash_consed
val sexp_of_hash_consed : ('a -> Ppx_sexp_conv_lib.Sexp.t) -> 'a0 hash_consed -> Ppx_sexp_conv_lib.Sexp.t