let
closest loc lset =
Option
.map (
LMap
.closest loc lset) ~f:(
fun
(loc', (), d)
->
loc', d)