let indexes_using_table_part = fun table ->
let index_use_table = fun index ->
match index.idx_columns with
| c :: _ -> c.col_table == table (* Phys. eq *)
| _ -> Dbf_misc.ie ()
in
List.partition index_use_table table.ta_db.db_indexes