diff options
| author |  Samuel Mimram <smimram@debian.org> | 2006-11-21 21:38:49 +0000 |
|---|---|---|
| committer | Samuel Mimram <smimram@debian.org> | 2006-11-21 21:38:49 +0000 |
| commit | 70b9be8acc1d1ada178a95c1cd4013506e9d0d1b (patch) | |
| tree | f672a286d962cc67c95874b3b60402fc957870b6 /contrib/funind/rawtermops.mli | |
| parent | a5bd4e097a94cc4f863bf4d4bcc5ce592c30ba47 (diff) | |
| parent | 208a0f7bfa5249f9795e6e225f309cbe715c0fad (diff) | |
Merge commit 'upstream/8.1.gamma' into 8.1
Diffstat (limited to 'contrib/funind/rawtermops.mli')
| -rw-r--r-- | contrib/funind/rawtermops.mli | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/contrib/funind/rawtermops.mli b/contrib/funind/rawtermops.mli index aa355485..9647640c 100644 --- a/contrib/funind/rawtermops.mli +++ b/contrib/funind/rawtermops.mli @@ -31,6 +31,7 @@ val mkRCast : rawconstr* rawconstr -> rawconstr These are analogous to the ones constrs *) val raw_decompose_prod : rawconstr -> (Names.name*rawconstr) list * rawconstr +val raw_decompose_prod_n : int -> rawconstr -> (Names.name*rawconstr) list * rawconstr val raw_compose_prod : rawconstr -> (Names.name*rawconstr) list -> rawconstr val raw_decompose_app : rawconstr -> rawconstr*(rawconstr list) @@ -107,8 +108,13 @@ val eq_cases_pattern : cases_pattern -> cases_pattern -> bool *) val ids_of_pat : cases_pattern -> Names.Idset.t +(* TODO: finish this function (Fix not treated) *) +val ids_of_rawterm: rawconstr -> Names.Idset.t (* removing let_in construction in a rawterm *) val zeta_normalize : Rawterm.rawconstr -> Rawterm.rawconstr + + +val expand_as : rawconstr -> rawconstr |