Nominal/Ex/Let.thy
changeset 3192 14c7d7e29c44
parent 3183 313e6f2cdd89
child 3197 25d11b449e92
--- 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)