src/HOL/Tools/Function/termination.ML
changeset 35625 9c818cab0dd0
parent 35408 b48ab741683b
child 37387 3581483cca6c
--- a/src/HOL/Tools/Function/termination.ML	Sun Mar 07 11:57:16 2010 +0100
+++ b/src/HOL/Tools/Function/termination.ML	Sun Mar 07 12:19:47 2010 +0100
@@ -282,7 +282,7 @@
       let
         val (vars, prems, lhs, rhs) = dest_term ineq
       in
-        mk_pair_compr (fastype_of lhs, vars, lhs, rhs, map (ObjectLogic.atomize_term thy) prems)
+        mk_pair_compr (fastype_of lhs, vars, lhs, rhs, map (Object_Logic.atomize_term thy) prems)
       end
 
     val relation =