changeset 46218 | ecf6375e2abb |
parent 45740 | 132a3e1c0fe5 |
child 47433 | 07f4bf913230 |
--- a/src/HOL/Tools/Function/termination.ML Sat Jan 14 19:06:05 2012 +0100 +++ b/src/HOL/Tools/Function/termination.ML Sat Jan 14 20:05:58 2012 +0100 @@ -171,7 +171,7 @@ let fun try rel = try_proof (cterm_of thy - (Term.list_all (vs, + (Logic.list_all (vs, Logic.mk_implies (HOLogic.mk_Trueprop Gam, HOLogic.mk_Trueprop (Const (rel, @{typ "nat => nat => bool"}) $ (m2 $ r) $ (m1 $ l)))))) tac