diff options
| author | Matthieu Sozeau | 2015-11-05 17:47:39 -0500 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-11-11 19:13:53 +0100 |
| commit | a3f0a0daf58964a54b1e6fb1f8252f68a8c9c8ea (patch) | |
| tree | 2f688311b1eaddb758e7aa987f30128d66fe29b8 | |
| parent | 67da4b45ef65db59b2d7ba1549351d792e1b27d9 (diff) | |
Fix bug #3998: when using typeclass resolution for conversion, allow
only one disjoint component of the typeclasses instances to resolve.
| -rw-r--r-- | pretyping/coercion.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index e61e52c178..3163ac0e6e 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -343,7 +343,7 @@ let coerce_itf loc env evd v t c1 = let saturate_evd env evd = Typeclasses.resolve_typeclasses - ~filter:Typeclasses.no_goals ~split:false ~fail:false env evd + ~filter:Typeclasses.no_goals ~split:true ~fail:false env evd (* Apply coercion path from p to hj; raise NoCoercion if not applicable *) let apply_coercion env sigma p hj typ_cl = |