let
fold_env f x (env:environment) =
List
.fold_left (
fun
x (n, v)
->
f n v x) x env