Skip to content
Snippets Groups Projects
Verified Commit 08108eb8 authored by Rodolphe Lepigre's avatar Rodolphe Lepigre
Browse files

Fix atomic snapshot and update to last Iris.

parent fcd5c1de
No related branches found
No related tags found
1 merge request!19Fix and conditional increment example
...@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"] ...@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"]
install: [make "install"] install: [make "install"]
remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris_examples"] remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris_examples"]
depends: [ depends: [
"coq-iris" { (= "dev.2019-05-31.0.5c07c3be") | (= "dev") } "coq-iris" { (= "dev.2019-06-03.2.b368c861") | (= "dev") }
"coq-autosubst" { = "dev.coq86" } "coq-autosubst" { = "dev.coq86" }
] ]
...@@ -365,10 +365,10 @@ Section atomic_snapshot. ...@@ -365,10 +365,10 @@ Section atomic_snapshot.
wp_load. eauto. wp_load. eauto.
Qed. Qed.
Definition val_list_to_bool (v : list val) : bool := Definition prophecy_to_bool (v : list (val * val)) : bool :=
match v with match v with
| LitV (LitBool b) :: _ => b | (_, LitV (LitBool b)) :: _ => b
| _ => false | _ => false
end. end.
Lemma readPair_spec γ p : Lemma readPair_spec γ p :
...@@ -413,7 +413,7 @@ Section atomic_snapshot. ...@@ -413,7 +413,7 @@ Section atomic_snapshot.
iMod "AU" as (xv yv) "[Hpair Hclose]". iMod "AU" as (xv yv) "[Hpair Hclose]".
rewrite /pair_content. rewrite /pair_content.
iDestruct (excl_sync with "Hp⚫ Hpair") as %[= -> ->]. iDestruct (excl_sync with "Hp⚫ Hpair") as %[= -> ->].
destruct (val_list_to_bool proph_val) eqn:Hproph. destruct (prophecy_to_bool proph_val) eqn:Hproph.
- (* prophecy value is predicting that timestamp has not changed, so we commit *) - (* prophecy value is predicting that timestamp has not changed, so we commit *)
(* committing AU *) (* committing AU *)
iMod ("Hclose" with "Hpair") as "HΦ". iMod ("Hclose" with "Hpair") as "HΦ".
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment