From 34f26b527c2bec59ed496760329603b20ea6e332 Mon Sep 17 00:00:00 2001
From: clrenard
Date: Mon, 1 Dec 2003 15:36:05 +0000
Subject: Nouvelle tactique EExists Changement des exports pour tactic EXTEND :
 with_bindings devient bindings qui prend plus le with, il faut le mettre à la
 main dans la règle.

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

(limited to 'contrib/interface')

diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml
index e2460d332d..1739240e0f 100644
--- a/contrib/interface/xlate.ml
+++ b/contrib/interface/xlate.ml
@@ -1102,7 +1102,7 @@ and coerce_genarg_to_TARG x =
 						 (out_gen
 						    rawwit_casted_open_constr x)))
   | ConstrWithBindingsArgType -> xlate_error "TODO: constr with bindings"
-  | WithBindingsArgType -> xlate_error "TODO: with bindings"
+  | BindingsArgType -> xlate_error "TODO: with bindings"
   | RedExprArgType -> xlate_error "TODO: red expr as generic argument"
   | List0ArgType l -> xlate_error "TODO: lists of generic arguments"
   | List1ArgType l -> xlate_error "TODO: non empty lists of generic arguments"
@@ -1184,7 +1184,7 @@ let coerce_genarg_to_VARG x =
       CT_coerce_TACTIC_OPT_to_VARG (CT_coerce_TACTIC_COM_to_TACTIC_OPT t)
   | CastedOpenConstrArgType -> xlate_error "TODO: open constr"
   | ConstrWithBindingsArgType -> xlate_error "TODO: constr with bindings"
-  | WithBindingsArgType -> xlate_error "TODO: with bindings"
+  | BindingsArgType -> xlate_error "TODO: with bindings"
   | RedExprArgType -> xlate_error "TODO: red expr as generic argument"
   | List0ArgType l -> xlate_error "TODO: lists of generic arguments"
   | List1ArgType l -> xlate_error "TODO: non empty lists of generic arguments"
-- 
cgit v1.2.3