# HG changeset patch
# User wenzelm
# Date 977608361 -3600
# Node ID c130eb1e863fde13fd20ddd0536d6b64ecc7aaa8
# Parent  7f94cb4517fa7a66f56acde82b46dab4b9e776f2
tuned output;

diff -r 7f94cb4517fa -r c130eb1e863f src/Pure/display.ML
--- a/src/Pure/display.ML	Sat Dec 23 22:52:18 2000 +0100
+++ b/src/Pure/display.ML	Sat Dec 23 22:52:41 2000 +0100
@@ -163,7 +163,7 @@
     fun prt_cls c = Sign.pretty_sort sg [c];
     fun prt_sort S = Sign.pretty_sort sg S;
     fun prt_arity t (c, Ss) = Sign.pretty_arity sg (t, Ss, [c]);
-    fun prt_typ ty = Pretty.quote (Sign.pretty_typ sg ty);
+    fun prt_typ_no_tvars ty = Pretty.quote (Sign.pretty_typ sg (#1 (Type.freeze_thaw_type ty)));
     fun prt_term t = Pretty.quote (Sign.pretty_term sg t);
 
     fun pretty_classes cs = Pretty.block
@@ -184,17 +184,17 @@
 
     fun pretty_witness None = Pretty.str "universal non-emptiness witness: --"
       | pretty_witness (Some (T, S)) = Pretty.block
-          [Pretty.str "universal non-emptiness witness:", Pretty.brk 1, prt_typ T,
+          [Pretty.str "universal non-emptiness witness:", Pretty.brk 1, prt_typ_no_tvars T,
             Pretty.brk 1, prt_sort S];
 
     fun pretty_abbr (t, (vs, rhs)) = Pretty.block
-      [prt_typ (Type (t, map (fn v => TVar ((v, 0), [])) vs)),
-        Pretty.str " =", Pretty.brk 1, prt_typ rhs];
+      [prt_typ_no_tvars (Type (t, map (fn v => TVar ((v, 0), [])) vs)),
+        Pretty.str " =", Pretty.brk 1, prt_typ_no_tvars rhs];
 
     fun pretty_arities (t, ars) = map (prt_arity t) ars;
 
     fun pretty_const (c, ty) = Pretty.block
-      [Pretty.str c, Pretty.str " ::", Pretty.brk 1, prt_typ ty];
+      [Pretty.str c, Pretty.str " ::", Pretty.brk 1, prt_typ_no_tvars ty];
 
     fun prt_axm (a, t) = Pretty.block [Pretty.str (a ^ ":"), Pretty.brk 1, prt_term t];