Skip to content
Snippets Groups Projects
Commit 3efd62f5 authored by Jonas Kastberg's avatar Jonas Kastberg
Browse files

Bumped stdpp

parent 01a342bd
No related branches found
No related tags found
No related merge requests found
Pipeline #58590 failed
Hide whitespace changes
Inline Side-by-side
theories/channel/proofmode.v
+ 1
− 1
View file @ 3efd62f5
...@@ -209,7 +209,7 @@ Proof. ...@@ -209,7 +209,7 @@ Proof.
iApply iProto_le_trans; [|iApply (iProto_le_texist_intro_r _ x)]; simpl. iApply iProto_le_trans; [|iApply (iProto_le_texist_intro_r _ x)]; simpl.
iIntros "H". by iDestruct (HP with "H") as "$". } iIntros "H". by iDestruct (HP with "H") as "$". }
rewrite -wp_bind. eapply bi.wand_apply; rewrite -wp_bind. eapply bi.wand_apply;
[by eapply (recv_spec _ (tele_app tv) (tele_app tP') (tele_app tp))|f_equiv]. [by eapply (recv_spec _ (tele_app tv) (tele_app tP') (tele_app tp))|f_equiv; first done].
rewrite -bi.later_intro; apply bi.forall_intro=> x. rewrite -bi.later_intro; apply bi.forall_intro=> x.
specialize (HΦ x). destruct (envs_app _ _) as [Δ'|] eqn:HΔ'=> //. specialize (HΦ x). destruct (envs_app _ _) as [Δ'|] eqn:HΔ'=> //.
rewrite envs_app_sound //; simpl. by rewrite right_id HΦ. rewrite envs_app_sound //; simpl. by rewrite right_id HΦ.
......
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