src/Pure/Tools/named_thms.ML
changeset 31901 e280491f36b8
parent 30528 7173bf123335
child 33307 44af0fab4b10
     1.1 --- a/src/Pure/Tools/named_thms.ML	Thu Jul 02 17:30:54 2009 +0200
     1.2 +++ b/src/Pure/Tools/named_thms.ML	Thu Jul 02 17:33:36 2009 +0200
     1.3 @@ -14,7 +14,7 @@
     1.4    val setup: theory -> theory
     1.5  end;
     1.6  
     1.7 -functor NamedThmsFun(val name: string val description: string): NAMED_THMS =
     1.8 +functor Named_Thms(val name: string val description: string): NAMED_THMS =
     1.9  struct
    1.10  
    1.11  structure Data = GenericDataFun