diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-15 16:05:03 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-15 16:05:03 +0000 |
| commit | 66139b2e1f66b826dd5dbdb8a9ade64a4d5e11c6 (patch) | |
| tree | 3224a1c72541eb786d6c927fbaab51a44481ce38 /checker/values.ml | |
| parent | 07c80f246315ac314c82d580bf356df3fb8201d8 (diff) | |
Checker: empty sections hardcoded in cb and mind
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16400 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/values.ml')
| -rw-r--r-- | checker/values.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/checker/values.ml b/checker/values.ml index 2e096e2a4..386f85365 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -128,11 +128,11 @@ and v_fix = Tuple ("pfixpoint", [|Tuple ("fix2",[|Array Int;Int|]);v_prec|]) and v_cofix = Tuple ("pcofixpoint",[|Int;v_prec|]) -let v_ndecl = v_tuple "named_declaration" [|v_id;Opt v_constr;v_constr|] let v_rdecl = v_tuple "rel_declaration" [|v_name;Opt v_constr;v_constr|] -let v_nctxt = List v_ndecl let v_rctxt = List v_rdecl +let v_section_ctxt = v_enum "emptylist" 1 + (** kernel/mod_subst *) @@ -181,7 +181,7 @@ let v_cst_def = [|[|Opt Int|]; [|v_cstr_subst|]; [|v_lazy_constr|]|] let v_cb = v_tuple "constant_body" - [|v_nctxt; + [|v_section_ctxt; v_cst_def; v_cst_type; Any; @@ -225,7 +225,7 @@ let v_ind_pack = v_tuple "mutual_inductive_body" v_bool; v_bool; Int; - v_nctxt; + v_section_ctxt; Int; Int; v_rctxt; |