diff options
| author | Maxime Dénès | 2018-02-19 11:11:50 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-02-19 11:11:50 +0100 |
| commit | 073b92396a68be30f77c80960a58ca562bb01f49 (patch) | |
| tree | d2ad366f28624196ebfe9c1eadf595dcb490fcdc /proofs | |
| parent | c047ecce6e4dba33df69a53a9e168999676c65db (diff) | |
| parent | ed18f926e4695acc730218925ca156abe56ba5fc (diff) | |
Merge PR #6753: [toplevel] Make toplevel state into a record.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof_global.ml | 1 | ||||
| -rw-r--r-- | proofs/proof_global.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index fc94a10132..833e34c338 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -146,6 +146,7 @@ let cur_pstate () = | [] -> raise NoCurrentProof let give_me_the_proof () = (cur_pstate ()).proof +let give_me_the_proof_opt () = try Some (give_me_the_proof ()) with | NoCurrentProof -> None let get_current_proof_name () = (cur_pstate ()).pid let with_current_proof f = diff --git a/proofs/proof_global.mli b/proofs/proof_global.mli index 27e99f218b..29445a7462 100644 --- a/proofs/proof_global.mli +++ b/proofs/proof_global.mli @@ -24,6 +24,7 @@ val discard : Names.Id.t Loc.located -> unit val discard_current : unit -> unit val discard_all : unit -> unit +val give_me_the_proof_opt : unit -> Proof.t option exception NoCurrentProof val give_me_the_proof : unit -> Proof.t (** @raise NoCurrentProof when outside proof mode. *) |