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