diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/nameops.ml | 3 | ||||
| -rw-r--r-- | library/nameops.mli | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index 3b8de17d2e..22a21a4d56 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -141,7 +141,8 @@ let pr_lab l = str (Label.to_string l) let default_library = Names.DirPath.initial (* = ["Top"] *) (*s Roots of the space of absolute names *) -let coq_root = Id.of_string "Coq" +let coq_string = "Coq" +let coq_root = Id.of_string coq_string let default_root_prefix = DirPath.empty (* Metavariables *) diff --git a/library/nameops.mli b/library/nameops.mli index 53cc867862..a30aae2e29 100644 --- a/library/nameops.mli +++ b/library/nameops.mli @@ -43,7 +43,8 @@ val pr_lab : Label.t -> Pp.std_ppcmds val default_library : DirPath.t (** This is the root of the standard library of Coq *) -val coq_root : module_ident +val coq_root : module_ident (** "Coq" *) +val coq_string : string (** "Coq" *) (** This is the default root prefix for developments which doesn't mention a root *) |