diff options
| author |  Matej Kosik <matej.kosik@inria.fr> | 2016-10-18 10:58:42 +0200 |
|---|---|---|
| committer | Matej Kosik <matej.kosik@inria.fr> | 2016-10-19 13:48:52 +0200 |
| commit | 7b4dbbb83e3da2fe716dacad627ddd3497653f07 (patch) | |
| tree | 2d3d81fc36bc1180e2244fa9a02b8e7ae8516d2f /engine/namegen.ml | |
| parent | ad81c04a923c594b7a893f08bb5571a6db74c92a (diff) | |
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
Diffstat (limited to 'engine/namegen.ml')
| -rw-r--r-- | engine/namegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/namegen.ml b/engine/namegen.ml index 1497dbda8..8ab2fdd82 100644 --- a/engine/namegen.ml +++ b/engine/namegen.ml @@ -170,7 +170,7 @@ let it_mkLambda_or_LetIn_name env b hyps = (* Looks for next "good" name by lifting subscript *) let next_ident_away_from id bad = - let rec name_rec id = if bad id then name_rec (lift_subscript id) else id in + let rec name_rec id = if bad id then name_rec (increment_subscript id) else id in name_rec id (* Restart subscript from x0 if name starts with xN, or x00 if name |