diff options
| author | herbelin | 1999-12-09 23:20:18 +0000 |
|---|---|---|
| committer | herbelin | 1999-12-09 23:20:18 +0000 |
| commit | baa3e16836c3f0daf24ba47aadbdee525762d6ec (patch) | |
| tree | 4841eb29be562802e06f9aa3f72ccda37daa5814 /kernel/term.ml | |
| parent | 35c127288df53b8561d13082738806fa44049a1a (diff) | |
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
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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 |