diff options
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index 33056e5ba6..91061c7ca3 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -147,6 +147,9 @@ let mkAppList a l = DOPN (AppL, Array.of_list (a::l)) (* The array of terms correspond to the variables introduced in the section *) let mkConst sp a = DOPN (Const sp, a) +(* Constructs an existential variable *) +let mkEvar n a = DOPN (Evar n, a) + (* Constructs an abstract object *) let mkAbst sp a = DOPN (Abst sp, a) |