diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-17 08:59:49 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-17 08:59:49 +0000 |
| commit | 43bcf0d5824cc7757fc473e15851cd483736afe6 (patch) | |
| tree | 93d8a14f1f19364672d5ad18f52af3e386e9e14e /toplevel | |
| parent | 540a93a8e6665f70b2a61158728d6b85be101274 (diff) | |
Semble raisonnable de distinguer les noms aussi dans cant_apply
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6227 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 8b1745bd3..19fb70deb 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -157,6 +157,7 @@ let explain_actual_type ctx j pt = str "while it is expected to have type" ++ brk(1,1) ++ pt let explain_cant_apply_bad_type ctx (n,exptyp,actualtyp) rator randl = + let ctx = make_all_name_different ctx in let randl = Array.to_list randl in (* let pe = pr_ne_context_of (str"in environment") ctx in*) let pr,prt = prjudge_env ctx rator in @@ -179,6 +180,7 @@ let explain_cant_apply_bad_type ctx (n,exptyp,actualtyp) rator randl = str"which should be coercible to" ++ brk(1,1) ++ prterm_env ctx exptyp let explain_cant_apply_not_functional ctx rator randl = + let ctx = make_all_name_different ctx in let randl = Array.to_list randl in (* let pe = pr_ne_context_of (str"in environment") ctx in*) let pr = prterm_env ctx rator.uj_val in |