src/HOL/Library/Euclidean_Space.thy
changeset 32698 be4b248616c0
parent 32685 29e4e567b5f4
child 32960 69916a850301
     1.1 --- a/src/HOL/Library/Euclidean_Space.thy	Tue Sep 22 15:39:46 2009 +0200
     1.2 +++ b/src/HOL/Library/Euclidean_Space.thy	Wed Sep 23 08:25:51 2009 +0200
     1.3 @@ -3649,7 +3649,7 @@
     1.4      from setsum_restrict_set[OF fS, of "\<lambda>v. u v *s v" S', symmetric] SS'
     1.5      have "setsum (\<lambda>v. ?u v *s v) S = setsum (\<lambda>v. u v *s v) S'"
     1.6        unfolding cond_value_iff cond_application_beta
     1.7 -      by (simp add: cond_value_iff cong del: if_weak_cong)
     1.8 +      by (simp add: cond_value_iff inf_absorb2 cong del: if_weak_cong)
     1.9      hence "setsum (\<lambda>v. ?u v *s v) S = y" by (metis u)
    1.10      hence "y \<in> ?rhs" by auto}
    1.11    moreover