From 4c28e0597067d81f5ee7e8b2b2e668f4d45e973f Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 12 Sep 2018 11:42:32 +0200
Subject: Fix printing of abstract universe contexts.

Due to their representation using names, the instance was not properly
displayed.
---
 kernel/univ.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'kernel')

diff --git a/kernel/univ.ml b/kernel/univ.ml
index 311477daca..8acbeb2d25 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -954,6 +954,8 @@ struct
   let repr (inst, cst) =
     (Array.mapi (fun i l -> Level.var i) inst, cst)
 
+  let pr f ?variance ctx = pr f ?variance (repr ctx)
+
   let instantiate inst (u, cst) =
     assert (Array.length u = Array.length inst);
     subst_instance_constraints inst cst
-- 
cgit v1.2.3