diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-02 18:11:39 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-02 18:11:39 +0000 |
commit | e60c362019cfd786121d070fbfa9c77dd029b420 (patch) | |
tree | 1a0d0c8c7c0c167e3911b329eaf51dcfd41e9a42 /proofs/clenvtac.ml | |
parent | aeebee7a734922c86b573b19eddb53607669cdc5 (diff) |
Backtrack on experimental unification with sort variables: it requires
major changes in [w_unify] and the conversion functions used by it to
handle the sort constraints correctly.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12159 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/clenvtac.ml')
-rw-r--r-- | proofs/clenvtac.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 8df085891..addf12ca1 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -73,11 +73,11 @@ let clenv_pose_dependent_evars with_evars clenv = let clenv_refine with_evars ?(with_classes=true) clenv gls = let clenv = clenv_pose_dependent_evars with_evars clenv in - let evd = Evd.solve_sort_constraints clenv.evd in let evd' = if with_classes then - Typeclasses.resolve_typeclasses ~fail:(not with_evars) clenv.env evd - else evd + Typeclasses.resolve_typeclasses ~fail:(not with_evars) + clenv.env clenv.evd + else clenv.evd in tclTHEN (tclEVARS ( evd')) |