Commit 7246cee7 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

CMRA structure on lists.

Initial commit by Amin Timany.
parent 2e67e68f
...@@ -983,6 +983,11 @@ Proof. ...@@ -983,6 +983,11 @@ Proof.
- intros [-> Hi]. revert i Hi. - intros [-> Hi]. revert i Hi.
induction n; intros [|?]; naive_solver auto with lia. induction n; intros [|?]; naive_solver auto with lia.
Qed. 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 : Lemma lookup_replicate_1 n x y i :
replicate n x !! i = Some y y = x i < n. replicate n x !! i = Some y y = x i < n.
Proof. by rewrite lookup_replicate. Qed. Proof. by rewrite lookup_replicate. Qed.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment