src/HOL/Tools/Function/scnp_reconstruct.ML
changeset 39923 0e1bd289c8ea
parent 38761 b32975d3db3e
child 39924 f4d3e70ed3a8
--- a/src/HOL/Tools/Function/scnp_reconstruct.ML	Tue Oct 05 11:45:16 2010 +0200
+++ b/src/HOL/Tools/Function/scnp_reconstruct.ML	Tue Oct 05 14:19:38 2010 +0200
@@ -383,7 +383,7 @@
     val strategy = Then (Then first_round second_round) third_round
 
   in
-    TERMINATION ctxt (strategy err_cont err_cont)
+    TERMINATION ctxt autom_tac (strategy err_cont err_cont)
   end
 
 fun gen_sizechange_tac orders autom_tac ctxt err_cont =