src/HOL/Library/FSet.thy
changeset 56651 fc105315822a
parent 56646 360a05d60761
child 57398 882091eb1e9a
equal deleted inserted replaced
56650:1f9ab71d43a5 56651:fc105315822a
  1003 lemma fset_size_o_map: "inj f \<Longrightarrow> size_fset g \<circ> fimage f = size_fset (g \<circ> f)"
  1003 lemma fset_size_o_map: "inj f \<Longrightarrow> size_fset g \<circ> fimage f = size_fset (g \<circ> f)"
  1004   unfolding size_fset_def fimage_def
  1004   unfolding size_fset_def fimage_def
  1005   by (auto simp: Abs_fset_inverse setsum_reindex_cong[OF subset_inj_on[OF _ top_greatest]])
  1005   by (auto simp: Abs_fset_inverse setsum_reindex_cong[OF subset_inj_on[OF _ top_greatest]])
  1006 
  1006 
  1007 setup {*
  1007 setup {*
  1008 BNF_LFP_Size.register_size @{type_name fset} @{const_name size_fset}
  1008 BNF_LFP_Size.register_size_global @{type_name fset} @{const_name size_fset}
  1009   @{thms size_fset_simps size_fset_overloaded_simps} @{thms fset_size_o_map}
  1009   @{thms size_fset_simps size_fset_overloaded_simps} @{thms fset_size_o_map}
  1010 *}
  1010 *}
  1011 
  1011 
  1012 
  1012 
  1013 subsection {* Advanced relator customization *}
  1013 subsection {* Advanced relator customization *}