From 95d4aef96fb7b490b188afe66e8345428e9706ee Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 6 Sep 2003 19:12:08 +0000
Subject: Paramétrisation vis à vis de existential_key

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

(limited to 'pretyping/pretype_errors.mli')

diff --git a/pretyping/pretype_errors.mli b/pretyping/pretype_errors.mli
index cb26d3078d..6fd4fc05ab 100644
--- a/pretyping/pretype_errors.mli
+++ b/pretyping/pretype_errors.mli
@@ -24,8 +24,8 @@ type pretype_error =
   (* Old Case *)
   | CantFindCaseType of constr
   (* Unification *)
-  | OccurCheck of int * constr
-  | NotClean of int * constr
+  | OccurCheck of existential_key * constr
+  | NotClean of existential_key * constr
   | UnsolvableImplicit of hole_kind
   (* Pretyping *)
   | VarNotFound of identifier
@@ -74,9 +74,9 @@ val error_ill_typed_rec_body_loc :
 
 (*s Implicit arguments synthesis errors *)
 
-val error_occur_check : env ->  Evd.evar_map -> int -> constr -> 'b
+val error_occur_check : env ->  Evd.evar_map -> existential_key -> constr -> 'b
 
-val error_not_clean : env ->  Evd.evar_map -> int -> constr -> 'b
+val error_not_clean : env ->  Evd.evar_map -> existential_key -> constr -> 'b
 
 val error_unsolvable_implicit : loc -> env -> Evd.evar_map -> hole_kind -> 'b
 
-- 
cgit v1.2.3