From 3478ffda0a0a83951db341eb68fc6b71877c1392 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Mon, 28 Apr 2008 09:27:17 +0000
Subject: 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
---
 pretyping/unification.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pretyping')

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