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/term.ml | |
| 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/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) |