diff options
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 -> |