tuned signature;

--- a/src/HOL/Tools/Function/fun_cases.ML	Mon Sep 30 13:29:09 2013 +0200
+++ b/src/HOL/Tools/Function/fun_cases.ML	Mon Sep 30 13:35:05 2013 +0200
@@ -1,16 +1,16 @@
 (*  Title:      HOL/Tools/Function/fun_cases.ML
     Author:     Manuel Eberl, TU Muenchen
 
-Provide the fun_cases command for generating specialised elimination
-rules for function package functions.
+The fun_cases command for generating specialised elimination rules for
+function package functions.
 *)
 
 signature FUN_CASES =
 sig
-  val mk_fun_cases : Proof.context -> term -> thm
-  val fun_cases: (Attrib.binding * string list) list -> local_theory ->
+  val mk_fun_cases: Proof.context -> term -> thm
+  val fun_cases: (Attrib.binding * term list) list -> local_theory ->
     thm list list * local_theory
-  val fun_cases_i: (Attrib.binding * term list) list -> local_theory ->
+  val fun_cases_cmd: (Attrib.binding * string list) list -> local_theory ->
     thm list list * local_theory
 end;
 
@@ -68,13 +68,13 @@
         args thmss;
   in lthy |> Local_Theory.notes facts |>> map snd end;
 
-val fun_cases = gen_fun_cases Attrib.intern_src Syntax.read_prop;
-val fun_cases_i = gen_fun_cases (K I) Syntax.check_prop;
+val fun_cases = gen_fun_cases (K I) Syntax.check_prop;
+val fun_cases_cmd = gen_fun_cases Attrib.intern_src Syntax.read_prop;
 
 val _ =
   Outer_Syntax.local_theory @{command_spec "fun_cases"}
     "automatic derivation of simplified elimination rules for function equations"
-    (Parse.and_list1 Parse_Spec.specs >> (snd oo fun_cases));
+    (Parse.and_list1 Parse_Spec.specs >> (snd oo fun_cases_cmd));
 
 end;