diff options
| author | Matthieu Sozeau | 2014-06-25 13:07:39 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-25 13:07:39 +0200 |
| commit | fae911a7ac35150997c7c0b21ffe219d80dd5f93 (patch) | |
| tree | c0d1aad18dca3da280727c41f1cbb9dc40b05556 | |
| parent | 41b3d9d0432ae3522ed14e69b38dcf405a31df8c (diff) | |
Use the right transparent state when comparing _types_ of metas.
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 4ad8f833e6..300eb6dc6a 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -442,7 +442,7 @@ let check_compatibility env pbty flags (sigma,metasubst,evarsubst) tyM tyN = | None -> sigma | Some n -> if is_ground_term sigma m && is_ground_term sigma n then - let sigma, b = infer_conv ~pb:pbty ~ts:flags.modulo_delta env sigma m n in + let sigma, b = infer_conv ~pb:pbty ~ts:flags.modulo_delta_types env sigma m n in if b then sigma else error_cannot_unify env sigma (m,n) else sigma |