added 'iff del' att;
authorwenzelm
Sat, 02 Sep 2000 21:47:50 +0200
changeset 9801 5e7c4a45d8bb
parent 9800 221388d5696d
child 9802 adda1dc18bb8
added 'iff del' att;
src/HOL/simpdata.ML
--- a/src/HOL/simpdata.ML	Sat Sep 02 21:47:21 2000 +0200
+++ b/src/HOL/simpdata.ML	Sat Sep 02 21:47:50 2000 +0200
@@ -525,11 +525,15 @@
 (* "iff" attribute *)
 
 val iff_add_global = Clasimp.change_global_css (op addIffs);
+val iff_del_global = Clasimp.change_global_css (op delIffs);
 val iff_add_local = Clasimp.change_local_css (op addIffs);
+val iff_del_local = Clasimp.change_local_css (op delIffs);
 
 val iff_attrib_setup =
-  [Attrib.add_attributes [("iff", (Attrib.no_args iff_add_global, Attrib.no_args iff_add_local),
-    "add rules to simpset and claset simultaneously")]];
+ [Attrib.add_attributes
+  [("iff", (Attrib.add_del_args iff_add_global iff_del_global,
+    Attrib.add_del_args iff_add_local iff_del_local),
+    "declare simplifier / classical rules")]];