diff options
| author |  Pierre Boutillier <pierre.boutillier@pps.univ-paris-diderot.fr> | 2014-08-05 18:09:30 +0200 |
|---|---|---|
| committer | Pierre Boutillier <pierre.boutillier@pps.univ-paris-diderot.fr> | 2014-09-01 13:45:52 +0200 |
| commit | 14e6dc5800a28d49dcdb714b06c02fced7b9fdaf (patch) | |
| tree | 3e5e29685de4d9b9706ef01745305f2616c842e5 /kernel/context.ml | |
| parent | 9f7a633ae30f997c2e70c31681e92d1ef43f9655 (diff) | |
Coqide prints succesive hyps of the same type on 1 line
This revert somehow f5d7b2b1eda550f5bf0965286d449112acbbadde about "Hypotheses
don't respect Barendregt convention".
Diffstat (limited to 'kernel/context.ml')
| -rw-r--r-- | kernel/context.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/kernel/context.ml b/kernel/context.ml index bdc4c067a..5256ee417 100644 --- a/kernel/context.ml +++ b/kernel/context.ml @@ -23,10 +23,13 @@ open Names (***************************************************************************) type named_declaration = Id.t * Constr.t option * Constr.t +type named_list_declaration = Id.t list * Constr.t option * Constr.t type rel_declaration = Name.t * Constr.t option * Constr.t -let map_named_declaration f (id, (v : Constr.t option), ty) = +let map_named_declaration_skel f (id, (v : Constr.t option), ty) = (id, Option.map f v, f ty) +let map_named_list_declaration = map_named_declaration_skel +let map_named_declaration = map_named_declaration_skel let map_rel_declaration = map_named_declaration @@ -77,6 +80,7 @@ let rel_context_nhyps hyps = goal assumptions. *) type named_context = named_declaration list +type compacted_named_context = named_list_declaration list let empty_named_context = [] |