diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/inductiveops.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 813a6a2699..f8f0e45bc3 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -116,6 +116,7 @@ let make_case_info env ind style pats_source = source = pats_source } in { ci_ind = ind; ci_npar = mib.mind_nparams; + ci_cstr_nargs = mip.mind_consnrealargs; ci_pp_info = print_info } let make_default_case_info env style ind = |