diff options
| author | Hugo Herbelin | 2016-11-20 15:14:23 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2016-12-02 15:19:58 +0100 |
| commit | 17c3f8e2d339e5b6f60c89ad17e578d786d2b9ca (patch) | |
| tree | 1970caa5b1c296681a9d3d798faa8b82a6895849 | |
| parent | cf98b736a15b8d1e69a0a04c192e77cf69eb01db (diff) | |
More on fixing #5098 (preserving printing of "in hyp").
| -rw-r--r-- | printing/pptactic.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 6e40e03f5b..4b86381b49 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -630,7 +630,8 @@ module Make | _ -> pr_with_occurrences (fun () -> str" |- *") (occs,()) in pr_in - (prlist_with_sep (fun () -> str", ") (pr_hyp_location pr_id) l ++ pr_occs) + (prlist_with_sep (fun () -> str",") + (fun id -> spc () ++ pr_hyp_location pr_id id) l ++ pr_occs) let pr_orient b = if b then mt () else str "<- " |