fix build

feae9588 · Ralf Jung · 2649cb67 · feae9588 · feae9588
Commit feae9588 authored Jun 14, 2018 by Ralf Jung
--- a/theories/concurrent_stacks/concurrent_stack3.v
+++ b/theories/concurrent_stacks/concurrent_stack3.v
@@ -208,6 +208,6 @@ Section stack_works.
    {| spec.mk_stack := mk_stack |}.
  Next Obligation.
    iIntros (????? Φ) "HP HΦ". iApply (stack_works with "[HΦ] HP").
-    iIntros "!>" (f₁ f₂) "Hpop Hpush". iApply "HΦ". iFrame.
+    iNext. iIntros (f₁ f₂) "Hpop Hpush". iApply "HΦ". iFrame.
  Qed.
 End stack_works.
--- a/theories/concurrent_stacks/concurrent_stack4.v
+++ b/theories/concurrent_stacks/concurrent_stack4.v
@@ -625,6 +625,6 @@ Section stack_works.
    {| spec.mk_stack := mk_stack |}.
  Next Obligation.
    iIntros (?????? Φ) "HP HΦ". iApply (stack_works with "[HΦ] HP").
-    iIntros "!>" (f₁ f₂) "#[Hpop Hpush]". iApply "HΦ". iFrame "#".
+    iNext. iIntros (f₁ f₂) "#[Hpop Hpush]". iApply "HΦ". iFrame "#".
  Qed.
 End stack_works.