changeset 46218 | ecf6375e2abb |
parent 46215 | 0da9433f959e |
child 46219 | 426ed18eba43 |
--- a/src/HOL/Tools/Datatype/datatype_prop.ML Sat Jan 14 19:06:05 2012 +0100 +++ b/src/HOL/Tools/Datatype/datatype_prop.ML Sat Jan 14 20:05:58 2012 +0100 @@ -125,7 +125,7 @@ fun mk_prem ((dt, s), T) = let val (Us, U) = strip_type T in - list_all (map (pair "x") Us, + Logic.list_all (map (pair "x") Us, HOLogic.mk_Trueprop (make_pred (Datatype_Aux.body_index dt) U $ Datatype_Aux.app_bnds (Free (s, T)) (length Us)))