Fix #6878: univ undefined for [with Definition] bad instance size.

2 files changed, 9 insertions, 1 deletions

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
diff --git a/test-suite/bugs/closed/6878.v b/test-suite/bugs/closed/6878.v
new file mode 100644
index 000000000..70f1b3127
--- /dev/null
+++ b/test-suite/bugs/closed/6878.v
@@ -0,0 +1,8 @@
+
+Set Universe Polymorphism.
+Module Type T.
+  Axiom foo : Prop.
+End T.
+
+(** Used to anomaly *)
+Fail Module M : T with Definition foo := Type.