fixme

iris_heap_lang/proph_erasure.v

@@ -802,7 +802,7 @@ Proof.
   apply nsteps_inv_r in Hstps as [[t3 σ3] [Hstps Hρ]]; simpl in *.
   destruct (IHn _ _ Hstps) as (t2'&t2''&σ2'&Hostps&?&?&Hprstps); simplify_eq.
   edestruct @erased_step_pure_step_tp as [[? Hint]|Hext]; simplify_eq/=;
-    eauto 10; [|done..].
+    first apply Hρ; eauto 10; [].
   destruct Hext as (i&ei&t2'&efs&e'&κ&Hi1&Ht2&Hpstp);
     simplify_eq/=.
   rewrite /erase_tp list_lookup_fmap in Hi1.