diff options
| author | Emilio Jesus Gallego Arias | 2020-05-15 02:42:38 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-06-26 14:38:10 +0200 |
| commit | 1f121ebf2990dc25899f2f3eb138eddd147483cf (patch) | |
| tree | 4986eb05a43c4912f0b85fae555c48c09fedee89 /plugins/ltac/rewrite.ml | |
| parent | 671004aac9f9d3b70ef41f81e7b3ea8f190971ec (diff) | |
[declare] Refactor constant information into a record.
This improves the interface, and allows even more sealing of the API.
This is yet work in progress.
Diffstat (limited to 'plugins/ltac/rewrite.ml')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index 914dc96648..67d09acfda 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -1902,8 +1902,9 @@ let declare_projection name instance_id r = let types = Some (it_mkProd_or_LetIn typ ctx) in let kind, opaque, scope = Decls.(IsDefinition Definition), false, Declare.Global Declare.ImportDefaultBehavior in let impargs, udecl = [], UState.default_univ_decl in + let info = Declare.CInfo.make ~scope ~kind ~opaque ~impargs ~udecl ~poly () in let _r : GlobRef.t = - Declare.declare_definition ~name ~scope ~kind ~opaque ~impargs ~udecl ~poly ~types ~body sigma + Declare.declare_definition ~name ~info ~types ~body sigma in () let build_morphism_signature env sigma m = |