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