Added new package for inductive definitions, moved old package
authorberghofe
Fri, 13 Oct 2006 18:12:58 +0200
changeset 21018 e6b8d6784792
parent 21017 5693e4471c2b
child 21019 650c48711c7b
Added new package for inductive definitions, moved old package to old_inductive_package.ML
src/HOL/Inductive.thy
src/HOL/IsaMakefile
--- a/src/HOL/Inductive.thy	Fri Oct 13 18:10:16 2006 +0200
+++ b/src/HOL/Inductive.thy	Fri Oct 13 18:12:58 2006 +0200
@@ -9,6 +9,7 @@
 imports FixedPoint Sum_Type Relation Record
 uses
   ("Tools/inductive_package.ML")
+  ("Tools/old_inductive_package.ML")
   ("Tools/inductive_realizer.ML")
   ("Tools/inductive_codegen.ML")
   ("Tools/datatype_aux.ML")
@@ -59,8 +60,8 @@
 
 text {* Package setup. *}
 
-use "Tools/inductive_package.ML"
-setup InductivePackage.setup
+use "Tools/old_inductive_package.ML"
+setup OldInductivePackage.setup
 
 theorems basic_monos [mono] =
   subset_refl imp_refl disj_mono conj_mono ex_mono all_mono if_def2
@@ -70,6 +71,16 @@
   Ball_def Bex_def
   induct_rulify_fallback
 
+use "Tools/inductive_package.ML"
+setup InductivePackage.setup
+
+theorems [mono2] =
+  imp_refl disj_mono conj_mono ex_mono all_mono if_def2
+  imp_conv_disj not_not de_Morgan_disj de_Morgan_conj
+  not_all not_ex
+  Ball_def Bex_def
+  induct_rulify_fallback
+
 lemma False_meta_all:
   "Trueprop False \<equiv> (\<And>P\<Colon>bool. P)"
 proof
--- a/src/HOL/IsaMakefile	Fri Oct 13 18:10:16 2006 +0200
+++ b/src/HOL/IsaMakefile	Fri Oct 13 18:12:58 2006 +0200
@@ -106,7 +106,7 @@
   Tools/datatype_codegen.ML Tools/datatype_hooks.ML Tools/datatype_package.ML	\
   Tools/datatype_prop.ML Tools/datatype_realizer.ML				\
   Tools/datatype_rep_proofs.ML Tools/inductive_codegen.ML			\
-  Tools/inductive_package.ML Tools/inductive_realizer.ML Tools/meson.ML		\
+  Tools/inductive_package.ML Tools/old_inductive_package.ML Tools/inductive_realizer.ML Tools/meson.ML		\
   Tools/numeral_syntax.ML Tools/primrec_package.ML Tools/prop_logic.ML		\
   Tools/polyhash.ML \
   Tools/recdef_package.ML Tools/recfun_codegen.ML				\