diff options
| author |  Amin Timany <amintimany@gmail.com> | 2017-04-04 11:54:37 +0200 |
|---|---|---|
| committer |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-06-16 04:45:19 +0200 |
| commit | 34c1fee1c980b433b069a59f408792142ba00f6e (patch) | |
| tree | 3f783b1eabe02bcb17b375ff61231d4e793c162c /kernel/indtypes.ml | |
| parent | 47e010c2dd0ab6370704d8ab24552753e4e1b1dc (diff) | |
Correct subtyping check for constructors
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 91e6ec285..17ce5483c 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -375,7 +375,7 @@ let typecheck_inductive env mie = match arity with | RegularArity (_, full_arity, _) -> check_subtyping_arity_constructor envsb dosubst full_arity true; - Array.iter (fun cnt -> check_subtyping_arity_constructor envsb dosubst cnt true) lc + Array.iter (fun cnt -> check_subtyping_arity_constructor envsb dosubst cnt false) lc | TemplateArity _ -> () (* TODO: When disabling template polumorphism raise anomaly if this constructor is not removed from the code base *) ) inds |