equal
deleted
inserted
replaced
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 = |