diff --git a/opam b/opam
index febee4c8ffc102a084eef6a64855d0eea9f6be3d..bb2473f2092edb0c460ed9d0a2d17e9713526f43 100644
--- a/opam
+++ b/opam
@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"]
 install: [make "install"]
 remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/reloc"]
 depends: [
-  "coq-iris" { (= "dev.2020-05-18.2.fdda97e8") | (= "dev") }
+  "coq-iris" { (= "dev.2020-05-24.1.76bec8b7") | (= "dev") }
   "coq-autosubst" { = "dev.coq86" }
 ]
diff --git a/theories/logic/model.v b/theories/logic/model.v
index 44417a611aa77e16013b7168865b0aad25d61d9e..ae804f7849c6240c708e5443c103741265c23302 100644
--- a/theories/logic/model.v
+++ b/theories/logic/model.v
@@ -102,10 +102,8 @@ Section semtypes.
   Instance lrel_rec1_contractive C : Contractive (lrel_rec1 C).
   Proof.
     intros n. intros P Q HPQ.
-    unfold lrel_rec1. intros w1 w2.
-    apply bi.later_contractive.
-    destruct n; try done.
-    simpl in HPQ; simpl. f_equiv. by apply C.
+    unfold lrel_rec1. intros w1 w2. rewrite {1 4}/lrel_car /=.
+    f_contractive. f_equiv. by apply C.
   Qed.
 
   Definition lrel_rec (C : lrelC Σ -n> lrelC Σ) : lrel Σ := fixpoint (lrel_rec1 C).