let map_env f env = List.map (fun (s,(g,v)) -> s, (g, f v)) env