From 66dc6ecf0a1765245a6ef3b82921df513bccab94 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 12 Feb 2005 18:23:06 +0000
Subject: Nouvelle mouture Print Canonical Structures

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

diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml
index 50347df033..a358301e5b 100644
--- a/parsing/prettyp.ml
+++ b/parsing/prettyp.ml
@@ -630,7 +630,7 @@ let print_path_between cls clt =
 
 let print_canonical_structures () =
   prlist_with_sep pr_fnl (fun ((r1,r2),o) -> 
-    prterm o.o_DEF ++ str ": " ++ pr_global r1 ++ str " >-> " ++ pr_global r2)
+    pr_global r2 ++ str " <- " ++ pr_global r1 ++ str " ( " ++ prterm o.o_DEF ++ str " )")
     (canonical_structures ())
 
 (*************************************************************************)
-- 
cgit v1.2.3