diff options
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 |