--- a/src/HOL/Library/rewrite.ML Sat Jun 11 13:57:59 2016 +0200
+++ b/src/HOL/Library/rewrite.ML Sat Jun 11 16:41:11 2016 +0200
@@ -333,7 +333,7 @@
val sep = (Args.$$$ "at" >> K At) || (Args.$$$ "in" >> K In)
val atom = (Args.$$$ "asm" >> K Asm) ||
(Args.$$$ "concl" >> K Concl) ||
- (Args.$$$ "for" |-- Args.parens (Scan.optional Parse.fixes []) >> For) ||
+ (Args.$$$ "for" |-- Args.parens (Scan.optional Parse.vars []) >> For) ||
(Parse.term >> Term)
val sep_atom = sep -- atom >> (fn (s,a) => [s,a])