diff options
| -rw-r--r-- | pretyping/unification.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 3d734ea9a9..b7edd6fcd6 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1361,7 +1361,9 @@ let w_merge env with_types flags (evd,metas,evars) = in w_merge_rec evd [] [] eqns in let res = (* merge constraints *) - w_merge_rec evd (order_metas metas) (List.rev evars) [] + w_merge_rec evd (order_metas metas) + (* Assign evars in the order of assignments during unification *) + (List.rev evars) [] in if with_types then check_types res else res |