module Hydro_oa:Object adapterssig..end
exception Identity_exists of Hydro_types.identity
exception Object_exists of Hydro_lm.interface_base
class type object_adapter_t =object..end
class object_adapter :unit ->object_adapter_t
val object_adapter : unit -> object_adapter_t