# HG changeset patch
# User berghofe
# Date 1160756052 -7200
# Node ID 650c48711c7b69d948e5affe27a768fc18ed5d8d
# Parent  e6b8d6784792207ffdc2aa8e645897935b4a5982
Legacy ML bindings now refer to old inductive definition package.

diff -r e6b8d6784792 -r 650c48711c7b src/HOL/Finite_Set.ML
--- a/src/HOL/Finite_Set.ML	Fri Oct 13 18:12:58 2006 +0200
+++ b/src/HOL/Finite_Set.ML	Fri Oct 13 18:14:12 2006 +0200
@@ -7,7 +7,7 @@
   val elims = thms "Finites.cases";
   val elim = thm "Finites.cases";
   val induct = thm "Finites.induct";
-  val mk_cases = InductivePackage.the_mk_cases (the_context ()) "Finite_Set.Finites";
+  val mk_cases = OldInductivePackage.the_mk_cases (the_context ()) "Finite_Set.Finites";
   val [emptyI, insertI] = thms "Finites.intros";
 end;
 
@@ -17,7 +17,7 @@
   val elims = thms "foldSet.cases";
   val elim = thm "foldSet.cases";
   val induct = thm "foldSet.induct";
-  val mk_cases = InductivePackage.the_mk_cases (the_context ()) "Finite_Set.foldSet";
+  val mk_cases = OldInductivePackage.the_mk_cases (the_context ()) "Finite_Set.foldSet";
   val [emptyI, insertI] = thms "foldSet.intros";
 end;