diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/term.ml | 3 | ||||
| -rw-r--r-- | kernel/term.mli | 3 |
2 files changed, 6 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) diff --git a/kernel/term.mli b/kernel/term.mli index b2ca8658ea..b04248a040 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -157,6 +157,9 @@ val mkAppList : constr -> constr list -> constr (* The array of terms correspond to the variables introduced in the section *) val mkConst : section_path -> constr array -> constr +(* Constructs an existential variable *) +val mkEvar : int -> constr array -> constr + (* Constructs an abstract object *) val mkAbst : section_path -> constr array -> constr |