sig
  module IntTable :
    sig
      type key = int
      type 'a t
      val create : int -> 'a t
      val clear : 'a t -> unit
      val copy : 'a t -> 'a t
      val add : 'a t -> key -> 'a -> unit
      val remove : 'a t -> key -> unit
      val find : 'a t -> key -> 'a
      val find_all : 'a t -> key -> 'a list
      val replace : 'a t -> key -> 'a -> unit
      val mem : 'a t -> key -> bool
      val iter : (key -> 'a -> unit) -> 'a t -> unit
      val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
      val length : 'a t -> int
    end
  module StringTable :
    sig
      type key = string
      type 'a t
      val create : int -> 'a t
      val clear : 'a t -> unit
      val copy : 'a t -> 'a t
      val add : 'a t -> key -> 'a -> unit
      val remove : 'a t -> key -> unit
      val find : 'a t -> key -> 'a
      val find_all : 'a t -> key -> 'a list
      val replace : 'a t -> key -> 'a -> unit
      val mem : 'a t -> key -> bool
      val iter : (key -> 'a -> unit) -> 'a t -> unit
      val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
      val length : 'a t -> int
    end
  val list_remove_first : ('a -> bool) -> 'a list -> 'a list
  val lists_unordered_equal :
    ('a -> 'b -> bool) -> 'a list -> 'b list -> bool
  val lists_equal : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool
  val lists_merge : ('a -> 'a -> bool) -> 'a list -> 'a list -> 'a list
  val list_add : ('a -> 'a -> bool) -> 'a list -> 'a -> 'a list
  val list_first : int -> 'a list -> 'a list
  val do_lists_intersect : ('a -> 'a -> bool) -> 'a list -> 'a list -> bool
  val lists_shared : ('a -> 'a -> bool) -> 'a list list -> 'a list
  val list_map : ('a -> 'a) -> 'a list -> 'a list
  val mapping_extend :
    ('a * 'b) list ->
    ('a -> 'a -> bool) -> ('b -> 'b -> bool) -> 'a -> 'b -> ('a * 'b) list
  val array_iter2 : ('a -> 'b -> unit) -> 'a array -> 'b array -> unit
  val array_fold2 :
    ('a -> 'b -> 'c -> 'a) -> 'a -> 'b array -> 'c array -> 'a
  val array_exists : ('a -> bool) -> 'a array -> bool
  val array_for_all : ('a -> bool) -> 'a array -> bool
  val array_find : ('a -> bool) -> 'a array -> 'a
  val array_for_all2 : ('a -> 'b -> bool) -> 'a array -> 'b array -> bool
  val compare_int : int -> int -> int
  val max_int : int -> int -> int
  val find_max : ('a -> 'a -> int) -> 'a list -> 'a
end