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