aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel
diff options
context:
space:
mode:
authorGravatar Amin Timany <amintimany@gmail.com>2017-04-04 11:54:37 +0200
committerGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2017-06-16 04:45:19 +0200
commit34c1fee1c980b433b069a59f408792142ba00f6e (patch)
tree3f783b1eabe02bcb17b375ff61231d4e793c162c /kernel
parent47e010c2dd0ab6370704d8ab24552753e4e1b1dc (diff)
Correct subtyping check for constructors
Diffstat (limited to 'kernel')
-rw-r--r--kernel/indtypes.ml2
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