author | wenzelm |
Fri, 16 Feb 2018 18:26:13 +0100 | |
changeset 67626 | cfa71f9933f4 |
parent 67625 | eb11d722e3ef |
child 67627 | 5cca859b2d2e |
--- 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));