src/HOL/Hoare/hoare_tac.ML
changeset 27244 af0a44372d1f
parent 26300 03def556e26e
child 27330 1af2598b5f7d
--- a/src/HOL/Hoare/hoare_tac.ML	Mon Jun 16 22:13:50 2008 +0200
+++ b/src/HOL/Hoare/hoare_tac.ML	Mon Jun 16 22:13:52 2008 +0200
@@ -112,7 +112,7 @@
              rtac CollectI i,
              dtac CollectD i,
              (TRY(split_all_tac i)) THEN_MAYBE
-             ((rename_params_tac var_names i) THEN
+             ((rename_tac var_names i) THEN
               (full_simp_tac (HOL_basic_ss addsimps [split_conv]) i)) ])) thm
   end;