exception Identity_exists of Hydro_types.identity
exception Object_exists of Hydro_lm.interface_base
class type object_adapter_t =
  object
    method add : Hydro_types.identity -> Hydro_lm.interface_base -> unit
    method get_identity : Hydro_lm.interface_base -> Hydro_types.identity
    method invoke_object :
      Hydro_types.identity -> Hydro_types.facet_dispatcher
    method mem_id : Hydro_types.identity -> bool
    method mem_obj : Hydro_lm.interface_base -> bool
    method remove_id : Hydro_types.identity -> unit
    method remove_obj : Hydro_lm.interface_base -> unit
  end
class object_adapter : unit -> object_adapter_t
val object_adapter : unit -> object_adapter_t