Parsing of Type@{max(i,j)}.

1 files changed, 7 insertions, 1 deletions

diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml
index fb40e90d36..0fb97ad16e 100644
--- a/printing/ppconstr.ml
+++ b/printing/ppconstr.ml
@@ -108,12 +108,18 @@ let pr_sep_com sep f c = pr_with_comments (constr_loc c) (sep() ++ f c)
 
 let pr_in_comment pr x = str "(* " ++ pr x ++ str " *)"
 
+let pr_univ l = 
+  match l with
+  | [x] -> str x
+  | l -> str"max(" ++ prlist_with_sep (fun () -> str",") str l ++ str")"
+  
 let pr_univ_annot pr x = str "@{" ++ pr x ++ str "}"
 
 let pr_glob_sort = function
   | GProp -> str "Prop"
   | GSet -> str "Set"
-  | GType u -> hov 0 (str "Type" ++ pr_opt_no_spc (pr_univ_annot str) u)
+  | GType [] -> str "Type"
+  | GType u -> hov 0 (str "Type" ++ pr_univ_annot pr_univ u)
 
 let pr_id = pr_id
 let pr_name = pr_name