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
---
 translate/ppconstrnew.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'translate')

diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml
index 3e08fae301..12a77e433a 100644
--- a/translate/ppconstrnew.ml
+++ b/translate/ppconstrnew.ml
@@ -118,7 +118,7 @@ let pr_optc pr = function
   | None -> mt ()
   | Some x -> pr_sep_com spc pr x
 
-let pr_universe u = str "<univ>"
+let pr_universe = Univ.pr_uni 
 
 let pr_sort = function
   | RProp Term.Null -> str "Prop"
-- 
cgit v1.2.3