src/HOL/Set.thy
changeset 46459 73823dbbecc4
parent 46156 f58b7f9d3920
child 46504 cd4832aa2229
--- a/src/HOL/Set.thy	Tue Feb 14 16:59:12 2012 +0100
+++ b/src/HOL/Set.thy	Tue Feb 14 17:11:33 2012 +0100
@@ -379,7 +379,7 @@
 *}
 
 declaration {* fn _ =>
-  Classical.map_cs (fn cs => cs addbefore ("bspec", datac @{thm bspec} 1))
+  Classical.map_cs (fn cs => cs addbefore ("bspec", dtac @{thm bspec} THEN' assume_tac))
 *}
 
 ML {*