Lemma list_insert_id.

1a21e908 · Robbert Krebbers · 29e2f606 · 1a21e908
Commit 1a21e908 authored Jun 30, 2018 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

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

No files found.
--- a/theories/list.v
+++ b/theories/list.v
@@ -521,6 +521,9 @@ Qed.
 Lemma list_insert_commute l i j x y :
  i ≠ j → <[i:=x]>(<[j:=y]>l) = <[j:=y]>(<[i:=x]>l).
 Proof. revert i j. by induction l; intros [|?] [|?] ?; f_equal/=; auto. Qed.
+Lemma list_insert_id l i x : l !! i = Some x → <[i:=x]>l = l.
+Proof. revert i. induction l; intros [|i] [=]; f_equal/=; auto. Qed.
+
 Lemma list_lookup_other l i x :
  length l ≠ 1 → l !! i = Some x → ∃ j y, j ≠ i ∧ l !! j = Some y.
 Proof.