From 51b40b8e143b85b96479be1400016b08699565a3 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 8 Jul 2016 10:16:09 -0700 Subject: Add a ListUtil lemma --- src/Util/ListUtil.v | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Util/ListUtil.v') diff --git a/src/Util/ListUtil.v b/src/Util/ListUtil.v index dded8f224..8260058f1 100644 --- a/src/Util/ListUtil.v +++ b/src/Util/ListUtil.v @@ -986,6 +986,12 @@ Qed. Hint Rewrite @sum_firstn_succ using congruence : simpl_sum_firstn. +Lemma sum_firstn_succ_default_rev : forall l i, + sum_firstn l i = (sum_firstn l (S i) - nth_default 0 l i)%Z. +Proof. + intros; rewrite sum_firstn_succ_default; omega. +Qed. + Lemma sum_firstn_succ_rev : forall l i x, nth_error l i = Some x -> sum_firstn l i = (sum_firstn l (S i) - x)%Z. -- cgit v1.2.3