changeset 55414 | eab03e9cee8a |
parent 55197 | 5a54ed681ba2 |
child 55642 | 63beb38e9258 |
--- a/src/HOL/Tools/BNF/bnf_def_tactics.ML Wed Feb 12 08:35:56 2014 +0100 +++ b/src/HOL/Tools/BNF/bnf_def_tactics.ML Wed Feb 12 08:35:57 2014 +0100 @@ -265,7 +265,7 @@ rtac (thm RS ord_eq_le_trans) THEN' etac @{thm subset_trans[OF image_mono Un_upper1]}) set_maps, rtac sym, - rtac (box_equals OF [map_cong0 OF replicate live @{thm fun_cong[OF sum_case_o_inj(1)]}, + rtac (box_equals OF [map_cong0 OF replicate live @{thm fun_cong[OF case_sum_o_inj(1)]}, map_comp RS sym, map_id])] 1 end;