diff options
| author |  whitequark <whitequark@whitequark.org> | 2018-06-16 12:31:22 +0000 |
|---|---|---|
| committer | whitequark <whitequark@whitequark.org> | 2018-06-18 10:36:22 +0000 |
| commit | 6483605e9bea9dfb823934f4f8c8e89bd7977d4c (patch) | |
| tree | 2140c67e9a0a1418985a5d1cda14593e55636d90 /checker/values.ml | |
| parent | f08153148b3ca0de01e5d7c68d5b318a2cae6d0d (diff) | |
Remove Canary.
This eliminates 3 uses of Obj from TCB.
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 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|] |