let
map_named_prop f p =
List
.map (
fun
(n,p)
->
n, f p) p