diff options
| author | herbelin | 2003-06-10 21:15:09 +0000 |
|---|---|---|
| committer | herbelin | 2003-06-10 21:15:09 +0000 |
| commit | 7f2aa8490291da690d4367a3be795fcbea3f6fdc (patch) | |
| tree | 3a9a6b105e2954896ebbe7658a06e793251c78d8 /kernel | |
| parent | 66c6387589be9d335f701d773debdbc7e10cf9e5 (diff) | |
Simplification case_info
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4124 85f007b7-540e-0410-9357-904b9bb8a0f7
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 *) |