Fix Manual/LamEx for experiments.
authorCezary Kaliszyk <kaliszyk@in.tum.de>
Fri, 26 Mar 2010 09:23:23 +0100
changeset 1652 3b9c05d158f3
parent 1651 f731e9aff866
child 1653 a2142526bb01
Fix Manual/LamEx for experiments.
Nominal/Manual/LamEx.thy
--- a/Nominal/Manual/LamEx.thy	Thu Mar 25 20:12:57 2010 +0100
+++ b/Nominal/Manual/LamEx.thy	Fri Mar 26 09:23:23 2010 +0100
@@ -1,5 +1,5 @@
 theory LamEx
-imports "Nominal2_Atoms" "Nominal2_Eqvt" "Nominal2_Supp" "Abs"
+imports "../Nominal2_Atoms" "../Nominal2_Eqvt" "../Nominal2_Supp" "../Abs"
 begin
 
 atom_decl name
@@ -87,12 +87,12 @@
 done
 
 inductive
-    alpha :: "rlam \<Rightarrow> rlam \<Rightarrow> bool" ("_ \<approx> _" [100, 100] 100)
+    alpha :: "rlam \<Rightarrow> rlam \<Rightarrow> bool" ("_ \<approx>a _" [100, 100] 100)
 where
-  a1: "a = b \<Longrightarrow> (rVar a) \<approx> (rVar b)"
-| a2: "\<lbrakk>t1 \<approx> t2; s1 \<approx> s2\<rbrakk> \<Longrightarrow> rApp t1 s1 \<approx> rApp t2 s2"
-| a3: "\<exists>pi. (rfv t - {atom a} = rfv s - {atom b} \<and> (rfv t - {atom a})\<sharp>* pi \<and> (pi \<bullet> t) \<approx> s)
-       \<Longrightarrow> rLam a t \<approx> rLam b s"
+  a1: "a = b \<Longrightarrow> (rVar a) \<approx>a (rVar b)"
+| a2: "\<lbrakk>t1 \<approx>a t2; s1 \<approx>a s2\<rbrakk> \<Longrightarrow> rApp t1 s1 \<approx>a rApp t2 s2"
+| a3: "\<exists>pi. (rfv t - {atom a} = rfv s - {atom b} \<and> (rfv t - {atom a})\<sharp>* pi \<and> (pi \<bullet> t) \<approx>a s)
+       \<Longrightarrow> rLam a t \<approx>a rLam b s"
 
 lemma a3_inverse:
   assumes "rLam a t \<approx> rLam b s"