From c3ff17ba405beb26b1c865719d86e7e364a45cae Mon Sep 17 00:00:00 2001 From: letouzey Date: Fri, 2 Nov 2001 23:51:55 +0000 Subject: suite des modifs concernant les optimisations divers git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2151 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/extraction/mlutil.mli | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'contrib/extraction/mlutil.mli') diff --git a/contrib/extraction/mlutil.mli b/contrib/extraction/mlutil.mli index 2c5a586ac..3771151b4 100644 --- a/contrib/extraction/mlutil.mli +++ b/contrib/extraction/mlutil.mli @@ -42,15 +42,22 @@ val ml_subst : ml_ast -> ml_ast -> ml_ast val subst_glob_ast : global_reference -> ml_ast -> ml_ast -> ml_ast (*s [collect_lambda MLlam(id1,...MLlam(idn,t)...)] returns - the list [id1;...;idn] and the term [t]. *) + the list [idn;...;id1] and the term [t]. *) + +val collect_lams : ml_ast -> identifier list * ml_ast + +(* [named_abstract] is the converse of [collect_lambda]. *) + +val named_lams : ml_ast -> identifier list -> ml_ast + +val anonym_lams : ml_ast -> int -> ml_ast -val collect_lambda : ml_ast -> identifier list * ml_ast (*s Some transformations of ML terms. [normalize] and [normalize_decl] reduce all beta redexes (when the argument does not occur, it is just thrown away; when it occurs exactly once it is substituted; otherwise a let in redex is created for clarity) and iota redexes, plus some other - optimizations. *) + optimizations. *) (* TO UPDATE *) val normalize : ml_ast -> ml_ast val normalize_decl : ml_decl -> ml_decl -- cgit v1.2.3