diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-12 10:56:10 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-12 10:56:10 +0000 |
| commit | cc2e8c9e7f8d414ed34e6e39b4df18a76ade35b4 (patch) | |
| tree | c9b4bc68d824c4eb914c196aed6497fa7be1b2c9 /proofs | |
| parent | 97b58235341da0cfa3fdd88b0436f6d19be0a400 (diff) | |
petite modif pour ne pas expanser trop de let pendant l'unification
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2471 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 43a07aa1a..be9bd638a 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -175,6 +175,7 @@ let unify_0 cv_pb mc wc m n = error_cannot_unify (m,n) | LetIn (_,b,_,c), _ -> unirec_rec pb substn (subst1 b c) cN + | _, LetIn (_,b,_,c) -> unirec_rec pb substn cM (subst1 b c) | _ -> error_cannot_unify (m,n) |