From 650c65af484c45f4e480252b55d148bcc198be6c Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Tue, 25 Sep 2018 14:33:46 +0200
Subject: [kernel] Remove section paths from `KerName.t`

We remove sections paths from kernel names. This is a cleanup as most of the times this information was unused. This implies a change in the Kernel API and small user visible changes with regards to tactic qualification. In particular, the removal of "global discharge" implies a large cleanup of code.

Additionally, the change implies that some machinery in `library` and `safe_typing` must now take an `~in_section` parameter, as to provide the information whether a section is open or not.
---
 engine/namegen.ml   | 4 ++--
 engine/univNames.ml | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'engine')

diff --git a/engine/namegen.ml b/engine/namegen.ml
index 2a59b914db..7ce759a3fb 100644
--- a/engine/namegen.ml
+++ b/engine/namegen.ml
@@ -76,9 +76,9 @@ let is_imported_ref = function
   | VarRef _ -> false
   | IndRef (kn,_)
   | ConstructRef ((kn,_),_) ->
-      let (mp,_,_) = MutInd.repr3 kn in is_imported_modpath mp
+      let mp = MutInd.modpath kn in is_imported_modpath mp
   | ConstRef kn ->
-      let (mp,_,_) = Constant.repr3 kn in is_imported_modpath mp
+      let mp = Constant.modpath kn in is_imported_modpath mp
 
 let is_global id =
   try
diff --git a/engine/univNames.ml b/engine/univNames.ml
index 70cdd3a2db..e89dcedb9c 100644
--- a/engine/univNames.ml
+++ b/engine/univNames.ml
@@ -69,7 +69,7 @@ let discharge_ubinder (_,(ref,l)) =
       with Not_found -> name_universe lvl
   in
   let l = List.map map sec_inst @ l in
-  Some (Lib.discharge_global ref, l)
+  Some (ref, l)
 
 let ubinder_obj : GlobRef.t * Id.t list -> Libobject.obj =
   let open Libobject in
-- 
cgit v1.2.3