diff options
| author | Gaëtan Gilbert | 2019-07-03 09:54:31 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-07-03 09:54:31 +0200 |
| commit | 73999ad6ba6c33783f27ffc705930cbc5c745728 (patch) | |
| tree | d2d12c00ef94e941bb3392ef119329f9d44d010b /vernac/declareDef.ml | |
| parent | 0cc7e942cd04f7fd28336045e43345b47a48b7a5 (diff) | |
| parent | 62567575f4639aad44de93a88d9cc425a11d4a9e (diff) | |
Merge PR #10419: [api] Refactor most of `Decl_kinds`
Reviewed-by: SkySkimmer
Ack-by: herbelin
Diffstat (limited to 'vernac/declareDef.ml')
| -rw-r--r-- | vernac/declareDef.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vernac/declareDef.ml b/vernac/declareDef.ml index d229973936..4dcb3db63b 100644 --- a/vernac/declareDef.ml +++ b/vernac/declareDef.ml @@ -8,7 +8,6 @@ (* * (see LICENSE file for the text of the license) *) (************************************************************************) -open Decl_kinds open Declare open Globnames open Impargs @@ -49,10 +48,11 @@ let declare_definition ~name ~scope ~kind ?hook_data udecl ce imps = let fix_exn = Future.fix_exn_of ce.Proof_global.proof_entry_body in let gr = match scope with | Discharge -> - let _ = declare_variable name (Lib.cwd(), SectionLocalDef ce, IsDefinition kind) in + let _ : Libobject.object_name = + declare_variable ~name ~kind:Decls.(IsDefinition kind) (Lib.cwd(), SectionLocalDef ce) in VarRef name | Global local -> - let kn = declare_constant name ~local (DefinitionEntry ce, IsDefinition kind) in + let kn = declare_constant ~name ~local ~kind:Decls.(IsDefinition kind) (DefinitionEntry ce) in let gr = ConstRef kn in let () = Declare.declare_univ_binders gr udecl in gr |