src/HOL/Tools/Function/function_common.ML
changeset 33395 62571cb54811
parent 33373 674df68d4df0
child 33519 e31a85f92ce9
--- a/src/HOL/Tools/Function/function_common.ML	Mon Nov 02 22:24:00 2009 +0100
+++ b/src/HOL/Tools/Function/function_common.ML	Mon Nov 02 22:24:03 2009 +0100
@@ -65,8 +65,9 @@
       defname : string,
 
       (* contains no logical entities: invariant under morphisms *)
-      add_simps : (binding -> binding) -> string -> Attrib.src list -> thm list 
-                  -> local_theory -> thm list * local_theory,
+      add_simps : (binding -> binding) -> string -> (binding -> binding) ->
+        Attrib.src list -> thm list -> local_theory -> thm list * local_theory,
+
       case_names : string list,
 
       fs : term list,