From 7cebbad33b675e5fb7b316f89794104e38593379 Mon Sep 17 00:00:00 2001
From: Jan <s9jamenz@stud.uni-saarland.de>
Date: Mon, 7 Jun 2021 12:01:33 +0000
Subject: [PATCH] sum_list_with_in

---
 theories/list_numbers.v | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/theories/list_numbers.v b/theories/list_numbers.v
index 6e8a6ff0..7ca1548f 100644
--- a/theories/list_numbers.v
+++ b/theories/list_numbers.v
@@ -200,6 +200,8 @@ Section sum_list.
   Proof.
     induction l; simpl; rewrite ?reverse_cons, ?sum_list_with_app; simpl; lia.
   Qed.
+  Lemma sum_list_with_in x (f : A → nat) ls : x ∈ ls → f x ≤ sum_list_with f ls.
+  Proof. induction 1; simpl; lia. Qed.
   Lemma join_reshape szs l :
     sum_list szs = length l → mjoin (reshape szs l) = l.
   Proof.
-- 
GitLab