Commit db4dff93 authored by Robbert Krebbers's avatar Robbert Krebbers

Remove more laters.

parent 777d9fe1
Pipeline #24446 passed with stage
in 18 minutes and 48 seconds
...@@ -248,8 +248,8 @@ Definition proto_inv `{!proto_chanG Σ} (γ : proto_name) : iProp Σ := ...@@ -248,8 +248,8 @@ Definition proto_inv `{!proto_chanG Σ} (γ : proto_name) : iProp Σ :=
chan_own (proto_c_name γ) Right r chan_own (proto_c_name γ) Right r
proto_own_auth γ Left pl proto_own_auth γ Left pl
proto_own_auth γ Right pr proto_own_auth γ Right pr
((r = [] proto_interp l pl pr) ((r = [] proto_interp l pl pr)
(l = [] proto_interp r pr pl)))%I. (l = [] proto_interp r pr pl)))%I.
Definition protoN := nroot .@ "proto". Definition protoN := nroot .@ "proto".
...@@ -728,7 +728,7 @@ Section proto. ...@@ -728,7 +728,7 @@ Section proto.
iFrame "Hcctx Hinv Hst". iSplit; first done. iFrame "Hcctx Hinv Hst". iSplit; first done.
rewrite iProto_le_unfold. iRight; auto 10. rewrite iProto_le_unfold. iRight; auto 10.
+ iIntros (v vs ->) "Hcr". + iIntros (v vs ->) "Hcr".
iDestruct "Hinv'" as "[[>% _]|[>-> Heval]]"; first done. iDestruct "Hinv'" as "[[% _]|[-> Heval]]"; first done.
iAssert ( proto_interp (v :: vs) pr (proto_message Receive pc'))%I iAssert ( proto_interp (v :: vs) pr (proto_message Receive pc'))%I
with "[Heval]" as "Heval". with "[Heval]" as "Heval".
{ iNext. by iRewrite "Heq" in "Heval". } { iNext. by iRewrite "Heq" in "Heval". }
...@@ -751,7 +751,7 @@ Section proto. ...@@ -751,7 +751,7 @@ Section proto.
iFrame "Hcctx Hinv Hst". iSplit; first done. iFrame "Hcctx Hinv Hst". iSplit; first done.
rewrite iProto_le_unfold. iRight; auto 10. rewrite iProto_le_unfold. iRight; auto 10.
+ iIntros (v vs ->) "Hcl". + iIntros (v vs ->) "Hcl".
iDestruct "Hinv'" as "[[>-> Heval]|[>% _]]"; last done. iDestruct "Hinv'" as "[[-> Heval]|[% _]]"; last done.
iAssert ( proto_interp (v :: vs) pl (proto_message Receive pc'))%I iAssert ( proto_interp (v :: vs) pl (proto_message Receive pc'))%I
with "[Heval]" as "Heval". with "[Heval]" as "Heval".
{ iNext. by iRewrite "Heq" in "Heval". } { iNext. by iRewrite "Heq" in "Heval". }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment