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.ml | |
| 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.ml')
| -rw-r--r-- | kernel/context.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/context.ml b/kernel/context.ml index 5cb964b9c..6b5a6cdb9 100644 --- a/kernel/context.ml +++ b/kernel/context.ml @@ -87,7 +87,7 @@ let rel_context_tags ctx = goal assumptions. *) type named_context = named_declaration list -type compacted_named_context = named_list_declaration list +type named_list_context = named_list_declaration list let empty_named_context = [] @@ -112,6 +112,7 @@ let instance_from_named_context sign = List.map_filter filter sign let fold_named_context f l ~init = List.fold_right f l init +let fold_named_list_context f l ~init = List.fold_right f l init let fold_named_context_reverse f ~init l = List.fold_left f init l (*s Signatures of ordered section variables *) |