diff --git a/opam b/opam
index 151075056150d1d21a3208e578cf5d730a189ee1..84358d8aa4735614df2daf711d33a7a0b5d257a3 100644
--- a/opam
+++ b/opam
@@ -10,5 +10,5 @@ build: [make "-j%{jobs}%"]
 install: [make "install"]
 remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/lrust'" ]
 depends: [
-  "coq-gpfsl" { (= "dev.2019-03-06.1.8f1c2d76") | (= "dev") }
+  "coq-gpfsl" { (= "dev.2019-03-07.0.fffa7c4e") | (= "dev") }
 ]
diff --git a/theories/lifetime/model/boxes.v b/theories/lifetime/model/boxes.v
index deb2cae1c59e01eb5c1ab06bfd3b77938222167a..ba09a27b6c22b8115cc3987f7576529638e209d2 100644
--- a/theories/lifetime/model/boxes.v
+++ b/theories/lifetime/model/boxes.v
@@ -124,7 +124,7 @@ Lemma slice_insert_empty E q f Q P :
     slice N γ Q ∗ ▷?q box N (<[γ:=None]> f) (Q ∗ P).
 Proof.
   iDestruct 1 as (Φ) "[#HeqP Hf]".
-  iMod (own_alloc_strong (● Excl' None ⋅ ◯ Excl' None,
+  iMod (own_alloc_cofinite (● Excl' None ⋅ ◯ Excl' None,
     Some (to_agree (Next ((λ V, iProp_unfold (Q V)) : _ -c> _)))) (dom _ f))
     as (γ) "[Hdom Hγ]"; first done.
   rewrite pair_split. iDestruct "Hγ" as "[[Hγ Hγ'] #HγQ]".