diff options
| author | Pierre-Marie Pédrot | 2018-09-27 16:23:28 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-09 14:10:27 +0100 |
| commit | 27048fb3ef7a10ffde1ee368f6fb7ef354431fe8 (patch) | |
| tree | 8f0d754ee6aa5f8d788f87026650a5634ee27f98 /checker | |
| parent | 168af2ba6ae1facf948c7c7bee725ac0f0cd3b41 (diff) | |
Actually store the bound name information in the abstract universe context.
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/values.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/checker/values.ml b/checker/values.ml index 8f6b24ec26..68bac10839 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -122,8 +122,7 @@ let v_cstrs = 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_context = v_tuple "abstract_universe_context" [|List v_name; v_cstrs|] 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|] |