diff options
| author | herbelin | 2003-09-06 19:12:08 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-06 19:12:08 +0000 |
| commit | 95d4aef96fb7b490b188afe66e8345428e9706ee (patch) | |
| tree | 3990c1a6bfce095e941d756df5387b63e86e8353 /toplevel | |
| parent | ef41c3d1f93e2fa82cbaa97adaa03852e8fcd7b8 (diff) | |
Paramétrisation vis à vis de existential_key
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4321 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 9a6e3f3268..e62df6e766 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -300,14 +300,14 @@ let explain_cant_find_case_type ctx c = hov 3 (str "Cannot infer type of pattern-matching on" ++ ws 1 ++ pe) let explain_occur_check ctx ev rhs = - let id = "?" ^ string_of_int ev in + let id = Evd.string_of_existential ev in let pt = prterm_env ctx rhs in str"Occur check failed: tried to define " ++ str id ++ str" with term" ++ brk(1,1) ++ pt let explain_not_clean ctx ev t = let c = mkRel (Intset.choose (free_rels t)) in - let id = "?" ^ string_of_int ev in + let id = Evd.string_of_existential ev in let var = prterm_env ctx c in str"Tried to define " ++ str id ++ str" with a term using variable " ++ var ++ spc () ++ |