From 745dd2cab8dc63e5741100b24435c5a8b7c19115 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 4 Nov 2004 12:32:24 +0000
Subject: Affichage des univers

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6276 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/ppconstr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parsing')

diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml
index 3bfd26d72b..ec5147e80a 100644
--- a/parsing/ppconstr.ml
+++ b/parsing/ppconstr.ml
@@ -87,7 +87,7 @@ let pr_opt pr = function
   | None -> mt ()
   | Some x -> spc () ++ pr x
 
-let pr_universe u = str "<univ>"
+let pr_universe = Univ.pr_univ
 
 let pr_sort = function
   | RProp Term.Null -> str "Prop"
-- 
cgit v1.2.3