Commit 53c8f253 authored by Michael Sammler's avatar Michael Sammler
Browse files

update iris

parent cbf467a8
Pipeline #43115 passed with stage
in 28 minutes and 5 seconds
......@@ -17,7 +17,7 @@ dev-repo: "git+https://gitlab.mpi-sws.org/iris/refinedc.git"
depends: [
"coq" { (>= "8.12.0" & < "8.13~") }
"coq-iris" { (= "dev.2021-02-16.2.075ce23b") | (= "dev") }
"coq-iris" { (= "dev.2021-03-06.3.b0708b01") | (= "dev") }
"dune" {>= "2.7.0"}
"cerberus" {= "~dev"}
"cmdliner" {>= "1.0.4"}
......
......@@ -13,8 +13,10 @@ Class refinedcG Σ := RefinedCG {
Instance c_irisG `{!refinedcG Σ} : irisG c_lang Σ := {
iris_invG := refinedcG_invG;
state_interp σ κs _ := state_ctx σ;
state_interp σ κs _ _ := state_ctx σ;
fork_post _ := True%I;
num_laters_per_step _ := 0%nat;
state_interp_mono _ _ _ _ := fupd_intro _ _;
}.
Global Opaque iris_invG.
......@@ -65,7 +67,7 @@ Section lifting.
Proof.
iIntros (He ?) "HWP".
iApply wp_lift_head_step_fupd => //.
iIntros (σ1 κ κs n) "Hσ".
iIntros (σ1 κ κs n ?) "Hσ".
iMod ("HWP" $! σ1 with "Hσ") as (Hstep) "HWP".
iModIntro. iSplit. {
iPureIntro. destruct Hstep as (?&?&?&?&?).
......
......@@ -72,7 +72,7 @@ Proof.
by iApply "IH".
}
iModIntro. iExists NotStuck, _, (replicate (length thread_mains) (λ _, True%I)), _.
iModIntro. iExists NotStuck, _, (replicate (length thread_mains) (λ _, True%I)), _, _.
iSplitL "Hctx Hf"; last first. 1: iSplitL "Hmains".
- rewrite big_sepL2_fmap_l. iApply big_sepL2_replicate_2. iApply (big_sepL_impl with "Hmains").
iIntros "!#" (? main ?); iDestruct 1 as (P) "[Hmain HP]".
......
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