src/Tools/quickcheck.ML
changeset 33560 b12ab081e5d1
parent 32966 5b21661fe618
child 33561 ab01b72715ef
     1.1 --- a/src/Tools/quickcheck.ML	Tue Oct 27 21:53:13 2009 +0100
     1.2 +++ b/src/Tools/quickcheck.ML	Wed Oct 28 11:55:48 2009 +0100
     1.3 @@ -143,7 +143,7 @@
     1.4      val thy = Proof.theory_of state;
     1.5      fun strip (Const ("all", _) $ Abs (_, _, t)) = strip t
     1.6        | strip t = t;
     1.7 -    val (_, st) = Proof.flat_goal state;
     1.8 +    val (_, (_, st)) = Proof.get_goal state;
     1.9      val (gi, frees) = Logic.goal_params (prop_of st) i;
    1.10      val gi' = Logic.list_implies (assms, subst_bounds (frees, strip gi))
    1.11        |> monomorphic_term thy insts default_T