From 979451471e37a76ce15e45f7b174a49cbb73f9ae Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 25 Aug 1999 14:12:43 +0000
Subject: modules Instantiate, Constant et Inductive

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@22 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/evd.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'kernel/evd.ml')

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