let column_in_index = fun index column ->
    (* Physical eq *)
    List.memq column index.idx_columns