From e9100d33377eb2bb958ecba6049c6a46f4e9db7f Mon Sep 17 00:00:00 2001
From: barras
Date: Mon, 11 Feb 2002 16:31:44 +0000
Subject: substitution et pattern modulo let

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2466 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/evarutil.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'pretyping/evarutil.ml')

diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml
index a53ecf5355..4ccf4817cd 100644
--- a/pretyping/evarutil.ml
+++ b/pretyping/evarutil.ml
@@ -71,6 +71,7 @@ let whd_castappevar_stack sigma c =
 	  whrec (existential_value sigma (ev,args), l)
       | Cast (c,_) -> whrec (c, l)
       | App (f,args) -> whrec (f, Array.fold_right (fun a l -> a::l) args l)
+      | LetIn (_,v,_,b) -> whrec (subst1 v b, l)
       | _ -> s
   in 
   whrec (c, [])
-- 
cgit v1.2.3