src/HOL/Tools/BNF/bnf_lfp.ML
changeset 57700 a2c4adb839a9
parent 57631 959caab43a3d
child 57726 18b8a8f10313
equal deleted inserted replaced
57699:a6cf197c1f1e 57700:a2c4adb839a9
  1812       {Ts = Ts, bnfs = Ibnfs, ctors = ctors, dtors = dtors, xtor_co_recs = recs,
  1812       {Ts = Ts, bnfs = Ibnfs, ctors = ctors, dtors = dtors, xtor_co_recs = recs,
  1813        xtor_co_induct = ctor_induct_thm, dtor_ctors = dtor_ctor_thms, ctor_dtors = ctor_dtor_thms,
  1813        xtor_co_induct = ctor_induct_thm, dtor_ctors = dtor_ctor_thms, ctor_dtors = ctor_dtor_thms,
  1814        ctor_injects = ctor_inject_thms, dtor_injects = dtor_inject_thms,
  1814        ctor_injects = ctor_inject_thms, dtor_injects = dtor_inject_thms,
  1815        xtor_map_thms = ctor_Imap_thms, xtor_set_thmss = ctor_Iset_thmss',
  1815        xtor_map_thms = ctor_Imap_thms, xtor_set_thmss = ctor_Iset_thmss',
  1816        xtor_rel_thms = ctor_Irel_thms, xtor_co_rec_thms = ctor_rec_thms,
  1816        xtor_rel_thms = ctor_Irel_thms, xtor_co_rec_thms = ctor_rec_thms,
  1817        xtor_co_rec_o_map_thms = ctor_rec_o_Imap_thms, rel_xtor_co_induct_thm = Irel_induct_thm}
  1817        xtor_co_rec_o_map_thms = ctor_rec_o_Imap_thms, rel_xtor_co_induct_thm = Irel_induct_thm,
       
  1818        dtor_set_induct_thms = []}
  1818       |> morph_fp_result (substitute_noted_thm noted);
  1819       |> morph_fp_result (substitute_noted_thm noted);
  1819   in
  1820   in
  1820     timer; (fp_res, lthy')
  1821     timer; (fp_res, lthy')
  1821   end;
  1822   end;
  1822 
  1823