aboutsummaryrefslogtreecommitdiffhomepage
path: root/checker
diff options
context:
space:
mode:
authorGravatar Matthieu Sozeau <mattam@mattam.org>2015-07-15 17:36:58 +0200
committerGravatar Matthieu Sozeau <mattam@mattam.org>2015-07-15 17:36:58 +0200
commitc57c7edbe517851c7309112f6eb5d8297f03e000 (patch)
tree03b6da5a2f3719949e6f293e65ed7d653d3df264 /checker
parent44f3c1b1071506bcd98dec4e10675624c0142c21 (diff)
Univs/Inductive: fix typechecking of cases
I was trying to be a bit too clever with not substituting the universe instance everywhere: the constructor type/inductive arity has to be instantiated before instantiate_params runs, which became true only for constructor types since my last commit.
Diffstat (limited to 'checker')
-rw-r--r--checker/inductive.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/inductive.ml b/checker/inductive.ml
index 00d3bc8e1..21b80f323 100644
--- a/checker/inductive.ml
+++ b/checker/inductive.ml
@@ -103,7 +103,7 @@ let instantiate_params full t u args sign =
let full_inductive_instantiate mib u params sign =
let dummy = Prop Null in
- let t = mkArity (sign,dummy) in
+ let t = mkArity (subst_instance_context u sign,dummy) in
fst (destArity (instantiate_params true t u params mib.mind_params_ctxt))
let full_constructor_instantiate ((mind,_),u,(mib,_),params) t =