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

Bump Iris.

parent 75883a20
No related branches found
No related tags found
No related merge requests found
......@@ -6,7 +6,7 @@ bug-reports: "https://gitlab.mpi-sws.org/iris/actris/issues"
dev-repo: "git+https://gitlab.mpi-sws.org/iris/actris.git"
depends: [
"coq-iris-heap-lang" { (= "dev.2021-12-09.1.f52f9f6a") | (= "dev") }
"coq-iris-heap-lang" { (= "dev.2022-04-12.0.a3bed7ea") | (= "dev") }
]
build: [make "-j%{jobs}%"]
......
......@@ -878,16 +878,19 @@ Section proto.
iApply iProto_le_exist_elim_r; iIntros (x).
iApply "IH". iIntros (xs). iApply "H".
Qed.
Lemma iProto_le_texist_intro_l {TT : tele} (m : TT iMsg Σ V) x :
(<!.. x> m x) (<!> m x).
Proof.
induction x as [|T TT x xs IH]; simpl; [iApply iProto_le_refl|].
induction x as [|T TT x xs IH] using tele_arg_ind; simpl.
{ iApply iProto_le_refl. }
iApply iProto_le_trans; [by iApply iProto_le_exist_intro_l|]. iApply IH.
Qed.
Lemma iProto_le_texist_intro_r {TT : tele} (m : TT iMsg Σ V) x :
(<?> m x) (<?.. x> m x).
Proof.
induction x as [|T TT x xs IH]; simpl; [iApply iProto_le_refl|].
induction x as [|T TT x xs IH] using tele_arg_ind; simpl.
{ iApply iProto_le_refl. }
iApply iProto_le_trans; [|by iApply iProto_le_exist_intro_r]. iApply IH.
Qed.
......
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