src/HOL/Tools/function_package/auto_term.ML

--- a/src/HOL/Tools/function_package/auto_term.ML	Mon Dec 18 08:21:34 2006 +0100
+++ b/src/HOL/Tools/function_package/auto_term.ML	Mon Dec 18 08:21:35 2006 +0100
@@ -29,7 +29,7 @@
 
 
 val setup = Method.add_methods
-  [("relation", (Method.SIMPLE_METHOD' o uncurry relation_tac) oo (Method.syntax Args.term),
+  [("relation", (Method.SIMPLE_METHOD' o (fn (rel, ctxt) => relation_tac ctxt rel)) oo (Method.syntax Args.term),
     "proves termination using a user-specified wellfounded relation")]
 
 end