src/Tools/quickcheck.ML
changeset 32859 204f749f35a9
parent 32740 9dd0a2f83429
child 32966 5b21661fe618
     1.1 --- a/src/Tools/quickcheck.ML	Fri Oct 02 21:42:31 2009 +0200
     1.2 +++ b/src/Tools/quickcheck.ML	Fri Oct 02 22:02:11 2009 +0200
     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.get_goal state;
     1.8 +    val (_, st) = Proof.flat_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