diff -r f589c50e54a0 -r 24f0cd70790b src/HOL/Library/Multiset_Order.thy --- a/src/HOL/Library/Multiset_Order.thy Tue May 09 09:49:41 2023 +0200 +++ b/src/HOL/Library/Multiset_Order.thy Tue May 09 22:00:36 2023 +0200 @@ -287,7 +287,7 @@ next case False hence "\m\#M1 - M2. \x\#M1 - M2. x \ m \ \ R m x" - using Finite_Set.bex_max_element[of "set_mset (M1 - M2)" R, OF finite_set_mset _ tran asym] + using Finite_Set.bex_max_element[of "set_mset (M1 - M2)" R, OF finite_set_mset asym tran] by simp with \transp_on A R\ B_sub_A have "\y\#M2 - M1. \x\#M1 - M2. \ R y x" using \multp\<^sub>H\<^sub>O R M1 M2\[THEN multp\<^sub>H\<^sub>O_implies_one_step_strong(2)]