back to Proof.raw_goal;

--- a/src/HOL/Tools/refute_isar.ML	Wed Oct 28 22:02:53 2009 +0100
+++ b/src/HOL/Tools/refute_isar.ML	Wed Oct 28 22:04:57 2009 +0100
@@ -28,7 +28,7 @@
         Toplevel.keep (fn state =>
           let
             val thy = Toplevel.theory_of state;
-            val (_, st) = Proof.flat_goal (Toplevel.proof_of state);
+            val {goal = st, ...} = Proof.raw_goal (Toplevel.proof_of state);
           in Refute.refute_goal thy parms st i end)));
 
 

--- a/src/Tools/quickcheck.ML	Wed Oct 28 22:02:53 2009 +0100
+++ b/src/Tools/quickcheck.ML	Wed Oct 28 22:04:57 2009 +0100
@@ -143,7 +143,7 @@
     val thy = Proof.theory_of state;
     fun strip (Const ("all", _) $ Abs (_, _, t)) = strip t
       | strip t = t;
-    val (_, st) = Proof.flat_goal state;
+    val {goal = st, ...} = Proof.raw_goal state;
     val (gi, frees) = Logic.goal_params (prop_of st) i;
     val gi' = Logic.list_implies (assms, subst_bounds (frees, strip gi))
       |> monomorphic_term thy insts default_T