--- 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,