diff options
Diffstat (limited to 'vernac/declareDef.ml')
| -rw-r--r-- | vernac/declareDef.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/vernac/declareDef.ml b/vernac/declareDef.ml index d229973936..5e4f2dcd34 100644 --- a/vernac/declareDef.ml +++ b/vernac/declareDef.ml @@ -8,9 +8,7 @@ (* * (see LICENSE file for the text of the license) *) (************************************************************************) -open Decl_kinds open Declare -open Globnames open Impargs type locality = Discharge | Global of Declare.import_status @@ -49,11 +47,13 @@ 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 - VarRef name + let () = + declare_variable ~name ~kind:Decls.(IsDefinition kind) (SectionLocalDef ce) + in + Names.GlobRef.VarRef name | Global local -> - let kn = declare_constant name ~local (DefinitionEntry ce, IsDefinition kind) in - let gr = ConstRef kn in + let kn = declare_constant ~name ~local ~kind:Decls.(IsDefinition kind) (DefinitionEntry ce) in + let gr = Names.GlobRef.ConstRef kn in let () = Declare.declare_univ_binders gr udecl in gr in |