diff -r f9bf65d90b69 -r 0f31dd2e540d src/HOL/Analysis/Convex_Euclidean_Space.thy --- a/src/HOL/Analysis/Convex_Euclidean_Space.thy Thu Dec 27 19:48:41 2018 +0100 +++ b/src/HOL/Analysis/Convex_Euclidean_Space.thy Thu Dec 27 21:00:50 2018 +0100 @@ -2637,9 +2637,9 @@ } moreover have "(\v\y ` {1..k}. sum u {i \ {1..k}. y i = v}) = 1" - unfolding sum_image_gen[OF fin, symmetric] using obt(2) by auto + unfolding sum.image_gen[OF fin, symmetric] using obt(2) by auto moreover have "(\v\y ` {1..k}. sum u {i \ {1..k}. y i = v} *\<^sub>R v) = x" - using sum_image_gen[OF fin, of "\i. u i *\<^sub>R y i" y, symmetric] + using sum.image_gen[OF fin, of "\i. u i *\<^sub>R y i" y, symmetric] unfolding scaleR_left.sum using obt(3) by auto ultimately have "\S u. finite S \ S \ p \ (\x\S. 0 \ u x) \ sum u S = 1 \ (\v\S. u v *\<^sub>R v) = x" @@ -2683,8 +2683,8 @@ by (auto simp: sum_constant_scaleR) } then have "(\x = 1..card S. u (f x)) = 1" "(\i = 1..card S. u (f i) *\<^sub>R f i) = y" - unfolding sum_image_gen[OF *(1), of "\x. u (f x) *\<^sub>R f x" f] - and sum_image_gen[OF *(1), of "\x. u (f x)" f] + unfolding sum.image_gen[OF *(1), of "\x. u (f x) *\<^sub>R f x" f] + and sum.image_gen[OF *(1), of "\x. u (f x)" f] unfolding f using sum.cong [of S S "\y. (\x\{x \ {1..card S}. f x = y}. u (f x) *\<^sub>R f x)" "\v. u v *\<^sub>R v"] using sum.cong [of S S "\y. (\x\{x \ {1..card S}. f x = y}. u (f x))" u]