diff --git a/iris/bi/lib/atomic.v b/iris/bi/lib/atomic.v
index 2658652ece2efd2c39d51badde8ee80bd5c57e0b..471a88906aa3a58493b7c5301229688d1a0f2303 100644
--- a/iris/bi/lib/atomic.v
+++ b/iris/bi/lib/atomic.v
@@ -339,8 +339,7 @@ Section lemmas.
       iModIntro. destruct (γ' x'); iApply "HPas"; done.
     - iIntros (y) "Hβ". iMod "Hclose''" as "_".
       iMod ("Hclose'" with "Hβ") as "Hβ'".
-      (* FIXME: Using ssreflect rewrite does not work, see Coq bug #7773. *)
-      rewrite ->!tele_app_bind. iDestruct "Hβ'" as "[Hβ' HΦ]".
+      rewrite !tele_app_bind. iDestruct "Hβ'" as "[Hβ' HΦ]".
       iMod ("Hclose" with "Hβ'") as "Hγ'".
       iModIntro. destruct (γ' x'); iApply "HΦ"; done.
   Qed.
@@ -375,8 +374,7 @@ Section lemmas.
       iMod ("Hclose" with "Hα"). iApply "Hupd". auto.
     - iIntros (y') "Hβ'". iDestruct "Hclose'" as "[_ Hclose']".
       iMod ("Hclose'" with "Hβ'") as "Hres".
-      (* FIXME: Using ssreflect rewrite does not work, see Coq bug #7773. *)
-      rewrite ->!tele_app_bind. iDestruct "Hres" as "[[Hα HΦ']|Hcont]".
+      rewrite !tele_app_bind. iDestruct "Hres" as "[[Hα HΦ']|Hcont]".
       + (* Abort the step we are eliminating *)
         iDestruct "Hclose" as "[Hclose _]".
         iMod ("Hclose" with "Hα") as "HP".