diff -r 7b59d2945e54 -r 1f1366966296 src/HOL/Library/Multiset.thy --- a/src/HOL/Library/Multiset.thy Thu Mar 11 07:05:29 2021 +0000 +++ b/src/HOL/Library/Multiset.thy Thu Mar 11 07:05:38 2021 +0000 @@ -520,6 +520,9 @@ supseteq_mset (infix ">=#" 50) and supset_mset (infix ">#" 50) +global_interpretation subset_mset: ordering \(\#)\ \(\#)\ + by standard (auto simp add: subset_mset_def subseteq_mset_def multiset_eq_iff intro: order.trans order.antisym) + interpretation subset_mset: ordered_ab_semigroup_add_imp_le "(+)" "(-)" "(\#)" "(\#)" by standard (auto simp add: subset_mset_def subseteq_mset_def multiset_eq_iff intro: order_trans antisym) \ \FIXME: avoid junk stemming from type class interpretation\ @@ -3113,7 +3116,8 @@ show "OFCLASS('a multiset, order_class)" by standard (auto simp add: less_eq_multiset_def irrefl dest: trans) qed -end \ \FIXME avoid junk stemming from type class interpretation\ + +end lemma mset_le_irrefl [elim!]: fixes M :: "'a::preorder multiset"