From 4a6b89e79d67bdaf4d0c07ae5d15c6b6154d3e30 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 7 Aug 2012 19:30:59 +0000
Subject: Avoid Pp.std_ppcmds in Misctypes.sort_info

 Otherwise, after a Set Printing Universes we may end on
 a comparison of Pp.std_ppcmds, which may fail on functional
 values (cf. Constrextern.check_same_type), as notice by Pierre-Marie

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15697 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/detyping.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'pretyping')

diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml
index 7ed29ba39e..95709e6f7a 100644
--- a/pretyping/detyping.ml
+++ b/pretyping/detyping.ml
@@ -370,7 +370,11 @@ let detype_case computable detype detype_eqns testdep avoid data p c bl =
 let detype_sort = function
   | Prop Null -> GProp
   | Prop Pos -> GSet
-  | Type u -> GType (if !print_universes then Some (Univ.pr_uni u) else None)
+  | Type u ->
+    GType
+      (if !print_universes
+       then Some (Pp.string_of_ppcmds (Univ.pr_uni u))
+       else None)
 
 type binder_kind = BProd | BLambda | BLetIn
 
-- 
cgit v1.2.3