let rename_column = fun column ~name ->
if column.col_name <> name then begin
validate_name_exn name;
match column_by_name_opt column.col_table name with
| None -> column.col_name <- name
| Some _ -> raise (Duplicated_name name)
end