Skip to content
Snippets Groups Projects
Commit 99703f44 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Update wrt iris.

parent fd7fe3c8
No related branches found
No related tags found
No related merge requests found
From iris.program_logic Require Export weakestpre adequacy.
From lrust Require Export heap.
From iris.algebra Require Import auth.
From iris.program_logic Require Import ownership.
From lrust Require Import proofmode notation.
Class heapPreG Σ := HeapPreG {
......
From iris.algebra Require Import upred_big_op cmra_big_op gmap frac dec_agree.
From iris.algebra Require Import csum excl auth.
From iris.program_logic Require Export invariants ownership.
From iris.program_logic Require Export invariants wsat.
From iris.proofmode Require Export tactics.
From lrust Require Export lifting.
Import uPred.
......@@ -468,8 +468,8 @@ Section heap.
iInv heapN as (σ hF) ">(Hσ & Hvalσ & HhF & %)" "Hclose".
iDestruct (heap_mapsto_lookup with "[$Hvalσ $Hv]") as %[n Hσl].
iVs (heap_read_vs _ 0 1 with "[$Hvalσ $Hv]") as "[Hvalσ Hv]"; first done.
iApply pvs_intro'; [set_solver|iIntros "Hclose'"].
iExists σ, n, v. iFrame. iSplit; [done|]. iIntros "!> Hσ".
iVs (pvs_intro_mask' (EheapN) ) as "Hclose'"; first set_solver.
iVsIntro. iExists σ, n, v. iFrame. iSplit; [done|]. iIntros "!> Hσ".
iVs "Hclose'" as "_". iVs ("Hclose" with "[Hσ Hvalσ HhF]") as "_".
{ iNext. iExists _, _. iFrame. eauto using heap_freeable_rel_stable. }
iVsIntro. clear dependent n σ hF.
......@@ -519,8 +519,8 @@ Section heap.
iInv heapN as (σ hF) ">(Hσ & Hvalσ & HhF & %)" "Hclose".
iDestruct (heap_mapsto_lookup_1 with "[$Hvalσ $Hv]") as %?.
iVs (heap_write_vs with "[$Hvalσ $Hv]") as "[Hvalσ Hv]"; first done.
iApply pvs_intro'; [set_solver|iIntros "Hclose'"].
iExists σ, v'. iSplit; [done|]. iIntros "{$Hσ} !> Hσ".
iVs (pvs_intro_mask' (EheapN) ) as "Hclose'"; first set_solver.
iVsIntro. iExists σ, v'. iSplit; [done|]. iIntros "{$Hσ} !> Hσ".
iVs "Hclose'" as "_". iVs ("Hclose" with "[Hσ Hvalσ HhF]") as "_".
{ iNext. iExists _, _. iFrame. eauto using heap_freeable_rel_stable. }
iVsIntro. clear dependent σ hF.
......
From iris.program_logic Require Export weakestpre.
From iris.program_logic Require Import ownership ectx_lifting. (* for ownP *)
From iris.program_logic Require Import ectx_lifting wsat. (* for ownP *)
From lrust Require Export lang.
From lrust Require Import tactics.
From iris.proofmode Require Import tactics.
......
From iris.program_logic Require Export hoare.
From iris.program_logic Require Import ownership adequacy.
From iris.program_logic Require Import adequacy.
From lrust Require Import tactics.
From iris.prelude Require Import gmap.
......
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