diff options
| author | Pierre Boutillier | 2014-08-05 18:09:30 +0200 |
|---|---|---|
| committer | Pierre Boutillier | 2014-09-01 13:45:52 +0200 |
| commit | 14e6dc5800a28d49dcdb714b06c02fced7b9fdaf (patch) | |
| tree | 3e5e29685de4d9b9706ef01745305f2616c842e5 /printing | |
| 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 'printing')
| -rw-r--r-- | printing/printer.ml | 8 | ||||
| -rw-r--r-- | printing/printer.mli | 1 |
2 files changed, 8 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index ed872afc67..7938b7bb0b 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -219,7 +219,7 @@ let pr_pattern t = pr_pattern_env (Global.env()) empty_names_context t*) (**********************************************************************) (* Contexts and declarations *) -let pr_var_decl env (id,c,typ) = +let pr_var_decl_skel pr_id env (id,c,typ) = let pbody = match c with | None -> (mt ()) | Some c -> @@ -231,6 +231,12 @@ let pr_var_decl env (id,c,typ) = let ptyp = (str" : " ++ pt) in (pr_id id ++ hov 0 (pbody ++ ptyp)) +let pr_var_decl env (id,c,typ) = + pr_var_decl_skel pr_id env (id,c,typ) + +let pr_var_list_decl env (l,c,typ) = + hov 0 (pr_var_decl_skel (fun ids -> prlist_with_sep pr_comma pr_id ids) env (l,c,typ)) + let pr_rel_decl env (na,c,typ) = let pbody = match c with | None -> mt () diff --git a/printing/printer.mli b/printing/printer.mli index aa949232ac..6be2080535 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -106,6 +106,7 @@ val pr_pconstructor : env -> pconstructor -> std_ppcmds val pr_ne_context_of : std_ppcmds -> env -> std_ppcmds val pr_var_decl : env -> named_declaration -> std_ppcmds +val pr_var_list_decl : env -> named_list_declaration -> std_ppcmds val pr_rel_decl : env -> rel_declaration -> std_ppcmds val pr_named_context : env -> named_context -> std_ppcmds |