diff options
| author | msozeau | 2008-04-28 09:27:17 +0000 |
|---|---|---|
| committer | msozeau | 2008-04-28 09:27:17 +0000 |
| commit | 3478ffda0a0a83951db341eb68fc6b71877c1392 (patch) | |
| tree | 7e4bc66924da99168e75bcc5b4e614190d68aa9b /pretyping | |
| parent | 7a4ccdc7eb1a6afd21768963a249ec3617584482 (diff) | |
Backtrack on using metas eagerly in auto, only done in "new auto" for
now. Fix proof scripts that failed correspondingly. Should make many
contribs compile again...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10863 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -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 578afdb75c..1063342e5b 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -145,7 +145,8 @@ let expand_constant env flags c = let unify_0_with_initial_metas subst conv_at_top env sigma cv_pb flags m n = let nb = nb_rel env in let trivial_unify pb (metasubst,_) m n = - match subst_defined_metas metasubst m with + let subst = if flags.use_metas_eagerly then metasubst else fst subst in + match subst_defined_metas subst m with | Some m -> (match flags.modulo_conv_on_closed_terms with Some flags -> |