From 2ac8e0edebe0d9a6bde4d997327dbd2ffcde08b6 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 4 Jun 2014 15:42:41 +0200
Subject: - Allow parsing of @const@{instance} for specifying universe
 instances of polymorphic constants.

---
 printing/ppconstr.ml | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'printing/ppconstr.ml')

diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml
index 019fad0ce8..5b6c072839 100644
--- a/printing/ppconstr.ml
+++ b/printing/ppconstr.ml
@@ -118,8 +118,16 @@ let pr_name = pr_name
 let pr_qualid = pr_qualid
 let pr_patvar = pr_id
 
+let pr_glob_sort_instance = function
+  | GProp -> str "Prop"
+  | GSet -> str "Set"
+  | GType u -> 
+    (match u with 
+    | Some u -> str u
+    | None -> str "Type")
+
 let pr_universe_instance l =
-  pr_opt (pr_in_comment (prlist_with_sep spc pr_glob_sort)) l
+  pr_opt (pr_in_comment (prlist_with_sep spc pr_glob_sort_instance)) l
 
 let pr_cref ref us =
   pr_reference ref ++ pr_universe_instance us
-- 
cgit v1.2.3