diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-03-09 10:27:49 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-09 10:27:49 +0100 |
commit | d4a4baddad7a58ba84638215d2c4e2d079f4779c (patch) | |
tree | e6a112f4a25f8e58576cff490f43acedfcae8d5c /kernel | |
parent | fd852113ea205720a9394c27989acaac408f7643 (diff) | |
parent | a7dc1040e4fbd3e996f411f6c0e46e74cae8c93b (diff) |
Merge PR #6747: Relax conversion of constructors according to the pCuIC model
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/reduction.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index e9be1b35d..b3e689414 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -269,8 +269,9 @@ let convert_constructors_gen cmp_instances cmp_cumul (mind, ind, cns) nargs u1 u if not (Int.equal num_cnstr_args nargs) then cmp_instances u1 u2 s else - let csts = get_cumulativity_constraints CONV cumi u1 u2 in - cmp_cumul csts s + (** By invariant, both constructors have a common supertype, + so they are convertible _at that type_. *) + s let convert_constructors ctor nargs u1 u2 (s, check) = convert_constructors_gen (check.compare_instances ~flex:false) check.compare_cumul_instances |