diff options
| author | barras | 2002-02-11 16:31:44 +0000 |
|---|---|---|
| committer | barras | 2002-02-11 16:31:44 +0000 |
| commit | e9100d33377eb2bb958ecba6049c6a46f4e9db7f (patch) | |
| tree | ffa3de5209500bdb22a81daf55881d99fc098309 /pretyping/evarutil.ml | |
| parent | 3be41a001ce4e61bbc16258ea66457267e048035 (diff) | |
substitution et pattern modulo let
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2466 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarutil.ml')
| -rw-r--r-- | pretyping/evarutil.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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, []) |