--- a/Nominal/Ex/Let.thy Thu Jul 12 10:11:32 2012 +0100
+++ b/Nominal/Ex/Let.thy Sun Jul 15 13:03:47 2012 +0100
@@ -122,6 +122,7 @@
apply (drule_tac x="assn" in meta_spec)
apply (drule_tac x="trm" in meta_spec)
apply (simp add: alpha_bn_refl)
+ using [[simproc del: alpha_lst]]
apply(simp_all)
apply (erule_tac c="()" in Abs_lst1_fcb2)
apply (simp_all add: pure_fresh fresh_star_def eqvt_at_def)[4]
@@ -179,6 +180,7 @@
apply simp_all[7]
prefer 2
apply(simp)
+ using [[simproc del: alpha_lst]]
apply(simp)
apply(erule conjE)+
apply (erule_tac c="(sa, ta)" in Abs_lst1_fcb2)