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
---
 pretyping/typeclasses.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'pretyping/typeclasses.ml')

diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml
index 6da6624228..9046be4d27 100644
--- a/pretyping/typeclasses.ml
+++ b/pretyping/typeclasses.ml
@@ -71,6 +71,8 @@ type instances = (instance Refmap.t) Refmap.t
 
 let instance_impl is = is.is_impl
 
+let instance_priority is = is.is_pri
+
 let new_instance cl pri glob impl =
   let global =
     if glob then Lib.sections_depth ()
-- 
cgit v1.2.3