--- a/src/FOL/FOL.thy Wed Dec 08 18:18:36 2010 +0100
+++ b/src/FOL/FOL.thy Wed Feb 23 11:23:26 2011 +0100
@@ -11,6 +11,7 @@
"~~/src/Provers/blast.ML"
"~~/src/Provers/clasimp.ML"
"~~/src/Tools/induct.ML"
+ "~~/src/Tools/case_product.ML"
("cladata.ML")
("simpdata.ML")
begin
@@ -391,6 +392,8 @@
setup Induct.setup
declare case_split [cases type: o]
+setup Case_Product.setup
+
hide_const (open) eq
--- a/src/FOL/IsaMakefile Wed Dec 08 18:18:36 2010 +0100
+++ b/src/FOL/IsaMakefile Wed Feb 23 11:23:26 2011 +0100
@@ -28,6 +28,7 @@
$(OUT)/FOL: $(OUT)/Pure $(SRC)/Provers/blast.ML \
$(SRC)/Provers/clasimp.ML $(SRC)/Provers/classical.ML \
+ $(SRC)/Tools/case_product.ML \
$(SRC)/Tools/IsaPlanner/zipper.ML $(SRC)/Tools/IsaPlanner/isand.ML \
$(SRC)/Tools/IsaPlanner/rw_tools.ML \
$(SRC)/Tools/IsaPlanner/rw_inst.ML $(SRC)/Tools/eqsubst.ML \
--- a/src/HOL/HOL.thy Wed Dec 08 18:18:36 2010 +0100
+++ b/src/HOL/HOL.thy Wed Feb 23 11:23:26 2011 +0100
@@ -31,10 +31,12 @@
("Tools/recfun_codegen.ML")
("Tools/cnf_funcs.ML")
"~~/src/Tools/subtyping.ML"
+ "~~/src/Tools/case_product.ML"
begin
setup {* Intuitionistic.method_setup @{binding iprover} *}
setup Subtyping.setup
+setup Case_Product.setup
subsection {* Primitive logic *}
--- a/src/HOL/IsaMakefile Wed Dec 08 18:18:36 2010 +0100
+++ b/src/HOL/IsaMakefile Wed Feb 23 11:23:26 2011 +0100
@@ -135,6 +135,7 @@
$(SRC)/Tools/IsaPlanner/zipper.ML \
$(SRC)/Tools/atomize_elim.ML \
$(SRC)/Tools/auto_tools.ML \
+ $(SRC)/Tools/case_product.ML \
$(SRC)/Tools/coherent.ML \
$(SRC)/Tools/cong_tac.ML \
$(SRC)/Tools/eqsubst.ML \
@@ -1026,6 +1027,7 @@
Number_Theory/Primes.thy ex/Abstract_NAT.thy ex/Antiquote.thy \
ex/Arith_Examples.thy ex/Arithmetic_Series_Complex.thy ex/BT.thy \
ex/BinEx.thy ex/Binary.thy ex/Birthday_Paradoxon.thy ex/CTL.thy \
+ ex/Case_Product.thy \
ex/Chinese.thy ex/Classical.thy ex/CodegenSML_Test.thy \
ex/Coercion_Examples.thy ex/Coherent.thy ex/Dedekind_Real.thy \
ex/Efficient_Nat_examples.thy ex/Eval_Examples.thy ex/Fundefs.thy \