diff options
| author | herbelin | 2000-05-22 17:21:17 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-22 17:21:17 +0000 |
| commit | 08f5f4b1268624de1f8733ce30b51a62080f6ba6 (patch) | |
| tree | a9cebdf444e0b1fdcd77e00d725a7905cafe6ff0 /library | |
| parent | abcf77362c7744ade443307d62dcb30e9025541a (diff) | |
suppression de l'env/sigma dans les fonctions de reduction beta et iota seuls
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@464 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/indrec.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/library/indrec.ml b/library/indrec.ml index b684226d53..e1609b25aa 100644 --- a/library/indrec.ml +++ b/library/indrec.ml @@ -169,15 +169,13 @@ let make_rec_branch_arg env sigma (nparams,fvect,decF) f cstr recargs = | None -> lambda_name env (n,t,process_constr (i+1) cprest - (applist(whd_beta_stack env sigma (lift 1 f) - [(Rel 1)])) rest) + (applist(whd_beta_stack (lift 1 f) [(Rel 1)])) rest) | Some(_,f_0) -> let nF = lift (i+1+decF) f_0 in let arg = process_pos nF (lift 1 t) in lambda_name env (n,t,process_constr (i+1) cprest - (applist(whd_beta_stack env sigma (lift 1 f) - [(Rel 1); arg])) + (applist(whd_beta_stack (lift 1 f) [(Rel 1); arg])) rest)) | [] -> f in |