changeset 53805 | 4163160853fd |
parent 53798 | 6a4e3299dfd1 |
child 53808 | b3e2022530e3 |
--- a/src/HOL/BNF/Tools/bnf_ctr_sugar.ML Mon Sep 23 14:53:43 2013 +0200 +++ b/src/HOL/BNF/Tools/bnf_ctr_sugar.ML Mon Sep 23 17:43:23 2013 +0200 @@ -772,7 +772,7 @@ (expandN, expand_thms, []), (injectN, inject_thms, iff_attrs @ induct_simp_attrs), (nchotomyN, [nchotomy_thm], []), - (selN, all_sel_thms, simp_attrs), + (selN, all_sel_thms, code_simp_attrs), (splitN, [split_thm], []), (split_asmN, [split_asm_thm], []), (splitsN, [split_thm, split_asm_thm], []),