From afceace455a4b37ced7e29175ca3424996195f7b Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Tue, 14 Nov 2017 22:36:47 +0100
Subject: [api] Rename `global_reference` to `GlobRef.t` to follow kernel
 style.

In #6092, `global_reference` was moved to `kernel`. It makes sense to
go further and use the current kernel style for names.

This has a good effect on the dependency graph, as some core modules
don't depend on library anymore.

A question about providing equality for the GloRef module remains, as
there are two different notions of equality for constants. In that
sense, `KerPair` seems suspicious and at some point it should be
looked at.
---
 plugins/syntax/nat_syntax.ml | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'plugins/syntax/nat_syntax.ml')

diff --git a/plugins/syntax/nat_syntax.ml b/plugins/syntax/nat_syntax.ml
index ad8b54d4d7..e158e0b516 100644
--- a/plugins/syntax/nat_syntax.ml
+++ b/plugins/syntax/nat_syntax.ml
@@ -16,11 +16,12 @@ let () = Mltop.add_known_module __coq_plugin_name
 (* This file defines the printer for natural numbers in [nat] *)
 
 (*i*)
+open Pp
+open CErrors
+open Names
 open Glob_term
 open Bigint
 open Coqlib
-open Pp
-open CErrors
 (*i*)
 
 (**********************************************************************)
@@ -61,10 +62,10 @@ exception Non_closed_number
 let rec int_of_nat x = DAst.with_val (function
   | GApp (r, [a]) ->
     begin match DAst.get r with
-    | GRef (s,_) when Globnames.eq_gr s glob_S -> add_1 (int_of_nat a)
+    | GRef (s,_) when GlobRef.equal s glob_S -> add_1 (int_of_nat a)
     | _ -> raise Non_closed_number
     end
-  | GRef (z,_) when Globnames.eq_gr z glob_O -> zero
+  | GRef (z,_) when GlobRef.equal z glob_O -> zero
   | _ -> raise Non_closed_number
   ) x
 
-- 
cgit v1.2.3