src/HOL/simpdata.ML
changeset 3518 6e11c7bfb9c7
parent 3448 8a79e27ac53b
child 3538 ed9de44032e0
--- a/src/HOL/simpdata.ML	Mon Jul 14 12:42:28 1997 +0200
+++ b/src/HOL/simpdata.ML	Mon Jul 14 12:44:09 1997 +0200
@@ -41,7 +41,7 @@
               | (con $ _ $ _) =>
                     if con=iff_const
                     then Delrules [zero_var_indexes (th RS iffD2),
-                                   zero_var_indexes (th RS iffD1)]
+                                   make_elim (zero_var_indexes (th RS iffD1))]
                     else Delrules [th]
               | _ => Delrules [th];
        Delsimps [th])