From 8fbc927ac40cc707b1a940d8339a2a289755d533 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Sat, 14 Mar 2020 16:34:30 -0400
Subject: [declareDef] More consistent handling of universe binders

The only reasons that `prepare_definition` returned a sigma were:
- to obtain the universe binders to be passed to declare
- to obtain the UState.t to be passed to the equations hook

We handle this automatically now; it seems like a reasonably good API
improvement.

However, it is not clear what we do now is right for all cases; must
check.
---
 doc/plugin_tutorial/tuto1/src/simple_declare.ml | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'doc/plugin_tutorial/tuto1/src/simple_declare.ml')

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