src/FOLP/intprover.ML
changeset 2572 8a47f85e7a03
parent 1463 49ca5e875691
child 2603 4988dda71c0b
     1.1 --- a/src/FOLP/intprover.ML	Fri Jan 31 16:57:45 1997 +0100
     1.2 +++ b/src/FOLP/intprover.ML	Fri Jan 31 17:13:19 1997 +0100
     1.3 @@ -40,13 +40,13 @@
     1.4        (false,impI), (false,notI), (false,allI),
     1.5        (true,conjE), (true,exE),
     1.6        (false,conjI), (true,conj_impE),
     1.7 -      (true,disj_impE), (true,ex_impE),
     1.8 -      (true,disjE), (false,iffI), (true,iffE), (true,not_to_imp) ];
     1.9 +      (true,disj_impE), (true,disjE), 
    1.10 +      (false,iffI), (true,iffE), (true,not_to_imp) ];
    1.11  
    1.12  val haz_brls =
    1.13      [ (false,disjI1), (false,disjI2), (false,exI), 
    1.14        (true,allE), (true,not_impE), (true,imp_impE), (true,iff_impE),
    1.15 -      (true,all_impE), (true,impE) ];
    1.16 +      (true,all_impE), (true,ex_impE), (true,impE) ];
    1.17  
    1.18  (*0 subgoals vs 1 or more: the p in safep is for positive*)
    1.19  val (safe0_brls, safep_brls) =