src/HOL/Nominal/Examples/Lam_Funs.thy
changeset 22492 43545e640877
parent 22418 49e2d9744ae1
child 22540 e4817fa0f6a1
--- a/src/HOL/Nominal/Examples/Lam_Funs.thy	Wed Mar 21 13:58:36 2007 +0100
+++ b/src/HOL/Nominal/Examples/Lam_Funs.thy	Wed Mar 21 16:06:15 2007 +0100
@@ -90,7 +90,7 @@
   lookup :: "(name\<times>lam) list \<Rightarrow> name \<Rightarrow> lam"   
 where
   "lookup [] x        = Var x"
-  "lookup ((y,T)#\<theta>) x = (if x=y then T else lookup \<theta> x)"
+| "lookup ((y,T)#\<theta>) x = (if x=y then T else lookup \<theta> x)"
 
 lemma lookup_eqvt[eqvt]:
   fixes pi::"name prm"