--- a/src/HOL/Tools/Function/function_common.ML Fri Sep 04 11:38:35 2015 +0200
+++ b/src/HOL/Tools/Function/function_common.ML Fri Sep 04 13:39:20 2015 +0200
@@ -282,7 +282,7 @@
fun termination_rule_tac ctxt = resolve_tac ctxt (#1 (Data.get (Context.Proof ctxt)))
-val store_termination_rule = Data.map o @{apply 4(1)} o cons
+val store_termination_rule = Data.map o @{apply 4(1)} o cons o Thm.trim_context
val get_functions = #2 o Data.get o Context.Proof
fun add_function_data (info : info as {fs, termination, ...}) =