src/Pure/Isar/attrib.ML
changeset 57858 39d9c7f175e0
parent 56438 7f6b2634d853
child 57927 f14c1248d064
--- a/src/Pure/Isar/attrib.ML	Mon Aug 04 19:47:25 2014 +0200
+++ b/src/Pure/Isar/attrib.ML	Tue Aug 05 11:06:36 2014 +0200
@@ -292,7 +292,7 @@
 in
 
 fun partial_evaluation ctxt facts =
-  (facts, Context.Proof ctxt) |->
+  (facts, Context.Proof (Context_Position.not_really ctxt)) |->
     fold_map (fn ((b, more_atts), fact) => fn context =>
       let
         val (fact', (decls, context')) =