changeset 60728 | 26ffdb966759 |
parent 59860 | a979fc5db526 |
child 60788 | 5e2df6bd906c |
--- a/src/HOL/Tools/BNF/bnf_fp_n2m.ML Thu Jul 16 10:48:20 2015 +0200 +++ b/src/HOL/Tools/BNF/bnf_fp_n2m.ML Thu Jul 16 12:23:22 2015 +0200 @@ -462,7 +462,7 @@ unfold_thms_tac ctxt (flat [rec_thms, raw_co_rec_defs, pre_map_defs, fp_pre_map_defs, fp_xtor_co_recs, fp_rec_o_maps, map_thms, fp_Rep_o_Abss, Rep_o_Abss]) THEN - CONJ_WRAP (K (HEADGOAL (rtac refl))) bnfs; + CONJ_WRAP (K (HEADGOAL (rtac ctxt refl))) bnfs; in Library.foldr1 HOLogic.mk_conj goals |> HOLogic.mk_Trueprop