From ec6ef01a50f874bae1fc2d8cc2513e303f2a575c Mon Sep 17 00:00:00 2001 From: aspiwack Date: Wed, 4 Mar 2009 16:51:35 +0000 Subject: Backtrack sur la mémoïsation de nf_evar. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit L'expérience prouve que ce n'est pas franchement concluant. On peut se risquer à une explication : - nf_evar, version mémoïsée n'est pas tail recursive - On retarde la substitution des hypothèses de l'evar en échange de faire moins de substitutions d'evars. Intuitivement c'est intéressant seulement si il y a plus de substitutions d'evar dupliquées que d'hypothèses dupliquées. Ce qui ne doit pas être le cas (ne serait-ce que parce que dupliquer une evar duplique aussi ses variables libres). This reverts commit 066a564021788e995eb166ad6ed6e55611d6f593. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11958 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/reductionops.mli | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pretyping/reductionops.mli') diff --git a/pretyping/reductionops.mli b/pretyping/reductionops.mli index 902c314b5..535101d74 100644 --- a/pretyping/reductionops.mli +++ b/pretyping/reductionops.mli @@ -91,11 +91,11 @@ val clos_norm_flags : Closure.RedFlags.reds -> reduction_function val nf_beta : local_reduction_function val nf_betaiota : local_reduction_function val nf_betadeltaiota : reduction_function -(* arnaud: val nf_evar : evar_map -> constr -> constr *) +val nf_evar : evar_map -> constr -> constr val nf_betaiota_preserving_vm_cast : reduction_function (* Lazy strategy, weak head reduction *) -(* arnaud: val whd_evar : evar_map -> constr -> constr*) +val whd_evar : evar_map -> constr -> constr val whd_beta : local_reduction_function val whd_betaiota : local_reduction_function val whd_betaiotazeta : local_reduction_function -- cgit v1.2.3