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 ++
 pretyping/typeclasses.mli | 2 ++
 2 files changed, 4 insertions(+)

(limited to 'pretyping')

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 ()
diff --git a/pretyping/typeclasses.mli b/pretyping/typeclasses.mli
index 028e393f2f..0fe22bcce3 100644
--- a/pretyping/typeclasses.mli
+++ b/pretyping/typeclasses.mli
@@ -67,6 +67,8 @@ val class_of_constr : constr -> (rel_context * (typeclass * constr list)) option
   
 val instance_impl : instance -> global_reference
 
+val instance_priority : instance -> int option
+
 val is_class : global_reference -> bool
 val is_instance : global_reference -> bool
 
-- 
cgit v1.2.3