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