equal
deleted
inserted
replaced
476 xtor_rel_thms = of_fp_res #xtor_rel_thms (*too general types and terms*), |
476 xtor_rel_thms = of_fp_res #xtor_rel_thms (*too general types and terms*), |
477 xtor_co_rec_thms = xtor_co_rec_thms, |
477 xtor_co_rec_thms = xtor_co_rec_thms, |
478 xtor_co_rec_o_maps = fp_rec_o_maps (*theorems about old constants*), |
478 xtor_co_rec_o_maps = fp_rec_o_maps (*theorems about old constants*), |
479 xtor_rel_co_induct = xtor_rel_co_induct, |
479 xtor_rel_co_induct = xtor_rel_co_induct, |
480 dtor_set_inducts = [], |
480 dtor_set_inducts = [], |
481 xtor_co_rec_transfer_thms = []} |
481 xtor_co_rec_transfers = []} |
482 |> morph_fp_result (Morphism.term_morphism "BNF" (singleton (Variable.polymorphic lthy)))); |
482 |> morph_fp_result (Morphism.term_morphism "BNF" (singleton (Variable.polymorphic lthy)))); |
483 in |
483 in |
484 (fp_res, lthy) |
484 (fp_res, lthy) |
485 end; |
485 end; |
486 |
486 |