equal
deleted
inserted
replaced
1205 lemma fset_size_o_map: "inj f \<Longrightarrow> size_fset g \<circ> fimage f = size_fset (g \<circ> f)" |
1205 lemma fset_size_o_map: "inj f \<Longrightarrow> size_fset g \<circ> fimage f = size_fset (g \<circ> f)" |
1206 apply (subst fun_eq_iff) |
1206 apply (subst fun_eq_iff) |
1207 including fset.lifting by transfer (auto intro: sum.reindex_cong subset_inj_on) |
1207 including fset.lifting by transfer (auto intro: sum.reindex_cong subset_inj_on) |
1208 |
1208 |
1209 setup \<open> |
1209 setup \<open> |
1210 BNF_LFP_Size.register_size_global @{type_name fset} @{const_name size_fset} |
1210 BNF_LFP_Size.register_size_global \<^type_name>\<open>fset\<close> \<^const_name>\<open>size_fset\<close> |
1211 @{thm size_fset_overloaded_def} @{thms size_fset_simps size_fset_overloaded_simps} |
1211 @{thm size_fset_overloaded_def} @{thms size_fset_simps size_fset_overloaded_simps} |
1212 @{thms fset_size_o_map} |
1212 @{thms fset_size_o_map} |
1213 \<close> |
1213 \<close> |
1214 |
1214 |
1215 lifting_update fset.lifting |
1215 lifting_update fset.lifting |