src/HOL/Tools/Function/fun.ML
changeset 59159 9312710451f5
parent 58826 2ed2eaabe3df
child 59627 bb1e4a35d506
--- a/src/HOL/Tools/Function/fun.ML	Fri Dec 19 22:53:43 2014 +0100
+++ b/src/HOL/Tools/Function/fun.ML	Fri Dec 19 23:01:46 2014 +0100
@@ -160,7 +160,7 @@
       THEN auto_tac ctxt
     fun prove_termination lthy =
       Function.prove_termination NONE
-        (Function_Common.get_termination_prover lthy) lthy
+        (Function_Common.termination_prover_tac lthy) lthy
   in
     lthy
     |> add pat_completeness_auto |> snd