From 7d46a32dc928af64e3e111d6d62caa00f93c427c Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Wed, 18 Mar 2020 05:35:41 -0400
Subject: [declare] Fuse prepare and declare for the non-interactive path.

This will allow to share the definition metadata for example with
obligations; a bit more work is needed to finally move the preparation
of interactive proofs from Proof_global to `prepare_entry`.
---
 doc/plugin_tutorial/tuto1/src/simple_declare.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'doc/plugin_tutorial/tuto1/src')

diff --git a/doc/plugin_tutorial/tuto1/src/simple_declare.ml b/doc/plugin_tutorial/tuto1/src/simple_declare.ml
index a2783d80e8..8c4dc0e8a6 100644
--- a/doc/plugin_tutorial/tuto1/src/simple_declare.ml
+++ b/doc/plugin_tutorial/tuto1/src/simple_declare.ml
@@ -1,7 +1,6 @@
 let edeclare ?hook ~name ~poly ~scope ~kind ~opaque ~udecl ~impargs sigma body tyopt  =
-  let ce = DeclareDef.prepare_definition
-      ~opaque ~poly sigma ~udecl ~types:tyopt ~body in
-  DeclareDef.declare_definition ~name ~scope ~kind ~impargs ?hook ce
+  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
-- 
cgit v1.2.3