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 | |
| parent | 66c6387589be9d335f701d773debdbc7e10cf9e5 (diff) | |
Simplification case_info
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4124 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 } |