changeset 18799 | f137c5e971f5 |
parent 18751 | 38dc4ff2a32b |
child 18857 | c4b4fbd74ffb |
--- a/src/HOL/Tools/datatype_package.ML Fri Jan 27 18:29:33 2006 +0100 +++ b/src/HOL/Tools/datatype_package.ML Fri Jan 27 19:03:02 2006 +0100 @@ -369,7 +369,7 @@ [(("", proj index), [InductAttrib.induct_type name]), (("", exhaustion), [InductAttrib.cases_type name])]; fun unnamed_rule i = - (("", proj i), [Drule.kind_internal, InductAttrib.induct_type ""]); + (("", proj i), [PureThy.kind_internal, InductAttrib.induct_type ""]); in PureThy.add_thms (List.concat (map named_rules infos) @