diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-09-15 09:43:21 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-09-15 09:43:21 +0200 |
commit | f7be3ebfee41f178b06e7a606ea783a08bfbb0d1 (patch) | |
tree | 2b5894dc9bb6513adf12bbe45934300d4545928c /checker/values.ml | |
parent | 22faf0ba8ca626903ee0f0988953e91252eeab74 (diff) | |
parent | 420c919854f50b9f9d47ba8299dc27f0df051d30 (diff) |
Merge PR #955: Do not hashcons universes beforehand
Diffstat (limited to 'checker/values.ml')
-rw-r--r-- | checker/values.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/values.ml b/checker/values.ml index afde84854..86634fbd8 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -99,7 +99,7 @@ let v_raw_level = v_sum "raw_level" 2 (* Prop, Set *) [|(*Level*)[|Int;v_dp|]; (*Var*)[|Int|]|] let v_level = v_tuple "level" [|Int;v_raw_level|] let v_expr = v_tuple "levelexpr" [|v_level;Int|] -let rec v_univ = Sum ("universe", 1, [| [|v_expr; Int; v_univ|] |]) +let v_univ = List v_expr let v_cstrs = Annot |