From 4e9f73a08e345dec28a2c93b4b3767ebe18605fc Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Thu, 1 Aug 2013 14:43:05 +0000
Subject: Added printing of instance priority to the Print Instances command.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16647 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 printing/prettyp.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'printing/prettyp.ml')

diff --git a/printing/prettyp.ml b/printing/prettyp.ml
index d7d7bd97db..9a084adc48 100644
--- a/printing/prettyp.ml
+++ b/printing/prettyp.ml
@@ -772,7 +772,11 @@ let print_typeclasses () =
 let pr_instance env i =
   (*   gallina_print_constant_with_infos i.is_impl *)
   (* lighter *)
-  print_ref false (instance_impl i)
+  print_ref false (instance_impl i) ++
+  begin match instance_priority i with
+  | None -> mt ()
+  | Some i -> spc () ++ str "|" ++ spc () ++ int i
+  end
 
 let print_all_instances () =
   let env = Global.env () in
-- 
cgit v1.2.3