From 8957c470b225de7bc9c0ac88bc50dd7abbc97a27 Mon Sep 17 00:00:00 2001 From: Robbert Krebbers <mail@robbertkrebbers.nl> Date: Mon, 17 Feb 2020 13:23:16 +0100 Subject: [PATCH] Remove useless later. --- theories/channel/proto_channel.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/theories/channel/proto_channel.v b/theories/channel/proto_channel.v index e717eab..1a69f5d 100644 --- a/theories/channel/proto_channel.v +++ b/theories/channel/proto_channel.v @@ -220,7 +220,7 @@ Fixpoint proto_interp {Σ} (vs : list val) (p1 p2 : iProto Σ) : iProp Σ := | v :: vs => ∃ pc p2', p2 ≡ proto_message Receive pc ∗ pc v (proto_eq_next p2') ∗ - ▷ proto_interp vs p1 p2' + proto_interp vs p1 p2' end%I. Arguments proto_interp {_} _ _%proto _%proto : simpl nomatch. @@ -593,7 +593,7 @@ Section proto. { iRewrite -"Heval". by rewrite /iProto_dual proto_map_message. } rewrite /= proto_eq_next_dual; auto. - iDestruct "Heval" as (pc' p2') "(Heq & Hc' & Heval)". - iExists pc', p2'. iFrame "Heq Hc'". iNext. iApply ("IH" with "Heval Hc"). + iExists pc', p2'. iFrame "Heq Hc'". iApply ("IH" with "Heval Hc"). Qed. Lemma proto_interp_recv v vs p1 pc : -- GitLab