diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-01-19 17:16:58 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-01-19 17:16:58 +0000 |
| commit | e94b20b3d61ca9d6694f2ec486f1bdd1f502d675 (patch) | |
| tree | ee20236b37e134e3953d370d3526dc6b4043cad0 /test-suite/modules/subtyping.v | |
| parent | d185c837846520db04383f84a65ae13bc2074955 (diff) | |
Prise en compte des univers algébriques dans les types inférés dans
les interfaces de module (bug similaire à #1302 mais pour les
définitions -- au lieu des inductifs)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9505 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/modules/subtyping.v')
| -rw-r--r-- | test-suite/modules/subtyping.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/modules/subtyping.v b/test-suite/modules/subtyping.v index fb3eae3af..2df8e84e5 100644 --- a/test-suite/modules/subtyping.v +++ b/test-suite/modules/subtyping.v @@ -35,3 +35,12 @@ End TT. (* Generates Top.6 <= Top.1 (+ auxiliary constraints for L_rect) *) (* Note: Top.6 <= Top.1 is generated by subtyping on A; subtyping of L follows and has not to be checked *) + + + +(* The same bug as #1302 but for Definition *) +(* Check that inferred algebraic universes in interfaces are considered *) + +Module Type U. Definition A := Type -> Type. End U. +Module M:U. Definition A := Type -> Type. End M. + |