let path_is_valid = fun store path ->
  try  let r = store#get_row_reference path in r#valid
  with Gpointer.Null -> false