From 982812b7e66746d588fc9dcf37da21f891cf8948 Mon Sep 17 00:00:00 2001
From: coq
Date: Tue, 29 May 2001 16:11:18 +0000
Subject: Facilites pour le debogguage des univers.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1772 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 syntax/PPConstr.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'syntax')

diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v
index 8590ee7c18..436b2b8136 100755
--- a/syntax/PPConstr.v
+++ b/syntax/PPConstr.v
@@ -43,7 +43,7 @@ Syntax constr
     prop [ Prop ] -> ["Prop"]
   | set  [ Set ]  -> ["Set"]
   | type [ Type ] -> ["Type"]
-  | type_sp [ << (TYPE ($PATH $sp) ($NUM $n)) >> ] -> ["Type"]
+  | type_sp [ << (TYPE $id) >> ] -> ["Type" $id]
 (* Note: Atomic constants (Nvar, CONST, MUTIND, MUTCONSTRUCT) are printed in
    Printer to know if they must be qualified or not (and previously to
    deal with the duality CCI/FW) *)
-- 
cgit v1.2.3