From 420c919854f50b9f9d47ba8299dc27f0df051d30 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Wed, 7 Jun 2017 17:07:08 +0200 Subject: Do not hashcons universes beforehand. This should save a lot of useless reallocations and hashset crawling, which end up costing a lot. --- checker/values.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'checker/values.ml') 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 -- cgit v1.2.3