changeset 65:21bb59c56b98

Remove [done] markers after enhancement phase finishes
author Adam Chlipala <adamc@hcoop.net>
date Wed, 01 Oct 2008 09:32:36 -0400
parents 739c2818d6e2
children b52204928c7d
files src/Coinductive.v src/Tactics.v
diffstat 2 files changed, 12 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/Coinductive.v	Tue Sep 30 17:47:59 2008 -0400
+++ b/src/Coinductive.v	Wed Oct 01 09:32:36 2008 -0400
@@ -413,12 +413,12 @@
     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.
 
--- a/src/Tactics.v	Tue Sep 30 17:47:59 2008 -0400
+++ b/src/Tactics.v	Wed Oct 01 09:32:36 2008 -0400
@@ -102,11 +102,16 @@
       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.