diff options
| -rw-r--r-- | kernel/term.ml | 3 | ||||
| -rw-r--r-- | kernel/term.mli | 3 | ||||
| -rw-r--r-- | pretyping/inductiveops.ml | 5 |
3 files changed, 4 insertions, 7 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index f53f28bbba..f9a1bed147 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -25,8 +25,7 @@ type metavariable = int type pattern_source = DefaultPat of int | RegularPat type case_style = LetStyle | IfStyle | MatchStyle | RegularStyle type case_printing = - { cnames : identifier array; - ind_nargs : int; (* number of real args of the inductive type *) + { ind_nargs : int; (* number of real args of the inductive type *) style : case_style; source : pattern_source array } type case_info = diff --git a/kernel/term.mli b/kernel/term.mli index 5f3807605e..1e7a6e08e0 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -42,8 +42,7 @@ type metavariable = int type pattern_source = DefaultPat of int | RegularPat type case_style = LetStyle | IfStyle | MatchStyle | RegularStyle type case_printing = - { cnames : identifier array; - ind_nargs : int; (* number of real args of the inductive type *) + { ind_nargs : int; (* number of real args of the inductive type *) style : case_style; source : pattern_source array } (* the integer is the number of real args, needed for reduction *) diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 2da3748d5d..a64c553899 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -88,10 +88,9 @@ let mis_constr_nargs_env env (kn,i) = let make_case_info env ind style pats_source = let (mib,mip) = Inductive.lookup_mind_specif env ind in let print_info = - { cnames = mip.mind_consnames; - ind_nargs = mip.mind_nrealargs; + { ind_nargs = mip.mind_nrealargs; style = style; - source =pats_source } in + source = pats_source } in { ci_ind = ind; ci_npar = mip.mind_nparams; ci_pp_info = print_info } |