recover static nnf_ss from 6c0de045d127 -- avoid odd runtime warnings due to duplication of not_not;
authorwenzelm
Sun, 14 Jul 2013 00:08:15 +0200
changeset 52654 06653152ea8b
parent 52653 0589394aaaa5
child 52655 3b2b1ef13979
recover static nnf_ss from 6c0de045d127 -- avoid odd runtime warnings due to duplication of not_not;
src/HOL/HOL.thy
--- a/src/HOL/HOL.thy	Sat Jul 13 21:02:41 2013 +0200
+++ b/src/HOL/HOL.thy	Sun Jul 14 00:08:15 2013 +0200
@@ -1994,8 +1994,12 @@
   fun smp_tac j = EVERY'[dresolve_tac (smp j), atac];
 end;
 
-fun nnf_conv ctxt =
-  Simplifier.rewrite (put_simpset HOL_basic_ss ctxt addsimps @{thms simp_thms nnf_simps});
+local
+  val nnf_ss =
+    simpset_of (put_simpset HOL_basic_ss @{context} addsimps @{thms simp_thms nnf_simps});
+in
+  fun nnf_conv ctxt = Simplifier.rewrite (put_simpset nnf_ss ctxt);
+end
 *}
 
 hide_const (open) eq equal