From 561a67ca1144b72a9e27e9ec1867b631665a6015 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 13 Jun 2003 14:08:46 +0000
Subject: Utilisation de intro_pattern dans NewDestruct/NewInduction

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4154 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/tacexpr.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/tacexpr.ml b/proofs/tacexpr.ml
index f0bace7861..3098aceb3a 100644
--- a/proofs/tacexpr.ml
+++ b/proofs/tacexpr.ml
@@ -111,10 +111,10 @@ type ('constr,'pat,'cst,'ind,'ref,'id,'tac) gen_atomic_tactic_expr =
   (* Derived basic tactics *)
   | TacOldInduction of quantified_hypothesis
   | TacNewInduction of 'constr induction_arg * 'constr with_bindings option
-      * identifier list list
+      * intro_pattern_expr list list
   | TacOldDestruct of quantified_hypothesis
   | TacNewDestruct of 'constr induction_arg * 'constr with_bindings option
-      * identifier list list
+      * intro_pattern_expr list list
 
   | TacDoubleInduction of quantified_hypothesis * quantified_hypothesis
   | TacDecomposeAnd of 'constr
-- 
cgit v1.2.3