refined 'interpret': reset facts ("this") and print_result, which merely consist of internal / protected statement;

--- a/src/Pure/Isar/element.ML	Tue Mar 13 13:31:26 2012 +0100
+++ b/src/Pure/Isar/element.ML	Tue Mar 13 14:17:42 2012 +0100
@@ -288,8 +288,8 @@
 
 fun proof_local cmd goal_ctxt int after_qed' propss =
   Proof.map_context (K goal_ctxt) #>
-  Proof.local_goal (Proof_Display.print_results Isabelle_Markup.state int) (K I)
-    Proof_Context.bind_propp_i cmd NONE after_qed' (map (pair Thm.empty_binding) propss);
+  Proof.local_goal (K (K ())) (K I) Proof_Context.bind_propp_i cmd NONE
+    after_qed' (map (pair Thm.empty_binding) propss);
 
 in
 

--- a/src/Pure/Isar/expression.ML	Tue Mar 13 13:31:26 2012 +0100
+++ b/src/Pure/Isar/expression.ML	Tue Mar 13 14:17:42 2012 +0100
@@ -858,7 +858,8 @@
 
     fun after_qed witss eqns =
       (Proof.map_context o Context.proof_map)
-        (note_eqns_register deps witss attrss eqns export export');
+        (note_eqns_register deps witss attrss eqns export export')
+      #> Proof.put_facts NONE;
   in
     state
     |> Element.witness_local_proof_eqs after_qed "interpret" propss eqns goal_ctxt int