# HG changeset patch
# User nipkow
# Date 1537699812 -7200
# Node ID 3ab140184a145292cb4e0d23698e62181e74e488
# Parent  d75cd481f8d9f98d23d0777af1b905d98bfe917d
use standard syntax

diff -r d75cd481f8d9 -r 3ab140184a14 src/HOL/Data_Structures/Sorting.thy
--- a/src/HOL/Data_Structures/Sorting.thy	Sat Sep 22 16:03:31 2018 +0200
+++ b/src/HOL/Data_Structures/Sorting.thy	Sun Sep 23 12:50:12 2018 +0200
@@ -270,7 +270,7 @@
 subsubsection "Functional Correctness"
 
 lemma mset_merge_adj:
-  "\<Union># image_mset mset (mset (merge_adj xss)) = \<Union># image_mset mset (mset xss)"
+  "\<Union># (image_mset mset (mset (merge_adj xss))) = \<Union># (image_mset mset (mset xss))"
 by(induction xss rule: merge_adj.induct) (auto simp: mset_merge)
 
 lemma mset_merge_all:
diff -r d75cd481f8d9 -r 3ab140184a14 src/HOL/Library/Multiset.thy
--- a/src/HOL/Library/Multiset.thy	Sat Sep 22 16:03:31 2018 +0200
+++ b/src/HOL/Library/Multiset.thy	Sun Sep 23 12:50:12 2018 +0200
@@ -2385,7 +2385,7 @@
   shows \<open>(\<Sum>x\<in>#A. y) = of_nat (size A) * y\<close>
   by (induction A) (auto simp: algebra_simps)
 
-abbreviation Union_mset :: "'a multiset multiset \<Rightarrow> 'a multiset"  ("\<Union># _" [900] 900)
+abbreviation Union_mset :: "'a multiset multiset \<Rightarrow> 'a multiset"  ("\<Union>#")
   where "\<Union># MM \<equiv> sum_mset MM" \<comment> \<open>FIXME ambiguous notation --
     could likewise refer to \<open>\<Squnion>#\<close>\<close>