diff options
Diffstat (limited to 'theories/Program/Tactics.v')
| -rw-r--r-- | theories/Program/Tactics.v | 5 |
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. *) |