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