diff options
| author | letouzey | 2012-05-29 11:09:19 +0000 |
|---|---|---|
| committer | letouzey | 2012-05-29 11:09:19 +0000 |
| commit | 32d372f83a7797244b4e4d4f0d5791145bc615d1 (patch) | |
| tree | 7d5ebd8cd6021178d55c03a0ac578cbbc3e35f6b /parsing/ppconstr.ml | |
| parent | 6d961ac24305f26e896b602bdabe0e9c3c7cbf05 (diff) | |
No more Univ in grammar.cma
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15385 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/ppconstr.ml')
| -rw-r--r-- | parsing/ppconstr.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index f08ef361df..b64dd6ff87 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -112,12 +112,10 @@ let pr_sep_com sep f c = pr_with_comments (constr_loc c) (sep() ++ f c) let pr_in_comment pr x = str "(* " ++ pr x ++ str " *)" -let pr_universe = Univ.pr_uni - let pr_glob_sort = function | GProp -> str "Prop" | GSet -> str "Set" - | GType u -> hov 0 (str "Type" ++ pr_opt (pr_in_comment pr_universe) u) + | GType u -> hov 0 (str "Type" ++ pr_opt (pr_in_comment (fun x->x)) u) let pr_id = pr_id let pr_name = pr_name |