let f w' u' = f (W.sh2 w w' u u' t Z.appl) in
let f w' = lref_map (f w') map u in
lref_map f map w
- | Z.Bind (l, id, b, u) ->
- let f b' u' = f (W.sh2 b b' u u' t (Z.bind l id)) in
+ | Z.Bind (a, l, b, u) ->
+ let f b' u' = f (W.sh2 b b' u u' t (Z.bind a l)) in
let f b' = lref_map (f b') map u in
lref_map_bind f map b