--- a/src/HOL/Tools/BNF/bnf_fp_n2m.ML Thu Sep 25 16:35:51 2014 +0200
+++ b/src/HOL/Tools/BNF/bnf_fp_n2m.ML Thu Sep 25 16:35:53 2014 +0200
@@ -477,7 +477,8 @@
xtor_co_rec_thms = xtor_co_rec_thms,
xtor_co_rec_o_map_thms = fp_rec_o_maps (*theorems about old constants*),
rel_xtor_co_induct_thm = rel_xtor_co_induct_thm,
- dtor_set_induct_thms = []}
+ dtor_set_induct_thms = [],
+ ctor_rec_transfer_thms = []}
|> morph_fp_result (Morphism.term_morphism "BNF" (singleton (Variable.polymorphic lthy))));
in
(fp_res, lthy)