let separated_find x rs find map = try let rs' = snd (find x map) in separated_ranges rs rs' with Not_found -> F.p_true