diff options
| -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 "<- " |