src/HOL/Tools/inductive.ML
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;