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