aboutsummaryrefslogtreecommitdiff
path: root/vernac/declareDef.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-07-04 10:27:35 +0200
committerEmilio Jesus Gallego Arias2019-07-04 10:27:35 +0200
commit1c9aa339042030f756d1957abed7d3b698ff83f5 (patch)
treeea8da28bdd5b230974cdf3c3fa35fbd9d411963d /vernac/declareDef.ml
parenta661aadbc7120b93ccf8507c0173ffd6cfa3a0f8 (diff)
parent1cc661d18f67f71a494b525b1f82fd9133ee5a3c (diff)
Merge PR #10461: Simplify Declare.declare_variable
Reviewed-by: ejgallego Reviewed-by: maximedenes Reviewed-by: ppedrot
Diffstat (limited to 'vernac/declareDef.ml')
-rw-r--r--vernac/declareDef.ml5
1 files changed, 3 insertions, 2 deletions
diff --git a/vernac/declareDef.ml b/vernac/declareDef.ml
index 4dcb3db63b..69338c0ba6 100644
--- a/vernac/declareDef.ml
+++ b/vernac/declareDef.ml
@@ -48,8 +48,9 @@ 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 _ : Libobject.object_name =
- declare_variable ~name ~kind:Decls.(IsDefinition kind) (Lib.cwd(), SectionLocalDef ce) in
+ let () =
+ declare_variable ~name ~kind:Decls.(IsDefinition kind) (SectionLocalDef ce)
+ in
VarRef name
| Global local ->
let kn = declare_constant ~name ~local ~kind:Decls.(IsDefinition kind) (DefinitionEntry ce) in