From 0dece739c580b39d77708bb8117442e7e1cd560b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 21 Dec 2002 11:51:33 +0000
Subject: Légère amélioration des messages d'erreur des with-bindings et des
 Rewrite

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3474 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/rawterm.ml  | 2 +-
 pretyping/rawterm.mli | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'pretyping')

diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml
index 9354035497..8ea4a25c3d 100644
--- a/pretyping/rawterm.ml
+++ b/pretyping/rawterm.ml
@@ -35,7 +35,7 @@ type binder_kind = BProd | BLambda | BLetIn
 
 type quantified_hypothesis = AnonHyp of int | NamedHyp of identifier
 
-type 'a explicit_substitution = (quantified_hypothesis * 'a) list
+type 'a explicit_substitution = (loc * quantified_hypothesis * 'a) list
 
 type 'a substitution = 
   | ImplicitBindings of 'a list
diff --git a/pretyping/rawterm.mli b/pretyping/rawterm.mli
index 3c2241682b..981cb23314 100644
--- a/pretyping/rawterm.mli
+++ b/pretyping/rawterm.mli
@@ -35,7 +35,7 @@ type binder_kind = BProd | BLambda | BLetIn
 
 type quantified_hypothesis = AnonHyp of int | NamedHyp of identifier
 
-type 'a explicit_substitution = (quantified_hypothesis * 'a) list
+type 'a explicit_substitution = (loc * quantified_hypothesis * 'a) list
 
 type 'a substitution = 
   | ImplicitBindings of 'a list
-- 
cgit v1.2.3