src/HOL/simpdata.ML
changeset 2250 891eb76b8045
parent 2234 041bf27011b1
child 2251 e0e3836f333d
--- a/src/HOL/simpdata.ML	Wed Nov 27 13:04:04 1996 +0100
+++ b/src/HOL/simpdata.ML	Wed Nov 27 13:13:21 1996 +0100
@@ -298,8 +298,7 @@
       setsolver (fn prems => resolve_tac (TrueI::refl::prems) ORELSE' atac
                              ORELSE' etac FalseE)
       setsubgoaler asm_simp_tac
-      addsimps ([if_True, if_False, if_cancel,
-		 o_apply, imp_disjL, conj_assoc, disj_assoc,
+      addsimps ([if_True, if_False, o_apply, imp_disjL, conj_assoc, disj_assoc,
                  de_Morgan_conj, de_Morgan_disj, not_all, not_ex, cases_simp]
         @ ex_simps @ all_simps @ simp_thms)
       addcongs [imp_cong];
@@ -331,7 +330,7 @@
 
 (*** Install simpsets and datatypes in theory structure ***)
 
-simpset := HOL_ss;
+simpset := HOL_ss addsimps [if_cancel];
 
 exception SS_DATA of simpset;