diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-18 19:49:34 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-18 19:49:34 +0000 |
| commit | be541682b63bac7ef7c67b68545c42a1cf5a53fe (patch) | |
| tree | b1605dec14631fe479889b2583f48c966f504ba5 /pretyping | |
| parent | c606dc386d81fc2f5e3aa6b3787f2095a0dee316 (diff) | |
Hack for fixing bug #2172 (see explanations in file rewrite-2172.v).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13167 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 01109d8af..690a673c6 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -239,7 +239,7 @@ let unify_0_with_initial_metas (sigma,ms,es as subst) conv_at_top env cv_pb flag match (kind_of_term cM,kind_of_term cN) with | Meta k1, Meta k2 -> let stM,stN = extract_instance_status pb in - if k1 < k2 + if k2 < k1 then sigma,(k1,cN,stN)::metasubst,evarsubst else if k1 = k2 then substn else sigma,(k2,cM,stM)::metasubst,evarsubst |