CMRA structure on lists.

Initial commit by Amin Timany.

CMRA structure on lists.
Initial commit by Amin Timany.
7246cee7 · Robbert Krebbers · 2e67e68f · 7246cee7
Commit 7246cee7 authored May 23, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

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

No files found.
--- a/theories/list.v
+++ b/theories/list.v
@@ -983,6 +983,11 @@ Proof.
  - intros [-> Hi]. revert i Hi.
    induction n; intros [|?]; naive_solver auto with lia.
 Qed.
+Lemma elem_of_replicate n x y : y ∈ replicate n x ↔ y = x ∧ n ≠ 0.
+Proof.
+  rewrite elem_of_list_lookup, Nat.neq_0_lt_0.
+  setoid_rewrite lookup_replicate; naive_solver eauto with lia.
+Qed.
 Lemma lookup_replicate_1 n x y i :
  replicate n x !! i = Some y → y = x ∧ i < n.
 Proof. by rewrite lookup_replicate. Qed.