From 137c42e3699a434e73a703c6b771d6a5db07233c Mon Sep 17 00:00:00 2001 From: msozeau Date: Wed, 22 Oct 2008 16:33:37 +0000 Subject: 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 --- theories/Program/Tactics.v | 5 ++--- 1 file 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. *) -- cgit v1.2.3