From 1f0eb2fb6d5de9c2aa60b93014f28c52d5f3a356 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 27 Nov 2000 10:25:43 +0000
Subject: 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
---
 kernel/instantiate.mli | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'kernel/instantiate.mli')

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
-- 
cgit v1.2.3