Mercurial > cpdt > repo

comparison 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
comparison
equal deleted inserted replaced
175:022feabdff50 176:9b1f58dbc464
61 | [ H : ?F _ |- _ ] => invert H F 61 | [ H : ?F _ |- _ ] => invert H F
62 | [ H : ?F _ _ |- _ ] => invert H F 62 | [ H : ?F _ _ |- _ ] => invert H F
63 | [ H : ?F _ _ _ |- _ ] => invert H F 63 | [ H : ?F _ _ _ |- _ ] => invert H F
64 | [ H : ?F _ _ _ _ |- _ ] => invert H F 64 | [ H : ?F _ _ _ _ |- _ ] => invert H F
65 | [ H : ?F _ _ _ _ _ |- _ ] => invert H F 65 | [ H : ?F _ _ _ _ _ |- _ ] => invert H F
66
67 | [ H : existT _ ?T _ = existT _ ?T _ |- _ ] => generalize (inj_pair2 _ _ _ _ _ H); clear H
68 | [ H : existT _ _ _ = existT _ _ _ |- _ ] => inversion H; clear H
66 end. 69 end.
67 70
68 Ltac rewriteHyp := 71 Ltac rewriteHyp :=
69 match goal with 72 match goal with
70 | [ H : _ |- _ ] => rewrite H 73 | [ H : _ |- _ ] => rewrite H