From 6483605e9bea9dfb823934f4f8c8e89bd7977d4c Mon Sep 17 00:00:00 2001 From: whitequark Date: Sat, 16 Jun 2018 12:31:22 +0000 Subject: Remove Canary. This eliminates 3 uses of Obj from TCB. --- 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 67032bd1b..38032a6ca 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -91,7 +91,7 @@ let rec v_mp = Sum("module_path",0, [|[|v_dp|]; [|v_uid|]; [|v_mp;v_id|]|]) -let v_kn = v_tuple "kernel_name" [|Any;v_mp;v_dp;v_id;Int|] +let v_kn = v_tuple "kernel_name" [|v_mp;v_dp;v_id;Int|] let v_cst = v_sum "cst|mind" 0 [|[|v_kn|];[|v_kn;v_kn|]|] let v_ind = v_tuple "inductive" [|v_cst;Int|] let v_cons = v_tuple "constructor" [|v_ind;Int|] -- cgit v1.2.3