diff --git a/coq-lambda-rust.opam b/coq-lambda-rust.opam
index 35fef32b3d1ad802e9e42564876fd4a451163e50..a742e338f04675cf66c5c53eaa8dd6b948a9ef9c 100644
--- a/coq-lambda-rust.opam
+++ b/coq-lambda-rust.opam
@@ -13,7 +13,7 @@ the type system, and safety proof for some Rust libraries.
 """
 
 depends: [
-  "coq-iris" { (= "dev.2021-04-20.0.7a260d80") | (= "dev") }
+  "coq-iris" { (= "dev.2021-05-02.0.6a1f68dc") | (= "dev") }
 ]
 
 build: [make "-j%{jobs}%"]
diff --git a/theories/lang/tactics.v b/theories/lang/tactics.v
index e49c8111b50dbf0488ac59d084c913b0d8e5b706..f20d3db1baf103ebd2a6f6ffd466de206a3b0ac8 100644
--- a/theories/lang/tactics.v
+++ b/theories/lang/tactics.v
@@ -207,7 +207,7 @@ Proof.
   apply strongly_atomic_atomic, ectx_language_atomic.
   - inversion 1. naive_solver.
   - apply ectxi_language_sub_redexes_are_values. intros [] * Hskip; try naive_solver.
-    + inversion Hskip. simpl. rewrite decide_left. eauto.
+    + inversion Hskip. simpl. rewrite decide_True_pi. eauto.
     + inversion Hskip. rename select ([Lit _] = _) into Hargs.
       assert (length [Lit LitPoison] = 1%nat) as Hlen by done. move:Hlen.
       rewrite Hargs. rewrite app_length fmap_length /=.
diff --git a/theories/typing/function.v b/theories/typing/function.v
index 53f469b3c7c54ba35d5cab0b50a206d33bfe1d17..688d22ca447e6a11e358e089f1db24ae338fa3a2 100644
--- a/theories/typing/function.v
+++ b/theories/typing/function.v
@@ -417,7 +417,7 @@ Section typing.
   Proof.
     iIntros (<- ->) "#Hbody /=". iIntros (tid qmax) "#LFT _ $ $ #HT". iApply wp_value.
     rewrite tctx_interp_singleton. iLöb as "IH". iExists _. iSplit.
-    { simpl. rewrite decide_left. done. }
+    { simpl. rewrite decide_True_pi. done. }
     iExists fb, _, argsb, e, _. iSplit; first done. iSplit; first done. iNext.
     iIntros (x ϝ k args) "!>". iIntros (tid' qmax') "_ HE Htl HL HC HT'".
     iApply ("Hbody" with "LFT HE Htl HL HC").
diff --git a/theories/typing/type_context.v b/theories/typing/type_context.v
index d77939a3ae8d417c1775a9d7ad5a2b7704f3fb3e..b0fb3cb2477200f9a7107fd972ed7e2f89925743 100644
--- a/theories/typing/type_context.v
+++ b/theories/typing/type_context.v
@@ -33,7 +33,7 @@ Section type_context.
 
   Lemma eval_path_of_val (v : val) :
     eval_path v = Some v.
-  Proof. destruct v. done. simpl. rewrite (decide_left _). done. Qed.
+  Proof. destruct v. done. simpl. rewrite (decide_True_pi _). done. Qed.
 
   Lemma wp_eval_path E p v :
     eval_path p = Some v → ⊢ WP p @ E {{ v', ⌜v' = v⌝ }}.