let intersecting_elems lset loc =
      LMap.intersecting_elems lset loc /@ fst