src/HOL/Analysis/Convex_Euclidean_Space.thy
changeset 71172 575b3a818de5
parent 71030 b6e69c71a9f6
child 71225 1249859d23dd
--- a/src/HOL/Analysis/Convex_Euclidean_Space.thy	Thu Nov 28 20:38:07 2019 +0100
+++ b/src/HOL/Analysis/Convex_Euclidean_Space.thy	Thu Nov 28 23:06:22 2019 +0100
@@ -2233,7 +2233,7 @@
       unfolding 2
       by (clarsimp simp: dist_norm) (metis inner_commute inner_diff_right norm_bound_Basis_le)
     have e': "e = (\<Sum>(i::'a)\<in>Basis. d)"
-      by (simp add: d_def DIM_positive)
+      by (simp add: d_def)
     show "convex hull c \<subseteq> cball x e"
       unfolding 2
       apply clarsimp