--- a/src/HOL/BNF/Tools/bnf_gfp.ML Thu Aug 22 08:42:27 2013 +0200
+++ b/src/HOL/BNF/Tools/bnf_gfp.ML Thu Aug 22 11:30:14 2013 +0200
@@ -2902,6 +2902,7 @@
xtor_map_thms = folded_dtor_map_thms, xtor_set_thmss = folded_dtor_set_thmss',
xtor_rel_thms = dtor_Jrel_thms,
xtor_co_iter_thmss = transpose [ctor_dtor_unfold_thms, ctor_dtor_corec_thms],
+ xtor_co_iter_o_map_thmss = transpose [dtor_unfold_o_map_thms, dtor_corec_o_map_thms],
rel_co_induct_thm = Jrel_coinduct_thm},
lthy |> Local_Theory.notes (common_notes @ notes) |> snd)
end;