let rec find_index_aux p ra i = if i > ra.vlix then raise Not_found else if p (unsafe_get ra i) then i else find_index_aux p ra (i + 1)