sig type data type t val create : int -> Datatype.Sub_caml_weak_hashtbl.t val add : Datatype.Sub_caml_weak_hashtbl.t -> Datatype.Sub_caml_weak_hashtbl.data -> unit end