Skip to content
Snippets Groups Projects
Commit 6e01904b authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Bump Iris (Z_scope).

parent fef73ef6
No related branches found
No related tags found
No related merge requests found
......@@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/actris" ]
depends: [
"coq-iris" { (= "dev.2020-05-26.1.d80e7abf") | (= "dev") }
"coq-iris" { (= "dev.2020-05-28.2.2643cb7d") | (= "dev") }
]
......@@ -15,7 +15,7 @@ Definition cmp_spec `{!heapG Σ} {A} (I : A → val → iProp Σ)
Definition IZ `{!heapG Σ} (x : Z) (v : val) : iProp Σ := v = #x⌝%I.
Definition cmpZ : val := λ: "x" "y", "x" "y".
Lemma cmpZ_spec `{!heapG Σ} : cmp_spec IZ () cmpZ.
Lemma cmpZ_spec `{!heapG Σ} : cmp_spec IZ ()%Z cmpZ.
Proof.
rewrite /IZ. iIntros (x x' v v' Φ [-> ->]) "!> HΦ".
wp_lam. wp_pures. by iApply "HΦ".
......
......@@ -27,7 +27,7 @@ Fixpoint map_string_seq {A}
end.
Lemma lookup_map_string_seq_Some {A} (j i : nat) (xs : list A) :
map_string_seq "f" j xs !! ("f" +:+ pretty (i + j)%nat) = xs !! i.
map_string_seq "f" j xs !! ("f" +:+ pretty (i + j)) = xs !! i.
Proof.
revert i j. induction xs as [|x xs IH]=> -[|i] j //=.
- by rewrite lookup_insert.
......@@ -44,7 +44,7 @@ Proof.
Qed.
Lemma lookup_map_string_seq_None_lt {A} y i j (xs : list A) :
(i < j)%nat map_string_seq y j xs !! (y +:+ pretty i) = None.
i < j map_string_seq y j xs !! (y +:+ pretty i) = None.
Proof.
revert j. induction xs as [|x xs IH]=> j ? //=.
rewrite lookup_insert_ne; last (intros ?; simplify_eq/=; lia).
......
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