diff options
| author | Emilio Jesus Gallego Arias | 2019-10-25 00:30:07 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-10-25 02:37:01 +0200 |
| commit | 11fb93285b2e7c528d8abe7da5924d84e0a97002 (patch) | |
| tree | 83272bccea6f3d1d522efedb229f23a680451487 /vernac/comDefinition.ml | |
| parent | 0508f7b0fba0582c38129a2787965c99a15eb1c7 (diff) | |
[declare] Generalize kind type on declareDef
This is useful to remove some duplicate bits in other declare files.
Diffstat (limited to 'vernac/comDefinition.ml')
| -rw-r--r-- | vernac/comDefinition.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/vernac/comDefinition.ml b/vernac/comDefinition.ml index 9745358ba2..5b3f15a08c 100644 --- a/vernac/comDefinition.ml +++ b/vernac/comDefinition.ml @@ -104,4 +104,5 @@ let do_definition ~program_mode ?hook ~name ~scope ~poly ~kind univdecl bl red_o let ce = check_definition ~program_mode def in let uctx = Evd.evar_universe_context evd in let hook_data = Option.map (fun hook -> hook, uctx, []) hook in + let kind = Decls.IsDefinition kind in ignore(DeclareDef.declare_definition ~name ~scope ~kind ?hook_data (Evd.universe_binders evd) ce imps) |