refine_no_facts: recover goal_facts;
authorwenzelm
Mon, 07 Feb 2000 18:40:27 +0100
changeset 8205 9f0ff98f37f6
parent 8204 b2a4a3d86b73
child 8206 e50a130ec9af
refine_no_facts: recover goal_facts;
src/Pure/Isar/method.ML
--- a/src/Pure/Isar/method.ML	Mon Feb 07 18:39:53 2000 +0100
+++ b/src/Pure/Isar/method.ML	Mon Feb 07 18:40:27 2000 +0100
@@ -455,9 +455,12 @@
   in eval text state end;
 
 fun refine_no_facts text state =
-  state
-  |> Proof.goal_facts (K [])
-  |> refine text;
+  let val (_, (goal_facts, _)) = Proof.get_goal state in
+    state
+    |> Proof.goal_facts (K [])
+    |> refine text
+    |> Seq.map (Proof.goal_facts (K goal_facts))
+  end;
 
 
 (* structured proof steps *)