--- a/src/Tools/induct.ML Fri Jul 24 12:32:43 2009 +0200
+++ b/src/Tools/induct.ML Fri Jul 24 12:33:00 2009 +0200
@@ -70,7 +70,7 @@
val setup: theory -> theory
end;
-functor InductFun(Data: INDUCT_DATA): INDUCT =
+functor Induct(Data: INDUCT_DATA): INDUCT =
struct