From 1ff9becb45683f9377e1e6337d26f95d976b3ce9 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 May 2013 09:40:43 +0000
Subject: Little oversight in commit r16489 (fix for bug #3036).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16506 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/unification.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping')

diff --git a/pretyping/unification.ml b/pretyping/unification.ml
index 219c1ec227..e037ab6a9a 100644
--- a/pretyping/unification.ml
+++ b/pretyping/unification.ml
@@ -400,7 +400,7 @@ let unify_0_with_initial_metas (sigma,ms,es as subst) conv_at_top env cv_pb flag
             when not (dependent cN cM) (* helps early trying alternatives *) ->
             if wt && flags.check_applied_meta_types then
               (try
-                 let tyM = get_type_of curenv sigma cM in
+                 let tyM = get_type_of curenv ~lax:true sigma cM in
                  let tyN = Typing.meta_type sigma k in
                  check_compatibility curenv substn tyM tyN
                with RetypeError _ ->
-- 
cgit v1.2.3