diff options
Diffstat (limited to 'library/nameops.ml')
-rw-r--r-- | library/nameops.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index 3b8de17d2..22a21a4d5 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 *) |