| changeset 67626 | cfa71f9933f4 |
| parent 67147 | dea94b1aabc3 |
| child 67649 | 1e1782c1aedf |
--- 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));