Skip to content
Snippets Groups Projects
Commit 0fb228f7 authored by Ralf Jung's avatar Ralf Jung
Browse files

bump Iris, fix compilation

parent c3400619
No related branches found
No related tags found
No related merge requests found
Pipeline #
......@@ -10,5 +10,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/lrust'" ]
depends: [
"coq-iris" { (= "dev.2017-10-26.0") | (= "dev") }
"coq-iris" { (= "dev.2017-10-27.0") | (= "dev") }
]
......@@ -328,7 +328,7 @@ Proof. reflexivity. Qed.
Lemma lft_intersect_incl_l κ κ': (κ κ' κ)%I.
Proof.
iIntros "!#". iSplitR.
unfold lft_incl. iIntros "!#". iSplitR.
- iIntros (q). rewrite <-lft_tok_sep. iIntros "[H Hf]". iExists q. iFrame.
rewrite <-lft_tok_sep. by iIntros "!>{$Hf}$".
- iIntros "? !>". iApply lft_dead_or. auto.
......@@ -338,7 +338,7 @@ Lemma lft_intersect_incl_r κ κ': (κ ⊓ κ' ⊑ κ')%I.
Proof. rewrite comm. apply lft_intersect_incl_l. Qed.
Lemma lft_incl_refl κ : (κ κ)%I.
Proof. iIntros "!#"; iSplitR; auto 10 with iFrame. Qed.
Proof. unfold lft_incl. iIntros "!#"; iSplitR; auto 10 with iFrame. Qed.
Lemma lft_incl_trans κ κ' κ'': κ κ' -∗ κ' κ'' -∗ κ κ''.
Proof.
......
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