proof step: reset goal_facts;
authorwenzelm
Mon, 14 Feb 2000 20:42:02 +0100
changeset 8242 ac8ac0eba738
parent 8241 a55484a9b19f
child 8243 5db67376df7d
proof step: reset goal_facts;
src/Pure/Isar/method.ML
--- a/src/Pure/Isar/method.ML	Mon Feb 14 12:23:08 2000 +0100
+++ b/src/Pure/Isar/method.ML	Mon Feb 14 20:42:02 2000 +0100
@@ -496,6 +496,7 @@
   state
   |> Proof.assert_backward
   |> refine (if_none opt_text default_text)
+  |> Seq.map (Proof.goal_facts (K []))
   |> Seq.map Proof.enter_forward;
 
 fun local_qed opt_text = Proof.local_qed (refine (finish_text opt_text));