src/Provers/clasimp.ML
changeset 36601 8a041e2d8122
parent 35613 9d3ff36ad4e1
child 36960 01594f816e3a
--- a/src/Provers/clasimp.ML	Fri Apr 30 23:33:42 2010 +0200
+++ b/src/Provers/clasimp.ML	Fri Apr 30 23:40:14 2010 +0200
@@ -70,8 +70,14 @@
 fun get_css context = (Classical.get_cs context, Simplifier.get_ss context);
 
 fun map_css f context =
-  let val (cs', ss') = f (get_css context)
-  in context |> Classical.map_cs (K cs') |> Simplifier.map_ss (K ss') end;
+  let
+    val (cs, ss) = get_css context;
+    val (cs', ss') = f (cs, Simplifier.context (Context.proof_of context) ss);
+  in
+    context
+    |> Classical.map_cs (K cs')
+    |> Simplifier.map_ss (K (Simplifier.inherit_context ss ss'))
+  end;
 
 fun clasimpset_of ctxt = (Classical.claset_of ctxt, Simplifier.simpset_of ctxt);