aboutsummaryrefslogtreecommitdiff
path: root/kernel/names.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-11-21 15:38:39 +0100
committerEmilio Jesus Gallego Arias2019-11-21 15:38:39 +0100
commitd016f69818b30b75d186fb14f440b93b0518fc66 (patch)
tree32cd948273f79a2c01ad27b4ed0244ea60d7e2f9 /kernel/names.ml
parentb680b06b31c27751a7d551d95839aea38f7fbea1 (diff)
[coq] Untabify the whole ML codebase.
We also remove trailing whitespace. Script used: ```bash for i in `find . -name '*.ml' -or -name '*.mli' -or -name '*.mlg'`; do expand -i "$i" | sponge "$i"; sed -e's/[[:space:]]*$//' -i.bak "$i"; done ```
Diffstat (limited to 'kernel/names.ml')
-rw-r--r--kernel/names.ml8
1 files changed, 4 insertions, 4 deletions
diff --git a/kernel/names.ml b/kernel/names.ml
index b755ff0e08..148cc352f1 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -83,7 +83,7 @@ end
module Name =
struct
type t = Anonymous (** anonymous identifier *)
- | Name of Id.t (** non-anonymous identifier *)
+ | Name of Id.t (** non-anonymous identifier *)
let mk_name id =
Name id
@@ -333,7 +333,7 @@ module ModPath = struct
module Self_Hashcons = struct
type t = module_path
type u = (DirPath.t -> DirPath.t) * (MBId.t -> MBId.t) *
- (string -> string)
+ (string -> string)
let rec hashcons (hdir,huniqid,hstr as hfuns) = function
| MPfile dir -> MPfile (hdir dir)
| MPbound m -> MPbound (huniqid m)
@@ -727,8 +727,8 @@ type 'a tableKey =
| RelKey of Int.t
type inv_rel_key = int (* index in the [rel_context] part of environment
- starting by the end, {\em inverse}
- of de Bruijn indice *)
+ starting by the end, {\em inverse}
+ of de Bruijn indice *)
let eq_table_key f ik1 ik2 =
if ik1 == ik2 then true