src/Tools/induct.ML
changeset 32171 220abde9962b
parent 32091 30e2ffbba718
child 32188 005f9abae1e3
--- 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