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 | 208a0f7bfa5249f9795e6e225f309cbe715c0fad (patch) | |
| tree | 591e9e512063e34099782e2518573f15ffeac003 /kernel/term.mli | |
| parent | de0085539583f59dc7c4bf4e272e18711d565466 (diff) | |
Imported Upstream version 8.1~gammaupstream/8.1.gamma
Diffstat (limited to 'kernel/term.mli')
| -rw-r--r-- | kernel/term.mli | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/kernel/term.mli b/kernel/term.mli index 8d72e0d8..d6244f5b 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: term.mli 8850 2006-05-23 16:11:31Z herbelin $ i*) +(*i $Id: term.mli 9303 2006-10-27 21:50:17Z herbelin $ i*) (*i*) open Names @@ -327,6 +327,11 @@ val map_named_declaration : val map_rel_declaration : (constr -> constr) -> rel_declaration -> rel_declaration +val fold_named_declaration : + (constr -> 'a -> 'a) -> named_declaration -> 'a -> 'a +val fold_rel_declaration : + (constr -> 'a -> 'a) -> rel_declaration -> 'a -> 'a + (* Constructs either [(x:t)c] or [[x=b:t]c] *) val mkProd_or_LetIn : rel_declaration -> types -> types val mkNamedProd_or_LetIn : named_declaration -> types -> types @@ -426,6 +431,9 @@ val under_outer_cast : (constr -> constr) -> constr -> constr (*s Occur checks *) +(* [closedn n M] is true iff [M] is a (deBruijn) closed term under n binders *) +val closedn : int -> constr -> bool + (* [closed0 M] is true iff [M] is a (deBruijn) closed term *) val closed0 : constr -> bool |