From 3c199388700c523932761c56a423577ef7aee7f2 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Wed, 22 Oct 2014 17:47:43 +0200 Subject: Pushing Pierre's factorization of names in goal context printing from coqide to coqtop. (Joint work with Pierre) --- kernel/context.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'kernel/context.ml') 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 *) -- cgit v1.2.3