changeset 54993 | 625370769fc0 |
parent 54992 | e5f4075d4c5e |
child 54994 | 8e98d67325b1 |
--- a/src/Pure/goal.ML Sat Jan 11 17:05:03 2014 +0100 +++ b/src/Pure/goal.ML Sat Jan 11 20:06:31 2014 +0100 @@ -220,7 +220,7 @@ (finish ctxt' st |> Drule.flexflex_unique |> Thm.check_shyps sorts - (* |> Thm.check_hyps ctxt' *) (* FIXME *)) + (* |> Thm.check_hyps (Context.Proof ctxt') *) (* FIXME *)) handle THM (msg, _, _) => err msg | ERROR msg => err msg; in if Unify.matches_list thy [Thm.term_of stmt] [Thm.prop_of res] then res