diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-03-07 10:49:29 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-07 10:49:29 +0100 |
| commit | 56fad034ae2806f33af99ce4a8e3ea3767b85a9c (patch) | |
| tree | 6d503b03eb20708d778e412e01cf419734e9da3b /printing | |
| parent | 00ab0ac91cc595cab1b8be169d086a5783439cbd (diff) | |
| parent | 003031beb002efa703a2f262f9501362d56da720 (diff) | |
Merge PR #6790: Allow universe declarations for [with Definition].
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 8551d040d..2b7d643d6 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -233,9 +233,9 @@ open Decl_kinds hov 2 (keyword "Hint "++ pph ++ opth) let pr_with_declaration pr_c = function - | CWith_Definition (id,c) -> + | CWith_Definition (id,udecl,c) -> let p = pr_c c in - keyword "Definition" ++ spc() ++ pr_lfqid id ++ str" := " ++ p + keyword "Definition" ++ spc() ++ pr_lfqid id ++ pr_universe_decl udecl ++ str" := " ++ p | CWith_Module (id,qid) -> keyword "Module" ++ spc() ++ pr_lfqid id ++ str" := " ++ pr_located pr_qualid qid |