aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorGaëtan Gilbert2020-07-02 15:30:07 +0200
committerGaëtan Gilbert2020-07-05 21:03:17 +0200
commit1e92ed4d129aea5ea4e9300a24e1135cc186c341 (patch)
treec78ff50d0d156a54b950aaf7b1a80b36b2e23b14 /test-suite
parentcea10e4e16c05b06693184425dd70ce6e5eba8a8 (diff)
Fix Canonical with universe polymorphism and primitive projection
Perhaps we should thread an evar map with the Var universes added through to cs_pattern_of_constr but that would be significantly more invasive. Fix #12528
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/bugs/closed/bug_12528.v6
1 files changed, 6 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_12528.v b/test-suite/bugs/closed/bug_12528.v
new file mode 100644
index 0000000000..4ab05ac9b8
--- /dev/null
+++ b/test-suite/bugs/closed/bug_12528.v
@@ -0,0 +1,6 @@
+Set Primitive Projections.
+Set Universe Polymorphism.
+Record ptd := Ptd { t : Type ; p : t }.
+Definition type := Ptd Type (unit:Type).
+Definition type' := Ptd Type (p type).
+Canonical type'.