diff options
| author | Maxime Dénès | 2018-02-12 10:17:08 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-02-12 10:17:08 +0100 |
| commit | f593be83d8f53857ae5dac9adc293c86fd9fe0bc (patch) | |
| tree | a811de06eb8883e66ee23e6464ca28d091aa8df1 /checker/values.ml | |
| parent | ab52b106915e00130ba593122595af155b7928ba (diff) | |
| parent | 91597060c0919489a29c31bc60b6ae0d754ef09b (diff) | |
Merge PR #6128: Simplification: cumulativity information is variance information.
Diffstat (limited to 'checker/values.ml')
| -rw-r--r-- | checker/values.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/checker/values.ml b/checker/values.ml index 313067cb6b..55e1cdb6f7 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -110,10 +110,12 @@ let v_cstrs = (v_tuple "univ_constraint" [|v_level;v_enum "order_request" 3;v_level|])) +let v_variance = v_enum "variance" 3 + let v_instance = Annot ("instance", Array v_level) let v_context = v_tuple "universe_context" [|v_instance;v_cstrs|] let v_abs_context = v_context (* only for clarity *) -let v_abs_cum_info = v_tuple "cumulativity_info" [|v_abs_context; v_context|] +let v_abs_cum_info = v_tuple "cumulativity_info" [|v_abs_context; Array v_variance|] let v_context_set = v_tuple "universe_context_set" [|v_hset v_level;v_cstrs|] (** kernel/term *) |