src/HOL/Decision_Procs/ferrack_tac.ML
changeset 58956 a816aa3ff391
parent 56245 84fc7dfa3cd4
child 58963 26bf09b95dda
--- a/src/HOL/Decision_Procs/ferrack_tac.ML	Sun Nov 09 11:05:20 2014 +0100
+++ b/src/HOL/Decision_Procs/ferrack_tac.ML	Sun Nov 09 14:08:00 2014 +0100
@@ -47,7 +47,7 @@
 
 fun linr_tac ctxt q =
     Object_Logic.atomize_prems_tac ctxt
-        THEN' (REPEAT_DETERM o split_tac [@{thm split_min}, @{thm split_max}, @{thm abs_split}])
+        THEN' (REPEAT_DETERM o split_tac ctxt [@{thm split_min}, @{thm split_max}, @{thm abs_split}])
         THEN' SUBGOAL (fn (g, i) =>
   let
     val thy = Proof_Context.theory_of ctxt