Skip to content
Snippets Groups Projects
Commit 9e1211df authored by Michael Sammler's avatar Michael Sammler
Browse files

update iris

parent 5e48304d
No related branches found
No related tags found
No related merge requests found
Pipeline #35005 passed
......@@ -14,7 +14,7 @@ RefinedC: Framework for verifying low-level code using refinement types and owne
depends: [
"coq" { (>= "8.11.0" & < "8.12~") | (= "dev") }
"coq-iris" { (= "dev.2020-09-14.5.5d04e9aa") | (= "dev") }
"coq-iris" { (= "dev.2020-09-29.7.19ba2bc0") | (= "dev") }
]
build: [make "-j%{jobs}%"]
......
......@@ -125,7 +125,7 @@ Section fntbl.
fntbl_ctx t -∗ fntbl_entry f fn -∗ t !! f = Some fn⌝.
Proof.
rewrite fntbl_entry_eq. iIntros "Htbl Hf".
iDestruct (own_valid_2 with "Htbl Hf") as %[Hf?]%auth_both_valid.
iDestruct (own_valid_2 with "Htbl Hf") as %[Hf?]%auth_both_valid_discrete.
iPureIntro. move: Hf=> /singleton_included_l [f'].
rewrite lookup_fmap fmap_Some_equiv => [[[f'' [? ->]]]] /Some_included_total /to_agree_included.
by intros ->%leibniz_equiv.
......@@ -263,7 +263,7 @@ Section heap.
h !! l = Some (match ls with RSt n => RSt (n+n') | WSt => WSt end, b)⌝.
Proof.
iIntros "H● H◯".
iDestruct (own_valid_2 with "H● H◯") as %[Hl?]%auth_both_valid.
iDestruct (own_valid_2 with "H● H◯") as %[Hl?]%auth_both_valid_discrete.
iPureIntro. move: Hl=> /singleton_included_l [[[q' ls'] dv]].
rewrite /to_heap lookup_fmap fmap_Some_equiv.
move=> [[[ls'' v'] [?[[/=??]->]]]]; simplify_eq.
......@@ -280,7 +280,7 @@ Section heap.
h !! l = Some (ls, b)⌝.
Proof.
iIntros "H● H◯".
iDestruct (own_valid_2 with "H● H◯") as %[Hl?]%auth_both_valid.
iDestruct (own_valid_2 with "H● H◯") as %[Hl?]%auth_both_valid_discrete.
iPureIntro. move: Hl=> /singleton_included_l [[[q' ls'] dv]].
rewrite /to_heap lookup_fmap fmap_Some_equiv.
move=> [[[ls'' v'] [?[[/=??]->]]] Hincl]; simplify_eq.
......
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