diff options
| author | Pierre-Marie Pédrot | 2019-06-24 13:24:05 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-25 17:51:01 +0200 |
| commit | 803c1dbf2de4e4fe1e447a69b9e5c48d19a72f5f (patch) | |
| tree | 14a3c6edead32f558a7703313413565483b9ba8c /vernac/classes.ml | |
| parent | 82bccc5d62cbdcf0d79d8a85c98ca19823a33629 (diff) | |
Remove the internal_flag argument from Declare API.
It was never used actually.
Diffstat (limited to 'vernac/classes.ml')
| -rw-r--r-- | vernac/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index 8addfa054e..35108744cd 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -337,7 +337,7 @@ let do_declare_instance sigma ~global ~poly k u ctx ctx' pri decl imps subst id let (_, ty_constr) = instance_constructor (k,u) subst in let termtype = it_mkProd_or_LetIn ty_constr (ctx' @ ctx) in let sigma, entry = DeclareDef.prepare_parameter ~allow_evars:false ~poly sigma decl termtype in - let cst = Declare.declare_constant ~internal:Declare.InternalTacticRequest id + let cst = Declare.declare_constant id (Declare.ParameterEntry entry, Decl_kinds.IsAssumption Decl_kinds.Logical) in Declare.declare_univ_binders (ConstRef cst) (Evd.universe_binders sigma); instance_hook pri global imps (ConstRef cst) |