diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2018-03-08 07:20:32 -0300 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2018-03-08 07:40:27 -0300 |
| commit | d3f88e4e3aaf346f88801737c9145fe114f4942b (patch) | |
| tree | 4ba9dcda1eb5818e204712aa0169e967a59cc1cf /checker | |
| parent | fd2e9fd5f859f729765706f1f56df0fa080c0513 (diff) | |
Update checker to reflect rule on constructors of polymorphic inductive types
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/reduction.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index 67d00b21d..97255dd49 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -201,7 +201,9 @@ let convert_constructors if not (num_cnstr_args = sv1 && num_cnstr_args = sv2) then convert_universes univs u1 u2 else - convert_inductive_instances CONV cumi u1 u2 univs + (** By invariant, both constructors have a common supertype, + so they are convertible _at that type_. *) + () (* Convertibility of sorts *) |