diff options
| author | herbelin | 2000-09-14 07:25:35 +0000 |
|---|---|---|
| committer | herbelin | 2000-09-14 07:25:35 +0000 |
| commit | ab058ba005b1a6e91a87973006ebac823d7722e3 (patch) | |
| tree | 885d3366014d3e931f50f96cf768ee9d9a9f5977 /kernel/evd.ml | |
| parent | ae47a499e6dbf4232a03ed23410e81a4debd15d1 (diff) | |
Abstraction de constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@604 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/evd.ml')
| -rw-r--r-- | kernel/evd.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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) |