diff options
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 *) |