diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-12-18 18:48:37 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-12-18 18:48:37 +0100 |
commit | 70fec68705c2d08a1387fe5d0ab409e2fc39717b (patch) | |
tree | 21b522b17924644b13e15920bd872ef267e45d39 /checker/values.ml | |
parent | 3ebe77f5cc0425faa1e79563548093487ce01809 (diff) |
Fixing checker representation of universe lists.
Diffstat (limited to 'checker/values.ml')
-rw-r--r-- | checker/values.ml | 5 |
1 files changed, 1 insertions, 4 deletions
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 |