diff options
| author | herbelin | 2006-10-27 21:50:17 +0000 |
|---|---|---|
| committer | herbelin | 2006-10-27 21:50:17 +0000 |
| commit | 3f41c704aa09301df18cfc90f72a3895e169d74c (patch) | |
| tree | 1e7894b63d2c4ddfd0d60448f5719f9bba79c672 /kernel/term.ml | |
| parent | 5b8e645b675b6b2efac8e13c29da5e984248e507 (diff) | |
Ajout fold_rel_declaration et fold_named_declaration
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9303 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index b392d54525..49d4d231b5 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -646,6 +646,9 @@ type rel_declaration = name * constr option * types let map_named_declaration f (id, v, ty) = (id, option_map f v, f ty) let map_rel_declaration = map_named_declaration +let fold_named_declaration f (_, v, ty) a = f ty (option_fold_right f v a) +let fold_rel_declaration = fold_named_declaration + (****************************************************************************) (* Functions for dealing with constr terms *) (****************************************************************************) |