From 7b4dbbb83e3da2fe716dacad627ddd3497653f07 Mon Sep 17 00:00:00 2001
From: Matej Kosik
Date: Tue, 18 Oct 2016 10:58:42 +0200
Subject: CLEANUP: rename "Nameops.lift_subscript" to
 "Nameops.increment_subscript".

The word "increment" is more appropriate in this case than "lifting".
The world "lifting", in computer science, usually denotes something else:

  https://en.wikipedia.org/wiki/Lambda_lifting
---
 library/nameops.ml  | 2 +-
 library/nameops.mli | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'library')

diff --git a/library/nameops.ml b/library/nameops.ml
index 71405d0240..f3c2570011 100644
--- a/library/nameops.ml
+++ b/library/nameops.ml
@@ -69,7 +69,7 @@ let root_of_id id =
 
 (* Rem: semantics is a bit different, if an ident starts with toto00 then
   after successive renamings it comes to toto09, then it goes on with toto10 *)
-let lift_subscript id =
+let increment_subscript id =
   let id = Id.to_string id in
   let len = String.length id in
   let rec add carrypos =
diff --git a/library/nameops.mli b/library/nameops.mli
index 39ce409bcf..a1ea0231f8 100644
--- a/library/nameops.mli
+++ b/library/nameops.mli
@@ -21,9 +21,9 @@ val root_of_id : Id.t -> Id.t (** remove trailing digits, ' and _ *)
 val add_suffix : Id.t -> string -> Id.t
 val add_prefix : string -> Id.t -> Id.t
 
-val has_subscript    : Id.t -> bool
-val lift_subscript   : Id.t -> Id.t
-val forget_subscript : Id.t -> Id.t
+val has_subscript       : Id.t -> bool
+val increment_subscript : Id.t -> Id.t
+val forget_subscript    : Id.t -> Id.t
 
 val out_name : Name.t -> Id.t
 (** [out_name] associates [id] to [Name id]. Raises [Failure "Nameops.out_name"]
-- 
cgit v1.2.3