--- a/src/HOL/BNF/Tools/bnf_lfp.ML Tue Apr 30 13:45:43 2013 +0200
+++ b/src/HOL/BNF/Tools/bnf_lfp.ML Tue Apr 30 15:58:32 2013 +0200
@@ -1852,7 +1852,7 @@
((Binding.qualify true (Binding.name_of b) (Binding.name thmN), []), [(thms, [])]))
bs thmss)
in
- ({bnfs = Ibnfs, dtors = dtors, ctors = ctors, folds = folds, recs = recs,
+ ({bnfs = Ibnfs, ctors = ctors, dtors = dtors, folds = folds, recs = recs,
induct = ctor_induct_thm, strong_induct = ctor_induct_thm, dtor_ctors = dtor_ctor_thms,
ctor_dtors = ctor_dtor_thms, ctor_injects = ctor_inject_thms, map_thms = folded_ctor_map_thms,
set_thmss = folded_ctor_set_thmss', rel_thms = ctor_Irel_thms, fold_thms = ctor_fold_thms,