sig
  type t = CtrlDpds.State.t Inthash.t
  val create : int -> 'Inthash.t
  val add : 'Inthash.t -> int -> '-> unit
  val find : 'Inthash.t -> int -> 'a
  val pretty : Format.formatter -> CtrlDpds.t_info Inthash.t -> unit
end