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