From 0c94de1f8c598c1869f71fee86bdbe4f0000a502 Mon Sep 17 00:00:00 2001
From: Amin Timany
Date: Thu, 4 May 2017 19:12:45 +0200
Subject: Add printing of cumulativity in inductive types

---
 printing/printer.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'printing/printer.ml')

diff --git a/printing/printer.ml b/printing/printer.ml
index c27a9b009d..1d7b7cff0f 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -998,6 +998,11 @@ let pr_assumptionset env s =
 let xor a b = 
   (a && not b) || (not a && b)
 
+let pr_cumulative p b =
+  if p then
+    if b then str "Cumulative " else str "NonCumulative "
+  else str ""
+
 let pr_polymorphic b = 
   let print = xor (Flags.is_universe_polymorphism ()) b in
   if print then
-- 
cgit v1.2.3