diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-05 12:35:59 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-05 12:35:59 +0000 |
| commit | 78ec13bdf43b38a7c3e0bbc1d6f55d6225a9e7a8 (patch) | |
| tree | 09c51c4e08d63e2f5c128a8446cbe3f84fb48363 /proofs | |
| parent | accce8cdb85e2a5e76be44402f94f81105c9e7ad (diff) | |
Prise en compte Let dans le calcul des arguments manquants d'un lemme (clenv_environments
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1051 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 5ce77f413..66b3bddb2 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -338,6 +338,7 @@ let clenv_environments bound c = let e' = Intmap.add mv (Cltyp (mk_freelisted c1)) e in clrec (ne',e', (mkMeta mv)::metas) (n-1) (if dep then (subst1 (mkMeta mv) c2) else c2) + | (n, IsLetIn (na,b,_,c)) -> clrec (ne,e,metas) (n-1) (subst1 b c) | (n, _) -> (ne, e, List.rev metas, c) in clrec (Intmap.empty,Intmap.empty,[]) bound c |