diff options
| author | Matthieu Sozeau | 2015-07-16 16:40:25 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-07-16 16:42:48 +0200 |
| commit | ebb53e68cdc935a85c4da10852be4f7f3b492ee2 (patch) | |
| tree | d2ce0abd3158e90aaf8076e13e57b436f4ea4b68 /kernel/univ.ml | |
| parent | 3bcc96d5ab6571a7810b68c340af7aa195ef76f4 (diff) | |
Modules: fix bug #4294
We were throwing away constraints from 'with Definition' in module
type ascriptions.
Diffstat (limited to 'kernel/univ.ml')
| -rw-r--r-- | kernel/univ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 1d82be63b9..336cdb653e 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -577,7 +577,7 @@ struct let is_type0m x = equal type0m x let is_type0 x = equal type0 x - (* Returns the formal universe that lies juste above the universe variable u. + (* Returns the formal universe that lies just above the universe variable u. Used to type the sort u. *) let super l = if is_small l then type1 |