diff options
| author | barras | 2004-09-17 20:28:19 +0000 |
|---|---|---|
| committer | barras | 2004-09-17 20:28:19 +0000 |
| commit | ed29c6bbe9a45e7d3996c230a6cc2bf7b11848f1 (patch) | |
| tree | f898c771227a1e111be1bac0431d42d04b0166f6 /library | |
| parent | 59c2fa12e257ae6087e0580e0d7abca3552421b8 (diff) | |
restructuration des printers: proofs passe avant parsing
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6113 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/nameops.ml | 4 | ||||
| -rw-r--r-- | library/nameops.mli | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/library/nameops.ml b/library/nameops.ml index 8105012592..24499209bb 100644 --- a/library/nameops.ml +++ b/library/nameops.ml @@ -16,6 +16,10 @@ open Names let pr_id id = str (string_of_id id) +let pr_name = function + | Anonymous -> str "_" + | Name id -> pr_id id + let wildcard = id_of_string "_" (* Utilities *) diff --git a/library/nameops.mli b/library/nameops.mli index 8b0f251572..257cedfbbc 100644 --- a/library/nameops.mli +++ b/library/nameops.mli @@ -12,6 +12,8 @@ open Names (* Identifiers and names *) val pr_id : identifier -> Pp.std_ppcmds +val pr_name : name -> Pp.std_ppcmds + val wildcard : identifier val make_ident : string -> int option -> identifier |