sig
  val interface : OBus_name.interface
  val m_Setup : (string, int32) OBus_member.Method.t
  val m_Teardown : (unit, int32) OBus_member.Method.t
  type 'a members = {
    m_Setup : 'a OBus_object.t -> string -> int32 Lwt.t;
    m_Teardown : 'a OBus_object.t -> unit -> int32 Lwt.t;
  }
  val make :
    'a Hal_interfaces.Org_freedesktop_Hal_Device_Volume_Crypto.members ->
    'a OBus_object.interface
end