aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2008-10-22 16:33:37 +0000
committerGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2008-10-22 16:33:37 +0000
commit137c42e3699a434e73a703c6b771d6a5db07233c (patch)
treedfce4f379989952e28e5a1bcc4dd6c076fb1caa0
parentc0adc36c5b0ca00a8db16f38feb45e20fc00fb22 (diff)
Fix for bug #1973 provided by Brian Campbell.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11492 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r--theories/Program/Tactics.v5
1 files changed, 2 insertions, 3 deletions
diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v
index 5c904e219..eb5c7cc11 100644
--- a/theories/Program/Tactics.v
+++ b/theories/Program/Tactics.v
@@ -192,10 +192,9 @@ Ltac autoinjection tac :=
| [ H : ?f ?a = ?f' ?a' |- _ ] => tac H
end.
-Ltac inject H :=
- progress (inversion H ; subst* ; clear_dups) ; clear H.
+Ltac inject H := progress (inversion H ; subst*; clear_dups) ; clear H.
-Ltac autoinjections := repeat autoinjection ltac:inject.
+Ltac autoinjections := repeat (clear_dups ; autoinjection ltac:inject).
(** Destruct an hypothesis by first copying it to avoid dependencies. *)