From f5ccc82ce8f2db919b288f3a853dbf238615de59 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sun, 22 Nov 2020 11:28:06 +0100
Subject: Fixes another instance of bug #7967: restriction of universes in
 "Context".

---
 test-suite/bugs/closed/bug_7967.v | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'test-suite/bugs')

diff --git a/test-suite/bugs/closed/bug_7967.v b/test-suite/bugs/closed/bug_7967.v
index 2c8855fd54..987a820831 100644
--- a/test-suite/bugs/closed/bug_7967.v
+++ b/test-suite/bugs/closed/bug_7967.v
@@ -1,2 +1,6 @@
 Set Universe Polymorphism.
 Inductive A@{} : Set := B : ltac:(let y := constr:(Type) in exact nat) -> A.
+
+(* A similar bug *)
+Context (C := ltac:(let y := constr:(Type) in exact nat)).
+Check C@{}.
-- 
cgit v1.2.3