Mercurial > cpdt > repo

diff src/Tactics.v @ 176:9b1f58dbc464

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CpsExp_correct
author Adam Chlipala <adamc@hcoop.net>
date Mon, 10 Nov 2008 11:36:00 -0500
parents 7fd470d8a788
children 8f3fc56b90d4
line wrap: on
line diff
--- a/src/Tactics.v	Mon Nov 10 11:05:49 2008 -0500
+++ b/src/Tactics.v	Mon Nov 10 11:36:00 2008 -0500
@@ -63,6 +63,9 @@
     | [ H : ?F _ _ _ |- _ ] => invert H F
     | [ H : ?F _ _ _ _ |- _ ] => invert H F
     | [ H : ?F _ _ _ _ _ |- _ ] => invert H F
+
+    | [ H : existT _ ?T _ = existT _ ?T _ |- _ ] => generalize (inj_pair2 _ _ _ _ _ H); clear H
+    | [ H : existT _ _ _ = existT _ _ _ |- _ ] => inversion H; clear H
   end.
 
 Ltac rewriteHyp :=