diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-22 17:47:43 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-22 17:50:06 +0200 |
| commit | 3c199388700c523932761c56a423577ef7aee7f2 (patch) | |
| tree | c4ac68cce808f595f163510ef17eeb5ce13afb8e /kernel/context.mli | |
| parent | 116ec0eb91ce05d21433c1127636f2abf4ec55c4 (diff) | |
Pushing Pierre's factorization of names in goal context printing from
coqide to coqtop.
(Joint work with Pierre)
Diffstat (limited to 'kernel/context.mli')
| -rw-r--r-- | kernel/context.mli | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kernel/context.mli b/kernel/context.mli index b7eb7a76a..e1ff708e7 100644 --- a/kernel/context.mli +++ b/kernel/context.mli @@ -54,7 +54,7 @@ val eq_rel_declaration : type named_context = named_declaration list type section_context = named_context -type compacted_named_context = named_list_declaration list +type named_list_context = named_list_declaration list type rel_context = rel_declaration list (** In [rel_context], more recent declaration is on top *) @@ -74,6 +74,9 @@ val named_context_equal : named_context -> named_context -> bool val fold_named_context : (named_declaration -> 'a -> 'a) -> named_context -> init:'a -> 'a +val fold_named_list_context : + (named_list_declaration -> 'a -> 'a) -> named_list_context -> init:'a -> 'a + (** newer declarations first *) val fold_named_context_reverse : ('a -> named_declaration -> 'a) -> init:'a -> named_context -> 'a |