diff options
| author | herbelin | 2001-09-18 13:06:18 +0000 |
|---|---|---|
| committer | herbelin | 2001-09-18 13:06:18 +0000 |
| commit | 1f78733204d5a1232d06c103057dc65dcb14a7ea (patch) | |
| tree | 0c913068065093647f66003bcd452aa3d994d4d4 | |
| parent | 512a76bd9b063f218822a4d3a885aa0b7bec347f (diff) | |
Suppression du message d'erreur si une coercion mettant en jeu des locaux n'est pas déclarée locale (le discharge fonctionnera bien silencieusement et c'est compatible V6.3)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1981 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/class.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index 57afbb5e55..667e127061 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -296,11 +296,6 @@ let get_strength stre ref cls clt = *) let streunif = NeverDischarge in let stre' = stre_max4 stres stret stref streunif in - if (stre = NeverDischarge) & (stre' <> NeverDischarge) - then errorlabstrm "try_add_coercion" - [< Printer.pr_global ref; - 'sTR " must be declared as a local coercion"; 'fNL; - 'sTR "because it involves local definition" >]; stre_max (stre,stre') (* coercion identité *) |