aboutsummaryrefslogtreecommitdiff
path: root/doc/plugin_tutorial/tuto1
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2020-03-02 01:00:56 -0500
committerEmilio Jesus Gallego Arias2020-03-19 17:18:07 -0400
commit069304b4e3ba75c54e372615bf7bb0ee2a103b5d (patch)
tree3b959be77f58ec8c1550310983ff592f9f6fd33c /doc/plugin_tutorial/tuto1
parent9f680f776140c8b3b8f79013262d5bd73761d571 (diff)
[declare] Bring more consistency to parameters using labels
Most of the parameters were named, we fix the remaining cases.
Diffstat (limited to 'doc/plugin_tutorial/tuto1')
-rw-r--r--doc/plugin_tutorial/tuto1/src/simple_declare.ml10
1 files changed, 5 insertions, 5 deletions
diff --git a/doc/plugin_tutorial/tuto1/src/simple_declare.ml b/doc/plugin_tutorial/tuto1/src/simple_declare.ml
index 307214089f..2fdca15552 100644
--- a/doc/plugin_tutorial/tuto1/src/simple_declare.ml
+++ b/doc/plugin_tutorial/tuto1/src/simple_declare.ml
@@ -1,12 +1,12 @@
-let edeclare ?hook ~name ~poly ~scope ~kind ~opaque sigma udecl body tyopt imps =
+let edeclare ?hook ~name ~poly ~scope ~kind ~opaque ~udecl ~impargs sigma body tyopt =
let sigma, ce = DeclareDef.prepare_definition ~allow_evars:false
- ~opaque ~poly sigma udecl ~types:tyopt ~body in
+ ~opaque ~poly sigma ~udecl ~types:tyopt ~body in
let uctx = Evd.evar_universe_context sigma in
- let ubinders = Evd.universe_binders sigma in
+ let ubind = Evd.universe_binders sigma in
let hook_data = Option.map (fun hook -> hook, uctx, []) hook in
- DeclareDef.declare_definition ~name ~scope ~kind ubinders ce imps ?hook_data
+ DeclareDef.declare_definition ~name ~scope ~kind ~ubind ce ~impargs ?hook_data
let declare_definition ~poly name sigma body =
let udecl = UState.default_univ_decl in
edeclare ~name ~poly ~scope:(DeclareDef.Global Declare.ImportDefaultBehavior)
- ~kind:Decls.(IsDefinition Definition) ~opaque:false sigma udecl body None []
+ ~kind:Decls.(IsDefinition Definition) ~opaque:false ~impargs:[] ~udecl sigma body None