diff options
| author | barras | 2002-03-04 16:53:17 +0000 |
|---|---|---|
| committer | barras | 2002-03-04 16:53:17 +0000 |
| commit | 78e92544163f25de67469a7bdb3972af869f2ca3 (patch) | |
| tree | 3f0bff4e5734d7bb56e259512a4f9e0ba788295c | |
| parent | 59904470f5e0be906909ec7d8e1303a2792403cd (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2509 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | proofs/clenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index f7cfd7dabb..d7082d19a0 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -809,7 +809,7 @@ let clenv_unify allow_K cv_pb ty1 ty2 clenv = match kind_of_term hd1, l1<>[], kind_of_term hd2, l2<>[] with | (Meta _, true, Lambda _, _ | Lambda _, _, Meta _, true) -> (try - clenv_unify_0 cv_pb ty1 ty2 clenv + clenv_typed_unify cv_pb ty1 ty2 clenv with ex when catchable_exception ex -> try clenv_unify2 allow_K cv_pb ty1 ty2 clenv |