diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-12 15:30:51 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-12 15:30:51 +0000 |
| commit | 74db2b0098893a5912d7480a259ad91664a86120 (patch) | |
| tree | bf9c4fdff014b335c46684ffd211ce496a6f947c /checker/term.ml | |
| parent | dba2ae9fa1eb01d795d36b209aee6045967ba00a (diff) | |
fixed confusion between number of cstr arguments and number of pattern variables (which include let-ins in cstr type)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12864 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/term.ml')
| -rw-r--r-- | checker/term.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/checker/term.ml b/checker/term.ml index d9ecaaea5..35ae1121e 100644 --- a/checker/term.ml +++ b/checker/term.ml @@ -31,10 +31,10 @@ type case_printing = { ind_nargs : int; (* length of the arity of the inductive type *) style : case_style } type case_info = - { ci_ind : inductive; - ci_npar : int; - ci_cstr_nargs : int array; (* number of real args of each constructor *) - ci_pp_info : case_printing (* not interpreted by the kernel *) + { ci_ind : inductive; + ci_npar : int; + ci_cstr_ndecls : int array; (* number of pattern var of each constructor *) + ci_pp_info : case_printing (* not interpreted by the kernel *) } let val_ci = let val_cstyle = val_enum "case_style" 5 in |