Mercurial > cpdt > repo

diff src/Tactics.v @ 84:522436ed6688

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Incorporate crush' bug reports; ilists in MoreDep
author Adam Chlipala <adamc@hcoop.net>
date Sun, 05 Oct 2008 20:07:35 -0400
parents 506a06118014
children 3746a2ded8da
line wrap: on
line diff
--- a/src/Tactics.v	Sun Oct 05 15:42:14 2008 -0400
+++ b/src/Tactics.v	Sun Oct 05 20:07:35 2008 -0400
@@ -24,6 +24,7 @@
 Ltac inList x ls :=
   match ls with
     | x => idtac
+    | (_, x) => idtac
     | (?LS, _) => inList x LS
   end.
 
@@ -55,6 +56,9 @@
 
     | [ H : ?F _ |- _ ] => inList F invOne; inversion H; [idtac]; clear H; try subst
     | [ H : ?F _ _ |- _ ] => inList F invOne; inversion H; [idtac]; clear H; try subst
+    | [ H : ?F _ _ _ |- _ ] => inList F invOne; inversion H; [idtac]; clear H; try subst
+    | [ H : ?F _ _ _ _ |- _ ] => inList F invOne; inversion H; [idtac]; clear H; try subst
+    | [ H : ?F _ _ _ _ _ |- _ ] => inList F invOne; inversion H; [idtac]; clear H; try subst
   end.
 
 Ltac rewriteHyp :=