Skip to content

GitLab

A
Actris
Commit db4dff93 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files
Options

Remove more laters.

parent 777d9fe1
Pipeline #24446 passed with stage
    in 18 minutes and 48 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 4 additions and 4 deletions
    theories/channel/proto_channel.v
    View file @ db4dff93
    ......@@ -248,8 +248,8 @@ Definition proto_inv `{!proto_chanG Σ} (γ : proto_name) : iProp Σ :=
    chan_own (proto_c_name γ) Right r ∗
    proto_own_auth γ Left pl ∗
    proto_own_auth γ Right pr ∗
    ▷ ((⌜r = []⌝ ∗ proto_interp l pl pr) ∨
    (⌜l = []⌝ ∗ proto_interp r pr pl)))%I.
    ((⌜r = []⌝ ∗ proto_interp l pl pr) ∨
    (⌜l = []⌝ ∗ proto_interp r pr pl)))%I.
    Definition protoN := nroot .@ "proto".
    ......@@ -728,7 +728,7 @@ Section proto.
    iFrame "Hcctx Hinv Hst". iSplit; first done.
    rewrite iProto_le_unfold. iRight; auto 10.
    + 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
    with "[Heval]" as "Heval".
    { iNext. by iRewrite "Heq" in "Heval". }
    ......@@ -751,7 +751,7 @@ Section proto.
    iFrame "Hcctx Hinv Hst". iSplit; first done.
    rewrite iProto_le_unfold. iRight; auto 10.
    + 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
    with "[Heval]" as "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