diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-06-07 17:07:08 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-09-01 12:04:59 +0200 |
| commit | 420c919854f50b9f9d47ba8299dc27f0df051d30 (patch) | |
| tree | b5f75108a039efa92bd3875960997f9e5a82b684 /checker/values.ml | |
| parent | 3072bd9d080984833f5eb007bf15c6e9305619e3 (diff) | |
Do not hashcons universes beforehand.
This should save a lot of useless reallocations and hashset crawling, which
end up costing a lot.
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 c95c3f1b2..46e1d62c2 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -98,7 +98,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 |