src/Pure/Isar/calculation.ML
changeset 12402 cef751fff6b0
parent 12379 c74d160ff0c5
child 12805 3be853cf19cf
--- a/src/Pure/Isar/calculation.ML	Thu Dec 06 00:41:37 2001 +0100
+++ b/src/Pure/Isar/calculation.ML	Thu Dec 06 00:42:00 2001 +0100
@@ -102,9 +102,9 @@
 val trans_del_local = local_att (apfst o NetRules.delete);
 
 val sym_add_global = global_att (apsnd o Drule.add_rule) o ContextRules.elim_query_global None;
-val sym_del_global = global_att (apsnd o Drule.del_rule);
+val sym_del_global = global_att (apsnd o Drule.del_rule) o ContextRules.rule_del_global;
 val sym_add_local = local_att (apsnd o Drule.add_rule) o ContextRules.elim_query_local None;
-val sym_del_local = local_att (apsnd o Drule.del_rule);
+val sym_del_local = local_att (apsnd o Drule.del_rule) o ContextRules.rule_del_local;
 
 
 (* symmetry *)