1.1 --- a/src/HOL/Tools/Function/termination.ML	Sun Mar 07 11:57:16 2010 +0100
     1.2 +++ b/src/HOL/Tools/Function/termination.ML	Sun Mar 07 12:19:47 2010 +0100
     1.3 @@ -282,7 +282,7 @@
     1.4        let
     1.5          val (vars, prems, lhs, rhs) = dest_term ineq
     1.6        in
     1.7 -        mk_pair_compr (fastype_of lhs, vars, lhs, rhs, map (ObjectLogic.atomize_term thy) prems)
     1.8 +        mk_pair_compr (fastype_of lhs, vars, lhs, rhs, map (Object_Logic.atomize_term thy) prems)
     1.9        end
    1.10  
    1.11      val relation =