diff options
| author | Hugo Herbelin | 2015-02-27 14:23:02 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-02-27 16:59:29 +0100 |
| commit | 1388171a48d8e068d5d0ed93b74faa4ac7da5f7f (patch) | |
| tree | 5bfe6521f80fa3b0dc49431aa2e3e34aec77a5bb | |
| parent | 1019a654a8262ee1b8b1e1a7f652a7e3d111d20e (diff) | |
Fixing typo resulting in wrong printing of return clauses for
inductive types with let-in in arity.
| -rw-r--r-- | pretyping/inductiveops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index adf714db35..356a699c66 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -273,7 +273,7 @@ let projection_nparams p = projection_nparams_env (Global.env ()) p let make_case_info env ind style = let (mib,mip) = Inductive.lookup_mind_specif env ind in let ind_tags = - rel_context_tags (List.firstn mip.mind_nrealargs mip.mind_arity_ctxt) in + rel_context_tags (List.firstn mip.mind_nrealdecls mip.mind_arity_ctxt) in let cstr_tags = Array.map2 (fun c n -> let d,_ = decompose_prod_assum c in |