sig val ( <|> ) : 'a Core_array.t -> int * int -> 'a Core_array.t end