diff options
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/check.ml | 7 | ||||
| -rw-r--r-- | checker/values.ml | 2 |
2 files changed, 5 insertions, 4 deletions
diff --git a/checker/check.ml b/checker/check.ml index 747d7c43a1..030b605e3f 100644 --- a/checker/check.ml +++ b/checker/check.ml @@ -51,7 +51,7 @@ let pr_path sp = type compilation_unit_name = DirPath.t type seg_univ = Univ.ContextSet.t * bool -type seg_proofs = (Opaqueproof.cooking_info list * int * Constr.constr) option array +type seg_proofs = (Opaqueproof.cooking_info list * int * Constr.constr option) array type library_t = { library_name : compilation_unit_name; @@ -98,9 +98,10 @@ let access_opaque_table dp i = with Not_found -> assert false in assert (i < Array.length t); - match t.(i) with + let (info, n, c) = t.(i) in + match c with | None -> None - | Some (info, n, c) -> Some (Cooking.cook_constr info n c) + | Some c -> Some (Cooking.cook_constr info n c) let access_discharge = Cooking.cook_constr diff --git a/checker/values.ml b/checker/values.ml index 6dbf281f49..4a4c8d803c 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -399,6 +399,6 @@ let v_abstract = let v_cooking_info = Tuple ("cooking_info", [|v_work_list; v_abstract|]) -let v_opaques = Array (Opt (Tuple ("opaque", [| List v_cooking_info; Int; v_constr |]))) +let v_opaques = Array (Tuple ("opaque", [| List v_cooking_info; Int; Opt v_constr |])) let v_univopaques = Opt (Tuple ("univopaques",[|v_context_set;v_bool|])) |