diff options
| author | coq | 2001-05-29 16:11:18 +0000 |
|---|---|---|
| committer | coq | 2001-05-29 16:11:18 +0000 |
| commit | 982812b7e66746d588fc9dcf37da21f891cf8948 (patch) | |
| tree | df82489723d9f4db73fef36568c0abbd3cbb07bd /kernel/term.ml | |
| parent | e4adec22d1525a4eb0b59285dc4c8c7d41d63128 (diff) | |
Facilites pour le debogguage des univers.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1772 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index a1ad328dc3..1f68c1a359 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -42,7 +42,8 @@ let mk_Prop = Prop Null let print_sort = function | Prop Pos -> [< 'sTR "Set" >] | Prop Null -> [< 'sTR "Prop" >] - | Type _ -> [< 'sTR "Type" >] +(* | Type _ -> [< 'sTR "Type" >] *) + | Type u -> [< 'sTR "Type("; pr_uni u; 'sTR ")" >] (********************************************************************) (* type of global reference *) |