diff options
| author | filliatr | 1999-11-27 09:24:28 +0000 |
|---|---|---|
| committer | filliatr | 1999-11-27 09:24:28 +0000 |
| commit | 2a49a1239b1e69fa0eb5695166fe9808c9774314 (patch) | |
| tree | 1006bf68c0fc02f1d929b1ef50f2e2eccfb41ed8 /kernel | |
| parent | 02acee92b76ce86ca983ad779dbd20a096c6d799 (diff) | |
fin Recordops, et debut Evarutil
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@158 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |