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