diff options
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 06afc2fa9..7c7ff0c94 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -515,4 +515,5 @@ let freeze ~marshallable = | `Shallow -> !pstates | `No -> !pstates let unfreeze s = pstates := s; update_proof_mode () +let proof_of_state = function { proof }::_ -> proof | _ -> raise NoCurrentProof diff --git a/proofs/proof_global.mli b/proofs/proof_global.mli index d5229c562..2b54b24ef 100644 --- a/proofs/proof_global.mli +++ b/proofs/proof_global.mli @@ -188,3 +188,4 @@ end type state val freeze : marshallable:[`Yes | `No | `Shallow] -> state val unfreeze : state -> unit +val proof_of_state : state -> Proof.proof |