From de5631d1793834eb26f17f82d5e198b778008f64 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 20 Apr 2010 08:49:15 +0000
Subject: Fixed bug #2999 (destruct was not refreshing universes of what it
 generalized *) + changed printing of universe Type(0) to Set, so not to show
 that the implementation starts numbering with Set=Type(0) while documentation
 uses Type(0) for the common type of Prop and Set.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12956 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/univ.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel')

diff --git a/kernel/univ.ml b/kernel/univ.ml
index ef2024c7a3..0a22733d05 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -56,7 +56,7 @@ let cmp_univ_level u v = match u,v with
       else compare dp1 dp2
 
 let string_of_univ_level = function
-  | Set -> "0"
+  | Set -> "Set"
   | Level (d,n) -> Names.string_of_dirpath d^"."^string_of_int n
 
 module UniverseLMap =
@@ -603,7 +603,7 @@ let pr_constraints c =
 		     in pp_std ++  pr_uni_level u1 ++ str op_str ++
 			  pr_uni_level u2 ++ fnl () )  c (str "")
 
-(* Dumping constrains to a file *)
+(* Dumping constraints to a file *)
 
 let dump_universes output g =
   let dump_arc _ = function
-- 
cgit v1.2.3