diff options
| author | filliatr | 1999-11-26 08:45:39 +0000 |
|---|---|---|
| committer | filliatr | 1999-11-26 08:45:39 +0000 |
| commit | 53997574f2f411b7c4f28e4e6bf102eae82903fc (patch) | |
| tree | 4a62b4c0261eee619e7fd043a149c9e00cce0baa /kernel | |
| parent | ede38b4961bba30017d721050daec62c4ec0c906 (diff) | |
Evd vient apres Environ -> id_of_existential expanse
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@147 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index b4aaed5f0b..ccf3e1e20c 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -131,7 +131,7 @@ let id_of_global env = function | Const sp -> basename sp | Evar ev -> - id_of_existential ev + id_of_string ("?" ^ string_of_int ev) | MutInd (sp,tyi) -> (* Does not work with extracted inductive types when the first inductive is logic : if tyi=0 then basename sp else *) |