diff --git a/opam b/opam
index 25ea28e3043bf5144e5def6f05256b96250203c4..c5a8d97a572837304a90cb854a40ae22ecde1f80 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.2019-07-01.1.6e79f000") | (= "dev") }
+  "coq-iris" { (= "dev.2019-08-13.5.c1d6ef7f") | (= "dev") }
   "coq-autosubst" { = "dev.coq86" }
 ]
diff --git a/theories/logic/spec_ra.v b/theories/logic/spec_ra.v
index b60504658b87b14fdc2ba78b9ad79f728a3cf30b..9f481b0597c0562ea117ae70ba0579c7a4a3b7bf 100644
--- a/theories/logic/spec_ra.v
+++ b/theories/logic/spec_ra.v
@@ -127,7 +127,7 @@ Section mapsto.
   Global Instance mapsto_fractional l v : Fractional (λ q, l ↦ₛ{q} v)%I.
   Proof.
     intros p q. rewrite heapS_mapsto_eq -own_op -auth_frag_op.
-    by rewrite pair_op op_singleton pair_op agree_idemp right_id.
+    by rewrite -pair_op op_singleton -pair_op agree_idemp right_id.
   Qed.
   Global Instance mapsto_as_fractional l q v :
     AsFractional (l ↦ₛ{q} v) (λ q, l ↦ₛ{q} v)%I q.
@@ -138,7 +138,7 @@ Section mapsto.
     apply bi.wand_intro_r.
     rewrite heapS_mapsto_eq -own_op -auth_frag_op own_valid uPred.discrete_valid.
     f_equiv=> /=.
-    rewrite pair_op op_singleton right_id pair_op.
+    rewrite -pair_op op_singleton right_id -pair_op.
     move=> [_ Hv]. move:Hv => /=.
     rewrite singleton_valid.
     by intros [_ ?%agree_op_invL'].