Commit 78cc584f authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Bump.

parent 84bdb5e3
......@@ -11,6 +11,6 @@ install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iris_time" ]
depends: [
"coq" { (>= "8.10.2" & < "8.13~") | (= "dev") }
"coq-iris" { (= "dev.2021-06-18.1.bd9d16c9") | (= "dev") }
"coq-iris" { (= "dev.2021-06-26.0.c7fcd140") | (= "dev") }
"coq-tlc" { (= "20200328") | (= "dev") }
]
......@@ -474,11 +474,11 @@ Lemma mapsto_M_acc : forall M x c,
x v' - mapsto_M (<[x:=c']>M)).
Proof.
introv HM. iIntros "HM".
rewrite -[in mapsto_M _](insert_id _ _ _ HM) -insert_delete /mapsto_M.
rewrite -[in mapsto_M M](insert_id M _ _ HM) -insert_delete_insert /mapsto_M.
rewrite big_sepM_insert ?lookup_delete //. iDestruct "HM" as "[Hc HM]".
destruct (val_of_content c); [|done]. iExists _. iFrame. iSplit; [done|].
iIntros (c' v' Hv') "?".
rewrite -insert_delete big_sepM_insert ?lookup_delete // Hv'. iFrame.
rewrite -insert_delete_insert big_sepM_insert ?lookup_delete // Hv'. iFrame.
Qed.
Lemma mapsto_M_acc_same : forall M x c,
......
Supports Markdown
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