| D.TBind (a, b, t) ->
xlate_term (xlate_bind f a b) t
-and xlate_bind f a b x = match b with
- | D.Abst (n, w) ->
- let f ww = f (B.Bind (a, B.Abst (false, n, ww), x)) in
+and xlate_bind f a b t = match b with
+ | D.Abst (x, n, w) ->
+ let f ww = f (B.Bind (a, B.Abst (x, n, ww), t)) in
xlate_term f w
- | D.Abbr v ->
- let f vv = f (B.Bind (a, B.Abbr vv, x)) in
+ | D.Abbr v ->
+ let f vv = f (B.Bind (a, B.Abbr vv, t)) in
xlate_term f v
- | D.Void ->
- f (B.Bind (a, B.Void, x))
+ | D.Void ->
+ f (B.Bind (a, B.Void, t))
(* internal functions: brg to crg term **************************************)
xlate_bk_term f t
and xlate_bk_bind f = function
- | B.Abst (_, n, t) ->
- let f tt = f (D.Abst (n, tt)) in
+ | B.Abst (x, n, t) ->
+ let f tt = f (D.Abst (x, n, tt)) in
xlate_bk_term f t
| B.Abbr t ->
let f tt = f (D.Abbr tt) in