sig
  type 'a t = 'a array
  val mem : ?equal:('-> '-> bool) -> 'a t -> '-> bool
  val length : 'a t -> int
  val is_empty : 'a t -> bool
  val iter : 'a t -> f:('-> unit) -> unit
  val fold : 'a t -> init:'accum -> f:('accum -> '-> 'accum) -> 'accum
  val exists : 'a t -> f:('-> bool) -> bool
  val for_all : 'a t -> f:('-> bool) -> bool
  val count : 'a t -> f:('-> bool) -> int
  val find : 'a t -> f:('-> bool) -> 'a option
  val find_map : 'a t -> f:('-> 'b option) -> 'b option
  val to_list : 'a t -> 'a list
  val to_array : 'a t -> 'a array
  val max_length : int
  external get : 'a t -> int -> 'a = "%array_safe_get"
  external set : 'a t -> int -> '-> unit = "%array_safe_set"
  external unsafe_get : 'a t -> int -> 'a = "%array_unsafe_get"
  external unsafe_set : 'a t -> int -> '-> unit = "%array_unsafe_set"
  val create : len:int -> '-> 'a t
  val init : int -> f:(int -> 'a) -> 'a t
  val make_matrix : dimx:int -> dimy:int -> '-> 'a t t
  val append : 'a t -> 'a t -> 'a t
  val concat : 'a t list -> 'a t
  val sub : 'a t -> pos:int -> len:int -> 'a t
  val copy : 'a t -> 'a t
  val fill : 'a t -> pos:int -> len:int -> '-> unit
  val blit :
    src:'a t -> src_pos:int -> dst:'a t -> dst_pos:int -> len:int -> unit
  val of_list : 'a list -> 'a t
  val map : f:('-> 'b) -> 'a t -> 'b t
  val iteri : f:(int -> '-> unit) -> 'a t -> unit
  val mapi : f:(int -> '-> 'b) -> 'a t -> 'b t
  val foldi : 'a t -> init:'-> f:(int -> '-> '-> 'b) -> 'b
  val fold_right : 'a t -> f:('-> '-> 'b) -> init:'-> 'b
  val sort : cmp:('-> '-> int) -> 'a t -> unit
  val stable_sort : cmp:('-> '-> int) -> 'a t -> unit
  val is_sorted : 'a t -> cmp:('-> '-> int) -> bool
  val concat_map : 'a t -> f:('-> 'b array) -> 'b array
  val partition_tf : 'a t -> f:('-> bool) -> 'a t * 'a t
  val partitioni_tf : 'a t -> f:(int -> '-> bool) -> 'a t * 'a t
  val cartesian_product : 'a t -> 'b t -> ('a * 'b) t
  val normalize : 'a t -> int -> int
  val slice : 'a t -> int -> int -> 'a t
  val nget : 'a t -> int -> 'a
  val nset : 'a t -> int -> '-> unit
  val filter_opt : 'a option t -> 'a t
  val filter_map : 'a t -> f:('-> 'b option) -> 'b t
  val filter_mapi : 'a t -> f:(int -> '-> 'b option) -> 'b t
  val iter2_exn : 'a t -> 'b t -> f:('-> '-> unit) -> unit
  val map2_exn : 'a t -> 'b t -> f:('-> '-> 'c) -> 'c t
  val fold2_exn : 'a t -> 'b t -> init:'-> f:('-> '-> '-> 'c) -> 'c
  val for_all2_exn : 'a t -> 'b t -> f:('-> '-> bool) -> bool
  val filter : f:('-> bool) -> 'a t -> 'a t
  val filteri : f:(int -> '-> bool) -> 'a t -> 'a t
  val swap : 'a t -> int -> int -> unit
  val rev_inplace : 'a t -> unit
  val of_list_rev : 'a list -> 'a t
  val of_list_map : 'a list -> f:('-> 'b) -> 'b t
  val of_list_rev_map : 'a list -> f:('-> 'b) -> 'b t
  val replace : 'a t -> int -> f:('-> 'a) -> unit
  val replace_all : 'a t -> f:('-> 'a) -> unit
  val find_exn : 'a t -> f:('-> bool) -> 'a
  val findi : 'a t -> f:(int -> '-> bool) -> (int * 'a) option
  val findi_exn : 'a t -> f:(int -> '-> bool) -> int * 'a
  val reduce : 'a t -> f:('-> '-> 'a) -> 'a option
  val reduce_exn : 'a t -> f:('-> '-> 'a) -> 'a
  val permute : ?random_state:Random.State.t -> 'a t -> unit
  val combine : 'a t -> 'b t -> ('a * 'b) t
  val split : ('a * 'b) t -> 'a t * 'b t
  val sorted_copy : 'a t -> cmp:('-> '-> int) -> 'a t
  val last : 'a t -> 'a
  val empty : unit -> 'a t
  val equal : 'a t -> 'a t -> equal:('-> '-> bool) -> bool
  module Infix : sig val ( <|> ) : 'a t -> int * int -> 'a t end
  val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
  val sexp_of_t : ('-> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
  val bin_t : 'Bin_prot.Type_class.t -> 'a t Bin_prot.Type_class.t
  val bin_read_t :
    'Bin_prot.Unsafe_read_c.reader -> 'a t Bin_prot.Read_ml.reader
  val bin_read_t_ :
    'Bin_prot.Unsafe_read_c.reader -> 'a t Bin_prot.Unsafe_read_c.reader
  val bin_read_t__ :
    'Bin_prot.Unsafe_read_c.reader ->
    (int -> 'a t) Bin_prot.Unsafe_read_c.reader
  val bin_reader_t :
    'Bin_prot.Type_class.reader -> 'a t Bin_prot.Type_class.reader
  val bin_size_t : 'Bin_prot.Size.sizer -> 'a t Bin_prot.Size.sizer
  val bin_write_t :
    'Bin_prot.Unsafe_write_c.writer -> 'a t Bin_prot.Write_ml.writer
  val bin_write_t_ :
    'Bin_prot.Unsafe_write_c.writer -> 'a t Bin_prot.Unsafe_write_c.writer
  val bin_writer_t :
    'Bin_prot.Type_class.writer -> 'a t Bin_prot.Type_class.writer
end