diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-12 16:08:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-12 16:08:52 +0000 |
| commit | 9ae48c340c7bf1dd9d3bfb85550726facde2be85 (patch) | |
| tree | 0893c6cddcff65efdb5af780042f0b95fcaeb825 /proofs | |
| parent | 504114a41692bbc1e1621d84cadff4773f23bf35 (diff) | |
Propagation du pb de conversion dans clenv_unify
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2526 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index a38e639eb..67de8df98 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -823,11 +823,11 @@ let clenv_unify allow_K cv_pb ty1 ty2 clenv = clenv_unify2 allow_K cv_pb ty1 ty2 clenv with ex when catchable_exception ex -> try - clenv_typed_unify CONV ty1 ty2 clenv + clenv_typed_unify cv_pb ty1 ty2 clenv with ex when catchable_exception ex -> error "Cannot solve a second-order unification problem") - | _ -> clenv_unify_0 CONV ty1 ty2 clenv + | _ -> clenv_unify_0 cv_pb ty1 ty2 clenv (* [clenv_bchain mv clenv' clenv] |