src/HOL/Library/Multiset.thy
changeset 21214 a91bab12b2bd
parent 20770 2c583720436e
child 21404 eb85850d3eb7
equal deleted inserted replaced
21213:c81f016883df 21214:a91bab12b2bd
   257     "count (A #\<inter> B) x = min (count A x) (count B x)"
   257     "count (A #\<inter> B) x = min (count A x) (count B x)"
   258   by (simp add: multiset_inter_def min_def)
   258   by (simp add: multiset_inter_def min_def)
   259 
   259 
   260 lemma multiset_inter_commute: "A #\<inter> B = B #\<inter> A"
   260 lemma multiset_inter_commute: "A #\<inter> B = B #\<inter> A"
   261   by (simp add: multiset_eq_conv_count_eq multiset_inter_count
   261   by (simp add: multiset_eq_conv_count_eq multiset_inter_count
   262     min_max.below_inf.inf_commute)
   262     min_max.inf_commute)
   263 
   263 
   264 lemma multiset_inter_assoc: "A #\<inter> (B #\<inter> C) = A #\<inter> B #\<inter> C"
   264 lemma multiset_inter_assoc: "A #\<inter> (B #\<inter> C) = A #\<inter> B #\<inter> C"
   265   by (simp add: multiset_eq_conv_count_eq multiset_inter_count
   265   by (simp add: multiset_eq_conv_count_eq multiset_inter_count
   266     min_max.below_inf.inf_assoc)
   266     min_max.inf_assoc)
   267 
   267 
   268 lemma multiset_inter_left_commute: "A #\<inter> (B #\<inter> C) = B #\<inter> (A #\<inter> C)"
   268 lemma multiset_inter_left_commute: "A #\<inter> (B #\<inter> C) = B #\<inter> (A #\<inter> C)"
   269   by (simp add: multiset_eq_conv_count_eq multiset_inter_count min_def)
   269   by (simp add: multiset_eq_conv_count_eq multiset_inter_count min_def)
   270 
   270 
   271 lemmas multiset_inter_ac =
   271 lemmas multiset_inter_ac =