diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2015-07-15 17:36:58 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2015-07-15 17:36:58 +0200 |
| commit | c57c7edbe517851c7309112f6eb5d8297f03e000 (patch) | |
| tree | 03b6da5a2f3719949e6f293e65ed7d653d3df264 /checker | |
| parent | 44f3c1b1071506bcd98dec4e10675624c0142c21 (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.ml | 2 |
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 = |