let indexes_of_table = fun t ->
  List.filter (fun i -> (table_of_index i) == t)