From 8bff8bbd620e54022c2fea81542bf1cbc18fafb0 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 17 Mar 2000 20:35:30 +0000
Subject: Correction bug des réduction 'deltat' et renommage 'deltat' en 'evar'

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@322 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/reduction.mli | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

(limited to 'kernel/reduction.mli')

diff --git a/kernel/reduction.mli b/kernel/reduction.mli
index 6638f30ee0..b953907db8 100644
--- a/kernel/reduction.mli
+++ b/kernel/reduction.mli
@@ -66,14 +66,15 @@ val whd_delta_stack : 'a stack_reduction_function
 val whd_delta : 'a reduction_function
 val whd_betadelta_stack : 'a stack_reduction_function
 val whd_betadelta : 'a reduction_function
-val whd_betadeltat_stack : 'a stack_reduction_function
-val whd_betadeltat : 'a reduction_function
-val whd_betadeltatiota_stack : 'a stack_reduction_function
-val whd_betadeltatiota : 'a reduction_function
+val whd_betaevar_stack : 'a stack_reduction_function
+val whd_betaevar : 'a reduction_function
+val whd_betaiotaevar_stack : 'a stack_reduction_function
+val whd_betaiotaevar : 'a reduction_function
 val whd_betadeltaeta_stack : 'a stack_reduction_function
 val whd_betadeltaeta : 'a reduction_function
 val whd_betadeltaiotaeta_stack : 'a stack_reduction_function
 val whd_betadeltaiotaeta : 'a reduction_function
+val whd_evar : 'a reduction_function
 
 val beta_applist : (constr * constr list) -> constr
 
@@ -180,14 +181,15 @@ val whd_meta : (int * constr) list -> constr -> constr
 val plain_instance : (int * constr) list -> constr -> constr
 val instance : (int * constr) list -> 'a reduction_function
 
-(* [whd_ise] raise [Uninstantiated_evar] if an evar remains uninstantiated *)
-(* the *[_ise1]* leave uninstantiated evar as it *)
+(* [whd_ise] raise [Uninstantiated_evar] if an evar remains uninstantiated; *)
+(* *[whd_ise1]* is synonymous of *[whd_evar empty_env]* and *[nf_ise1]* of *)
+(* *[strong whd_evar empty_env]*: they leave uninstantiated evar as it *)
 
-exception Uninstantiated_evar of int
-
-val whd_ise : 'a evar_map -> constr -> constr
 val whd_ise1 : 'a evar_map -> constr -> constr
 val nf_ise1 : 'a evar_map -> constr -> constr
+exception Uninstantiated_evar of int
+val whd_ise : 'a evar_map -> constr -> constr
+
 val whd_ise1_metas : 'a evar_map -> constr -> constr
 
 (*s Obsolete Reduction Functions *)
-- 
cgit v1.2.3