diff options
| author | letouzey | 2013-08-22 14:29:55 +0000 |
|---|---|---|
| committer | letouzey | 2013-08-22 14:29:55 +0000 |
| commit | c1159f736c8d8f5b95bc53af7614a63f2ab9a86b (patch) | |
| tree | 0302c134e9917fc9b4a1099b0a47e0a173610665 /library | |
| parent | 676f8fac28958d141a73dd56d087ecdbe046ab31 (diff) | |
Less "Coq" strings everywhere
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16725 85f007b7-540e-0410-9357-904b9bb8a0f7
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 *) |