diff options
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 2 |
1 files changed, 2 insertions, 0 deletions
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 () |