From ab058ba005b1a6e91a87973006ebac823d7722e3 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 14 Sep 2000 07:25:35 +0000
Subject: Abstraction de constr

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

(limited to 'kernel/evd.ml')

diff --git a/kernel/evd.ml b/kernel/evd.ml
index 6853fc9c46..b482f94538 100644
--- a/kernel/evd.ml
+++ b/kernel/evd.ml
@@ -66,6 +66,7 @@ let is_defined sigma ev =
   not (info.evar_body = Evar_empty)
 
 let evar_hyps ev = var_context ev.evar_env
+let evar_body ev = ev.evar_body
 
 let id_of_existential ev =
   id_of_string ("?" ^ string_of_int ev)
-- 
cgit v1.2.3