diff options
author | 2001-11-02 23:51:55 +0000 | |
---|---|---|
committer | 2001-11-02 23:51:55 +0000 | |
commit | c3ff17ba405beb26b1c865719d86e7e364a45cae (patch) | |
tree | 1833b324fdd55912da3f215286c57a39be24f977 /contrib/extraction/mlutil.mli | |
parent | 86188a92fb1e3db08ede1a17bcdb1d0b9c3a0c57 (diff) |
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
Diffstat (limited to 'contrib/extraction/mlutil.mli')
-rw-r--r-- | contrib/extraction/mlutil.mli | 13 |
1 files changed, 10 insertions, 3 deletions
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 |