src/HOL/BNF/Tools/bnf_comp_tactics.ML
changeset 51798 ad3a241def73
parent 51782 84e7225f5ab6
child 51893 596baae88a88
--- a/src/HOL/BNF/Tools/bnf_comp_tactics.ML	Sat Apr 27 11:37:50 2013 +0200
+++ b/src/HOL/BNF/Tools/bnf_comp_tactics.ML	Sat Apr 27 20:50:20 2013 +0200
@@ -221,7 +221,7 @@
     REPEAT_DETERM (eresolve_tac @{thms UnionE UnE imageE} 1) THEN
     (TRY o dresolve_tac Gwit_thms THEN'
     (etac FalseE ORELSE'
-    hyp_subst_tac THEN'
+    hyp_subst_tac ctxt THEN'
     dresolve_tac Fwit_thms THEN'
     (etac FalseE ORELSE' atac))) 1);