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