FOL/simpdata: added etac FalseE in setsolver call. Toby: "now that the
authorlcp
Fri, 13 May 1994 11:25:55 +0200
changeset 371 3a853818f1d2
parent 370 e95e212512d1
child 372 40d565e51dea
FOL/simpdata: added etac FalseE in setsolver call. Toby: "now that the simplifier can rewrite premises, it can generate the premise False."
src/FOL/simpdata.ML
--- a/src/FOL/simpdata.ML	Fri May 13 11:10:14 1994 +0200
+++ b/src/FOL/simpdata.ML	Fri May 13 11:25:55 1994 +0200
@@ -95,7 +95,9 @@
 val IFOL_ss = 
   empty_ss 
   setmksimps (map mk_meta_eq o atomize o gen_all)
-  setsolver  (fn prems => resolve_tac (triv_rls@prems) ORELSE' assume_tac)
+  setsolver  (fn prems => resolve_tac (triv_rls@prems) 
+	                  ORELSE' assume_tac
+	                  ORELSE' etac FalseE)
   setsubgoaler asm_simp_tac
   addsimps IFOL_rews
   addcongs [imp_cong];