Remove [done] markers after enhancement phase finishes

src/Coinductive.v

@@ -413,12 +413,12 @@ Section constFold_ok.
     Hint Resolve regmapCompat_set_None regmapCompat_set_Some.
     Hint Constructors run.
 
-    cofix.
-    destruct 1; crush; eauto;
-      repeat match goal with
-               | [ H : regmapCompat _ _ |- run _ _ (match get ?RM ?R with Some _ => _ | None => _ end) _ ] =>
-                 generalize (H R); destruct (get RM R); crush
-             end.
+    cofix;
+      destruct 1; crush; eauto;
+        repeat match goal with
+                 | [ H : regmapCompat _ _ |- run _ _ (match get ?RM ?R with Some _ => _ | None => _ end) _ ] =>
+                   generalize (H R); destruct (get RM R); crush
+               end.
   Qed.
 End constFold_ok.
 

src/Tactics.v

@@ -102,11 +102,16 @@ Ltac inster e trace :=
       end
   end.
 
+Ltac un_done :=
+  repeat match goal with
+           | [ H : done _ |- _ ] => clear H
+         end.
+
 Ltac crush' lemmas invOne :=
   let sintuition := simpl in *; intuition; subst; repeat (simplHyp invOne; intuition; subst); try congruence
     in (sintuition; rewriter;
       repeat ((app ltac:(fun L => inster L L) lemmas || appHyps ltac:(fun L => inster L L));
         repeat (simplHyp invOne; intuition));
-      sintuition; try omega).
+      un_done; sintuition; try omega).
 
 Ltac crush := crush' tt fail.