# HG changeset patch
# User krauss
# Date 1174577643 -3600
# Node ID cb41c397a699d37d0ec36cdec77073842ef42724
# Parent  8436bfd21bf338cf69c3e0439af9e6e93e696bf1
fixed function syntax

diff -r 8436bfd21bf3 -r cb41c397a699 src/HOL/Nominal/Examples/Crary.thy
--- a/src/HOL/Nominal/Examples/Crary.thy	Thu Mar 22 14:26:05 2007 +0100
+++ b/src/HOL/Nominal/Examples/Crary.thy	Thu Mar 22 16:34:03 2007 +0100
@@ -64,7 +64,7 @@
   lookup :: "Subst \<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"