diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-10 09:40:43 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-10 09:40:43 +0000 |
commit | 1ff9becb45683f9377e1e6337d26f95d976b3ce9 (patch) | |
tree | b102aed39b6a552ea0ab2a441bd8d72ee33b46d1 /pretyping/unification.ml | |
parent | 3b005bfdb2d595f5b8e094f940ae26f072780faf (diff) |
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
Diffstat (limited to 'pretyping/unification.ml')
-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 219c1ec22..e037ab6a9 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 _ -> |