author | haftmann |
Fri, 13 Oct 2006 16:52:48 +0200 | |
changeset 21013 | b9321724c2cc |
parent 21012 | f08574148b7a |
child 21014 | 3b0c2641f740 |
src/Pure/term.ML | file | annotate | diff | comparison | revisions |
--- a/src/Pure/term.ML Fri Oct 13 16:52:47 2006 +0200 +++ b/src/Pure/term.ML Fri Oct 13 16:52:48 2006 +0200 @@ -799,7 +799,7 @@ | strip_abs (Abs (v, T, t)) (k, used) = let val ([v'], used') = Name.variants [v] used; - val t' = subst_bound (Free (v, T), t); + val t' = subst_bound (Free (v', T), t); val ((vs, t''), (k', used'')) = strip_abs t' (k - 1, used'); in (((v', T) :: vs, t''), (k', used'')) end | strip_abs t (k, used) = (([], t), (k, used));