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 b45d23098a..38cf59bc0d 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -673,7 +673,8 @@ let w_merge env with_types flags (evd,metas,evars) = metas evars' eqns | _ -> - w_merge_rec (solve_simple_evar_eqn env evd ev rhs') + let evd', rhs'' = pose_all_metas_as_evars env evd rhs' in + w_merge_rec (solve_simple_evar_eqn env evd' ev rhs'') metas evars' eqns end | [] -> |