From 78ec13bdf43b38a7c3e0bbc1d6f55d6225a9e7a8 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 5 Dec 2000 12:35:59 +0000
Subject: 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
---
 proofs/clenv.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index 5ce77f413d..66b3bddb2c 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
-- 
cgit v1.2.3