sig
type 'a t
val create : 'a -> 'a Inria_table.t
val emit : 'a Inria_table.t -> 'a -> unit
val iter : 'a Inria_table.t -> ('a -> unit) -> unit
val trim : 'a Inria_table.t -> 'a array
exception Error
val get : 'a Inria_table.t -> int -> 'a
val size : 'a Inria_table.t -> int
end