From ec0eb7820be8ea48ed20d0e9dea88ce6f0693fa7 Mon Sep 17 00:00:00 2001
From: glondu
Date: Mon, 17 Dec 2007 13:01:09 +0000
Subject: Quelques arguments en plus...

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

diff --git a/theories/Init/Tactics.v b/theories/Init/Tactics.v
index de38e88c14..45f239da4e 100644
--- a/theories/Init/Tactics.v
+++ b/theories/Init/Tactics.v
@@ -106,6 +106,10 @@ Tactic Notation "narrow" hyp(H) "with" constr(x) constr(y) constr(z) constr(t):=
  generalize (H x y z t); clear H; intro H.
 Tactic Notation "narrow" hyp(H) "with" constr(x) constr(y) constr(z) constr(t) constr(u):= 
  generalize (H x y z t u); clear H; intro H.
+Tactic Notation "narrow" hyp(H) "with" constr(x) constr(y) constr(z) constr(t) constr(u) constr(v) := 
+ generalize (H x y z t u v); clear H; intro H.
+Tactic Notation "narrow" hyp(H) "with" constr(x) constr(y) constr(z) constr(t) constr(u) constr(v) constr(w) := 
+ generalize (H x y z t u v w); clear H; intro H.
 
 (* Rewriting in all hypothesis several times everywhere *)
 
-- 
cgit v1.2.3