src/FOLP/hypsubst.ML
changeset 42799 4e33894aec6d
parent 42125 a8cbb9371154
child 56245 84fc7dfa3cd4
--- 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