src/HOL/Nominal/Examples/Crary.thy
changeset 22492 43545e640877
parent 22421 51a18dd1ea86
child 22494 b61306c7987a
--- a/src/HOL/Nominal/Examples/Crary.thy	Wed Mar 21 13:58:36 2007 +0100
+++ b/src/HOL/Nominal/Examples/Crary.thy	Wed Mar 21 16:06:15 2007 +0100
@@ -340,7 +340,7 @@
   lookup :: "(name\<times>trm) list \<Rightarrow> name \<Rightarrow> trm"   
 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"