
diff -r 756f48abb40a -r d959bc9c800c Nominal/Ex/Height.thy
--- a/Nominal/Ex/Height.thy	Wed Nov 30 13:56:21 2011 +0000
+++ b/Nominal/Ex/Height.thy	Wed Nov 30 14:58:19 2011 +0000
@@ -24,7 +24,7 @@
   have ih: "height (e1[x::=e']) \<le> height e1 - 1 + height e'" by fact
   moreover
   have vc: "atom y \<sharp> x" "atom y \<sharp> e'" by fact+ (* usual variable convention *)
-  ultimately show "height ((Lam y e1)[x::=e']) \<le> height (Lam y e1) - 1 + height e'" by simp
+  ultimately show "height ((Lam [y].e1)[x::=e']) \<le> height (Lam [y].e1) - 1 + height e'" by simp
 next    
   case (App e1 e2)
   have ih1: "height (e1[x::=e']) \<le> (height e1) - 1 + height e'" 




