diff options
| author | Pierre-Marie Pédrot | 2020-04-16 21:59:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-04-16 21:59:37 +0200 |
| commit | 6624276dce18978f5b9bd9c592a92195bccfb410 (patch) | |
| tree | d6480a530aca8193a4ac9d27aaf1edb25b4192fe /doc/plugin_tutorial/tuto1/src/simple_declare.ml | |
| parent | 4bf8191357007fac41199d91c7f7a2c4870f323f (diff) | |
| parent | c3641353b05d9a6d31f52d07127d0626ff370750 (diff) | |
Merge PR #11861: [declare] [rewrite] Use high-level declare API
Reviewed-by: SkySkimmer
Ack-by: herbelin
Reviewed-by: ppedrot
Diffstat (limited to 'doc/plugin_tutorial/tuto1/src/simple_declare.ml')
| -rw-r--r-- | doc/plugin_tutorial/tuto1/src/simple_declare.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/doc/plugin_tutorial/tuto1/src/simple_declare.ml b/doc/plugin_tutorial/tuto1/src/simple_declare.ml index 8c4dc0e8a6..b94b1fc657 100644 --- a/doc/plugin_tutorial/tuto1/src/simple_declare.ml +++ b/doc/plugin_tutorial/tuto1/src/simple_declare.ml @@ -1,8 +1,6 @@ -let edeclare ?hook ~name ~poly ~scope ~kind ~opaque ~udecl ~impargs sigma body tyopt = - DeclareDef.declare_definition ~name ~scope ~kind ~impargs ?hook - ~opaque ~poly ~udecl ~types:tyopt ~body sigma - 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 ~impargs:[] ~udecl sigma body None + let scope = DeclareDef.Global Declare.ImportDefaultBehavior in + let kind = Decls.(IsDefinition Definition) in + DeclareDef.declare_definition ~name ~scope ~kind ~impargs:[] ~udecl + ~opaque:false ~poly ~types:None ~body sigma |