diff options
Diffstat (limited to 'checker/values.ml')
| -rw-r--r-- | checker/values.ml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/checker/values.ml b/checker/values.ml index dd29f6fbe0..c175aed680 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -13,7 +13,7 @@ To ensure this file is up-to-date, 'make' now compares the md5 of cic.mli with a copy we maintain here: -MD5 7d7963269852d32324e10aa77beb938d checker/cic.mli +MD5 6466d8cc443b5896cb905776df0cc49e checker/cic.mli *) @@ -194,8 +194,7 @@ let v_lazy_constr = (** kernel/declarations *) let v_impredicative_set = v_enum "impr-set" 2 -let v_type_in_type = v_enum "type-in-type" 2 -let v_engagement = v_tuple "eng" [|v_impredicative_set; v_type_in_type|] +let v_engagement = v_impredicative_set let v_pol_arity = v_tuple "polymorphic_arity" [|List(Opt v_level);v_univ|] @@ -214,7 +213,7 @@ let v_projbody = v_constr|] let v_typing_flags = - v_tuple "typing_flags" [|v_bool|] + v_tuple "typing_flags" [|v_bool; v_bool|] let v_cb = v_tuple "constant_body" [|v_section_ctxt; @@ -275,7 +274,7 @@ let v_ind_pack = v_tuple "mutual_inductive_body" v_bool; v_context; Opt v_bool; - v_bool|] + v_typing_flags|] let v_with = Sum ("with_declaration_body",0, |