diff options
| author | Pierre-Marie Pédrot | 2018-05-18 15:51:20 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-05-18 15:51:20 +0200 |
| commit | a0da3a68d12141ba226ce94027b90a01389099d0 (patch) | |
| tree | 418ccf3d1b723555bd45ecb647823a5af851097e /printing/ppconstr.ml | |
| parent | 5281317cb558f2b9aa6f854b9c7aeb617beba8e6 (diff) | |
| parent | a47bd32c261aa1ba6e30ef1b4d08cfc2746ce20f (diff) | |
Merge PR #6965: [api] Move universe syntax to `Glob_term`
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 412a1cbb41..60268c9de6 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -170,13 +170,13 @@ let tag_var = tag Tag.variable let pr_univ_annot pr x = str "@{" ++ pr x ++ str "}" - let pr_glob_sort = function + let pr_glob_sort = let open Glob_term in function | GProp -> tag_type (str "Prop") | GSet -> tag_type (str "Set") | GType [] -> tag_type (str "Type") | GType u -> hov 0 (tag_type (str "Type") ++ pr_univ_annot pr_univ u) - let pr_glob_level = function + let pr_glob_level = let open Glob_term in function | GProp -> tag_type (str "Prop") | GSet -> tag_type (str "Set") | GType UUnknown -> tag_type (str "Type") @@ -199,7 +199,7 @@ let tag_var = tag Tag.variable let pr_qualid = pr_qualid let pr_patvar = pr_id - let pr_glob_sort_instance = function + let pr_glob_sort_instance = let open Glob_term in function | GProp -> tag_type (str "Prop") | GSet -> |