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), |