diff options
| author | Pierre-Marie Pédrot | 2019-06-04 10:19:02 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-04 11:16:17 +0200 |
| commit | 0f54a91eac98baf076d8be8f52bccdb1de17ea46 (patch) | |
| tree | 5e6c7901f04577ba1fd4a4a05e09ff5df8cf4e76 /checker/check.ml | |
| parent | e7ffa1bfa25300a25c1e81583b77d2d7587bbb5d (diff) | |
Slightly tweak the representation of dischargeable opaque proofs.
This will allow an easier removal of the discharge segment in a later
commit.
Diffstat (limited to 'checker/check.ml')
| -rw-r--r-- | checker/check.ml | 7 |
1 files changed, 4 insertions, 3 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 |