From 70fec68705c2d08a1387fe5d0ab409e2fc39717b Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Thu, 18 Dec 2014 18:48:37 +0100 Subject: Fixing checker representation of universe lists. --- checker/values.ml | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'checker/values.ml') diff --git a/checker/values.ml b/checker/values.ml index 4a4f5a190..e232b8f69 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -97,10 +97,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 v_univ = - let rec vuniv = - Tuple("hconsnode", [|Int;Int; Sum ("univ", 1, [|(*Cons*)[|v_expr;vuniv|]|])|]) - in vuniv +let rec v_univ = Sum ("universe", 1, [| [|v_expr; Int; v_univ|] |]) let v_cstrs = Annot -- cgit v1.2.3