nouvel algo de conversion plus uniforme

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2246 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 11 deletions

diff --git a/pretyping/cbv.mli b/pretyping/cbv.mli
index 000ed4e3f..6c9ebde6f 100644
--- a/pretyping/cbv.mli
+++ b/pretyping/cbv.mli
@@ -9,10 +9,8 @@
 (*i $Id$ i*)
 
 (*i*)
-open Pp
 open Names
 open Term
-open Evd
 open Environ
 open Closure
 open Esubst
@@ -23,8 +21,9 @@ open Esubst
 
 (* Entry point for cbv normalization of a constr *)
 type cbv_infos
-val create_cbv_infos : flags -> env -> cbv_infos
-val cbv_norm : cbv_infos -> constr -> constr
+
+val create_cbv_infos : RedFlags.reds -> env -> cbv_infos
+val cbv_norm         : cbv_infos -> constr -> constr
 
 (***********************************************************************)
 (*i This is for cbv debug *)
@@ -43,19 +42,12 @@ type cbv_stack =
   | CASE of constr * constr array * case_info * cbv_value subs * cbv_stack
 
 val stack_app : cbv_value list -> cbv_stack -> cbv_stack
-val under_case_stack : cbv_stack -> bool
 val strip_appl : cbv_value -> cbv_stack -> cbv_value * cbv_stack
 
-open RedFlags
-val red_allowed : flags -> cbv_stack -> red_kind -> bool
-val reduce_const_body :
-  (cbv_value -> cbv_value) -> cbv_value -> cbv_stack -> cbv_value * cbv_stack
-
 (* recursive functions... *)
 val cbv_stack_term : cbv_infos ->
   cbv_stack -> cbv_value subs -> constr -> cbv_value
 val cbv_norm_term : cbv_infos -> cbv_value subs -> constr -> constr
-val cbv_norm_more : cbv_infos -> cbv_value subs -> cbv_value -> cbv_value
 val norm_head : cbv_infos ->
   cbv_value subs -> constr -> cbv_stack -> cbv_value * cbv_stack
 val apply_stack : cbv_infos -> constr -> cbv_stack -> constr