From 01cf21509667263c2067cb87e2b2f604c4f9cb1e Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net>
Date: Thu, 1 Mar 2018 14:32:04 +0100
Subject: Fix #6878: univ undefined for [with Definition] bad instance size.

---
 kernel/uGraph.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/uGraph.ml')

diff --git a/kernel/uGraph.ml b/kernel/uGraph.ml
index f1e8d1031..5dca69c16 100644
--- a/kernel/uGraph.ml
+++ b/kernel/uGraph.ml
@@ -833,7 +833,7 @@ let sort_universes g =
 (** Subtyping of polymorphic contexts *)
 
 let check_subtype univs ctxT ctx =
-  if AUContext.size ctx == AUContext.size ctx then
+  if AUContext.size ctxT == AUContext.size ctx then
     let (inst, cst) = UContext.dest (AUContext.repr ctx) in
     let cstT = UContext.constraints (AUContext.repr ctxT) in
     let push accu v = add_universe v false accu in
-- 
cgit v1.2.3