From b185f9917a8b6fcea775925147f24839f81288a7 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Mon, 5 Jan 2015 11:09:56 +0100
Subject: Aligning printing of universe constraints.

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

(limited to 'kernel')

diff --git a/kernel/univ.ml b/kernel/univ.ml
index 6d23d301e5..b78cd6a044 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -1760,7 +1760,7 @@ struct
 
   let pr (univs, cst as ctx) =
     if is_empty ctx then mt() else
-      Instance.pr univs ++ str " |= " ++ v 1 (Constraint.pr cst)
+      Instance.pr univs ++ str " |= " ++ v 0 (Constraint.pr cst)
 
   let hcons (univs, cst) =
     (Instance.hcons univs, hcons_constraints cst)
@@ -1828,7 +1828,7 @@ struct
 
   let pr (univs, cst as ctx) =
     if is_empty ctx then mt() else
-      LSet.pr univs ++ str " |= " ++ v 1 (Constraint.pr cst)
+      LSet.pr univs ++ str " |= " ++ v 0 (Constraint.pr cst)
 
   let constraints (univs, cst) = cst
   let levels (univs, cst) = univs
-- 
cgit v1.2.3