diff --git a/coq-lambda-rust.opam b/coq-lambda-rust.opam
index 6004d44f358ffebfdbfe279b0f672eed06822ec9..870773113e4e1508f9d095f6f0218ee47c374a61 100644
--- a/coq-lambda-rust.opam
+++ b/coq-lambda-rust.opam
@@ -15,7 +15,7 @@ This branch uses a proper weak memory model.
 """
 
 depends: [
-  "coq-gpfsl" { (= "dev.2021-04-20.0.13632051") | (= "dev") }
+  "coq-gpfsl" { (= "dev.2021-05-05.0.6c5a80f0") | (= "dev") }
 ]
 
 build: [make "-j%{jobs}%"]
diff --git a/theories/typing/function.v b/theories/typing/function.v
index 782dd346c9425d5af31646bd050faa4bf3189e9d..b0fe6d6dbf7674a069eb3e8e1dc7b8c47d6d7658 100644
--- a/theories/typing/function.v
+++ b/theories/typing/function.v
@@ -409,7 +409,7 @@ Section typing.
   Proof.
     iIntros (<- ->) "#Hbody /=". iIntros (tid) "#LFT _ $ $ #HT". iApply wp_value.
     rewrite tctx_interp_singleton. iLöb as "IH". iExists _. iSplit.
-    { unlock. rewrite /= decide_left. done. }
+    { unlock. rewrite /= decide_True_pi. done. }
     iExists fb, _, argsb, e, _. iSplit. done. iSplit. done. iNext.
     iIntros (x ϝ k args) "!#". iIntros (tid') "_ 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 953272265582a26c443ac43083c0a51c7ca5fcc3..faa9344a58f1afde5d67c3116c4a395b3f022e7a 100644
--- a/theories/typing/type_context.v
+++ b/theories/typing/type_context.v
@@ -34,7 +34,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 tid p v (SUB : ↑histN ⊆ E) :
     eval_path p = Some v → ⊢ WP p in tid @ E {{ v', ⌜v' = v⌝ }}.