ADD: Names.Name.is_{anonymous,name}

Two new (trivial) functions were added:

  Names.Name.is_anonymous : Names.Name.t -> bool
  Names.Name.is_name : Names.Name.t -> bool

They enable us to write a more compact code.
(example: commit "99633f4" in "relation-extraction" module of "coq-contribs").

1 files changed, 6 insertions, 0 deletions

diff --git a/kernel/names.mli b/kernel/names.mli
index 40f96813f..6380b17fb 100644
--- a/kernel/names.mli
+++ b/kernel/names.mli
@@ -68,6 +68,12 @@ sig
   type t = Anonymous     (** anonymous identifier *)
 	 | Name of Id.t  (** non-anonymous identifier *)
 
+  val is_anonymous : t -> bool
+  (** Return [true] iff a given name is [Anonymous]. *)
+
+  val is_name : t -> bool
+  (** Return [true] iff a given name is [Name _]. *)
+
   val compare : t -> t -> int
   (** Comparison over names. *)