src/Pure/Isar/local_defs.ML
changeset 61091 2b7ef52a4ea9
parent 60823 b41478500473
child 61268 abe08fb15a12
--- a/src/Pure/Isar/local_defs.ML	Wed Sep 02 20:14:19 2015 +0200
+++ b/src/Pure/Isar/local_defs.ML	Wed Sep 02 21:53:14 2015 +0200
@@ -178,8 +178,8 @@
   Pretty.writeln (Pretty.big_list "definitional rewrite rules:"
     (map (Display.pretty_thm_item ctxt) (Rules.get (Context.Proof ctxt))));
 
-val defn_add = Thm.declaration_attribute (Rules.map o Thm.add_thm);
-val defn_del = Thm.declaration_attribute (Rules.map o Thm.del_thm);
+val defn_add = Thm.declaration_attribute (Rules.map o Thm.add_thm o Thm.trim_context);
+val defn_del = Thm.declaration_attribute (Rules.map o Thm.del_thm o Thm.trim_context);
 
 
 (* meta rewrite rules *)