src/HOL/Codatatype/Tools/bnf_lfp.ML
changeset 49222 cbe8c859817c
parent 49205 674f04c737e0
child 49227 2652319c394e
equal deleted inserted replaced
49221:6d8d5fe9f3a2 49222:cbe8c859817c
  1806         (fld_induct2N, [fld_induct2_thm])]
  1806         (fld_induct2N, [fld_induct2_thm])]
  1807         |> map (fn (thmN, thms) =>
  1807         |> map (fn (thmN, thms) =>
  1808           ((Binding.qualify true (Binding.name_of b) (Binding.name thmN), []), [(thms, [])]));
  1808           ((Binding.qualify true (Binding.name_of b) (Binding.name thmN), []), [(thms, [])]));
  1809 
  1809 
  1810       val notes =
  1810       val notes =
  1811         [(fld_iterN, iter_thms),
  1811         [(fld_itersN, iter_thms),
  1812         (fld_iter_uniqueN, iter_unique_thms),
  1812         (fld_iter_uniqueN, iter_unique_thms),
  1813         (fld_recN, rec_thms),
  1813         (fld_recsN, rec_thms),
  1814         (unf_fldN, unf_fld_thms),
  1814         (unf_fldN, unf_fld_thms),
  1815         (fld_unfN, fld_unf_thms),
  1815         (fld_unfN, fld_unf_thms),
  1816         (unf_injectN, unf_inject_thms),
  1816         (unf_injectN, unf_inject_thms),
  1817         (unf_exhaustN, unf_exhaust_thms),
  1817         (unf_exhaustN, unf_exhaust_thms),
  1818         (fld_injectN, fld_inject_thms),
  1818         (fld_injectN, fld_inject_thms),