src/Pure/Tools/find_theorems.ML
changeset 32859 204f749f35a9
parent 32798 4b85b59a9f66
child 33029 2fefe039edf1
child 33037 b22e44496dc2
     1.1 --- a/src/Pure/Tools/find_theorems.ML	Fri Oct 02 21:42:31 2009 +0200
     1.2 +++ b/src/Pure/Tools/find_theorems.ML	Fri Oct 02 22:02:11 2009 +0200
     1.3 @@ -434,7 +434,7 @@
     1.4      let
     1.5        val proof_state = Toplevel.enter_proof_body state;
     1.6        val ctxt = Proof.context_of proof_state;
     1.7 -      val opt_goal = try Proof.get_goal proof_state |> Option.map (#2 o #2);
     1.8 +      val opt_goal = try Proof.flat_goal proof_state |> Option.map #2;
     1.9      in print_theorems ctxt opt_goal opt_lim rem_dups spec end);
    1.10  
    1.11  local