From 88f3b5a441a3aaeb637d0b109544fbe71b7560dd Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Tue, 20 Feb 2018 15:35:25 +0100
Subject: Allow universe declarations for [with Definition].

---
 printing/ppvernac.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'printing')

diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml
index 83cac7ddda..92136df392 100644
--- a/printing/ppvernac.ml
+++ b/printing/ppvernac.ml
@@ -231,9 +231,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
-- 
cgit v1.2.3