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