diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2016-03-14 11:14:44 +0100 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2016-03-14 11:40:50 +0100 |
commit | 1b984a697076aae9bbdb96efbecbbbec274cbf2a (patch) | |
tree | ee9bb4c1e46fc2437a7e1a3a2cf7d1580fc49160 | |
parent | fc7264feee8ee62aeda8af4d756deb009f29fc2b (diff) |
Typeclasses: respect Declare Instance priority
-rw-r--r-- | toplevel/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index 898ef0d9e..0a83c49c8 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -198,7 +198,7 @@ let new_instance ?(abstract=false) ?(global=false) poly ctx (instid, bk, cl) pro (None,poly,(termtype,ctx),None), Decl_kinds.IsAssumption Decl_kinds.Logical) in Universes.register_universe_binders (ConstRef cst) pl; - instance_hook k None global imps ?hook (ConstRef cst); id + instance_hook k pri global imps ?hook (ConstRef cst); id end else ( let props = |