From baa3e16836c3f0daf24ba47aadbdee525762d6ec Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 9 Dec 1999 23:20:18 +0000
Subject: Ajout des messages d'erreurs de Cases

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@226 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/term.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'kernel/term.ml')

diff --git a/kernel/term.ml b/kernel/term.ml
index 38dbc37655..8e9c94c711 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -11,6 +11,8 @@ open Univ
 
 (* Coq abstract syntax with deBruijn variables; 'a is the type of sorts *)
 
+type existential_key = int
+
 type 'a oper = 
   (* DOP0 *)
   | Meta of int
@@ -19,7 +21,7 @@ type 'a oper =
   | Cast | Prod | Lambda
   (* DOPN *)
   | AppL | Const of section_path | Abst of section_path
-  | Evar of int
+  | Evar of existential_key
   | MutInd of inductive_path
   | MutConstruct of constructor_path
   | MutCase of case_info
-- 
cgit v1.2.3