src/HOL/Fun.thy
changeset 59498 50b60f501b05
parent 58889 5b7a9633cfa8
child 59507 b468e0f8da2a
     1.1 --- a/src/HOL/Fun.thy	Tue Feb 10 14:29:36 2015 +0100
     1.2 +++ b/src/HOL/Fun.thy	Tue Feb 10 14:48:26 2015 +0100
     1.3 @@ -839,8 +839,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