diff options
| author | herbelin | 2007-06-06 17:00:01 +0000 |
|---|---|---|
| committer | herbelin | 2007-06-06 17:00:01 +0000 |
| commit | 59d8e4c649e7ae30b810da3340df528a085e6b46 (patch) | |
| tree | 461397b6b2350d1d6e74389617b0c21a29f42351 /pretyping/clenv.ml | |
| parent | 30b610dd264a537fbc3ecd3191accebf5d7e0179 (diff) | |
Toujours l'unification de apply : nouveau raffinement pour ne tester
l'unification sur les types (qui nécessite le coûteux hnf_constr pour
la compatibilité) que si le type contient encore des méta (et pour
cela on attend le dernier moment) ou si une coercion est
potentiellement à insérer.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9878 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/clenv.ml')
| -rw-r--r-- | pretyping/clenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/clenv.ml b/pretyping/clenv.ml index 1c35f9f720..25d18d3088 100644 --- a/pretyping/clenv.ml +++ b/pretyping/clenv.ml @@ -386,7 +386,7 @@ let clenv_unify_similar_types clenv c t u = try TypeProcessed, clenv_unify true CUMUL t u clenv, c with e when precatchable_exception e -> TypeNotProcessed, clenv, c else - TypeNotProcessed, clenv, c + CoerceToType, clenv, c else let evd,c = w_coerce (cl_env clenv) c t u clenv.evd in TypeProcessed, { clenv with evd = evd }, c |