diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-20 11:46:07 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-20 11:46:07 +0000 |
commit | d7c619b29f80eff6cc0551d1a64eb92d789b601e (patch) | |
tree | 4242a1a4b1adf1f0f21203dc3512966329a63323 /pretyping/unification.ml | |
parent | b683d0f2f60df91276a7a1c53660c01097d4e5c0 (diff) |
Allow betaiota when checking unification of the types of metas (fixes ATBR contrib).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14032 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/unification.ml')
-rw-r--r-- | pretyping/unification.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index d226c94d1..03ef66836 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -656,7 +656,8 @@ let unify_type env sigma flags mv status c = let mvty = nf_meta sigma mvty in unify_to_type env sigma {flags with modulo_delta = flags.modulo_delta_types; - modulo_conv_on_closed_terms = Some flags.modulo_delta_types} + modulo_conv_on_closed_terms = Some flags.modulo_delta_types; + modulo_betaiota = true} c status mvty (* Move metas that may need coercion at the end of the list of instances *) |