sig
  type t = (int, Bigarray.int_elt, Bigarray.fortran_layout) Bigarray.Array1.t
  val create : int -> Gpr_utils.Int_vec.t
  val dim : Gpr_utils.Int_vec.t -> int
  val sub :
    Gpr_utils.Int_vec.t ->
    int ->
    int -> (int, Bigarray.int_elt, Bigarray.fortran_layout) Bigarray.Array1.t
end