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