src/HOL/Tools/BNF/bnf_lfp_basic_sugar.ML
changeset 58448 a1d4e7473c98
parent 58446 e89f57d1e46c
child 58457 01d9908477b3
--- a/src/HOL/Tools/BNF/bnf_lfp_basic_sugar.ML	Thu Sep 25 16:35:54 2014 +0200
+++ b/src/HOL/Tools/BNF/bnf_lfp_basic_sugar.ML	Thu Sep 25 16:35:56 2014 +0200
@@ -48,7 +48,7 @@
    xtor_co_rec_o_map_thms = [ctor_rec_o_map],
    rel_xtor_co_induct_thm = xtor_rel_induct,
    dtor_set_induct_thms = [],
-   ctor_rec_transfer_thms = []};
+   xtor_co_rec_transfer_thms = []};
 
 fun fp_sugar_of_sum ctxt =
   let