diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/term.ml | 3 | ||||
| -rw-r--r-- | kernel/term.mli | 3 |
2 files changed, 2 insertions, 4 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 *) |