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