# HG changeset patch
# User paulson
# Date 854727199 -3600
# Node ID 8a47f85e7a03055d2911dd3854c61273e20ea298
# Parent  b9f641195b484af1a84e8a2a1297bfaa6ec51ca1
ex_impE was incorrectly listed as Safe

diff -r b9f641195b48 -r 8a47f85e7a03 src/FOL/intprover.ML
--- a/src/FOL/intprover.ML	Fri Jan 31 16:57:45 1997 +0100
+++ b/src/FOL/intprover.ML	Fri Jan 31 17:13:19 1997 +0100
@@ -42,13 +42,13 @@
       (false,impI), (false,notI), (false,allI),
       (true,conjE), (true,exE),
       (false,conjI), (true,conj_impE),
-      (true,disj_impE), (true,ex_impE),
-      (true,disjE), (false,iffI), (true,iffE), (true,not_to_imp) ];
+      (true,disj_impE), (true,disjE), 
+      (false,iffI), (true,iffE), (true,not_to_imp) ];
 
 val haz_brls =
     [ (false,disjI1), (false,disjI2), (false,exI), 
       (true,allE), (true,not_impE), (true,imp_impE), (true,iff_impE),
-      (true,all_impE), (true,impE) ];
+      (true,all_impE), (true,ex_impE), (true,impE) ];
 
 (*0 subgoals vs 1 or more: the p in safep is for positive*)
 val (safe0_brls, safep_brls) =
diff -r b9f641195b48 -r 8a47f85e7a03 src/FOLP/intprover.ML
--- a/src/FOLP/intprover.ML	Fri Jan 31 16:57:45 1997 +0100
+++ b/src/FOLP/intprover.ML	Fri Jan 31 17:13:19 1997 +0100
@@ -40,13 +40,13 @@
       (false,impI), (false,notI), (false,allI),
       (true,conjE), (true,exE),
       (false,conjI), (true,conj_impE),
-      (true,disj_impE), (true,ex_impE),
-      (true,disjE), (false,iffI), (true,iffE), (true,not_to_imp) ];
+      (true,disj_impE), (true,disjE), 
+      (false,iffI), (true,iffE), (true,not_to_imp) ];
 
 val haz_brls =
     [ (false,disjI1), (false,disjI2), (false,exI), 
       (true,allE), (true,not_impE), (true,imp_impE), (true,iff_impE),
-      (true,all_impE), (true,impE) ];
+      (true,all_impE), (true,ex_impE), (true,impE) ];
 
 (*0 subgoals vs 1 or more: the p in safep is for positive*)
 val (safe0_brls, safep_brls) =