sig
  val properties_changed :
    t -> (string * OBus_value.V.single) list OBus_signal.t
  val hw_address : t -> string OBus_property.r
  val name : t -> string OBus_property.r
  val bt_capabilities : t -> int OBus_property.r
  val properties : t -> OBus_property.group
end