src/Provers/clasimp.ML
changeset 11496 fa8d12b789e1
parent 11462 cf3e7f5ad0e1
child 11902 db207d68392c
--- a/src/Provers/clasimp.ML	Thu Aug 09 18:51:41 2001 +0200
+++ b/src/Provers/clasimp.ML	Thu Aug 09 19:33:22 2001 +0200
@@ -122,7 +122,8 @@
 
 fun addIff dest elim intro simp ((cs, ss), th) =
   (          dest (intro (cs, [zero_var_indexes (th RS Data.iffD2)]),
-                              [zero_var_indexes (th RS Data.iffD1)])
+                              [zero_var_indexes (rotate_prems (nprems_of th)
+                                                (th RS Data.iffD1))])
    handle THM _ => (elim (cs, [zero_var_indexes (th RS Data.notE )])
                     handle THM _ => intro (cs, [th])),
    simp (ss, [th]));