# HG changeset patch
# User wenzelm
# Date 1518801973 -3600
# Node ID cfa71f9933f430cc3ab320e3557c60e3ec8e6d66
# Parent  eb11d722e3ef18ce3ee767b260b14b1dfc8e3b9e
tuned;

diff -r eb11d722e3ef -r cfa71f9933f4 src/Pure/Isar/context_rules.ML
--- a/src/Pure/Isar/context_rules.ML	Fri Feb 16 18:25:55 2018 +0100
+++ b/src/Pure/Isar/context_rules.ML	Fri Feb 16 18:26:13 2018 +0100
@@ -193,7 +193,7 @@
 (* add and del rules *)
 
 
-val rule_del = Thm.declaration_attribute (fn th => Rules.map (del_rule th));
+val rule_del = Thm.declaration_attribute (Rules.map o del_rule);
 
 fun rule_add k view opt_w =
   Thm.declaration_attribute (fn th => Rules.map (add_rule k opt_w (view th) o del_rule th));