let intersecting_elems (k, { Range.lo ; hi }) lmap = match Map.find lmap k with | Some x -> T.find_intersecting_elem lo hi x /@ (fun (lo,hi,x) -> (k, Range.make lo hi), x) | None -> Stream.empty ()