--- a/src/Pure/Isar/outer_parse.ML Wed Dec 05 14:16:12 2007 +0100
+++ b/src/Pure/Isar/outer_parse.ML Wed Dec 05 14:16:13 2007 +0100
@@ -56,6 +56,7 @@
val parname: token list -> string * token list
val sort: token list -> string * token list
val arity: token list -> (string * string list * string) * token list
+ val multi_arity: token list -> (string list * string list * string) * token list
val type_args: token list -> string list * token list
val typ: token list -> string * token list
val mixfix: token list -> mixfix * token list
@@ -208,6 +209,9 @@
val arity = xname -- ($$$ "::" |-- !!!
(Scan.optional ($$$ "(" |-- !!! (list1 sort --| $$$ ")")) [] -- sort)) >> triple2;
+val multi_arity = and_list1 xname -- ($$$ "::" |-- !!!
+ (Scan.optional ($$$ "(" |-- !!! (list1 sort --| $$$ ")")) [] -- sort)) >> triple2;
+
(* types *)