src/FOL/FOL.thy

--- a/src/FOL/FOL.thy	Mon Nov 12 12:38:40 2001 +0100
+++ b/src/FOL/FOL.thy	Mon Nov 12 20:22:23 2001 +0100
@@ -75,6 +75,7 @@
   (struct
     val dest_concls = FOLogic.dest_concls;
     val cases_default = thm "case_split";
+    val local_imp_def = thm "induct_implies_def";
     val local_impI = thm "induct_impliesI";
     val conjI = thm "conjI";
     val atomize = thms "induct_atomize";