src/HOL/Fun.thy
changeset 59507 b468e0f8da2a
parent 59504 8c6747dba731
parent 59498 50b60f501b05
child 59512 9bf568cc71a4
     1.1 --- a/src/HOL/Fun.thy	Tue Feb 10 17:37:06 2015 +0000
     1.2 +++ b/src/HOL/Fun.thy	Wed Feb 11 12:01:56 2015 +0000
     1.3 @@ -851,8 +851,8 @@
     1.4        | (T, SOME rhs) =>
     1.5            SOME (Goal.prove ctxt [] [] (Logic.mk_equals (t, rhs))
     1.6              (fn _ =>
     1.7 -              resolve_tac [eq_reflection] 1 THEN
     1.8 -              resolve_tac @{thms ext} 1 THEN
     1.9 +              resolve_tac ctxt [eq_reflection] 1 THEN
    1.10 +              resolve_tac ctxt @{thms ext} 1 THEN
    1.11                simp_tac (put_simpset ss ctxt) 1))
    1.12      end
    1.13  in proc end