From fae911a7ac35150997c7c0b21ffe219d80dd5f93 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 25 Jun 2014 13:07:39 +0200
Subject: Use the right transparent state when comparing _types_ of metas.

---
 pretyping/unification.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3