diff options
| author | Matthieu Sozeau | 2014-06-04 15:42:41 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-04 15:48:32 +0200 |
| commit | 2ac8e0edebe0d9a6bde4d997327dbd2ffcde08b6 (patch) | |
| tree | b144dcb1689899b5135289903932b18de55d9904 /printing/ppconstr.ml | |
| parent | 86c6649382bb9e42281ffe956c627c6d3987559b (diff) | |
- Allow parsing of @const@{instance} for specifying universe instances of polymorphic
constants.
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 019fad0ce8..5b6c072839 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -118,8 +118,16 @@ let pr_name = pr_name let pr_qualid = pr_qualid let pr_patvar = pr_id +let pr_glob_sort_instance = function + | GProp -> str "Prop" + | GSet -> str "Set" + | GType u -> + (match u with + | Some u -> str u + | None -> str "Type") + let pr_universe_instance l = - pr_opt (pr_in_comment (prlist_with_sep spc pr_glob_sort)) l + pr_opt (pr_in_comment (prlist_with_sep spc pr_glob_sort_instance)) l let pr_cref ref us = pr_reference ref ++ pr_universe_instance us |