src/HOL/Tools/Function/scnp_reconstruct.ML
changeset 59159 9312710451f5
parent 58819 aa43c6f05bca
child 59498 50b60f501b05
--- a/src/HOL/Tools/Function/scnp_reconstruct.ML	Fri Dec 19 22:53:43 2014 +0100
+++ b/src/HOL/Tools/Function/scnp_reconstruct.ML	Fri Dec 19 23:01:46 2014 +0100
@@ -314,7 +314,7 @@
     end)
 
 fun gen_sizechange_tac orders autom_tac ctxt =
-  TRY (Function_Common.apply_termination_rule ctxt 1)
+  TRY (Function_Common.termination_rule_tac ctxt 1)
   THEN TRY (Termination.wf_union_tac ctxt)
   THEN (rtac @{thm wf_empty} 1 ORELSE gen_decomp_scnp_tac orders autom_tac ctxt 1)