Nominal/Ex/SingleLet.thy
changeset 2449 6b51117b8955
parent 2448 b9d9c4540265
child 2450 217ef3e4282e
--- a/Nominal/Ex/SingleLet.thy	Sun Aug 29 00:09:45 2010 +0800
+++ b/Nominal/Ex/SingleLet.thy	Sun Aug 29 00:36:47 2010 +0800
@@ -39,7 +39,7 @@
 apply(rule single_let.induct)
 apply(rule supports_finite)
 apply(rule single_let.supports)
-apply(simp only: finite_supp supp_Pair finite_Un)
+apply(simp only: finite_supp supp_Pair finite_Un, simp)
 apply(rule supports_finite)
 apply(rule single_let.supports)
 apply(simp only: finite_supp supp_Pair finite_Un, simp)