--- a/Nominal/Ex/SingleLet.thy	Tue May 04 17:25:58 2010 +0200
+++ b/Nominal/Ex/SingleLet.thy	Wed May 05 10:24:54 2010 +0100
@@ -27,12 +27,11 @@
 ML {* Sign.of_sort @{theory} (@{typ trm}, @{sort fs}) *}
 thm trm_assg.fv[simplified trm_assg.supp(1-2)]
 
-(*
-setup {* Context.theory_map (Nominal_ThmDecls.add_thm @{thm "permute_pure"}) *}
 declare permute_trm_raw_permute_assg_raw.simps[eqvt]
 declare alpha_gen_eqvt[eqvt]
+
 equivariance alpha_trm_raw
-*)
+
 
 end