diff options
| author | filliatr | 1999-08-25 14:12:43 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-25 14:12:43 +0000 |
| commit | 979451471e37a76ce15e45f7b174a49cbb73f9ae (patch) | |
| tree | 14ef4a6b2495e09c5f910fb65ffe136e5a15e3a0 /kernel/evd.ml | |
| parent | 14524e0b6ab7458d7b373fd269bb03b658dab243 (diff) | |
modules Instantiate, Constant et Inductive
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@22 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/evd.ml')
| -rw-r--r-- | kernel/evd.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/kernel/evd.ml b/kernel/evd.ml index 5b870d87af..24a50afa80 100644 --- a/kernel/evd.ml +++ b/kernel/evd.ml @@ -9,7 +9,8 @@ open Sign (* The type of mappings for existential variables *) type evar_body = - EVAR_EMPTY | EVAR_DEFINED of constr + | EVAR_EMPTY + | EVAR_DEFINED of constr type 'a evar_info = { evar_concl : typed_type; (* the type of the evar ... *) @@ -62,3 +63,6 @@ let non_instantiated sigma = [] listsp let is_evar sigma sp = in_dom sigma sp + +let is_defined sigma sp = + let info = map sigma sp in not (info.evar_body = EVAR_EMPTY) |