fix treiber

0c8495a1 · Ralf Jung · d6222bb0 · 0c8495a1
Commit 0c8495a1 authored Jan 25, 2019 by Ralf Jung
--- a/theories/logatom/treiber.v
+++ b/theories/logatom/treiber.v
@@ -114,7 +114,7 @@ Section proof.
    destruct (decide (hd = hd')) as [->|Hneq].
    * wp_cas_suc. iDestruct "Hvs'" as "[_ Hvs']".
      iMod ("Hvs'" with "[-]") as "HQ".
-      { by eauto with iFrame. }
+      { simpl. by eauto 10 with iFrame. }
      iModIntro. wp_if. eauto.
    * wp_cas_fail.
      iDestruct "Hvs'" as "[Hvs' _]".