tuned

--- a/src/HOL/UNITY/UNITY_tactics.ML	Thu Oct 13 22:56:19 2011 +0200
+++ b/src/HOL/UNITY/UNITY_tactics.ML	Thu Oct 13 22:56:19 2011 +0200
@@ -46,7 +46,7 @@
       ORELSE res_inst_tac ctxt
         [(("act", 0), sact)] @{thm transientI} 2,
          (*simplify the command's domain*)
-      simp_tac (simpset_of ctxt addsimps [@{thm Domain_def}]) 3,
+      simp_tac (simpset_of ctxt addsimps @{thms Domain_def}) 3,
       constrains_tac ctxt 1,
       ALLGOALS (clarify_tac ctxt),
       ALLGOALS (asm_lr_simp_tac (simpset_of ctxt))]);