From 09ceaf1bac341c66c5d733f0358fc9b4b3dbad93 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 21 Feb 2007 18:12:24 +0000
Subject: Utilisation de l'environnement pour l'affichage de certains messages
 d'erreurs + petit nettoyage himsg.ml + petite uniformisation erreurs
 CannotUnify

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

(limited to 'pretyping/pretype_errors.mli')

diff --git a/pretyping/pretype_errors.mli b/pretyping/pretype_errors.mli
index 81a58dd20b..3a2a2f7f44 100644
--- a/pretyping/pretype_errors.mli
+++ b/pretyping/pretype_errors.mli
@@ -29,7 +29,7 @@ type pretype_error =
   | NotClean of existential_key * constr * Evd.hole_kind
   | UnsolvableImplicit of Evd.hole_kind
   | CannotUnify of constr * constr
-  | CannotUnifyLocal of Environ.env * constr * constr * constr
+  | CannotUnifyLocal of constr * constr * constr
   | CannotUnifyBindingType of constr * constr
   | CannotGeneralize of constr
   | NoOccurrenceFound of constr
@@ -97,7 +97,7 @@ val error_unsolvable_implicit :
 
 val error_cannot_unify : env -> Evd.evar_map -> constr * constr -> 'b
 
-val error_cannot_unify_local : env -> Evd.evar_map -> Environ.env * constr * constr * constr -> 'b
+val error_cannot_unify_local : env -> Evd.evar_map -> constr * constr * constr -> 'b
 
 (*s Ml Case errors *)
 
-- 
cgit v1.2.3