src/HOL/Transitive_Closure.thy
changeset 43596 78211f66cf8d
parent 42795 66fcc9882784
child 44890 22f665a2e91c
--- a/src/HOL/Transitive_Closure.thy	Wed Jun 29 18:12:34 2011 +0200
+++ b/src/HOL/Transitive_Closure.thy	Wed Jun 29 20:39:41 2011 +0200
@@ -1029,10 +1029,10 @@
 
 setup {*
   Simplifier.map_simpset_global (fn ss => ss
-    addSolver (mk_solver' "Trancl" (Trancl_Tac.trancl_tac o Simplifier.the_context))
-    addSolver (mk_solver' "Rtrancl" (Trancl_Tac.rtrancl_tac o Simplifier.the_context))
-    addSolver (mk_solver' "Tranclp" (Tranclp_Tac.trancl_tac o Simplifier.the_context))
-    addSolver (mk_solver' "Rtranclp" (Tranclp_Tac.rtrancl_tac o Simplifier.the_context)))
+    addSolver (mk_solver "Trancl" (Trancl_Tac.trancl_tac o Simplifier.the_context))
+    addSolver (mk_solver "Rtrancl" (Trancl_Tac.rtrancl_tac o Simplifier.the_context))
+    addSolver (mk_solver "Tranclp" (Tranclp_Tac.trancl_tac o Simplifier.the_context))
+    addSolver (mk_solver "Rtranclp" (Tranclp_Tac.rtrancl_tac o Simplifier.the_context)))
 *}