ι : Type u_2
α : Type u_1
β : Type ?u.19415
inst✝ : LinearOrderedRing α
s : Finset ι
σ : Perm ι
f g : ι → α
⊢ (∑ i in s, f i) * ∑ i in s, f i ≤ ↑(card s) * ∑ x in s, f x * f x
ι : Type u_2
α : Type u_1
β : Type ?u.19415
inst✝ : LinearOrderedRing α
s : Finset ι
σ : Perm ι
f g : ι → α
⊢ (∑ i in s, f i) ^ 2 ≤ ↑(card s) * ∑ i in s, f i ^ 2
simp_rw [sq]
no goals
ι : Type u_2
α : Type u_1
β : Type ?u.19415
inst✝ : LinearOrderedRing α
s : Finset ι
σ : Perm ι
f g : ι → α
⊢ (∑ i in s, f i) * ∑ i in s, f i ≤ ↑(card s) * ∑ x in s, f x * f x
exact (monovaryOn_self _ _).sum_mul_sum_le_card_mul_sum