--- a/Nominal/Ex/Lambda.thy	Wed Apr 14 20:21:11 2010 +0200
+++ b/Nominal/Ex/Lambda.thy	Wed Apr 14 22:23:52 2010 +0200
@@ -9,6 +9,8 @@
 | App "lam" "lam"
 | Lam x::"name" l::"lam"  bind x in l
 
+thm lam.fv
+thm lam.supp
 lemmas supp_fn' = lam.fv[simplified lam.supp]
 
 declare lam.perm[eqvt]
@@ -151,24 +153,17 @@
   | t'_App[intro]: "\<lbrakk>\<Gamma> |\<Turnstile> t1 : T1\<rightarrow>T2; \<Gamma> |\<Turnstile> t2 : T1\<rbrakk> \<Longrightarrow> \<Gamma> |\<Turnstile> App t1 t2 : T2"
   | t'_Lam[intro]: "\<lbrakk>atom x\<sharp>\<Gamma>;(x,T1)#\<Gamma> |\<Turnstile> t : T2\<rbrakk> \<Longrightarrow> \<Gamma> |\<Turnstile> Lam x t : T1\<rightarrow>T2"
 
-use "../../Nominal-General/nominal_eqvt.ML"
-
 equivariance valid
 equivariance typing
+equivariance typing'
+equivariance typing2' 
+equivariance typing''
 
 thm valid.eqvt
 thm typing.eqvt
 thm eqvts
 thm eqvts_raw
 
-equivariance typing'
-equivariance typing2' 
-equivariance typing''
-
-ML {*
-fun mk_minus p = 
- Const (@{const_name "uminus"}, @{typ "perm => perm"}) $ p
-*}
 
 inductive
   tt :: "('a \<Rightarrow> 'a \<Rightarrow> bool) \<Rightarrow> ('a \<Rightarrow> 'a \<Rightarrow> bool)"