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 =