diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-04-20 08:49:15 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-04-20 08:49:15 +0000 |
| commit | de5631d1793834eb26f17f82d5e198b778008f64 (patch) | |
| tree | 480012375450c2d58242c445dcd5c470cd9ead5a /kernel/univ.ml | |
| parent | dc1a605a165f85244f80ef6af17c59cba66587a5 (diff) | |
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
Diffstat (limited to 'kernel/univ.ml')
| -rw-r--r-- | kernel/univ.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index ef2024c7a..0a22733d0 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 |