diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-01-29 17:01:20 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-02-16 13:27:23 +0100 |
commit | 4d17489394dbf6008e5abd5b8d075f08280cd38c (patch) | |
tree | cdc87208b35c927177e8b1f8978687414f191896 /checker/values.ml | |
parent | 8dd6d091ffbfa237f7266eeca60187263a9b521f (diff) |
Extrude monomorphic universe contexts from with Definition constraints.
We defer the computation of the universe quantification to the upper layer,
outside of the kernel.
Diffstat (limited to 'checker/values.ml')
-rw-r--r-- | checker/values.ml | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/checker/values.ml b/checker/values.ml index 55e1cdb6f..283adca03 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 483493b20fe91cc1bea4350a2db2f82d checker/cic.mli +MD5 79ed7b5c069b1994bf1a8d2cec22bdce checker/cic.mli *) @@ -295,16 +295,11 @@ let v_ind_pack = v_tuple "mutual_inductive_body" Opt v_bool; v_typing_flags|] -let v_with = - Sum ("with_declaration_body",0, - [|[|List v_id;v_mp|]; - [|List v_id;v_tuple "with_def" [|v_constr;v_context|]|]|]) - let rec v_mae = Sum ("module_alg_expr",0, [|[|v_mp|]; (* SEBident *) [|v_mae;v_mp|]; (* SEBapply *) - [|v_mae;v_with|] (* SEBwith *) + [|v_mae; Any|] (* SEBwith *) |]) let rec v_sfb = |