summaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/4363.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/bugs/closed/4363.v')
-rw-r--r--test-suite/bugs/closed/4363.v9
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/4363.v b/test-suite/bugs/closed/4363.v
new file mode 100644
index 00000000..9895548c
--- /dev/null
+++ b/test-suite/bugs/closed/4363.v
@@ -0,0 +1,9 @@
+Set Printing Universes.
+Definition foo : Type.
+Proof.
+ assert (H : Set) by abstract (assert Type by abstract exact Type using bar; exact nat).
+ exact bar.
+Defined. (* Toplevel input, characters 0-8:
+Error:
+The term "(fun _ : Set => bar) foo_subproof" has type
+"Type@{Top.2}" while it is expected to have type "Type@{Top.1}". *)