diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-04-20 15:51:40 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-04-20 15:51:40 +0000 |
| commit | a002d6ef127b4f0103012c23fc5d272739649043 (patch) | |
| tree | 99c7ba136ce8488d2086290b3ff18fe91cdf6073 /kernel/instantiate.mli | |
| parent | b8cd60cf1b3817a1802459310e79a8addb628ee7 (diff) | |
Abstraction du type typed_type (un pas vers les jugements 2 niveaux)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@362 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/instantiate.mli')
| -rw-r--r-- | kernel/instantiate.mli | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/kernel/instantiate.mli b/kernel/instantiate.mli index 9f5b02e92..8d267021f 100644 --- a/kernel/instantiate.mli +++ b/kernel/instantiate.mli @@ -16,8 +16,13 @@ val instantiate_constr : val instantiate_type : identifier list -> typed_type -> constr list -> typed_type +type const_evaluation_error = NotDefinedConst | OpaqueConst +exception NotEvaluableConst of const_evaluation_error + +(* [constant_value env c] raises [NotEvaluableConst OpaqueConst] if + [c] is opaque and [NotEvaluableConst NotDefinedConst] if undefined *) val constant_value : env -> constr -> constr -val constant_type : env -> constr -> typed_type +val constant_type : env -> 'a evar_map -> constant -> typed_type val existential_value : 'a evar_map -> constr -> constr val existential_type : 'a evar_map -> constr -> constr |