diff options
| author | herbelin | 2000-11-27 10:25:43 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-27 10:25:43 +0000 |
| commit | 1f0eb2fb6d5de9c2aa60b93014f28c52d5f3a356 (patch) | |
| tree | da23008f3752a5ae38fe8f14c8e0d2f5423649a8 /kernel/instantiate.mli | |
| parent | 7b0c76beedf0e4e59c03701ee776a7c1dae58e20 (diff) | |
Généralisation de constant_opt_value en reference_opt_value
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@971 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/instantiate.mli')
| -rw-r--r-- | kernel/instantiate.mli | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/kernel/instantiate.mli b/kernel/instantiate.mli index 0320c44544..9f790e3ca8 100644 --- a/kernel/instantiate.mli +++ b/kernel/instantiate.mli @@ -34,3 +34,22 @@ exception NotInstantiatedEvar val existential_value : 'a evar_map -> existential -> constr val existential_type : 'a evar_map -> existential -> constr val existential_opt_value : 'a evar_map -> existential -> constr option + +type evaluable_reference = + | EvalConst of constant + | EvalVar of identifier + | EvalRel of int + | EvalEvar of existential + +val destEvalRef : constr -> evaluable_reference +val mkEvalRef : evaluable_reference -> constr +val isEvalRef : constr -> bool + +val evaluable_reference : 'a evar_map -> env -> evaluable_reference -> bool + +val reference_opt_value : + 'a evar_map -> env -> evaluable_reference -> constr option + +(* This may raise NotEvaluable *) +exception NotEvaluable +val reference_value : 'a evar_map -> env -> evaluable_reference -> constr |