sig val add : t -> Object.t -> unit Lwt.t val mem : t -> Object.id -> bool Lwt.t val get : t -> Object.id -> Object.t Lwt.t val list : t -> Object.id list Lwt.t end