From 1e1d06303d476b1e7f171dc09ed1e18508e20436 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Tue, 25 Mar 2008 10:56:36 +0000
Subject: Interpret patterns for hypotheses types in match goal in type_scope
 (if not a context [] pattern). May break some user contribs... Rename
 clsubstitute to substitute.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10716 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Program/Tactics.v | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'theories/Program')

diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v
index df2393ace2..f31115d99e 100644
--- a/theories/Program/Tactics.v
+++ b/theories/Program/Tactics.v
@@ -87,11 +87,13 @@ Ltac clear_dups := repeat clear_dup.
 
 (** A non-failing subst that substitutes as much as possible. *)
 
-Tactic Notation "subst" "*" :=
+Ltac subst_no_fail :=
   repeat (match goal with 
             [ H : ?X = ?Y |- _ ] => subst X || subst Y                  
           end).
 
+Tactic Notation "subst" "*" := subst_no_fail.
+
 (** Tactical [on_call f tac] applies [tac] on any application of [f] in the hypothesis or goal. *)
 Ltac on_call f tac :=
   match goal with
-- 
cgit v1.2.3