Skip to content
Snippets Groups Projects
Commit f32cecf4 authored by Hai Dang's avatar Hai Dang
Browse files

Update dependencies

parent 0557ef4c
No related branches found
No related tags found
No related merge requests found
Pipeline #46286 failed
......@@ -15,7 +15,7 @@ This branch uses a proper weak memory model.
"""
depends: [
"coq-gpfsl" { (= "dev.2021-04-20.0.13632051") | (= "dev") }
"coq-gpfsl" { (= "dev.2021-05-05.0.6c5a80f0") | (= "dev") }
]
build: [make "-j%{jobs}%"]
......
......@@ -409,7 +409,7 @@ Section typing.
Proof.
iIntros (<- ->) "#Hbody /=". iIntros (tid) "#LFT _ $ $ #HT". iApply wp_value.
rewrite tctx_interp_singleton. iLöb as "IH". iExists _. iSplit.
{ unlock. rewrite /= decide_left. done. }
{ unlock. rewrite /= decide_True_pi. done. }
iExists fb, _, argsb, e, _. iSplit. done. iSplit. done. iNext.
iIntros (x ϝ k args) "!#". iIntros (tid') "_ HE Htl HL HC HT'".
iApply ("Hbody" with "LFT HE Htl HL HC").
......
......@@ -34,7 +34,7 @@ Section type_context.
Lemma eval_path_of_val (v : val) :
eval_path v = Some v.
Proof. destruct v. done. simpl. rewrite (decide_left _). done. Qed.
Proof. destruct v. done. simpl. rewrite (decide_True_pi _). done. Qed.
Lemma wp_eval_path E tid p v (SUB : histN E) :
eval_path p = Some v WP p in tid @ E {{ v', v' = v }}.
......
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