diff -r 02c88bdabe75 -r 4e33894aec6d src/FOLP/hypsubst.ML
--- a/src/FOLP/hypsubst.ML	Sat May 14 00:32:16 2011 +0200
+++ b/src/FOLP/hypsubst.ML	Sat May 14 11:42:43 2011 +0200
@@ -26,7 +26,7 @@
   val inspect_pair        : bool -> term * term -> thm
   end;
 
-functor HypsubstFun(Data: HYPSUBST_DATA): HYPSUBST =
+functor Hypsubst(Data: HYPSUBST_DATA): HYPSUBST =
 struct
 
 local open Data in