let title_verifies_path path cur_path t =
  let re = Str.regexp path in
  let complete = concat_paths cur_path t in
  Str.string_match re complete 0