changeset 46218 | ecf6375e2abb |
parent 46215 | 0da9433f959e |
child 46219 | 426ed18eba43 |
--- a/src/HOL/Tools/inductive.ML Sat Jan 14 19:06:05 2012 +0100 +++ b/src/HOL/Tools/inductive.ML Sat Jan 14 20:05:58 2012 +0100 @@ -423,7 +423,7 @@ val frees = map Free (anames ~~ Ts); fun mk_elim_prem ((_, _, us, _), ts, params') = - list_all (params', + Logic.list_all (params', Logic.list_implies (map (HOLogic.mk_Trueprop o HOLogic.mk_eq) (frees ~~ us) @ ts, P)); val c_intrs = filter (equal c o #1 o #1 o #1) intrs;