diff options
author | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-22 16:51:25 +0200 |
---|---|---|
committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-23 13:29:30 +0200 |
commit | 5af5bff88fa49731acbf24d8a67148e4215446bd (patch) | |
tree | 0bf9e1d1e41f6f2dd4ad63634c45a310210edbef /test-suite/coqchk | |
parent | 26da42bee0b32c0f7316475e64ca2204c740efd2 (diff) |
Fix #7327: coqchk subtyping of polymorphic constants
Diffstat (limited to 'test-suite/coqchk')
-rw-r--r-- | test-suite/coqchk/univ.v | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test-suite/coqchk/univ.v b/test-suite/coqchk/univ.v index fcd740927..43815b61e 100644 --- a/test-suite/coqchk/univ.v +++ b/test-suite/coqchk/univ.v @@ -59,3 +59,23 @@ Module CMP_CON. Definition yo : foo@{U} = foo@{V} := eq_refl. End CMP_CON. + +Set Universe Polymorphism. + +Module POLY_SUBTYP. + + Module Type T. + Axiom foo : Type. + Parameter bar@{u v|u = v} : foo@{u}. + End T. + + Module M. + Axiom foo : Type. + Axiom bar@{u v|u = v} : foo@{v}. + End M. + + Module F (A:T). End F. + + Module X := F M. + +End POLY_SUBTYP. |