Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed syntax of 'split_format';
authorwenzelm
Sat, 03 Feb 2001 15:22:57 +0100
changeset 11045 971a50fda146
parent 11044 5873a05b4d21
child 11046 b5f5942781a0
fixed syntax of 'split_format';
src/HOL/Tools/split_rule.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/split_rule.ML	Sat Feb 03 15:21:57 2001 +0100
+++ b/src/HOL/Tools/split_rule.ML	Sat Feb 03 15:22:57 2001 +0100
@@ -128,9 +128,10 @@
 (* attribute syntax *)
 
 fun split_format x = Attrib.syntax
-  (Args.mode "complete" >> K (Drule.rule_attribute (K complete_split_rule)) ||
-    Args.and_list1 (Scan.lift (Scan.repeat Args.name))
-      >> (fn xss => Drule.rule_attribute (K (split_rule_goal xss)))) x;
+  (Scan.lift (Args.parens (Args.$$$ "complete"))
+    >> K (Drule.rule_attribute (K complete_split_rule)) ||
+  Args.and_list1 (Scan.lift (Scan.repeat Args.name))
+    >> (fn xss => Drule.rule_attribute (K (split_rule_goal xss)))) x;
 
 val setup =
  [Attrib.add_attributes
isabelle