From 82502e77d08fa3b41440f13d3b54eb1b9f1c4929 Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Sun, 22 Apr 2018 15:26:17 +0200 Subject: Fix #7323: coqchk puts polymorphic univs of inductive in global env --- test-suite/coqchk/univ.v | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'test-suite/coqchk') diff --git a/test-suite/coqchk/univ.v b/test-suite/coqchk/univ.v index 43815b61e..216338615 100644 --- a/test-suite/coqchk/univ.v +++ b/test-suite/coqchk/univ.v @@ -79,3 +79,11 @@ Module POLY_SUBTYP. Module X := F M. End POLY_SUBTYP. + +Module POLY_IND. + + Polymorphic Inductive ind@{u v | u < v} : Prop := . + + Polymorphic Definition cst@{u v | v < u} := Prop. + +End POLY_IND. -- cgit v1.2.3