Remove [done] markers after enhancement phase finishes

src/Coinductive.v

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

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.