diff options
Diffstat (limited to 'toplevel/classes.ml')
| -rw-r--r-- | toplevel/classes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index 3f56f80dc8..e4064049eb 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -53,12 +53,12 @@ let declare_class g = Pp.str"Unsupported class type, only constants and inductives are allowed") (** TODO: add subinstances *) -let existing_instance glob g = +let existing_instance glob g pri = let c = global g in let instance = Typing.type_of (Global.env ()) Evd.empty (constr_of_global c) in let _, r = decompose_prod_assum instance in match class_of_constr r with - | Some (_, (tc, _)) -> add_instance (new_instance tc None glob c) + | Some (_, (tc, _)) -> add_instance (new_instance tc pri glob c) | None -> user_err_loc (loc_of_reference g, "declare_instance", Pp.str "Constant does not build instances of a declared type class.") |