HConsed.HC
type key = Base.t
type t = BatHashcons.MakeTable(Base).t
val create : int -> t
val clear : t -> unit
val hashcons : t -> key -> key BatHashcons.hobj
val iter : (key BatHashcons.hobj -> unit) -> t -> unit
val fold : (key BatHashcons.hobj -> 'a -> 'a) -> t -> 'a -> 'a
val count : t -> int