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);