Lemma for lookup of cons.

f4f0f216 · Robbert Krebbers · 254512a9 · f4f0f216
Commit f4f0f216 authored Jan 15, 2020 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

theories/list.v theories/list.v +2 -0

No files found.
--- a/theories/list.v
+++ b/theories/list.v
@@ -482,6 +482,8 @@ Lemma nil_or_length_pos l : l = [] ∨ length l ≠ 0.
 Proof. destruct l; simpl; auto with lia. Qed.
 Lemma nil_length_inv l : length l = 0 → l = [].
 Proof. by destruct l. Qed.
+Lemma lookup_cons_ne_0 l x i : i ≠ 0 → (x :: l) !! i = l !! pred i.
+Proof. by destruct i. Qed.
 Lemma lookup_nil i : @nil A !! i = None.
 Proof. by destruct i. Qed.
 Lemma lookup_tail l i : tail l !! i = l !! S i.